home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
workdb.zip
/
BACKORDR.PRG
< prev
next >
Wrap
Text File
|
1988-08-15
|
2KB
|
60 lines
*!!* dBASE CONVERT - dBASE III File Conversion Aid v2.01 1/10/86
*
SET HEADING OFF
SET SAFETY OFF
* BACKORDR.SIG 08/18/83
* if you want printer codes - add them here
CLEAR
GOTO TOP
STORE 0 TO PAGENO
STORE .T. TO MORE
STORE 0 TO TOTAL
STORE 0 TO AMOUNT
SET MARGIN TO 0
DO WHILE MORE
STORE PAGENO + 1 TO PAGENO
STORE 7 TO LINENO
CLEAR
EJECT
? ' '
? '======================SIG/M BACK ORDERS ============================='
? ' '
? ' AS OF ' + DTOC(date()) + ' PAGE: ' + str(pageno,3)
? ' '
? ' LAST NAME ENTERED SHIPPED BACKORDER SHIPPED AMOUNT'
? ' '
DO WHILE LINENO <55
IF COMP = 'N'
STORE TOTAL + 1 TO TOTAL
STORE AMOUNT + AMT TO AMOUNT
? ' '+ LNAME +' ' + ENTERED + ' '+ SHIPPED +' ';
+ bo_ship + bo2_ship +' '+ STR(amt,8,2)
? 'ORDERED: ' + TRIM(vol1)
? 'BACK ORDERED: ' +TRIM(bo) + ' ' + 'CATALOG: ' + ' ' + catalog
? ' '
STORE LINENO + 6 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 COMP= 'N'
ENDDO WHILE LINENO > 55
ENDDO MORE
? '----------------------------------------------------------------------------'
? ' '
? ' TOTALS: NUMBER OF ORDERS WITH BACK ORDERS: ' + STR(total,4,0)
? ' DOLLAR AMOUNT OF BACK ORDERS: ' + STR(amount,8,2)
EJECT
SET PRINT OFF
RELEASE ALL
STORE .T. TO MORE
STORE .T. TO FIRST