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