home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / workdb.zip / SHIPPED.PRG < prev    next >
Text File  |  1988-08-15  |  3KB  |  86 lines
  1. *!!* dBASE CONVERT - dBASE III File Conversion Aid  v2.01  1/10/86
  2. *
  3. SET HEADING OFF
  4. SET SAFETY OFF
  5. * SHIPPED. SIG  08/18/83
  6. * shipping report program
  7. * add your own printer codes
  8. CLEAR
  9. * get a starting  point
  10. STORE DTOC(DATE()) TO stdat
  11. @ 10,12 SAY 'SHIPMENTS AFTER WHAT DATE ARE TO BE LISTED'
  12. @ 10,57 GET STDAT PICTURE '99/99/99'
  13. READ
  14. * store date as YYMMDD
  15. STORE SUBSTR(stdat,7,2)+SUBSTR(stdat,1,2)+SUBSTR(stdat,4,2) TO stdate
  16. GOTO TOP
  17. STORE 0 TO PAGENO
  18. STORE .T. TO MORE
  19. STORE 0 TO TOTAL
  20. STORE 0 TO CAT
  21. STORE 0 TO AMOUNT
  22. SET MARGIN TO 0
  23. DO WHILE MORE
  24.    STORE PAGENO + 1 TO PAGENO
  25.    STORE 7 TO LINENO
  26.    CLEAR
  27.    EJECT
  28.    *!! Unrecognized command.
  29.    ' '
  30.    ? '======================SIG/M SHIPPING REPORT ========================'
  31.    ? ' '
  32.    ? '           ' + DTOC(date()) + '                       PAGE: ' + str(pageno,3)
  33.    ? ' '
  34.    ? '      ORDERS WHERE SHIPMENTS AFTER ' + STDAT
  35.    ? ' '
  36.    ? '  CAT LAST NAME            ENTERED      SHIPPED    BACKORDER SHIPPED   AMOUNT'
  37.    ? ' '
  38.    DO WHILE LINENO <55
  39.       STORE SUBSTR(shipped,7,2)+SUBSTR(shipped,1,2)+SUBSTR(shipped,4,2) TO stdate1
  40.       STORE SUBSTR(bo_ship,7,2)+SUBSTR(bo_ship,1,2)+SUBSTR(bo_ship,4,2) TO stdate2
  41.       STORE SUBSTR(bo2_ship,7,2)+SUBSTR(bo2_ship,1,2)+SUBSTR(bo2_ship,4,2) TO stdate3
  42.       IF STDATE2 >=STDATE1
  43.          STORE STDATE2 TO STDATE4
  44.       ELSE
  45.          STORE STDATE1 TO STDATE4
  46.       ENDIF
  47.       IF STDATE3 >=STDATE4
  48.          STORE STDATE3 TO STDATE5
  49.       ELSE
  50.          STORE STDATE4 TO STDATE5
  51.       ENDIF
  52.       IF STDATE5 >= STDATE
  53.          STORE TOTAL + 1 TO TOTAL
  54.          STORE AMOUNT + AMT TO AMOUNT
  55.          ? '   ' + CATALOG + '  '+ LNAME +' ' + ENTERED + '     ';
  56.          + shipped +'     ' + bo_ship + bo2_ship +' '+ STR(amt,7,2)
  57.          IF CATALOG = 'N'
  58.             STORE CAT + 1 TO CAT
  59.          ENDIF CATALOG
  60.          STORE LINENO + 1 TO LINENO
  61.          SKIP
  62.          IF EOF()
  63.             STORE 60 TO LINENO
  64.             STORE .F. TO MORE
  65.          ENDIF EOF
  66.       ELSE
  67.          SKIP
  68.          IF EOF()
  69.             STORE 60 TO LINENO
  70.             STORE .F. TO MORE
  71.          ENDIF EOF
  72.       ENDIF STDATE
  73.    ENDDO WHILE LINENO > 55
  74. ENDDO MORE
  75. ? '--------------------------------------------------------------------------'
  76. ? ' '
  77. ? '      TOTALS:         NUMBER OF SHIPMENTS: ' + STR(total,4,0)
  78. ? '                DOLLAR AMOUNT OF ORDERS WHERE SHIPMENTS: ' + STR(amount,8,2)
  79. ? '              NUMBER OF CATALOGS ORDERS WHERE SHIPMENTS: ' + STR(total-cat,4,0)
  80. EJECT
  81. SET PRINT OFF
  82. RELEASE ALL
  83. STORE .T. TO MORE
  84. STORE .T. TO FIRST
  85.  
  86.