Forum Replies Created
-
תודה, הסתדרתי. כתבתי ככה.
/*———————————————————–*/
:PART = :SERN = 0;
SELECT PART INTO :PART FROM PART WHERE PARTNAME = :$.PRT;
/*———————————————————–*/
LINK SERNUMBERS TO :$.PAR;
GOTO 888 WHERE :RETVAL <=0;
SELECT SERN INTO :SERN FROM SERNUMBERS WHERE PART = :PART;
UNLINK SERNUMBERS;
LABEL 888;
/*———————————————————–*/
SELECT SQL.TMPFILE INTO :$.PAR FROM DUMMY;
LINK SERNUMBERS STK TO :$.PAR;
GOTO 999 WHERE :RETVAL <=0;
INSERT INTO SERNUMBERS STK
SELECT * FROM SERNUMBERS ORIG WHERE SERN = :SERN;
UNLINK SERNUMBERS STK;
LABEL 999;
/*———————————————————–*/
