/***************** GE54 帳票定義マスタ トリガー ***************/
/* システム名：                                               */
/* 作成日    ：2003/01/16                作成者：K.Hasegawa   */
/**************************************************************/

CREATE OR REPLACE TRIGGER GE54_TRIG
    BEFORE INSERT OR UPDATE OF FGJ ON GE54
    FOR EACH ROW WHEN ( new.FGJ = '0' )
	DECLARE
		wkSYSTEM_ID GE54.SYSTEM_ID%TYPE ;
		wkLISTID    GE54.LISTID%TYPE ;
    BEGIN
		wkSYSTEM_ID := nvl( :old.SYSTEM_ID,:new.SYSTEM_ID );
		wkLISTID    := nvl( :old.LISTID   ,:new.LISTID    );

		GE52POS_SET( wkSYSTEM_ID,wkLISTID,'H' );
		GE52POS_SET( wkSYSTEM_ID,wkLISTID,'F' );
		GE52POS_SET( wkSYSTEM_ID,wkLISTID,'B' );

		:new.HSQL := GE54SQL_SET( wkSYSTEM_ID,wkLISTID,'H' ) ;
		:new.FSQL := GE54SQL_SET( wkSYSTEM_ID,wkLISTID,'F' ) ;
		:new.BSQL := GE54SQL_SET( wkSYSTEM_ID,wkLISTID,'B' ) ;
		:new.FGJ  := '1';
    END ;
/
show error ;

