Oracle Forms

Hi ,

i'm having a custom form in the when validate item of the block i've written the below code to validate the active record only , but what happens that when validation happens it validate the whole records not the current only , will you please advice how to aply the validation on the current record only

validation required is as below :

* if SPEC_TRM_TYPE Early Termination Clause then enable termination years only , else disable termination years & enable building & floor

DECLARE

CURR_REC VARCHAR2(250);

BEGIN

CURR_REC := GET_ITEM_PROPERTY ('XXDWTC_PN_SPEC_TRMS_HDR.CURRENT_RECORD',CURRENT_RECORD_ATTRIBUTE) ;

IF :XXDWTC_PN_SPEC_TRMS_HDR.SPEC_TRM_TYPE IS NOT NULL AND :XXDWTC_PN_SPEC_TRMS_HDR.SPEC_TRM_TYPE = 'Early Termination Clause' AND CURR_REC = 'CURRENT_RECORD' THEN

        SET\_ITEM\_PROPERTY ('XXDWTC\_PN\_SPEC\_TRMS\_HDR.TERMINATION\_YRS',insert\_allowed, property\_true );

        SET\_ITEM\_PROPERTY ('XXDWTC\_PN\_SPEC\_TRMS\_HDR.TERMINATION\_YRS',update\_allowed, property\_true);

        SET\_ITEM\_PROPERTY ('XXDWTC\_PN\_SPEC\_TRMS\_HDR.BUILDING',insert\_allowed, property\_false );

        SET\_ITEM\_PROPERTY ('XXDWTC\_PN\_SPEC\_TRMS\_HDR.BUILDING',update\_allowed, property\_false);

        SET\_ITEM\_PROPERTY ('XXDWTC\_PN\_SPEC\_TRMS\_HDR.FLOOR',insert\_allowed, property\_false );

        SET\_ITEM\_PROPERTY ('XXDWTC\_PN\_SPEC\_TRMS\_HDR.FLOOR',update\_allowed, property\_false); 

     ELSIF :XXDWTC\_PN\_SPEC\_TRMS\_HDR.SPEC\_TRM\_TYPE IS NOT NULL AND :XXDWTC\_PN\_SPEC\_TRMS\_HDR.SPEC\_TRM\_TYPE \<> 'Early Termination Clause' AND CURR\_REC = 'CURRENT\_RECORD' THEN

        SET\_ITEM\_PROPERTY ('XXDWTC\_PN\_SPEC\_TRMS\_HDR.TERMINATION\_YRS',insert\_allowed, property\_false );

        SET\_ITEM\_PROPERTY ('XXDWTC\_PN\_SPEC\_TRMS\_HDR.TERMINATION\_YRS',update\_allowed, property\_false);

        SET\_ITEM\_PROPERTY ('XXDWTC\_PN\_SPEC\_TRMS\_HDR.BUILDING',insert\_allowed, property\_true );

        SET\_ITEM\_PROPERTY ('XXDWTC\_PN\_SPEC\_TRMS\_HDR.BUILDING',update\_allowed, property\_true);

        SET\_ITEM\_PROPERTY ('XXDWTC\_PN\_SPEC\_TRMS\_HDR.FLOOR',insert\_allowed, property\_true );

        SET\_ITEM\_PROPERTY ('XXDWTC\_PN\_SPEC\_TRMS\_HDR.FLOOR',update\_allowed, property\_true);

    ELSE    

        SET\_ITEM\_PROPERTY ('XXDWTC\_PN\_SPEC\_TRMS\_HDR.TERMINATION\_YRS',insert\_allowed, property\_false );

        SET\_ITEM\_PROPERTY ('XXDWTC\_PN\_SPEC\_TRMS\_HDR.TERMINATION\_YRS',update\_allowed, property\_false);

        SET\_ITEM\_PROPERTY ('XXDWTC\_PN\_SPEC\_TRMS\_HDR.BUILDING',insert\_allowed, property\_false );

        SET\_ITEM\_PROPERTY ('XXDWTC\_PN\_SPEC\_TRMS\_HDR.BUILDING',update\_allowed, property\_false);

        SET\_ITEM\_PROPERTY ('XXDWTC\_PN\_SPEC\_TRMS\_HDR.FLOOR',insert\_allowed, property\_false );

        SET\_ITEM\_PROPERTY ('XXDWTC\_PN\_SPEC\_TRMS\_HDR.FLOOR',update\_allowed, property\_false);

    END IF ; 

EXCEPTION WHEN OTHERS THEN

NULL ;

END ;