שלי

DELETE FROM LABELS WHERE USER = SQL.USER ;
DELETE FROM LABELSA WHERE USER = SQL.USER ;
/**/
LINK SERIAL TO :$.PAR ;
GOTO 9988 WHERE :RETVAL <= 0 ;
/**/
:ZAAA_LABELDEF = 0 ;
/**/
SELECT LABELDEF INTO :ZAAA_LABELDEF
FROM LABELSDEF
WHERE LABELNAME = 'BRCODE'
AND :ZAAA_LABELDEF = 0 ;
/**/
:ZAAA_SERIAL = 0 ;
:ZAAA_SERIALNAME = '' ;
SELECT SERIAL , SERIALNAME INTO :ZAAA_SERIAL , :ZAAA_SERIALNAME
FROM SERIAL
WHERE SERIAL 0 ;
/**/
:ZAAA_COUNTER = 0 ;
SELECT ZAAA_COUNTER INTO :ZAAA_COUNTER
FROM SERIAL
WHERE SERIAL 0 ;
:ZAAA_COUNT = :ZAAA_COUNT + 1 ;
/**/
UPDATE SERIAL SET ZAAA_COUNTER = :ZAAA_COUNTER
WHERE SERIAL 0
AND SERIAL = :ZAAA_SERIAL ;
/**/
INSERT INTO LABELS(KLINE, USER, LABELDEF, LABELQUANT, PAR1,
PAR2 , PAR3 , PAR4 , PAR5)
SELECT SQL.LINE, SQL.USER, :ZAAA_LABELDEF, :$.QNT ,
PART.PARTNAME, SERIAL.SERIALNAME ,
ITOA(:ZAAA_COUNTER)
FROM SERIAL, PART
WHERE SERIAL.SERIAL 0
AND SERIAL.PART = PART.PART ;
/**/
UNLINK SERIAL ;
LABEL 9988 ;