מצ"ב הקוד.
LINK DISTRLINES TO :$.LIN;
LINK STACK9 TO :$.STK;
LINK GENERALLOAD TO :$.GEN;
DELETE FROM GENERALLOAD;
:DISTRLINE = :LINE = :ORD = 0;
:ORDNAME = :RECORDTYPE = :CUSTNAME = :KEY = ";
SELECT DISTRLINE INTO :DISTRLINE FROM DISTRLINES
WHERE DISTRLINE <> 0;
DECLARE CUR CURSOR FOR SELECT ORDNAME,CUSTNAME, O.ORD
FROM ORDERS O, ORDERSB OB,CUSTOMERS C
WHERE O.ORD = OB.ORD
AND OB.DISTRLINE = :DISTRLINE
AND OB.DUEDATE = :$.DAT
AND O.CUST = C.CUST
AND ORDSTATUS = 1;
OPEN CUR;
GOTO 200 WHERE :RETVAL <= 0;
LABEL 10;
FETCH CUR INTO :ORDNAME,:CUSTNAME, :ORD;
GOTO 200 WHERE :RETVAL <= 0;
:LINE = :LINE + 1;
INSERT INTO GENERALLOAD (RECORDTYPE,LINE,KEY1,TEXT1,TEXT2,
TEXT3,INT1)
VALUES ('1', :LINE,:ORDNAME,:ORDNAME, 'LUMN',:CUSTNAME,:ORD);
LOOP 10;
LABEL 200;
CLOSE CUR;
EXECUTE INTERFACE 'PANL_PACK', '-L',:$.GEN;
SELECT RECORDTYPE,LINE, KEY1,TEXT1,TEXT2,TEXT3 FROM GENERALLOAD
FORMAT 'D:/TMP/TEST1212.TXT';
UNLINK ORDERSB;
UNLINK GENERALLOAD;
