אני אחדד את השאלה, הוספתי לטבלת פקעות עמודה בשם ZAAA_COUNTER , עמודה זו תהיה ברירת מחדל 0 בכל פק"ע, בכל הדפסה אני רוצה להדפיס את הערך שלה +1 (בפרמטר 5 ) , בנוסף להדפסת הערך+1 , אני רוצה גם לעדכן את הערך שהודפס בשדה ZAAA_COUNTER בפק"ע עצמה.
דבר נוסף,
בפרוצדורה יש אפשרות לבחור קלט של כמות מדבקות להדפסה ( QNT )
אני רוצה שבמידה והמשתמש בחר 10 מדבקות , ולדוגמא הערך המוגדר כרגע בפק"ע הוא 7 , יודפסו לי 10 מדבקות, שבפרמטר 5 יהיו המספרים מ-7 עד 17 .
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 ;
מקווה שיותר מובן..
.
