Skip to content

[Master]-Payment Reference from Purchase Order Prepayment Invoice is not Transferred to Vendor Ledger Entries. #10061

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Draft
neeleshsinghal wants to merge 2 commits into
base: main
Choose a base branch
from
Draft

[Master]-Payment Reference from Purchase Order Prepayment Invoice is not Transferred to Vendor Ledger Entries. #10061

Show file tree
Hide file tree
Changes from 1 commit
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
5ebc893
Fix and automation
neeleshsinghal Aug 8, 2026
7546f69
ES issue resolved.
neeleshsinghal Aug 8, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
9 changes: 9 additions & 0 deletions src/Layers/APAC/BaseApp/Finance/GeneralLedger/Journal/GenJournalLine.Table.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -7663,6 +7663,8 @@ table 81 "Gen. Journal Line"
end;

procedure CopyFromPurchHeaderPrepmtPost(PurchHeader: Record "Purchase Header"; UsePmtDisc: Boolean)
var
PurchasesPayablesSetup: Record "Purchases & Payables Setup";
begin
"Account Type" := "Account Type"::Vendor;
"Account No." := PurchHeader."Pay-to Vendor No.";
Expand All @@ -7679,6 +7681,13 @@ table 81 "Gen. Journal Line"
"Due Date" := PurchHeader."Prepayment Due Date";
"Payment Terms Code" := PurchHeader."Payment Terms Code";
"Payment Method Code" := PurchHeader."Payment Method Code";
if PurchHeader."Payment Reference" <> '' then
"Payment Reference" := PurchHeader."Payment Reference"
else begin
PurchasesPayablesSetup.Get();
if PurchasesPayablesSetup."Copy Inv. No. To Pmt. Ref." then
"Payment Reference" := PurchHeader."Vendor Invoice No.";
end;
if UsePmtDisc then begin
"Pmt. Discount Date" := PurchHeader."Prepmt. Pmt. Discount Date";
"Payment Discount %" := PurchHeader."Prepmt. Payment Discount %";
Expand Down
56 changes: 50 additions & 6 deletions src/Layers/APAC/Tests/Prepayment/ERMPurchasePrepayments.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -10,18 +10,19 @@ codeunit 134333 "ERM Purchase Prepayments"
end;

var
LibraryRandom: Codeunit "Library - Random";
LibraryPurchase: Codeunit "Library - Purchase";
LibraryERM: Codeunit "Library - ERM";
LibraryUtility: Codeunit "Library - Utility";
PurchasePostPrepayments: Codeunit "Purchase-Post Prepayments";
Assert: Codeunit Assert;
LibraryTestInitialize: Codeunit "Library - Test Initialize";
LibraryERM: Codeunit "Library - ERM";
LibraryInventory: Codeunit "Library - Inventory";
LibraryPurchase: Codeunit "Library - Purchase";
LibraryRandom: Codeunit "Library - Random";
LibraryTestInitialize: Codeunit "Library - Test Initialize";
LibraryUtility: Codeunit "Library - Utility";
LibraryVariableStorage: Codeunit "Library - Variable Storage";
PurchasePostPrepayments: Codeunit "Purchase-Post Prepayments";
IsInitialized: Boolean;
LCYCode: Code[10];
NoAmtFoundToBePostedErr: Label 'No amount found to be posted.';
PaymentReferenceNotTransferredErr: Label '%1 was not transferred to the %2.', Comment = '%1 Field Caption,%2 Table Caption';

local procedure Initialize()
var
Expand Down Expand Up @@ -427,6 +428,49 @@ codeunit 134333 "ERM Purchase Prepayments"
Assert.AreEqual(PurchaseLine[1]."Line No.", PurchRcptLine."Order Line No.", '');
end;

[Test]
[HandlerFunctions('ConfirmHandler')]
procedure PaymentReferenceTransferredToVLEOnPurchasePrepaymentInvoice()
var
GLAccount: Record "G/L Account";
Item: Record Item;
PurchaseHeader: Record "Purchase Header";
Vendor: Record Vendor;
VendorLedgerEntry: Record "Vendor Ledger Entry";
PurchaseOrder: TestPage "Purchase Order";
begin
// [SCENARIO 643383] Payment Reference from the Purchase Order is transferred to the Vendor Ledger Entry when posting a prepayment invoice.
Initialize();

