专业服装进销存批发收银管理软件

当前位置: 主页 > 系统更新 > 内核更新 >

报表支持传递10个参数,单据打开支持从4个表打

时间:2017-01-05 15:32
1、Tfrm_Base_Entry_Body:类打开单据时,收付款模块会从四个表中打开。 SQLTEXT := Format(BSQL, [ + AdoQry_Head.fieldbyname(MKEY).AsString + , + AdoQry_Head.fieldbyname(MKEY).AsString + , + AdoQry_Head.fieldbyname(MKEY).AsS
     
1、Tfrm_Base_Entry_Body:类打开单据时,收付款模块会从四个表中打开。

SQLTEXT := Format(BSQL, ['''' +
        AdoQry_Head.fieldbyname(MKEY).AsString + '''', '''' +
          AdoQry_Head.fieldbyname(MKEY).AsString + '''', '''' +
          AdoQry_Head.fieldbyname(MKEY).AsString + '''', '''' +
          AdoQry_Head.fieldbyname(MKEY).AsString + '''']);   //单据打开的时候有时会UNION 四个表打开的情况。 收付款模块

2、TFrm_Sys_Report:增加10个文本参数
rp0, rp1, rp2, rp3, rp4, rp5, rp6, rp7, rp8, rp9: string; //从主界面传进来的参数

      报表调用方法:

      [getrpparam(0)]  至  [getrpparam(1)]

    参数传入方法:
procedure TFxxxx.Act_LocateExecute(Sender: TObject);
begin
  if Frm_Sys_Filter <> nil then
    if Frm_Sys_Filter.ShowModal = mrOk then
    begin

      rp0 := TF6610F(Frm_Sys_Filter).BDATE.Text; 
      rp1 := TF6610F(Frm_Sys_Filter).eDATE.Text;
------分隔线----------------------------