home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
workdb.zip
/
SHIPPED.PRG
< prev
next >
Wrap
Text File
|
1988-08-15
|
3KB
|
86 lines
*!!* dBASE CONVERT - dBASE III File Conversion Aid v2.01 1/10/86
*
SET HEADING OFF
SET SAFETY OFF
* SHIPPED. SIG 08/18/83
* shipping report program
* add your own printer codes
CLEAR
* get a starting point
STORE DTOC(DATE()) TO stdat
@ 10,12 SAY 'SHIPMENTS AFTER WHAT DATE ARE TO BE LISTED'
@ 10,57 GET STDAT PICTURE '99/99/99'
READ
* store date as YYMMDD
STORE SUBSTR(stdat,7,2)+SUBSTR(stdat,1,2)+SUBSTR(stdat,4,2) TO stdate
GOTO TOP
STORE 0 TO PAGENO
STORE .T. TO MORE
STORE 0 TO TOTAL
STORE 0 TO CAT
STORE 0 TO AMOUNT
SET MARGIN TO 0
DO WHILE MORE
STORE PAGENO + 1 TO PAGENO
STORE 7 TO LINENO
CLEAR
EJECT
*!! Unrecognized command.
' '
? '======================SIG/M SHIPPING REPORT ========================'
? ' '
? ' ' + DTOC(date()) + ' PAGE: ' + str(pageno,3)
? ' '
? ' ORDERS WHERE SHIPMENTS AFTER ' + STDAT
? ' '
? ' CAT LAST NAME ENTERED SHIPPED BACKORDER SHIPPED AMOUNT'
? ' '
DO WHILE LINENO <55
STORE SUBSTR(shipped,7,2)+SUBSTR(shipped,1,2)+SUBSTR(shipped,4,2) TO stdate1
STORE SUBSTR(bo_ship,7,2)+SUBSTR(bo_ship,1,2)+SUBSTR(bo_ship,4,2) TO stdate2
STORE SUBSTR(bo2_ship,7,2)+SUBSTR(bo2_ship,1,2)+SUBSTR(bo2_ship,4,2) TO stdate3
IF STDATE2 >=STDATE1
STORE STDATE2 TO STDATE4
ELSE
STORE STDATE1 TO STDATE4
ENDIF
IF STDATE3 >=STDATE4
STORE STDATE3 TO STDATE5
ELSE
STORE STDATE4 TO STDATE5
ENDIF
IF STDATE5 >= STDATE
STORE TOTAL + 1 TO TOTAL
STORE AMOUNT + AMT TO AMOUNT
? ' ' + CATALOG + ' '+ LNAME +' ' + ENTERED + ' ';
+ shipped +' ' + bo_ship + bo2_ship +' '+ STR(amt,7,2)
IF CATALOG = 'N'
STORE CAT + 1 TO CAT
ENDIF CATALOG
STORE LINENO + 1 TO LINENO
SKIP
IF EOF()
STORE 60 TO LINENO
STORE .F. TO MORE
ENDIF EOF
ELSE
SKIP
IF EOF()
STORE 60 TO LINENO
STORE .F. TO MORE
ENDIF EOF
ENDIF STDATE
ENDDO WHILE LINENO > 55
ENDDO MORE
? '--------------------------------------------------------------------------'
? ' '
? ' TOTALS: NUMBER OF SHIPMENTS: ' + STR(total,4,0)
? ' DOLLAR AMOUNT OF ORDERS WHERE SHIPMENTS: ' + STR(amount,8,2)
? ' NUMBER OF CATALOGS ORDERS WHERE SHIPMENTS: ' + STR(total-cat,4,0)
EJECT
SET PRINT OFF
RELEASE ALL
STORE .T. TO MORE
STORE .T. TO FIRST