// [GIVEN] Prepayment posting setup, an item and a vendor with a prepayment %.
PreparePrepaymentsPostingSetup(GLAccount);
PrepareItemAccordingToSetup(Item, GLAccount);
PrepareVendorAccordingToSetup(Vendor, GLAccount, LibraryRandom.RandInt(100));

// [GIVEN] A Purchase Order with a Payment Reference specified.
CreatePurchOrder(PurchaseHeader, Vendor, Item, LCYCode);

PurchaseHeader.Validate("Payment Reference", LibraryUtility.GenerateRandomCode(PurchaseHeader.FieldNo("Payment Reference"), Database::"Purchase Header"));
PurchaseHeader.Modify(true);

// [WHEN] Post the prepayment invoice via Purchase order page.
PurchaseOrder.OpenEdit();
PurchaseOrder.GoToRecord(PurchaseHeader);
PurchaseOrder.PostPrepaymentInvoice.Invoke();
Commit();
PurchaseOrder.Close();

// [THEN] The Vendor Ledger Entry created for the prepayment carries the Payment Reference from the Purchase Order.
CheckNumOfVendorLedgerEntries(VendorLedgerEntry, Vendor, 1);
VendorLedgerEntry.FindFirst();

// [THEN] The Payment Reference from the Purchase Header should be transferred to the Vendor Ledger Entry table.
Assert.AreEqual(
PurchaseHeader."Payment Reference", VendorLedgerEntry."Payment Reference",
StrSubstNo(
PaymentReferenceNotTransferredErr, PurchaseHeader.FieldCaption("Payment Reference"), VendorLedgerEntry.TableCaption()));
end;

local procedure PreparePrepaymentsPostingSetup(var GLAccount: Record "G/L Account")
var
PrepmtGLAccount: Record "G/L Account";
Expand Down
9 changes: 9 additions & 0 deletions src/Layers/BE/BaseApp/Finance/GeneralLedger/Journal/GenJournalLine.Table.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -7285,6 +7285,8 @@ table 81 "Gen. Journal Line"
end;

procedure CopyFromPurchHeaderPrepmtPost(PurchHeader: Record "Purchase Header"; UsePmtDisc: Boolean)
var
PurchasesPayablesSetup: Record "Purchases & Payables Setup";
begin
"Account Type" := "Account Type"::Vendor;
"Account No." := PurchHeader."Pay-to Vendor No.";
Expand All @@ -7301,6 +7303,13 @@ table 81 "Gen. Journal Line"
"Due Date" := PurchHeader."Prepayment Due Date";
"Payment Terms Code" := PurchHeader."Payment Terms Code";
"Payment Method Code" := PurchHeader."Payment Method Code";
if PurchHeader."Payment Reference" <> '' then
"Payment Reference" := PurchHeader."Payment Reference"
else begin
PurchasesPayablesSetup.Get();
if PurchasesPayablesSetup."Copy Inv. No. To Pmt. Ref." then
"Payment Reference" := PurchHeader."Vendor Invoice No.";
end;
if UsePmtDisc then begin
"Pmt. Discount Date" := PurchHeader."Prepmt. Pmt. Discount Date";
"Payment Discount %" := PurchHeader."Prepmt. Payment Discount %";
Expand Down
9 changes: 9 additions & 0 deletions src/Layers/CH/BaseApp/Finance/GeneralLedger/Journal/GenJournalLine.Table.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -7386,6 +7386,8 @@ table 81 "Gen. Journal Line"
end;

