מסך טקסט פרטי בשני מסכים שונים

תודה מראש

FORM : MORI_DOCGPARTEXT
———————–
DECLARE FILL64231 CURSOR FOR
SELECT MORI_DOCGPARTEXT.TEXT, MORI_DOCGPARTEXT.PART, MORI_DOCGPARTEXT.TEXTLINE,
MORI_DOCGPARTEXT.TEXTORD
FROM MORI_DOCGPARTEXT
WHERE (MORI_DOCGPARTEXT.PART = 0 + :$$.PART)
ORDER BY 4 ASC

KEYS :
——
KEY 1 (U): PART TEXTLINE

MORI_DOCGPARTEXT/INSERT TRIGGER:
——————————–
#line 1 MORI_DOCGPARTEXT/INSERT
SET TRANSACTION;
INSERT INTO MORI_DOCGPARTEXT ( TEXT, PART, TEXTLINE, TEXTORD)
VALUES ( :MORI_DOCGPARTEXT.TEXT, :MORI_DOCGPARTEXT.MORI_PART, :MORI_DOCGPARTEXT.TEXTLINE,
:MORI_DOCGPARTEXT.TEXTORD);

SELECT 189 INTO :SCREENMSG FROM DUMMY WHERE :RETVAL = 0;
:NEXTPATTERNFLAG = 0;
COMMIT;

MORI_DOCGPARTEXT/UPDATE TRIGGER:
——————————–
:TABFORM = 64231;#line 1 MORI_DOCGPARTEXT/PRE-UPD-DEL-SCRLINE
SELECT TEXTORD INTO :SCRLINE FROM MORI_DOCGPARTEXT WHERE
PART = :$$.PART
AND TEXTLINE = :$.TEXTLINE ;
:TABFORM = 64231;#line 1 MORI_DOCGPARTEXT/PRE-UPDATE
SELECT 0 + :SCRLINE INTO :$.TEXTORD FROM DUMMY ;
#line 1 MORI_DOCGPARTEXT/UPDATE
SET TRANSACTION;
UPDATE MORI_DOCGPARTEXT
SET TEXT = :MORI_DOCGPARTEXT.TEXT ,
PART = :MORI_DOCGPARTEXT.MORI_PART ,
TEXTLINE = :MORI_DOCGPARTEXT.TEXTLINE ,
TEXTORD = :MORI_DOCGPARTEXT.TEXTORD
WHERE TEXT = :MORI_DOCGPARTEXT1.TEXT
AND PART = :MORI_DOCGPARTEXT1.MORI_PART
AND TEXTLINE = :MORI_DOCGPARTEXT1.TEXTLINE ;

SELECT (:RETVAL = 0 ? 190 : (:RETVAL < 0 ? 50 : 0)) INTO :SCREENMSG FROM
DUMMY ;
:NEXTPATTERNFLAG = 0;
COMMIT;

MORI_DOCGPARTEXT/DELETE TRIGGER:
——————————–
:TABFORM = 64231;#line 1 MORI_DOCGPARTEXT/PRE-UPD-DEL-SCRLINE
SELECT TEXTORD INTO :SCRLINE FROM MORI_DOCGPARTEXT WHERE
PART = :$$.PART
AND TEXTLINE = :$.TEXTLINE ;
#line 1 MORI_DOCGPARTEXT/DELETE
SET TRANSACTION;
DELETE FROM MORI_DOCGPARTEXT
WHERE TEXT = :MORI_DOCGPARTEXT1.TEXT
AND PART = :MORI_DOCGPARTEXT1.MORI_PART
AND TEXTLINE = :MORI_DOCGPARTEXT1.TEXTLINE ;

SELECT (:RETVAL = 0 ? 191 : (:RETVAL < 0 ? 50 : 0)) INTO :SCREENMSG FROM
DUMMY ;
:TABFORM = 64231;#line 1 MORI_DOCGPARTEXT/POST-DELETE
UPDATE MORI_DOCGPARTEXT SET TEXTORD = TEXTORD – 1 WHERE
PART = :$$.PART
AND TEXTORD >= :SCRLINE ;
COMMIT;

MORI_DOCGPARTEXT/TEXT/POST-FIELD TRIGGER:
—————————————–
#line 1 MORI_DOCGPARTEXT/TEXT/POST-FIELD
SET TRANSACTION ;
:TABFORM = 64231;#line 1 MORI_DOCGPARTEXT/TEXT/POST-FIELD
SELECT :SCRLINE INTO :$.TEXTORD FROM DUMMY ;
GOTO 1 WHERE :$.TEXTLINE > 0;
SELECT 1 INTO :$.TEXTLINE FROM DUMMY ;
SELECT MAX(TEXTLINE)+1 INTO :$.TEXTLINE
FROM MORI_DOCGPARTEXT WHERE
PART = :$$.PART
;
UPDATE MORI_DOCGPARTEXT SET TEXTORD = TEXTORD + 1 WHERE
PART = :$$.PART
AND TEXTORD >= :SCRLINE ;
LABEL 1;

COMMIT;

MORI_DOCGPARTEXT/MORI_PART/POST-FIELD TRIGGER:
———————————————-
#line 1 MORI_DOCGPARTEXT/MORI_PART/POST-FIELD
SET TRANSACTION ;
GOTO 9 WHERE :NEXTPATTERNFLAG = 1;
GOTO 9 WHERE 0 = :MORI_DOCGPARTEXT.MORI_PART
OR 0 = :MORI_DOCGPARTEXT.TEXTLINE ;
GOTO 9 WHERE :MORI_DOCGPARTEXT.MORI_PART = :MORI_DOCGPARTEXT1.MORI_PART

AND :MORI_DOCGPARTEXT.TEXTLINE = :MORI_DOCGPARTEXT1.TEXTLINE ;
SELECT TEXT, TEXTORD
INTO :MORI_DOCGPARTEXT.TEXT, :MORI_DOCGPARTEXT.TEXTORD
FROM MORI_DOCGPARTEXT
WHERE PART = :MORI_DOCGPARTEXT.MORI_PART
AND TEXTLINE = :MORI_DOCGPARTEXT.TEXTLINE AND PART = :$$.PART;
LABEL 9 ;

COMMIT;

MORI_DOCGPARTEXT/TEXTLINE/POST-FIELD TRIGGER:
———————————————
#line 1 MORI_DOCGPARTEXT/TEXTLINE/POST-FIELD
SET TRANSACTION ;
GOTO 9 WHERE :NEXTPATTERNFLAG = 1;
GOTO 9 WHERE 0 = :MORI_DOCGPARTEXT.MORI_PART
OR 0 = :MORI_DOCGPARTEXT.TEXTLINE ;
GOTO 9 WHERE :MORI_DOCGPARTEXT.MORI_PART = :MORI_DOCGPARTEXT1.MORI_PART

AND :MORI_DOCGPARTEXT.TEXTLINE = :MORI_DOCGPARTEXT1.TEXTLINE ;
SELECT TEXT, TEXTORD
INTO :MORI_DOCGPARTEXT.TEXT, :MORI_DOCGPARTEXT.TEXTORD
FROM MORI_DOCGPARTEXT
WHERE PART = :MORI_DOCGPARTEXT.MORI_PART
AND TEXTLINE = :MORI_DOCGPARTEXT.TEXTLINE AND PART = :$$.PART;
LABEL 9 ;

COMMIT;