home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / workdb.zip / BACKORDR.PRG < prev    next >
Text File  |  1988-08-15  |  2KB  |  60 lines
  1. *!!* dBASE CONVERT - dBASE III File Conversion Aid  v2.01  1/10/86
  2. *
  3. SET HEADING OFF
  4. SET SAFETY OFF
  5. * BACKORDR.SIG 08/18/83
  6. * if you want printer codes - add them here
  7. CLEAR
  8. GOTO TOP
  9. STORE 0 TO PAGENO
  10. STORE .T. TO MORE
  11. STORE 0 TO TOTAL
  12. STORE 0 TO AMOUNT
  13. SET MARGIN TO 0
  14. DO WHILE MORE
  15.    STORE PAGENO + 1 TO PAGENO
  16.    STORE 7 TO LINENO
  17.    CLEAR
  18.    EJECT
  19.    ? ' '
  20.    ? '======================SIG/M BACK ORDERS ============================='
  21.    ? ' '
  22.    ? '   AS OF  ' + DTOC(date()) + '                       PAGE: ' + str(pageno,3)
  23.    ? ' '
  24.    ? '     LAST NAME             ENTERED      SHIPPED    BACKORDER SHIPPED   AMOUNT'
  25.    ? ' '
  26.    DO WHILE LINENO <55
  27.       IF  COMP = 'N'
  28.          STORE TOTAL + 1 TO TOTAL
  29.          STORE AMOUNT + AMT TO AMOUNT
  30.          ? '      '+ LNAME +' ' + ENTERED + '     '+ SHIPPED +'   ';
  31.          + bo_ship + bo2_ship +' '+ STR(amt,8,2)
  32.          ? 'ORDERED: ' + TRIM(vol1)
  33.          ? 'BACK ORDERED: ' +TRIM(bo) + '            ' + 'CATALOG: ' + ' ' + catalog
  34.          ? ' '
  35.          STORE LINENO + 6 TO LINENO
  36.          SKIP
  37.          IF EOF()
  38.             STORE 60 TO LINENO
  39.             STORE .F. TO MORE
  40.          ENDIF EOF
  41.       ELSE
  42.          SKIP
  43.          IF EOF()
  44.             STORE 60 TO LINENO
  45.             STORE .F. TO MORE
  46.          ENDIF EOF
  47.       ENDIF COMP= 'N'
  48.    ENDDO WHILE LINENO > 55
  49. ENDDO MORE
  50. ? '----------------------------------------------------------------------------'
  51. ? ' '
  52. ? '      TOTALS:         NUMBER OF ORDERS WITH BACK ORDERS: ' + STR(total,4,0)
  53. ? '                      DOLLAR AMOUNT OF BACK ORDERS: ' + STR(amount,8,2)
  54. EJECT
  55. SET PRINT OFF
  56. RELEASE ALL
  57. STORE .T. TO MORE
  58. STORE .T. TO FIRST
  59.  
  60.