procedure CopyFromPurchHeaderPrepmtPost(PurchHeader: Record "Purchase Header"; UsePmtDisc: Boolean)
var
PurchasesPayablesSetup: Record "Purchases & Payables Setup";
begin
"Account Type" := "Account Type"::Vendor;
"Account No." := PurchHeader."Pay-to Vendor No.";
Expand All @@ -7402,6 +7404,13 @@ table 81 "Gen. Journal Line"
"Due Date" := PurchHeader."Prepayment Due Date";
"Payment Terms Code" := PurchHeader."Payment Terms Code";
"Payment Method Code" := PurchHeader."Payment Method Code";
if PurchHeader."Payment Reference" <> '' then
"Payment Reference" := PurchHeader."Payment Reference"
else begin
PurchasesPayablesSetup.Get();
if PurchasesPayablesSetup."Copy Inv. No. To Pmt. Ref." then
"Payment Reference" := PurchHeader."Vendor Invoice No.";
end;
if UsePmtDisc then begin
"Pmt. Discount Date" := PurchHeader."Prepmt. Pmt. Discount Date";
"Payment Discount %" := PurchHeader."Prepmt. Payment Discount %";
Expand Down
9 changes: 9 additions & 0 deletions src/Layers/DACH/BaseApp/Finance/GeneralLedger/Journal/GenJournalLine.Table.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -7277,6 +7277,8 @@ table 81 "Gen. Journal Line"
end;

procedure CopyFromPurchHeaderPrepmtPost(PurchHeader: Record "Purchase Header"; UsePmtDisc: Boolean)
var
PurchasesPayablesSetup: Record "Purchases & Payables Setup";
begin
"Account Type" := "Account Type"::Vendor;
"Account No." := PurchHeader."Pay-to Vendor No.";
Expand All @@ -7293,6 +7295,13 @@ table 81 "Gen. Journal Line"
"Due Date" := PurchHeader."Prepayment Due Date";
"Payment Terms Code" := PurchHeader."Payment Terms Code";
"Payment Method Code" := PurchHeader."Payment Method Code";
if PurchHeader."Payment Reference" <> '' then
"Payment Reference" := PurchHeader."Payment Reference"
else begin
PurchasesPayablesSetup.Get();
if PurchasesPayablesSetup."Copy Inv. No. To Pmt. Ref." then
"Payment Reference" := PurchHeader."Vendor Invoice No.";
end;
if UsePmtDisc then begin
"Pmt. Discount Date" := PurchHeader."Prepmt. Pmt. Discount Date";
"Payment Discount %" := PurchHeader."Prepmt. Payment Discount %";
Expand Down
10 changes: 9 additions & 1 deletion src/Layers/ES/BaseApp/Finance/GeneralLedger/Journal/GenJournalLine.Table.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -7434,6 +7434,8 @@ table 81 "Gen. Journal Line"
end;

procedure CopyFromPurchHeaderPrepmtPost(PurchHeader: Record "Purchase Header"; UsePmtDisc: Boolean)
var
PurchasesPayablesSetup: Record "Purchases & Payables Setup";
begin
"Account Type" := "Account Type"::Vendor;
"Account No." := PurchHeader."Pay-to Vendor No.";
Expand All @@ -7450,7 +7452,13 @@ table 81 "Gen. Journal Line"
"Due Date" := PurchHeader."Prepayment Due Date";
"Payment Terms Code" := PurchHeader."Payment Terms Code";
"Payment Method Code" := PurchHeader."Payment Method Code";
"Recipient Bank Account" := PurchHeader."Vendor Bank Acc. Code";
if PurchHeader."Payment Reference" <> '' then
"Payment Reference" := PurchHeader."Payment Reference"
else begin
PurchasesPayablesSetup.Get();
Comment on lines 7454 to +7459
if PurchasesPayablesSetup."Copy Inv. No. To Pmt. Ref." then
"Payment Reference" := PurchHeader."Vendor Invoice No.";
end;
if UsePmtDisc then begin
"Pmt. Discount Date" := PurchHeader."Prepmt. Pmt. Discount Date";
"Payment Discount %" := PurchHeader."Prepmt. Payment Discount %";
Expand Down
9 changes: 9 additions & 0 deletions src/Layers/FI/BaseApp/Finance/GeneralLedger/Journal/GenJournalLine.Table.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -7318,6 +7318,8 @@ table 81 "Gen. Journal Line"
end;

