45 lines
739 B
Plaintext
45 lines
739 B
Plaintext
COMPILE ROUTINE FIX_ANN_CONT(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info
|
|
DECLARE FUNCTION Get_Status, Set_Printer
|
|
|
|
$INSERT OIPRINT_EQUATES
|
|
$INSERT ANNUAL_CONTRACTS_EQU
|
|
|
|
|
|
DEBUG
|
|
|
|
OPEN 'ANNUAL_CONTRACTS' To FileIn THEN
|
|
Select FileIn
|
|
|
|
Done = 0
|
|
LOOP
|
|
READNEXT AC_ID ELSE Done = 1
|
|
UNTIL Done
|
|
READ ACRec FROM FileIn,AC_ID THEN
|
|
LayerSets = ACRec<ANNUAL_CONTRACTS_LAYER_SET$>
|
|
IF LayerSets NE '' THEN
|
|
SWAP '1' WITH 'L1' IN LayerSets
|
|
ACRec<ANNUAL_CONTRACTS_LAYER_SET$> = LayerSets
|
|
WRITE ACRec ON FileIn,AC_ID THEN
|
|
Send_Dyn(LayerSets)
|
|
END
|
|
END
|
|
END
|
|
REPEAT
|
|
|
|
|
|
END
|
|
|
|
|
|
|
|
IF Get_Status(errCode) THEN DEBUG
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
|