ITPub博客

首页 > Linux操作系统 > Linux操作系统 > Call Form 的用法

Call Form 的用法

原创 Linux操作系统 作者:jack198409 时间:2007-11-22 00:00:00 0 删除 编辑
  • 第一個例子
  • 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
请登录后发表评论 登录
全部评论

注册时间:2007-12-13

  • 博文量
    135
  • 访问量
    284915