procedure CopyFromPurchHeaderPrepmtPost(PurchHeader: Record "Purchase Header"; UsePmtDisc: Boolean)
var
PurchasesPayablesSetup: Record "Purchases & Payables Setup";
begin
"Account Type" := "Account Type"::Vendor;
"Account No." := PurchHeader."Pay-to Vendor No.";
Expand All @@ -7334,6 +7336,13 @@ table 81 "Gen. Journal Line"
"Due Date" := PurchHeader."Prepayment Due Date";
"Payment Terms Code" := PurchHeader."Payment Terms Code";
"Payment Method Code" := PurchHeader."Payment Method Code";
if PurchHeader."Payment Reference" <> '' then
"Payment Reference" := PurchHeader."Payment Reference"
else begin
PurchasesPayablesSetup.Get();
if PurchasesPayablesSetup."Copy Inv. No. To Pmt. Ref." then
"Payment Reference" := PurchHeader."Vendor Invoice No.";
end;
if UsePmtDisc then begin
"Pmt. Discount Date" := PurchHeader."Prepmt. Pmt. Discount Date";
"Payment Discount %" := PurchHeader."Prepmt. Payment Discount %";
Expand Down
9 changes: 9 additions & 0 deletions src/Layers/FR/BaseApp/Finance/GeneralLedger/Journal/GenJournalLine.Table.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -7298,6 +7298,8 @@ table 81 "Gen. Journal Line"
end;

procedure CopyFromPurchHeaderPrepmtPost(PurchHeader: Record "Purchase Header"; UsePmtDisc: Boolean)
var
PurchasesPayablesSetup: Record "Purchases & Payables Setup";
begin
"Account Type" := "Account Type"::Vendor;
"Account No." := PurchHeader."Pay-to Vendor No.";
Expand All @@ -7314,6 +7316,13 @@ table 81 "Gen. Journal Line"
"Due Date" := PurchHeader."Prepayment Due Date";
"Payment Terms Code" := PurchHeader."Payment Terms Code";
"Payment Method Code" := PurchHeader."Payment Method Code";
if PurchHeader."Payment Reference" <> '' then
"Payment Reference" := PurchHeader."Payment Reference"
else begin
PurchasesPayablesSetup.Get();
if PurchasesPayablesSetup."Copy Inv. No. To Pmt. Ref." then
"Payment Reference" := PurchHeader."Vendor Invoice No.";
end;
if UsePmtDisc then begin
"Pmt. Discount Date" := PurchHeader."Prepmt. Pmt. Discount Date";
"Payment Discount %" := PurchHeader."Prepmt. Payment Discount %";
Expand Down
9 changes: 9 additions & 0 deletions src/Layers/GB/BaseApp/Finance/GeneralLedger/Journal/GenJournalLine.Table.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -7254,6 +7254,8 @@ table 81 "Gen. Journal Line"
end;

procedure CopyFromPurchHeaderPrepmtPost(PurchHeader: Record "Purchase Header"; UsePmtDisc: Boolean)
var
PurchasesPayablesSetup: Record "Purchases & Payables Setup";
begin
"Account Type" := "Account Type"::Vendor;
"Account No." := PurchHeader."Pay-to Vendor No.";
Expand All @@ -7270,6 +7272,13 @@ table 81 "Gen. Journal Line"
"Due Date" := PurchHeader."Prepayment Due Date";
"Payment Terms Code" := PurchHeader."Payment Terms Code";
"Payment Method Code" := PurchHeader."Payment Method Code";
if PurchHeader."Payment Reference" <> '' then
"Payment Reference" := PurchHeader."Payment Reference"
else begin
PurchasesPayablesSetup.Get();
if PurchasesPayablesSetup."Copy Inv. No. To Pmt. Ref." then
"Payment Reference" := PurchHeader."Vendor Invoice No.";
end;
if UsePmtDisc then begin
"Pmt. Discount Date" := PurchHeader."Prepmt. Pmt. Discount Date";
"Payment Discount %" := PurchHeader."Prepmt. Payment Discount %";
Expand Down
9 changes: 9 additions & 0 deletions src/Layers/IT/BaseApp/Finance/GeneralLedger/Journal/GenJournalLine.Table.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -7934,6 +7934,8 @@ table 81 "Gen. Journal Line"
end;

