请问它是怎么传参数的.能不能详细说说操作步骤。

解决方案 »

  1.   

    我們開發報表用的就是REPORT BULIDER
    呵呵
    先在REPORT里面建參數,然后在FORM里面的KER-PRINT里面加調用的代碼就可以了啊!
    下面的代碼是在FORM里面的,僅供參考!
    DECLARE
       pl_id  ParamList;
    V_VERSION  VARCHAR2(50);
    curr_canvas  VARCHAR2(30);
    V_REP1      VARCHAR2(30);
    V_REP2      VARCHAR2(30);
    alert_status     int;
    BEGIN
    if nvl(V_REP2,' ')<>' ' then
    IF NOT id_null(Get_Parameter_List('pl_id'))  THEN
       destroy_parameter_list('pl_id');
    END IF;
    pl_id:=create_Parameter_List('pl_id');
    Add_Parameter(pl_id,'P_YM',text_parameter,:BUT_BLK.YM);
    Add_Parameter(pl_id,'P_SUPPNOF',text_parameter,:BUT_BLK.SUPPNO);
    Add_Parameter(pl_id,'P_SUPPNOT',text_parameter,:BUT_BLK.SUPPNO1);
    Add_Parameter(pl_id,'P_ACCPOTNO',text_parameter,:BUT_BLK.ACCPOTNO);
      if vtype in ('1','2') then
       Add_Parameter(pl_id,'P_ORDERBY',text_parameter,1);
      elsif vtype in ('3') then
       Add_Parameter(pl_id,'P_ORDERBY',text_parameter,3);
      elsif vtype in ('4.1','4.2','5.1','5.2','5.3','5.4','5.5','5.6') then
       Add_Parameter(pl_id,'P_TYPE',text_parameter,vtype);
     end if;
    Add_Parameter(pl_id,'P_CMPID',text_parameter,:global.CMPID);
    Add_Parameter(pl_id,'P_CMPSHORTNM',text_parameter,:global.CMPSHORTNM);
                   Add_Parameter(pl_id,'P_USERNM',text_parameter,:global.USERNM);
    Add_Parameter(pl_id,'P_VERSION',text_parameter,V_VERSION);
            Run_Product   (REPORTS,:global.path||V_REP1,SYNCHRONOUS,RUNTIME,FILESYSTEM,pl_id,NULL);
    end if;
    END;