for MyXuHaoKey in MyXuHaoJianRongSanJieKouDataDicApi.KeySortList do begin //标记下打印编号,吸入淘打的客户 MyTradeApi.MarkDayNoByXuhao(MyXuHaoKey); with MyShopAdq do begin Close; SQL.Text := MyPrintApi.MyShopSql(MyXuHaoKey); Open; end; with MyTradeAdq do begin Close; SQL.Text := MyPrintApi.MyTradeSql(MyXuHaoKey); Open; end; //加载模板 MyFrx.LoadFromFile(TGlobalApi.AppPath+'Template\TopLogisticsCompany\'+top_template_code+'.fr3'); //增加变量模板变量,因为之前每个模板上都有固定变量,所以这里要清除掉,不然会造成数据严重重复 MyFrx.Variables.Clear; MyFrx.Variables.Variables['xuhao'] := MyXuHaoKey; MyFrx.Variables.Variables['CnDaTouBi'] := QuotedStr(MyXuHaoJianRongSanJieKouDataDicApi[MyXuHaoKey].short_address); MyFrx.Variables.Variables['CnJiBaoDiCode'] := QuotedStr(MyXuHaoJianRongSanJieKouDataDicApi[MyXuHaoKey].package_center_code); MyFrx.Variables.Variables['CnJiBaoDiName'] := QuotedStr(MyXuHaoJianRongSanJieKouDataDicApi[MyXuHaoKey].package_center_name); MyFrx.Variables.Variables['CnFaJianWangDianCode'] := QuotedStr(MyXuHaoJianRongSanJieKouDataDicApi[MyXuHaoKey].shipping_branch_code); MyFrx.Variables.Variables['CnFaJianWangDianName'] := QuotedStr(MyXuHaoJianRongSanJieKouDataDicApi[MyXuHaoKey].shipping_branch_name); MyFrx.Variables.Variables['CnShouJianWangDianCode'] := QuotedStr(MyXuHaoJianRongSanJieKouDataDicApi[MyXuHaoKey].consignee_branch_code); MyFrx.Variables.Variables['CnShouJianWangDianName'] := QuotedStr(MyXuHaoJianRongSanJieKouDataDicApi[MyXuHaoKey].consignee_branch_name); //预览加载,清空上一批次的,这里不能用MyFrx.Clear;因为Clear会清除变量,以及上面函数的加载,数据的加载,所以一般慎用. if I <> 0 then begin MyFrx.PrepareReport(False); end else begin MyFrx.PrepareReport(True); end; Memo1.Lines.Add(IntToStr(I+1)+'----------'+MyXuHaoJianRongSanJieKouDataDicApi[MyXuHaoKey].top_buyer_nick+'----------'+MyXuHaoJianRongSanJieKouDataDicApi[MyXuHaoKey].waybill_code+'----------准备打印成功'+sLineBreak); //下一个 I := I + 1; Application.ProcessMessages; end;
本文来自博客园,作者:del88,转载请注明原文链接:https://www.cnblogs.com/del88/p/4415165.html