home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / disk_20.zip / NUDBMSX.ZIP / PRINTINV.PRG < prev    next >
Text File  |  1987-01-28  |  2KB  |  71 lines
  1. *****  Program: PRINTINV.PRG   *****
  2. * Display and print Invoice
  3. * clear totals
  4. ANSWER = "S"
  5. DO WHILE .T.
  6.    ITEMTOTAL = 0
  7.    GRANDTOTAL = 0
  8.    CLEAR
  9.    ?"                     >>>>>>>>>>>  INVOICE  <<<<<<<<<<<"
  10.    ?
  11.    ?
  12.    ?"           OPTIONS"                           
  13.    ?"10736 LESTER ST. WHEATON, MD., 20902"
  14.    ?"      (301) 649 - 3648"              
  15.    ? space(50)+"Invoice No.    " + invno
  16.    ? space(50)+"Invoice Date : " +dtoc(invdate)
  17.    ? space(5)+"Sold to:  "+acctname
  18.    ? SPACE(10) + MADDRESS
  19.    ? SPACE(10) + CITYSTZIP
  20.    ?
  21.    ?"================================================================"
  22.    ??"==============="
  23.    ?"  Stk #      Description      Ordered   Shipped  B.Ordered   Unit Price "
  24.    ??"  Total"
  25.    ?"----------------------------------------------------------------"
  26.    ??"---------------"
  27.    SELE A
  28.    USE SALE
  29.    DO WHILE inv_no <> ' ' .and. .not. eof()
  30.       ITEMTOTAL = UNIT_PRICE * QTY_SHIPED
  31.       GRANDTOTAL=GRANDTOTAL+ITEMTOTAL
  32.       ? "  "+stock_no+"   "+model_no+ "   "+str(qty_orderd,3,0)+"     "
  33.       ??STR(QTY_SHIPED,3,0)+"       "+str(qty_bo,3,0)+"      "
  34.       ??STR(UNIT_PRICE,10,2)+STR(ITEMTOTAL,12,2)
  35.       SKIP
  36.    ENDDO
  37.        SET PRIN OFF
  38. ?space(68)+"-----------"
  39. ?SPACE(40)+" Total Sale "+space(15)+str(grandtotal,12,2)
  40. ?space(68)+"==========="
  41. ?
  42. ?
  43. IF upper(answer) = "P"
  44.    SELE A
  45.    INDEX ON STOCK_NO TO SORT1
  46.    SELE B
  47.    USE STOCKS
  48.    INDEX ON STOCK_NO TO SORT2
  49.    UPDATE ON STOCK_NO FROM SALE REPL ON_HAND WITH ON_HAND- A->QTY_SHIPED
  50.    ERASE SORT1.NDX
  51.    ERASE SORT2.NDX
  52.    USE INVOICES
  53.    APPEND FROM INVOICE
  54.    RETURN
  55. ENDIF
  56. ? "   [S] Display invoice on screen     [P] Print it   "
  57. ?? " [Q] Return to mainmenu "
  58. WAIT ' ' to answer
  59. DO CASE
  60.    CASE upper(answer) = "S"
  61.         LOOP
  62.    CASE upper(answer) = "P"
  63.         SET PRIN ON
  64.         LOOP
  65.         RETURN
  66.  CASE upper(answer) = "Q"
  67.         RETURN
  68. ENDCASE
  69. ENDDO
  70. RETURN
  71.