home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DB2IOS.ARC / COMPLETE.SIG < prev    next >
Encoding:
Text File  |  1983-01-04  |  2.0 KB  |  79 lines
  1. * COMPLETE.SIG 08/18/83
  2. STORE CHR(PEEK(063)) TO DR
  3. SET INDEX TO &dr.:orders
  4. ERASE
  5. * get a starting  point
  6. STORE DATE() TO stdat
  7. @ 10,00 SAY 'Shipments completed after what date are to be listed'
  8. @ 10,57 GET stdat PICTURE '99/99/99'
  9. READ
  10. STORE $(stdat,7,2)+$(stdat,1,2)+$(stdat,4,2) TO stdate
  11. GOTO TOP
  12. STORE 0 TO pageno
  13. STORE t TO more
  14. STORE 0 TO TOTAL
  15. STORE 0 TO CAT
  16. STORE 0 TO AMOUNT
  17. SET MARGIN TO 0
  18. DO WHILE more
  19. STORE pageno + 1 TO pageno
  20. STORE 7 TO lineno
  21. ERASE
  22. EJECT
  23. ? ' '
  24. ? '======================SIG/M SHIPPING REPORT ========================'
  25. ? ' '
  26. ? '           ' + date() + '                       PAGE: ' + str(pageno,3)
  27. ? ' '
  28. ? '      ORDERS COMPLETED AFTER ' + stdat
  29. ? ' '
  30. ? '    NO     LAST NAME            SHIPPED    BACKORDER SHIPPED CAT AMOUNT'
  31. ? ' '
  32. DO WHILE lineno <55
  33. STORE $(shipped,7,2)+$(shipped,1,2)+$(shipped,4,2) TO stdate1
  34. STORE $(bo:ship,7,2)+$(bo:ship,1,2)+$(bo:ship,4,2) TO stdate2
  35. STORE $(bo2:ship,7,2)+$(bo2:ship,1,2)+$(bo2:ship,4,2) TO stdate3
  36. IF stdate2 >=stdate1
  37. STORE stdate2 TO stdate4
  38. ELSE
  39. store stdate1 TO stdate4
  40. ENDIF
  41. IF stdate3 >=stdate4
  42. STORE stdate3 TO stdate5
  43. ELSE
  44. STORE stdate4 TO stdate5
  45. ENDIF
  46. IF stdate5 >= stdate  .AND.  COMP = 'Y'
  47. STORE total + 1 TO TOTAL
  48. STORE amount + amt TO amount
  49. ? order + '  '+ lname +' ' + shipped +'     ' + bo:ship;
  50. + bo2:ship +' '+ catalog + ' ' + STR(amt,7,2)
  51. IF catalog = "N"
  52. STORE cat + 1 TO cat
  53. ENDIF catalog
  54. STORE lineno + 1 to lineno
  55. SKIP
  56. IF EOF
  57. STORE 60 TO lineno
  58. STORE f TO more
  59. ENDIF EOF
  60. ELSE
  61. SKIP
  62. IF EOF
  63. store 60 to lineno
  64. store f TO more
  65. ENDIF EOF
  66. ENDIF STDATE
  67. ENDDO while lineno > 55
  68. ENDDO more
  69. ? '--------------------------------------------------------------------------'
  70. ? ' '
  71. ? '      TOTALS:         NUMBER OF SHIPMENTS: ' + STR(total,4,0)
  72. ? '                      DOLLAR AMOUNT OF ORDERS COMPLETED: ' + STR(amount,8,2)
  73. ? '                      NUMBER OF SHIPMENTS INCLUDING CATALOG: ' + STR(total-cat,4,0)
  74. EJECT
  75. SET PRINT OFF
  76. RELEASE ALL
  77. STORE t TO more
  78. STORE t TO first
  79.