REST FROM PAYABLE
CLEAR
STORE 'N' TO DNETAPPEND,DBB,DBBB,SEP
STORE 0 TO CL
SET TALK OFF
DO WHILE .T.
CLOSE DATA
SELECT 3
SET EXCLUSIVE ON
STORE 'DEPDUMP' TO DNET
DO NETERROR
ZAP
SET EXCLUSIVE OFF
STORE 'DEPDUMP' TO DNET
DO NETERROR
STORE 'DEPOSIT REPORT' TO TOP1
DO TOP
STORE ' ' TO MACCT
STORE '    ' TO YM
@ 6,0 SAY 'ACCT (R/C/P)  - ' GET MACCT
@ 6,40 SAY 'ENTER MONTH/YR - ' GET YM PICTURE '9999'
STORE '09/20/90' TO LDATE
@ 4,0 SAY 'DATES AFTER ' + LDATE
READ
IF CL = 1
 PRESSED = LASTKEY()
 IF PRESSED = 27
  RETURN
 ENDIF
ENDIF
IF MACCT <> 'C' .AND. MACCT <> 'R' .AND. MACCT <> 'P'
 LOOP
ENDIF
STORE SUBSTR(YM,3,2) + SUBSTR(YM,1,2) TO YM
*CACULATE LAST MONTH TO LYM
STORE VAL(SUBSTR(YM,1,2)) TO YM1
STORE VAL(SUBSTR(YM,3,2)) TO YM2
IF YM2= 1
 STORE YM1-1 TO YM1
 STORE 12 TO YM2
ELSE
 STORE YM2-1 TO YM2
ENDIF
IF YM2 < 10
 STORE STR(YM1,2,0) + '0' + STR(YM2,1,0) TO LYM
ELSE
 STORE STR(YM1,2,0) + STR(YM2,2,0) TO LYM
ENDIF
SELECT 1
STORE 'PAYABLE' TO DNET
DO NETERROR
SELECT 2
IF MACCT = 'C'
 STORE 'INVOICE' TO DNET



ENDIF
IF MACCT = 'R'
 STORE 'RTRANS' TO DNET
ENDIF
IF MACCT = 'P'
 STORE 'RTRANSCP' TO DNET
ENDIF
DO NETERROR
SELECT 1
GOTO TOP
*5176132
STORE 0 TO D1,D2,I1,I2
IF MACCT = 'R'
 STORE '4570000' TO ENCRIPT
 STORE '0000000' TO ENCRIPT1
 STORE SUBSTR(ENCRIPT,5,1) + SUBSTR(ENCRIPT,4,1) + SUBSTR(ENCRIPT,7,1) + SUBSTR(ENCRIPT,6,1) + SUBSTR(ENCRIPT,1,1) + SUBSTR(ENCRIPT,3,1) + SUBSTR(ENCRIPT,2,1) TO MENCRIPT 
 STORE VAL(MENCRIPT) TO DD
 STORE SUBSTR(ENCRIPT1,5,1) + SUBSTR(ENCRIPT1,4,1) + SUBSTR(ENCRIPT1,7,1) + SUBSTR(ENCRIPT1,6,1) + SUBSTR(ENCRIPT1,1,1) + SUBSTR(ENCRIPT1,3,1) + SUBSTR(ENCRIPT1,2,1) TO MENCRIPT 
 STORE VAL(MENCRIPT) TO II
ENDIF
IF MACCT = 'P'
 STORE '0000000' TO ENCRIPT
 STORE '0000000' TO ENCRIPT1
 STORE SUBSTR(ENCRIPT,5,1) + SUBSTR(ENCRIPT,4,1) + SUBSTR(ENCRIPT,7,1) + SUBSTR(ENCRIPT,6,1) + SUBSTR(ENCRIPT,1,1) + SUBSTR(ENCRIPT,3,1) + SUBSTR(ENCRIPT,2,1) TO MENCRIPT 
 STORE VAL(MENCRIPT) TO DD																		
 STORE SUBSTR(ENCRIPT1,5,1) + SUBSTR(ENCRIPT1,4,1) + SUBSTR(ENCRIPT1,7,1) + SUBSTR(ENCRIPT1,6,1) + SUBSTR(ENCRIPT1,1,1) + SUBSTR(ENCRIPT1,3,1) + SUBSTR(ENCRIPT1,2,1) TO MENCRIPT 
 STORE VAL(MENCRIPT) TO II
