我們開發報表用的就是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;
呵呵
先在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;