Monday, January 29, 2018

Exception handle

If used function EXCEPTION     WHEN NO_DATA_FOUND THEN    RETURN null; end; Others EXCEPTION     WHEN NO_DATA_FOUND THEN     null; end; ...

Thursday, January 25, 2018

Colling form condition add.

DECLARE cl_frm varchar2(10); begin cl_frm := GET_APPLICATION_PROPERTY(calling_form); if cl_frm='ORF_M03' THEN  SET_TAB_PAGE_PROPERTY('OR_ADVICE', enabled, property_false);  SET_TAB_PAGE_PROPERTY('OR_ADVICE', visible, property_false);   END IF; EXCEPTION WHEN OTHERS THEN NULL; END;     &nbs...

Sunday, January 7, 2018

oracle forms where condition default where

PROCEDURE PRC_SEARCH IS V_WHERE varchar2(4000); BEGIN   V_WHERE := 'COMPANY_NO=:GLOBAL.G_COMPANY_NO'; IF :CTRL_SEARCH.SLOT_GROUP IS NOT NULL THEN V_WHERE := V_WHERE||' AND SLOT_GROUP = :CTRL_SEARCH.SLOT_GROUP'; END IF;   IF :CTRL_SEARCH.SURGERY_NAME IS NOT NULL THEN V_WHERE := V_WHERE||' AND SURGERY_NO IN (SELECT PROCEDURE_ID  FROM OT_PROCEDURE WHERE UPPER(PROCEDURE_NAME) LIKE ''%'||UPPER(:CTRL_SEARCH.SURGERY_NAME)||'%'')'; END IF;   IF :CTRL_SEARCH.PRIORITY IS NOT NULL THEN V_WHERE := V_WHERE||'...