FromDocumentAttachment.reset; FromDocumentAttachment.Setrange(FromDocumentAttachment."Table ID", 18); FromDocumentAttachment.Setrange(FromDocumentAttachment."No.", ParCustomerNo); if FromDocumentAttachment.findset then begin ToDocumentAttachment.ChangeCompany(ParCompanyName); repeat ToDocumentAttachment.Init(); ToDocumentAttachment.TransferFields(FromDocumentAttachment); ToDocumentAttachment.Insert(true); until FromDocumentAttachment.Next = 0; end;
Answers
this code works !