home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / disk_20.zip / NUDBMSX.ZIP / BILLING.PRG < prev    next >
Text File  |  1987-01-28  |  2KB  |  90 lines
  1. *****   Program: BILLING.PRG   *****
  2. * A Billing Program
  3. SET TALK OFF
  4. SET ECHO OFF
  5. PUBLIC INVNO,INVDATE,ACCTNO,ACCTNAME,MADDRESS,CITYSTZIP
  6. CLEAR
  7. DO WHILE .T.
  8.    USE INVOICE
  9.    DELE ALL
  10.    PACK
  11.    APPE BLAN
  12.    REPL INV_DATE WITH DATE()
  13.    @ 3,1 say "  Invoice Number : " get inv_no
  14.    @ 4,1 say "    Invoice Date : " get inv_date
  15.    @ 5,1 say "  Account Number : " get acct_no
  16.    READ
  17.    INVNO = INV_NO
  18.    INVDATE = INV_DATE
  19.    ACCTNO = ACCT_NO
  20.    USE ACCOUNTS
  21.    LOCA FOR ACCT_NO=ACCTNO
  22.    IF EOF()
  23.       CLEAR
  24.       ? " Invalid account number, Reenter  !"
  25.       LOOP
  26.    ELSE
  27.       @ 1,1 SAY SPACE(30)
  28.       EXIT
  29.    ENDIF
  30. ENDDO
  31. @ 3,35 say " Account Name : " + acct_name
  32. @ 4,35 say "      Address : " + address
  33. @ 5,51 say trim(city)+"  "+state+'  '+zip
  34. ACCTNAME = ACCT_NAME
  35. MADDRESS = ADDRESS
  36. CITYSTZIP = trim(city)+', '+state+'  '+zip
  37. @7,5 say "                        Quantity  Quantity   Quantity"
  38. @8,5 say "Stock No.    Model No.   Ordered  Shipped   Back Ordered  Unit Price"
  39. SELE 1
  40. USE SALE
  41. SELE 2
  42. USE COSTS
  43. SELE 1
  44. DELETE ALL
  45. PACK
  46. ITEMNO = 1
  47. APPE BLAN
  48. DO WHILE .T.
  49.    @ 9+itemno,1 say " " get stock_no
  50.    READ
  51.    IF stock_no = ' '
  52.       EXIT
  53.    ENDIF
  54.    STOCKNO = STOCK_NO
  55.    @ 9+itemNO,28 say ' ' get qty_orderd
  56.    @ 9+itemNo,38 say ' ' get qty_shiped
  57.    READ
  58.    REPL QTY_BO WITH QTY_ORDERD - QTY_SHIPED
  59.    @ 9+itemNo,50 say ' ' get qty_bo
  60.    READ
  61.    @ 21,1 say ' '
  62.    WAIT '                     Are these quantities correct (Y/N) ? ' to answer
  63.    IF upper(answer) = "Y"
  64.       @ 22,0 CLEAR
  65.       SELE 2
  66.       LOCATE FOR STOCK_NO = STOCKNO
  67.       IF EOF()
  68.          SELE 1
  69.          LOOP
  70.       ENDIF
  71.       @9+ITEMNO,07 say ' ' get model_no
  72.       @9+ITEMNO,61 say ' ' get dlR_cost
  73.       CLEA GET
  74.       MODELNO = MODEL_NO
  75.       UNITPRICE = DLR_COST
  76.       SELE 1
  77.       REPL INV_NO WITH INVNO
  78.       REPL MODEL_NO WITH MODELNO
  79.       REPL UNIT_PRICE WITH UNITPRICE
  80.       ITEMNO = ITEMNO + 1
  81.       APPE BLAN
  82.       LOOP
  83.    ELSE
  84.       LOOP
  85.    ENDIF
  86. ENDDO
  87. CLOS DATABASES
  88. DO PRINTINV
  89. RETURN
  90.