שליחת מדבקות למשטח דרך פרוצדורה ממסך פקעות

SUB 1000;
DELETE FROM LABELS WHERE USER = SQL.USER;
RETURN;
/******************************************************************/
SUB 1001;
:B_LABELDEF = 0;
SELECT LABELDEF INTO :B_LABELDEF FROM LABELSDEF
WHERE LABELNAME = 'Parts';
ERRMSG 2 WHERE :B_LABELDEF = 0;
LINK SERIAL TO :$.PAR;
ERRMSG 1 WHERE :RETVAL <=0; INSERT INTO LABELS(KLINE, SORT, USER,LABELQUANT,LABELDEF, PAR1,PAR2,PAR3,PAR4,PAR5) SELECT 1, 1, SQL.USER,0+ :$.QNT,0+ :B_LABELDEF, S.SERIALNAME , P.PARTNAME , P.PARTDES, ITOA(S.QUANT) , O.ORDNAME FROM ORDERITEMS OI, ORDERS O , PART P ,SERIAL S WHERE OI.ORDI <> 0
AND OI.ORDI = S.ORDI
AND P.PART = OI.PART
AND OI.ORD = O.ORD
AND S.PART = P.PART
AND P.TYPE IN ('P','Z');
UNLINK SERIAL;
RETURN;