CREATE OR REPLACE FUNCTION GET_DESC(

I_TABLE IN VARCHAR2,

I_PK_NAME IN VARCHAR2,

I_PK_DESC IN VARCHAR2,

I_PK_VALUE IN NUMBER

) RETURN VARCHAR2

AS

RET_VAL VARCHAR2(300);

BEGIN

  IF     I_TABLE IS NULL 

      OR I_PK_NAME IS NULL

      OR I_PK_DESC IS NULL

      OR I_PK_VALUE IS NULL  THEN 

       RETURN NULL;

  END IF;

  execute immediate

  'SELECT '||I_PK_DESC||' FROM '||I_TABLE||' WHERE '||I_PK_NAME|| ' =:B1'

  INTO RET_VAL

  USING I_PK_VALUE;

  RETURN RET_VAL;

  EXCEPTION WHEN NO_DATA_FOUND THEN

    RETURN 'Not Found';

    END;

/

طريقة استدعا هذه الداله

في الفورم على ايتم الوصف او الاسم تعمل فرميولا ويكون فيها    

get_desc('table_name','pk in table','desc',:aa)

مثال

get_desc('emp','emp_no','ename',:emp_no);

 

تم تعديل 3 مايو 201411 سنة بواسطة Ahmad.Hasan

الله يعطيك العافية...