LOV in Oracle 12c Weblogic Project Series || Oracle 12c Forms and Reports (Part 6)

Form Trigger (WHEN-NEW-FORM-INSTANCE)

SET_WINDOW_PROPERTY(FORMS_MDI_WINDOW, WINDOW_STATE, MAXIMIZE);
SET_WINDOW_PROPERTY('WINDOW1', WINDOW_STATE, MAXIMIZE);
SET_WINDOW_PROPERTY('WINDOW1', TITLE,'Company Profile');

:ID := 1;
BEGIN
SELECT SHORT_NAME, C_NAME, FULLNAME, ADDR, ISACTIVE
INTO :SHORT_NAME, :C_NAME, :FULLNAME, :ADDR, :ISACTIVE
FROM COMPANYPROFILE
WHERE ID =:ID;

EXCEPTION WHEN NO_DATA_FOUND THEN
RAISE FORM_TRIGGER_FAILURE;
END;


Save Button Trigger (WHEN-BUTTON-PRESSED)

DECLARE
SR INTEGER;
BEGIN

IF TRIM(:SHORT_NAME) IS NULL THEN
MESSAGE('Company short name must be enter...');
MESSAGE('Company short name must be enter...');
GO_ITEM('SHORT_NAME');
RAISE FORM_TRIGGER_FAILURE;
END IF;
IF TRIM(:C_NAME) IS NULL THEN
MESSAGE('Company name must be enter...');
MESSAGE('Company name must be enter...');
GO_ITEM('C_NAME');
RAISE FORM_TRIGGER_FAILURE;
END IF;
IF TRIM(:FULLNAME) IS NULL THEN
MESSAGE('Company name must be enter...');
MESSAGE('Company name must be enter...');
GO_ITEM('FULLNAME');
RAISE FORM_TRIGGER_FAILURE;
END IF;

SELECT ID INTO SR FROM COMPANYPROFILE WHERE ID =:ID;

UPDATE COMPANYPROFILE SET SHORT_NAME = TRIM(:SHORT_NAME), C_NAME = TRIM(:C_NAME),
FULLNAME = TRIM(:FULLNAME), ADDR =TRIM(:ADDR), ISACTIVE = :ISACTIVE
WHERE ID =:ID;

STANDARD.COMMIT;
MESSAGE('Updated');
MESSAGE('Updated');


EXCEPTION WHEN NO_DATA_FOUND THEN
INSERT INTO COMPANYPROFILE (ID, SHORT_NAME, C_NAME, FULLNAME, ADDR, ISACTIVE)
VALUES(:ID, :SHORT_NAME, :C_NAME, :FULLNAME, :ADDR, :ISACTIVE);

STANDARD.COMMIT;
MESSAGE('Saved');
MESSAGE('Saved');

END;