37 lines
514 B
Plaintext
37 lines
514 B
Plaintext
COMPILE ROUTINE FIX_CUSTOMER(Dummy)
|
|
ROWDEF (CHARSTR)
|
|
|
|
DECLARE SUBROUTINE SEND_INFO, SEND_DYN, RList, obj_Schedule, Btree.Extract, Set_Status, Get_Status
|
|
|
|
|
|
$INSERT SCHEDULE_EQU
|
|
$INSERT INVOICE_EQU
|
|
|
|
|
|
OPEN 'CUSTOMER' TO CustomerTable ELSE
|
|
Send_Info('Puked on CUSTOMER table open.')
|
|
GOTO Bail
|
|
END
|
|
|
|
SELECT CustomerTable
|
|
|
|
|
|
Done = 0
|
|
|
|
LOOP
|
|
READNEXT CustNo ELSE Done = 1
|
|
UNTIL Done
|
|
IF NOT(NUM(CustNo)) THEN DEBUG
|
|
Send_Dyn(CustNo)
|
|
|
|
|
|
|
|
REPEAT
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|