ENDIF
IF MACCT = 'C'
 STORE '4570000' TO ENCRIPT
 STORE '0000000' TO ENCRIPT1
 STORE SUBSTR(ENCRIPT,5,1) + SUBSTR(ENCRIPT,4,1) + SUBSTR(ENCRIPT,7,1) + SUBSTR(ENCRIPT,6,1) + SUBSTR(ENCRIPT,1,1) + SUBSTR(ENCRIPT,3,1) + SUBSTR(ENCRIPT,2,1) TO MENCRIPT 
 STORE VAL(MENCRIPT) TO DD
 STORE SUBSTR(ENCRIPT1,5,1) + SUBSTR(ENCRIPT1,4,1) + SUBSTR(ENCRIPT1,7,1) + SUBSTR(ENCRIPT1,6,1) + SUBSTR(ENCRIPT1,1,1) + SUBSTR(ENCRIPT1,3,1) + SUBSTR(ENCRIPT1,2,1) TO MENCRIPT 
 STORE VAL(MENCRIPT) TO II
ENDIF
@ 9,0 SAY 'YEAR/MONTH - '
@ 9,22 SAY LYM 
@ 9,42 SAY YM
@ 8,61 SAY 'BALANCE'
@ 9,61 SAY 'TOTALS'
@ 10,22 SAY '----'
@ 10,42 SAY '----'
@ 10,61 SAY '------'
@ 11,0 SAY 'DEPOSITS'

DO WHILE .NOT. EOF()
IF MACCT = ACCT .AND. VNUM = 1
 IF DUEDATE <= CTOD(LDATE)
  SKIP
  LOOP
 ENDIF
 STORE CHKAMT + DD TO DD
 IF SUBSTR(DTOC(DUEDATE),7,2) + SUBSTR(DTOC(DUEDATE),1,2) = LYM 
  STORE CHKAMT + D1 TO D1
  @ 11,20 SAY STR(D1,8,2)
 ENDIF
 IF SUBSTR(DTOC(DUEDATE),7,2) + SUBSTR(DTOC(DUEDATE),1,2) = YM
  STORE CHKAMT + D2 TO D2
  @ 11,40 SAY STR(D2,8,2)
  STORE DTOC(DUEDATE) TO LLW
  STORE CHKAMT TO AAA
  SELECT 3   
  APPEND BLANK
  REPLACE DUMLINE WITH LLW
  REPLACE TYPE WITH 'D'
  REPLACE AMT WITH AAA
  SELECT 1
 ENDIF
ENDIF
SKIP
ENDDO

@ 11,60 SAY STR(DD,8,2)
SELECT 2
GOTO TOP
@ 12,0 SAY 'INCOME '
DO WHILE .NOT. EOF()
IF MACCT = 'C'
 IF IRECDATE <= CTOD(LDATE)
  SKIP
  LOOP
 ENDIF
 STORE AMTPAID + II TO II
 IF SUBSTR(DTOC(IRECDATE),7,2) + SUBSTR(DTOC(IRECDATE),1,2) = LYM
  STORE AMTPAID + I1 TO I1
  @ 12,20 SAY STR(I1,8,2)
 ENDIF
 IF SUBSTR(DTOC(IRECDATE),7,2) + SUBSTR(DTOC(IRECDATE),1,2) = YM
  STORE AMTPAID + I2 TO I2
  @ 12,40 SAY STR(I2,8,2)
  STORE DTOC(IRECDATE) + '  ' + STR(CUSTNUM,5,0) TO LLW
  STORE AMTPAID TO AAA
  SELECT 3   
  APPEND BLANK
  REPLACE DUMLINE WITH LLW
  REPLACE TYPE WITH 'I'
  REPLACE AMT WITH AAA
  SELECT 2
 ENDIF
