Shareware Overload/ShartewareOverload.cdr/database/db3chk21.zip/CHKADD.PRG

Text File | 1987-05-26 | 3KB | 108 lines

** CHKADD.PRG
** PROGRAM TO ADD NEW TRANSACTIONS TO CHECK.DBF
SET PROCEDURE TO SCREENS
STORE DATE() TO MDATE
STORE SPACE(20) TO MPAYEE
STORE SPACE(19) TO MMEMO
STORE 1 TO MOS
STORE "C" TO MTRXTYPE
STORE 0 TO MCHECKS, MDEPOSITS
STORE "N" TO MCHANGE, MMORE
STORE "Y" TO MOK
USE CHECK

RESTORE FROM C:\DB\CHECKS\CHKCOUNT ADDITIVE
IF RECCOUNT() > MCOUNT + 10
CLEAR
@ 10,3 TO 13,70
@ 11,5 SAY "I think it's time to backup your data files. . ."
@ 12,5 SAY "   Is this OK with you ? " GET MOK PICTURE "!"
READ
    IF MOK = "Y"
       CLEAR
       @ 10,3 TO 13,70
       @ 11,8 SAY " Please wait while backups are performed . . ."
       DO CHKBAK
    ENDIF
ENDIF

DO WHILE .T.
   CLEAR
   @ 10,3 TO 13,70      && SMALL BOX
   @ 11,8 SAY " Are you adding (C)hecks or (D)eposits ? " GET MTRXTYPE PICTURE "!"
   READ
   CLEAR
   IF MTRXTYPE <> "C" .AND. MTRXTYPE <> "D"
      LOOP
   ENDIF
   @ 2,0 TO 18,79 DOUBLE   && DOUBLE LINED BOX

   @ 4,2 SAY "John & Mary Jones  "
   @ 5,2 SAY "Account 98765432"
   IF MTRXTYPE = "C"
      @ 3,50 SAY "Check Date "
   ENDIF
   IF MTRXTYPE = "D"
      @ 3,48 SAY "Deposit Date "
   ENDIF
   @ 3,62 SAY Date()
   @ 3,62 GET MDATE
   IF MTRXTYPE = "C"
      RESTORE FROM C:\DB\CHECKS\CHKLAST ADDITIVE
      MREF = MREF + 1
      @ 5,50 SAY "Ck. Number " GET MREF PICTURE "9999999"
      @ 7,55 SAY "$ " GET MCHECKS PICTURE "999999.99"
      @ 8,2 SAY "Payable to : "
      @ 9,2 GET MPAYEE PICTURE "@!"
      @ 11,2 SAY "Memo " && GET MMEMO PICTURE "@!"
      @ 12,2 GET MMEMO PICTURE "@!"
   ENDIF
   IF MTRXTYPE = "D"
      D = DTOC(MDATE)
      MREF = VAL(SUBSTR(D,1,2)+SUBSTR(D,4,2)+SUBSTR(D,7,2))    && DEPOSIT DATE
      @ 5,38 SAY "Reference No. (if any) " GET MREF PICTURE "9999999"
      @ 7,55 SAY "$ " GET MDEPOSITS PICTURE "999999.99"
      @ 8,2 SAY "Received from : "
      @ 9,2 GET MPAYEE PICTURE "@!"
      @ 11,2 SAY "Memo " && GET MMEMO PICTURE "@!"
      @ 12,2 GET MMEMO PICTURE "@!"
   ENDIF
   @ 15,20 SAY "Is Item O/S (0 for No <CR> if Yes) ? " GET MOS PICTURE "9" RANGE 0,1
   READ

   @ 19,8 SAY "Any changes ? (Y/N) " GET MCHANGE PICTURE "!"
   READ
   IF MCHANGE = "Y"
      STORE "N" TO MCHANGE
      LOOP
   ENDIF
   IF MCHANGE = "N"
      APPEND BLANK
      REPLACE REF WITH MREF, DATE WITH MDATE, PAYEE WITH MPAYEE;
      CHECKS WITH MCHECKS,DEPOSITS WITH MDEPOSITS,MEMO WITH MMEMO;
      OS WITH MOS
      STORE DATE() TO MDATE
      STORE SPACE(20) TO MPAYEE
      STORE SPACE(19) TO MMEMO
      STORE 1 TO MOS
      STORE 0 TO MCHECKS, MDEPOSITS    && MREF NOW COMING FROM CHKLAST.MEM
      STORE "N" TO MCHANGE
      SET SAFETY OFF
      IF MTRXTYPE = "C"
         SAVE TO C:\DB\CHECKS\CHKLAST ALL LIKE MREF
      ENDIF
      SET SAFETY ON
   ENDIF

   @ 19,8 SAY "More to add ? (Y/N)  " GET MMORE PICTURE "!"
   READ
   IF MMORE = "Y"
      MMORE = "N"  && RESET TO "NO MORE TO ADD"
      LOOP
   ENDIF
   EXIT
ENDDO
CLEAR
RETURN