易飞ERP进货单源码——复制报价单

procedure TfrmCopi08.CopyFromCOPTA; //复制报价单 var   mData, mOutPutMaster, mOutPutDetail, mReturn: Variant;   i: Integer;   mTH008: Double; begin   try     FIsCopyPrior := True;     with TdmCopi08(DM) do

>>阅读原文<<