procedure CopyFromPurchHeaderPrepmtPost(PurchHeader: Record "Purchase Header"; UsePmtDisc: Boolean)
var
PurchasesPayablesSetup: Record "Purchases & Payables Setup";
begin
"Account Type" := "Account Type"::Vendor;
"Account No." := PurchHeader."Pay-to Vendor No.";
Expand All @@ -7950,6 +7952,13 @@ table 81 "Gen. Journal Line"
"Due Date" := PurchHeader."Prepayment Due Date";
"Payment Terms Code" := PurchHeader."Payment Terms Code";
"Payment Method Code" := PurchHeader."Payment Method Code";
if PurchHeader."Payment Reference" <> '' then
"Payment Reference" := PurchHeader."Payment Reference"
else begin
PurchasesPayablesSetup.Get();
if PurchasesPayablesSetup."Copy Inv. No. To Pmt. Ref." then
"Payment Reference" := PurchHeader."Vendor Invoice No.";
end;
if UsePmtDisc then begin
"Pmt. Discount Date" := PurchHeader."Prepmt. Pmt. Discount Date";
"Payment Discount %" := PurchHeader."Prepmt. Payment Discount %";
Expand Down
9 changes: 9 additions & 0 deletions src/Layers/NA/BaseApp/Finance/GeneralLedger/Journal/GenJournalLine.Table.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -7401,6 +7401,8 @@ table 81 "Gen. Journal Line"
end;

procedure CopyFromPurchHeaderPrepmtPost(PurchHeader: Record "Purchase Header"; UsePmtDisc: Boolean)
var
PurchasesPayablesSetup: Record "Purchases & Payables Setup";
begin
"Account Type" := "Account Type"::Vendor;
"Account No." := PurchHeader."Pay-to Vendor No.";
Expand All @@ -7417,6 +7419,13 @@ table 81 "Gen. Journal Line"
"Due Date" := PurchHeader."Prepayment Due Date";
"Payment Terms Code" := PurchHeader."Payment Terms Code";
"Payment Method Code" := PurchHeader."Payment Method Code";
if PurchHeader."Payment Reference" <> '' then
"Payment Reference" := PurchHeader."Payment Reference"
else begin
PurchasesPayablesSetup.Get();
if PurchasesPayablesSetup."Copy Inv. No. To Pmt. Ref." then
"Payment Reference" := PurchHeader."Vendor Invoice No.";
end;
if UsePmtDisc then begin
"Pmt. Discount Date" := PurchHeader."Prepmt. Pmt. Discount Date";
"Payment Discount %" := PurchHeader."Prepmt. Payment Discount %";
Expand Down
9 changes: 9 additions & 0 deletions src/Layers/NL/BaseApp/Finance/GeneralLedger/Journal/GenJournalLine.Table.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -7294,6 +7294,8 @@ table 81 "Gen. Journal Line"
end;

procedure CopyFromPurchHeaderPrepmtPost(PurchHeader: Record "Purchase Header"; UsePmtDisc: Boolean)
var
PurchasesPayablesSetup: Record "Purchases & Payables Setup";
begin
"Account Type" := "Account Type"::Vendor;
"Account No." := PurchHeader."Pay-to Vendor No.";
Expand All @@ -7310,6 +7312,13 @@ table 81 "Gen. Journal Line"
"Due Date" := PurchHeader."Prepayment Due Date";
"Payment Terms Code" := PurchHeader."Payment Terms Code";
"Payment Method Code" := PurchHeader."Payment Method Code";
if PurchHeader."Payment Reference" <> '' then
"Payment Reference" := PurchHeader."Payment Reference"
else begin
PurchasesPayablesSetup.Get();
if PurchasesPayablesSetup."Copy Inv. No. To Pmt. Ref." then
"Payment Reference" := PurchHeader."Vendor Invoice No.";
end;
if UsePmtDisc then begin
"Pmt. Discount Date" := PurchHeader."Prepmt. Pmt. Discount Date";
"Payment Discount %" := PurchHeader."Prepmt. Payment Discount %";
Expand Down
9 changes: 9 additions & 0 deletions src/Layers/NO/BaseApp/Finance/GeneralLedger/Journal/GenJournalLine.Table.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -7518,6 +7518,8 @@ table 81 "Gen. Journal Line"
end;

