Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : PERSINV1.ZIP
Filename : INV_RLOC.PRG

* Program..: INV_RLOC.PRG
* Date.....: 10/04/87
* Notes....: Print ITEMS BY location
*
SET CONFIRM ON
@ 20,0 CLEAR
Lcc = 'ALL'
DO WHILE .T.
@ 20,25 SAY "Print Items By Location"
@ 21,25 SAY "Enter Location or (ALL):" GET Lcc PICTURE "!!!"
READ
IF UPPER(Lcc) <> 'ALL'
SELECT LOCATION
GOTO TOP
SEEK UPPER(Lcc)
IF FOUND()
Title = TRIM(Descriptin)
Pos = 40 - (LEN(Title)/2)
SET COLOR TO +W/N
@ 23,Pos SAY Title
SET COLOR TO W/N
EXIT
ENDIF && FOUND()
ELSE
EXIT
ENDIF && UPPER(Lcc) <> 'ALL'
SET COLOR TO +W/N
@ 22,25 SAY " Location Not Found "
SET COLOR TO W/N
ENDD && WHILE .T.
@ 24,25 SAY "Printing Items By Location"
SET DEVICE TO PRINT
SET PRINT ON
SET CONSOLE OFF
SELECT INVENTORY
SET ORDER TO 2
GOTO TOP
Page=0
L_r=56
Loc = " "
DO WHILE .NOT. EOF()
Rec = RECNO()
IF UPPER(Lcc) = Location .OR. UPPER(Lcc) = 'ALL'
IF L_r>55 .OR. Loc <> Location
IF PAGE > 0
@ L_r+1,48 SAY "Total Amount:"
@ L_r+1,62 SAY Totcos PICTURE "999999.99"
@ L_r+1,71 SAY Totrep PICTURE "999999.99"
ENDIF && PAGE > 0
Loc = Location
SELECT LOCATION
GOTO TOP
SEEK Loc
Title = TRIM(Descriptin)
Pos = 40 - (LEN(Title)/2)
@ 1,1 SAY "Date "
@ 1,6 SAY DATE()
@ 1,25 SAY "Personal Inventory by Location"
Page = PAGE + 1
@ 1,70 SAY "Page: "
@ 1,70 SAY PAGE
@ 2,Pos SAY Title
@ 2,Pos SAY Title
@ 4,01 SAY "Category"
@ 4,15 SAY "Discription"
@ 4,64 SAY "Cost"
@ 4,73 SAY "Replace"
L_r=6
SELECT INVENTORY
SET ORDER TO 2
GOTO Rec
Totcos=0
Totrep=0
ENDIF && L_r>55 .OR. Loc <> Location

@ L_r,03 SAY TYPE
@ L_r,08 SAY Descriptin
@ L_r,62 SAY Cost_amt PICTURE "999999.99"
@ L_r,71 SAY Replaceamt PICTURE "999999.99"
Totcos = Cost_amt + Totcos
Totrep = Replaceamt + Totrep
L_r=L_r+1
ENDIF && UPPER(Lcc) = Location .OR. UPPER(Lcc) =
SKIP + 1
IF EOF()
EXIT
ENDI && EOF()
ENDD && WHILE .NOT. EOF()
IF L_r>6
@ L_r+1,48 SAY "Total Amount:"
@ L_r+1,62 SAY Totcos PICTURE "999999.99"
@ L_r+1,71 SAY Totrep PICTURE "999999.99"
ENDIF && L_r>6
EJECT
SET CONSOLE ON
SET PRINT OFF
SET DEVICE TO SCREEN
RETURN