home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / check / chkadd.prg < prev    next >
Encoding:
Text File  |  1987-05-26  |  2.9 KB  |  108 lines
  1.  
  2. ** CHKADD.PRG
  3. ** PROGRAM TO ADD NEW TRANSACTIONS TO CHECK.DBF
  4. SET PROCEDURE TO SCREENS
  5. STORE DATE() TO MDATE
  6. STORE SPACE(20) TO MPAYEE
  7. STORE SPACE(19) TO MMEMO
  8. STORE 1 TO MOS
  9. STORE "C" TO MTRXTYPE
  10. STORE 0 TO MCHECKS, MDEPOSITS
  11. STORE "N" TO MCHANGE, MMORE
  12. STORE "Y" TO MOK
  13. USE CHECK
  14.  
  15. RESTORE FROM C:\DB\CHECKS\CHKCOUNT ADDITIVE
  16. IF RECCOUNT() > MCOUNT + 10
  17. CLEAR
  18. @ 10,3 TO 13,70
  19. @ 11,5 SAY "I think it's time to backup your data files. . ."
  20. @ 12,5 SAY "   Is this OK with you ? " GET MOK PICTURE "!"
  21. READ
  22.     IF MOK = "Y"
  23.        CLEAR
  24.        @ 10,3 TO 13,70
  25.        @ 11,8 SAY " Please wait while backups are performed . . ."
  26.        DO CHKBAK
  27.     ENDIF
  28. ENDIF
  29.  
  30. DO WHILE .T.
  31.    CLEAR
  32.    @ 10,3 TO 13,70      && SMALL BOX
  33.    @ 11,8 SAY " Are you adding (C)hecks or (D)eposits ? " GET MTRXTYPE PICTURE "!"
  34.    READ
  35.    CLEAR
  36.    IF MTRXTYPE <> "C" .AND. MTRXTYPE <> "D"
  37.       LOOP
  38.    ENDIF
  39.    @ 2,0 TO 18,79 DOUBLE   && DOUBLE LINED BOX
  40.  
  41.    @ 4,2 SAY "John & Mary Jones  "
  42.    @ 5,2 SAY "Account 98765432"
  43.    IF MTRXTYPE = "C"
  44.       @ 3,50 SAY "Check Date "
  45.    ENDIF
  46.    IF MTRXTYPE = "D"
  47.       @ 3,48 SAY "Deposit Date "
  48.    ENDIF
  49.    @ 3,62 SAY Date()
  50.    @ 3,62 GET MDATE
  51.    IF MTRXTYPE = "C"
  52.       RESTORE FROM C:\DB\CHECKS\CHKLAST ADDITIVE
  53.       MREF = MREF + 1
  54.       @ 5,50 SAY "Ck. Number " GET MREF PICTURE "9999999"
  55.       @ 7,55 SAY "$ " GET MCHECKS PICTURE "999999.99"
  56.       @ 8,2 SAY "Payable to : "
  57.       @ 9,2 GET MPAYEE PICTURE "@!"
  58.       @ 11,2 SAY "Memo " && GET MMEMO PICTURE "@!"
  59.       @ 12,2 GET MMEMO PICTURE "@!"
  60.    ENDIF
  61.    IF MTRXTYPE = "D"
  62.       D = DTOC(MDATE)
  63.       MREF = VAL(SUBSTR(D,1,2)+SUBSTR(D,4,2)+SUBSTR(D,7,2))    && DEPOSIT DATE
  64.       @ 5,38 SAY "Reference No. (if any) " GET MREF PICTURE "9999999"
  65.       @ 7,55 SAY "$ " GET MDEPOSITS PICTURE "999999.99"
  66.       @ 8,2 SAY "Received from : "
  67.       @ 9,2 GET MPAYEE PICTURE "@!"
  68.       @ 11,2 SAY "Memo " && GET MMEMO PICTURE "@!"
  69.       @ 12,2 GET MMEMO PICTURE "@!"
  70.    ENDIF
  71.    @ 15,20 SAY "Is Item O/S (0 for No <CR> if Yes) ? " GET MOS PICTURE "9" RANGE 0,1
  72.    READ
  73.  
  74.    @ 19,8 SAY "Any changes ? (Y/N) " GET MCHANGE PICTURE "!"
  75.    READ
  76.    IF MCHANGE = "Y"
  77.       STORE "N" TO MCHANGE
  78.       LOOP
  79.    ENDIF
  80.    IF MCHANGE = "N"
  81.       APPEND BLANK
  82.       REPLACE REF WITH MREF, DATE WITH MDATE, PAYEE WITH MPAYEE;
  83.       CHECKS WITH MCHECKS,DEPOSITS WITH MDEPOSITS,MEMO WITH MMEMO;
  84.       OS WITH MOS
  85.       STORE DATE() TO MDATE
  86.       STORE SPACE(20) TO MPAYEE
  87.       STORE SPACE(19) TO MMEMO
  88.       STORE 1 TO MOS
  89.       STORE 0 TO MCHECKS, MDEPOSITS    && MREF NOW COMING FROM CHKLAST.MEM
  90.       STORE "N" TO MCHANGE
  91.       SET SAFETY OFF
  92.       IF MTRXTYPE = "C"
  93.          SAVE TO C:\DB\CHECKS\CHKLAST ALL LIKE MREF
  94.       ENDIF
  95.       SET SAFETY ON
  96.    ENDIF
  97.  
  98.    @ 19,8 SAY "More to add ? (Y/N)  " GET MMORE PICTURE "!"
  99.    READ
  100.    IF MMORE = "Y"
  101.       MMORE = "N"  && RESET TO "NO MORE TO ADD"
  102.       LOOP
  103.    ENDIF
  104.    EXIT
  105. ENDDO
  106. CLEAR
  107. RETURN
  108.