Oracle 12c Weblogic Project Series || Oracle 12c Forms and Reports (Part 4) скачать в хорошем качестве

Oracle 12c Weblogic Project Series || Oracle 12c Forms and Reports (Part 4)

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;