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

* Program..: INV_Rins.PRG
* Notes....: Print ITEMS for Insurance List
*
SET CONFIRM ON
@ 20,0 CLEAR
@ 24,25 SAY "Printing Insurance List"
SET DEVICE TO PRINT
SET PRINT ON
SET CONSOLE OFF
SELECT INVENTORY
GOTO TOP
Page=0
Totcos = 0
Totval = 0
Totrep = 0
L_r=76
? CHR(27)+CHR(48)
DO WHILE .NOT. EOF()
Rec = RECNO()
IF L_r>75
L_r=4
@ 1,1 SAY "Date "
@ 1,6 SAY DATE()
@ 1,24 SAY "Personal Inventory Insurance List"
@ 1,24 SAY "Personal Inventory Insurance List"
Page = PAGE + 1
@ 1,70 SAY "Page: "
@ 1,70 SAY PAGE
ENDIF && L_r>75
Loc = Location
Cat = TYPE

SELECT CATEGORY
GOTO TOP
SEEK Cat
Catdesc = Descriptin

SELECT LOCATION
GOTO TOP
SEEK Loc
Locdesc = Descriptin

SELECT INVENTORY
GOTO Rec

@ L_r,00 SAY "Item....:"
@ L_r,10 SAY LEFT(Descriptin,52)
@ L_r,10 SAY LEFT(Descriptin,52)
@ L_r,64 SAY "Cost...:"
@ L_r,71 SAY Cost_amt PICTURE "999999.99"
L_r=L_r+1
@ L_r,00 SAY "Location:"
@ L_r,10 SAY Locdesc
@ L_r,64 SAY "Replace:"
@ L_r,71 SAY Replaceamt PICTURE "999999.99"
L_r=L_r+1
@ L_r,00 SAY "Category:"
@ L_r,10 SAY Catdesc
@ L_r,64 SAY "Value..:"
@ L_r,71 SAY Currentval PICTURE "999999.99"

IF LEN(TRIM(Comment1)) > 1
L_r=L_r+1
@ L_r,00 SAY "Comments:"
@ L_r,10 SAY Comment1
IF LEN(TRIM(Comment2)) > 1
L_r=L_r+1
@ L_r,10 SAY Comment2
ENDIF && LEN(TRIM(Comment2)) > 1
IF LEN(TRIM(Comment3)) > 1
L_r=L_r+1
@ L_r,10 SAY Comment3
ENDIF && LEN(TRIM(Comment3)) > 1
ENDIF && LEN(TRIM(Comment1)) > 1

L_r=L_r+1
@ L_r,00 SAY "Date Aquired:"
@ L_r,15 SAY Date_enter
@ L_r,27 SAY "Serial Number:"
@ L_r,42 SAY Serial_num

Totcos = Cost_amt + Totcos
Totval = Currentval + Totval
Totrep = Replaceamt + Totrep
L_r=L_r+2

SKIP + 1
IF EOF()
EXIT
ENDI && EOF()
ENDD && WHILE .NOT. EOF()
@ L_r+1,35 SAY "Total Cost............:"
@ L_r+1,61 SAY Totcos PICTURE "999999.99"
L_r=L_r+1
@ L_r+1,35 SAY "Total Replacement Cost:"
@ L_r+1,61 SAY Totrep PICTURE "999999.99"
L_r=L_r+1
@ L_r+1,35 SAY "Total Current Value...:"
@ L_r+1,61 SAY Totval PICTURE "999999.99"
EJECT
SET CONSOLE ON
SET PRINT OFF
SET DEVICE TO SCREEN
RETURN