procedure CopyFromPurchHeaderPrepmtPost(PurchHeader: Record "Purchase Header"; UsePmtDisc: Boolean)
var
PurchasesPayablesSetup: Record "Purchases & Payables Setup";
begin
"Account Type" := "Account Type"::Vendor;
"Account No." := PurchHeader."Pay-to Vendor No.";
Expand All @@ -7534,6 +7536,13 @@ table 81 "Gen. Journal Line"
"Due Date" := PurchHeader."Prepayment Due Date";
"Payment Terms Code" := PurchHeader."Payment Terms Code";
"Payment Method Code" := PurchHeader."Payment Method Code";
if PurchHeader."Payment Reference" <> '' then
"Payment Reference" := PurchHeader."Payment Reference"
else begin
PurchasesPayablesSetup.Get();
if PurchasesPayablesSetup."Copy Inv. No. To Pmt. Ref." then
"Payment Reference" := PurchHeader."Vendor Invoice No.";
end;
if UsePmtDisc then begin
"Pmt. Discount Date" := PurchHeader."Prepmt. Pmt. Discount Date";
"Payment Discount %" := PurchHeader."Prepmt. Payment Discount %";
Expand Down
9 changes: 9 additions & 0 deletions src/Layers/RU/BaseApp/Finance/GeneralLedger/Journal/GenJournalLine.Table.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -8438,6 +8438,8 @@ table 81 "Gen. Journal Line"
end;

procedure CopyFromPurchHeaderPrepmtPost(PurchHeader: Record "Purchase Header"; UsePmtDisc: Boolean)
var
PurchasesPayablesSetup: Record "Purchases & Payables Setup";
begin
"Account Type" := "Account Type"::Vendor;
"Account No." := PurchHeader."Pay-to Vendor No.";
Expand All @@ -8454,6 +8456,13 @@ table 81 "Gen. Journal Line"
"Due Date" := PurchHeader."Prepayment Due Date";
"Payment Terms Code" := PurchHeader."Payment Terms Code";
"Payment Method Code" := PurchHeader."Payment Method Code";
if PurchHeader."Payment Reference" <> '' then
"Payment Reference" := PurchHeader."Payment Reference"
else begin
PurchasesPayablesSetup.Get();
if PurchasesPayablesSetup."Copy Inv. No. To Pmt. Ref." then
"Payment Reference" := PurchHeader."Vendor Invoice No.";
end;
if UsePmtDisc then begin
"Pmt. Discount Date" := PurchHeader."Prepmt. Pmt. Discount Date";
"Payment Discount %" := PurchHeader."Prepmt. Payment Discount %";
Expand Down
9 changes: 9 additions & 0 deletions src/Layers/SE/BaseApp/Finance/GeneralLedger/Journal/GenJournalLine.Table.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -7265,6 +7265,8 @@ table 81 "Gen. Journal Line"
end;

procedure CopyFromPurchHeaderPrepmtPost(PurchHeader: Record "Purchase Header"; UsePmtDisc: Boolean)
var
PurchasesPayablesSetup: Record "Purchases & Payables Setup";
begin
"Account Type" := "Account Type"::Vendor;
"Account No." := PurchHeader."Pay-to Vendor No.";
Expand All @@ -7281,6 +7283,13 @@ table 81 "Gen. Journal Line"
"Due Date" := PurchHeader."Prepayment Due Date";
"Payment Terms Code" := PurchHeader."Payment Terms Code";
"Payment Method Code" := PurchHeader."Payment Method Code";
if PurchHeader."Payment Reference" <> '' then
"Payment Reference" := PurchHeader."Payment Reference"
else begin
PurchasesPayablesSetup.Get();
if PurchasesPayablesSetup."Copy Inv. No. To Pmt. Ref." then
"Payment Reference" := PurchHeader."Vendor Invoice No.";
end;
if UsePmtDisc then begin
"Pmt. Discount Date" := PurchHeader."Prepmt. Pmt. Discount Date";
"Payment Discount %" := PurchHeader."Prepmt. Payment Discount %";
Expand Down
Loading
Loading