I did it for Customer you can change it to Vend ledger entries First You need to add field on Customer table named "Incoming Document Entry No." add this code Code unit 134 Go to CreateNewSalesPurchIncomingDoc Function add this code to case DATABASE::Customer: BEGIN Customer.GET(DocNo); CreateIncomingDocumentExtended(IncomingDocumentAttachment,IncomingDocument,0D,'',Customer.RECORDID); IncomingDocument."Document Type" := IncomingDocument."Document Type"::Customer; IncomingDocument.MODIFY; Customer."Incoming Document Entry No." := IncomingDocument."Entry No."; Customer.MODIFY; END; Then you add this code to Customers OnAfterGetCurrRecord Trigger HasIncomingDocument := IncomingDocument.PostedDocExists("Document No.","Posting Date"); CurrPage.IncomingDocAttachFactBox.PAGE.LoadDataFromRecord(Rec);
↧