home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / ar / editinv.prg < prev    next >
Encoding:
Text File  |  1986-08-04  |  2.1 KB  |  96 lines
  1. SET SAFETY OFF
  2. SET DELIM TO ' '
  3. SET DELIM OFF
  4. ************************(EDITINV.PRG)-JAY KENNEY-FOR dBaseIII+
  5. CLEAR
  6. SET BELL OFF
  7. SET CONFIRM ON
  8. SET INTE ON
  9. SET TALK OFF
  10. SET EXACT ON
  11. SET HEAD OFF
  12. SET STATUS OFF
  13. SET SCOREBOARD OFF
  14. SET TALK OFF
  15. STORE ' ' TO OPTION
  16. DO WHILE .T.
  17.    CLEA
  18.    @ 0,23 TO 2,54 DOUBLE
  19.    @ 1,25 SAY 'Do you want to edit invoices?'
  20.    ?
  21.    WAIT '                                    ? ' TO OPTION
  22.    IF OPTION<>'Y'
  23.       RETURN
  24.    ENDIF
  25.    CLEA
  26.    MACCT=SPACE(4)
  27.    @ 9,25 TO 11,54 DOUBLE
  28.    @ 10,27 SAY [Enter account number]
  29.    @ 10,48 GET MACCT
  30.    READ
  31.    USE CUST INDE ACCT
  32.    FIND &MACCT
  33.    IF EOF()
  34.       CLEA
  35.       @ 10,25 SAY [WHAT?? ]+MACCT+[ HUH??]
  36.       @ 9,24 TO 11,50 DOUBLE
  37.       @ 6,12 TO 15,60 DOUBLE
  38.       @ 4,6 TO 19,70 DOUBLE
  39.       @ 1,1 TO 23,79 DOUBLE
  40.       LOOP
  41.    ENDIF
  42.    STORE TRIM(NAME) TO MNAME
  43.    STORE TRIM(ADDRESS) TO MADDRESS
  44.    STORE NET TO MNET
  45.    STORE OLD_30 TO OLD30
  46.    STORE OLD_45 TO OLD45
  47.    STORE OLD_60 TO OLD60
  48.    CLEA
  49.    @ 0,0 TO 3,79 DOUBLE
  50.    @ 1,2 SAY [# ]+MACCT+[ -- ]+MNAME+[ -- ]+MADDRESS
  51.    @ 2,2 SAY [Net due:]+STR(MNET,7,2)+[   Past 30 ]+STR(OLD30,7,2)+[ ì
  52.   Past 45 ]+STR(OLD45,7,2)+[   Past 60 ]+STR(OLD60,7,2)
  53.    USE INV INDE ACCTS
  54.    ?
  55.    ? [ Date     Inv.#   P.O.#      Orig.price  Credits    Pmts.     Due  ì
  56.  Paid?]
  57.    DISPLAY ALL OFF NEWDATE,INVNO,TRIM(PONO),PRICE,;
  58.    CRINV,AMTAPPL,NET,' ',PAID FOR ACCT=MACCT
  59.    ?
  60.    STORE '     ' TO MXINV
  61.    @ 24,15 SAY 'Edit which invoice? - Blank to return... 'GET MXINV
  62.    READ
  63.    IF MXINV='     '
  64.       LOOP
  65.    ENDIF
  66.    LOCA FOR INVNO=MXINV
  67.    IF EOF()
  68.       ? [------------============ NOT CORRECT INVOICE FOR CUSTOMER ì
  69. ==========-----]
  70.       ? CHR(7)
  71.       LOOP
  72.    ENDIF
  73.    @ 24,0 CLEA
  74.    @ 24,1 GET NEWDATE
  75.    @ 24,10 GET INVNO
  76.    @ 24,17 GET PONO
  77.    @ 24,29 GET PRICE
  78.    @ 24,41 GET CRINV
  79.    @ 24,52 GET AMTAPPL
  80.    @ 24,64 GET NET
  81.    @ 24,76 GET PAID
  82.    READ
  83. ENDIF
  84. ENDDO
  85. ENDDO
  86. RELEASE ALL
  87. SET BELL ON
  88. SET CONFIRM ON
  89. SET TALK ON
  90. SET INTE ON
  91. SET EXACT ON
  92. SET HEAD ON
  93. SET STATUS ON
  94. SET SCOREBOARD ON
  95. RETURN
  96.