tldm-universe/CMS/BP.CNV/REL8.CONV.INV.COST
2024-09-10 15:25:06 -04:00

60 lines
1.4 KiB
Plaintext
Executable File

*------------------------------------------------------------------
*PGM NAME: REL8.CONV.INV.COST
*PURPOSE: TO INITIALIZE INVENTORY COST DATA
*AUTHOR: BARKSDALE
*CREATED: 01/20/95
*------------------------------------------------------------------
$INCLUDE BP.MASTER GEN.COM2
$INCLUDE BP.MASTER INV
*
OPEN 'INV.OLD' TO INV.OLD ELSE ABORT 201,'INV.OLD'
OPEN 'INVENTORY' TO INV.NEW ELSE ABORT 201,'INVENTORY'
OPEN 'INV.COST' TO INV.CST ELSE ABORT 201,'INV.COST'
*
WHSE="MTEK"
EOF=0; NUM.READ=0; NUM.DONE=0; NUM.ADD=0
*
SELECT INV.OLD
*
LOOP
READNEXT ID ELSE EOF=1
UNTIL EOF DO
IF REM(NUM.READ,100) ELSE GOSUB 2000
GOSUB 1000
REPEAT
GOSUB 2000
CRT @(0,22):CL:"Press <return> to continue...":
INPUT ANY
STOP
*
1000 *
READ IREC FROM INV.NEW,ID THEN
NUM.READ=NUM.READ+1
LOCATE(WHSE,IREC,INV$WAREHOUSE;FND) THEN
PHYSICAL=IREC<INV$QTY.INCREASES,FND>-IREC<INV$QTY.REDUCTIONS,FND>
IF PHYSICAL > 0 THEN
QTY=PHYSICAL
READV COST FROM INV.OLD,ID,3 ELSE COST=0
COST=COST*100
CKEY=WHSE:"|":ID
CREC=""
CREC<1>=DATE()
CREC<2>=QTY
CREC<3>=COST
CREC<4>="CONV"
CREC<5>="CONV"
WRITE CREC ON INV.CST,CKEY
NUM.ADD=NUM.ADD+1
END
END
NUM.DONE=NUM.DONE+1
END
RETURN
*
2000 *
CRT CS
CRT @(0,5):"NUMBER RECORDS READ: ":NUM.READ
CRT @(0,6):"NUMBER RECORDS DONE: ":NUM.DONE
CRT @(0,7):"NUMBER COST RECS ADDED: ":NUM.ADD
RETURN