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/，如需转载，请注明出处，否则将追究法律责任。
上一篇：
START WITH 的用法
下一篇：
Create Database Link
请登录后发表评论
登录
全部评论