ELSE
 
 IF VAL(TYPE) < 6
  IF DAT <= CTOD(LDATE)
   SKIP
   LOOP
  ENDIF
  STORE AMT + II TO II
  IF SUBSTR(DTOC(DAT),7,2) + SUBSTR(DTOC(DAT),1,2) = LYM
   STORE AMT + I1 TO I1
   @ 12,20 SAY STR(I1,8,2)
  ENDIF
  IF SUBSTR(DTOC(DAT),7,2) + SUBSTR(DTOC(DAT),1,2) = YM
   STORE AMT + I2 TO I2
   @ 12,40 SAY STR(I2,8,2)
   STORE DTOC(DAT) + '  ' + TYPE + '  ' + CODE + '  ' + DESC + '  ' + NAME TO LLW
   STORE AMT TO AAA
   SELECT 3   
   APPEND BLANK
   REPLACE DUMLINE WITH LLW
   REPLACE TYPE WITH 'I'
   REPLACE AMT WITH AAA
   SELECT 2
  ENDIF
 ENDIF
ENDIF 
SKIP
ENDDO
@ 12,60 SAY STR(II,8,2)
STORE D1-I1 TO DI1
STORE D2-I2 TO DI2
STORE DD-II TO DI
@ 13,16 SAY '------------'
@ 13,36 SAY '------------'
@ 13,56 SAY '------------'
@ 14,16 SAY STR(DI1,12,2)
@ 14,36 SAY STR(DI2,12,2)
@ 14,56 SAY STR(DI,12,2)
IF DI <> 0
 ? CHR(7)
 IF DI < 0
  @ 17,0 SAY 'REPORT TOTALS DID NOT BALANCE  ' + STR(DI,12,2) + ' HAS NOT BEEN DEPOSITED'
 ENDIF
 IF DI > 1
  @ 17,0 SAY 'REPORT TOTALS DID NOT BALANCE  ' + STR(DI,12,2) + ' HAS BEEN OVER DEPOSITED'
 ENDIF
ELSE
 @ 17,0 SAY 'REPORT BALANCED  ' 
ENDIF

DO WHILE .T.
STORE ' ' TO SEL
@ 20,0 SAY 'PRESS  C  TO CONTINUE, L  TO  LIST, P  TO PRINT CURRENT TRANSACTIONS  - ' GET SEL PICTURE '!'
READ
IF CL = 1
 PRESSED = LASTKEY()
 IF PRESSED = 27
  RETURN
 ENDIF
ENDIF

IF SEL = 'C'
 CLEAR
 EXIT
ENDIF
IF SEL = 'P'
 SET CONSOLE OFF
 SET PRINT ON 
ENDIF
IF SEL = 'C' .OR. SEL = 'P'
 SELECT 3
 GOTO TOP
 CLEAR
 ? CHR(15)
 ? '                                             INCOME/DEPOSIT REPORT                               RUN DATE - ',DATE()
 ? '  '
 STORE 'D' TO MTYPE
 STORE 0 TO MAMT
 DO WHILE .T.
 ? TYPE,'  ',AMT,'  ',DUMLINE
 STORE AMT+MAMT TO MAMT
 SKIP
 IF TYPE <> MTYPE
  ? '       ----------'
  ? '   ',MAMT   
  ? ' '
  STORE TYPE TO MTYPE
  STORE 0 TO MAMT
 ENDIF
 IF EOF()
  EXIT
 ENDIF
 ENDDO
 ? ' '
 ? CHR(18)
 IF DI <> 0
  IF DI < 0
   STORE DI * -1 TO DI
    ? 'REPORT TOTALS DID NOT BALANCE  ',STR(DI,12,2),' HAS NOT BEEN DEPOSITED'
  ELSE
   ? 'REPORT TOTALS DID NOT BALANCE  ',STR(DI,12,2),' HAS NOT BEEN OVER DEPOSITED'
  ENDIF
 ELSE
  ? 'REPORT BALANCED'
 ENDIF
ENDIF
? ' '
SET PRINT OFF
SET CONSOLE ON
ENDDO
ENDDO