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; |