Call Form 的用法

• 第一個例子
• DECLARE
  PM paramlist;
  BEGIN
  IF NOT ID_NULL(Get_Parameter_List('PM')) THEN
  DESTROY_PARAMETER_LIST('PM');
  END IF;
  PM:=CREATE_PARAMETER_LIST('PM');
  ADD_PARAMETER(PM,'PM_BILLNO1',TEXT_PARAMETER,V_BILLNO);
  call_form(:global.path||'FXB_BILL2',NO_HIDE,NO_REPLACE,NO_QUERY_ONLY,SHARE_LIBRARY_DATA,PM); END;
• 第二個例子
• DECLARE
  PM ParamList;
  BEGIN
  IF nvl(:SELECT.YM,' ')<>' ' AND nvl(:SELECT.SUPPNO,' ')<>' '
  AND nvl(:SELECT.SUPPNO1,' ')<>' ' THEN
  SYNCHRONIZE;
  IF NOT ID_NULL(Get_Parameter_List('PM')) THEN
  DESTROY_PARAMETER_LIST('PM');
  END IF;
  PM:=CREATE_PARAMETER_LIST('PM');
  ADD_PARAMETER(PM,'P_YM',TEXT_PARAMETER,:SELECT.YM);
  ADD_PARAMETER(PM,'P_SUPPNO',TEXT_PARAMETER,:SELECT.SUPPNO);
  ADD_PARAMETER(PM,'P_SUPPNM',TEXT_PARAMETER,:SELECT.SUPPNM);
  ADD_PARAMETER(PM,'P_SUPPNO1',TEXT_PARAMETER,:SELECT.SUPPNO1);
  ADD_PARAMETER(PM,'P_SUPPNM1',TEXT_PARAMETER,:SELECT.SUPPNM1);
  --ADD_PARAMETER(PM,'P_ACCPOTNO',TEXT_PARAMETER,:BUT_BLK.ACCPOTNO);
  clear_message;
  open_form(:global.path||'APB_FX_REPORT',ACTIVATE,NO_SHARE_LIBRARY_DATA,PM);
  END IF;
  END;
  另外還要在被CALL的FORM 中把參數加進去,在WHEN_NEW_FORM_INSTANCE里面給它賦值.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10768286/viewspace-83478/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10768286/viewspace-83478/