Port NAV Extract-ES-Cartera changes from bugs branch

src/Layers/APAC/BaseApp/Finance/GeneralLedger/Journal/GenJnlCheckLine.Codeunit.al

@@ -257,6 +257,8 @@ codeunit 11 "Gen. Jnl.-Check Line"
             exit;
 
         GenJournalLine.TestField("Document No.", ErrorInfo.Create());
+
+        OnAfterTestDocumentNo(GenJournalLine);
     end;
 
     local procedure TestAccountAndBalAccountType(var GenJnlLine: Record "Gen. Journal Line")
@@ -1563,6 +1565,15 @@ codeunit 11 "Gen. Jnl.-Check Line"
     begin
     end;
 
+    /// <summary>
+    /// Integration event raised after validating document number field requirements for journal lines.
+    /// </summary>
+    /// <param name="GenJournalLine">Journal line record being validated for document number requirements.</param>
+    [IntegrationEvent(false, false)]
+    local procedure OnAfterTestDocumentNo(GenJournalLine: Record "Gen. Journal Line")
+    begin
+    end;
+
     /// <summary>
     /// Integration event raised before validating document number field requirements for journal lines.
     /// Enables custom logic to completely override standard document number validation processing.

src/Layers/APAC/BaseApp/Finance/GeneralLedger/Posting/GenJnlPostLine.Codeunit.al

@@ -1,4 +1,4 @@
-// ------------------------------------------------------------------------------------------------
+// ------------------------------------------------------------------------------------------------
 // Copyright (c) Microsoft Corporation. All rights reserved.
 // Licensed under the MIT License. See License.txt in the project root for license information.
 // ------------------------------------------------------------------------------------------------
@@ -864,7 +864,7 @@ codeunit 12 "Gen. Jnl.-Post Line"
         VATEntry."Sett. Unrealised Base (FCY)" := GenJnlLine."Source Curr. VAT Base Amount";
         VATEntry.Adjustment := GenJnlLine.Adjustment;
         SetBASFields(VATEntry, GenJnlLine."BAS Doc. No.", GenJnlLine."BAS Version", GenJnlLine."BAS Adjustment");
-        OnInsertVATOnAfterAssignVATEntryFields(GenJnlLine, VATEntry, CurrExchRate);
+        OnInsertVATOnAfterAssignVATEntryFields(GenJnlLine, VATEntry, CurrExchRate, VATPostingSetup);
         GenJnlLine."BAS Adjustment" := false;
 
         if GenJnlLine."VAT Difference" = 0 then
@@ -12210,7 +12210,7 @@ codeunit 12 "Gen. Jnl.-Post Line"
     end;
 
     [IntegrationEvent(false, false)]
-    local procedure OnInsertVATOnAfterAssignVATEntryFields(GenJnlLine: Record "Gen. Journal Line"; var VATEntry: Record "VAT Entry"; CurrExchRate: Record "Currency Exchange Rate")
+    local procedure OnInsertVATOnAfterAssignVATEntryFields(var GenJnlLine: Record "Gen. Journal Line"; var VATEntry: Record "VAT Entry"; CurrExchRate: Record "Currency Exchange Rate"; var VATPostingSetup: Record "VAT Posting Setup")
     begin
     end;
 

src/Layers/APAC/BaseApp/Purchases/Payables/VendEntryApplyPostedEntries.Codeunit.al

@@ -386,6 +386,8 @@ codeunit 227 "VendEntry-Apply Posted Entries"
                     CheckAdditionalCurrency(ApplyUnapplyParameters."Posting Date", DtldVendLedgEntry."Posting Date");
                     AddCurrChecked := true;
                 end;
+                CheckInitialDocumentType(
+                    DtldVendLedgEntry, ApplyUnapplyParameters."Document No.", ApplyUnapplyParameters."Posting Date");
                 CheckReversal(DtldVendLedgEntry."Vendor Ledger Entry No.");
                 if DtldVendLedgEntry."Transaction No." <> 0 then
                     CheckUnappliedEntries(DtldVendLedgEntry);
@@ -442,6 +444,18 @@ codeunit 227 "VendEntry-Apply Posted Entries"
         ExchRateAdjmtRunHandler.RunVendExchRateAdjustment(GenJnlLine, TempVendorLedgerEntry);
     end;
 
+    local procedure CheckInitialDocumentType(var DtldVendLedgEntry: Record "Detailed Vendor Ledg. Entry"; DocNo: Code[20]; PostingDate: Date)
+    var
+        IsHandled: Boolean;
+    begin
+        IsHandled := false;
+        OnBeforeCheckInitialDocumentType(DtldVendLedgEntry, DocNo, PostingDate, IsHandled);
+        if IsHandled then
+            exit;
+
+        OnAfterCheckInitialDocumentType(DtldVEndLedgEntry);
+    end;
+
     local procedure CheckPostingDate(ApplyUnapplyParameters: Record "Apply Unapply Parameters"; var MaxPostingDate: Date)
     var
         GenJnlCheckLine: Codeunit "Gen. Jnl.-Check Line";
@@ -843,6 +857,27 @@ codeunit 227 "VendEntry-Apply Posted Entries"
     begin
     end;
 
+    /// <summary>
+    /// Raised after checking initial document Type
+    /// </summary>
+    /// <param name="DtldVendLedgEntry">The detailed vendor ledger entry.</param>
+    [IntegrationEvent(false, false)]
+    local procedure OnAfterCheckInitialDocumentType(var DtldVendLedgEntry: Record "Detailed Vendor Ledg. Entry")
+    begin
+    end;
+
+    /// <summary>
+    /// Raised before checking initial document Type
+    /// </summary>
+    /// <param name="DtldVendLedgEntry">The detailed vendor ledger entry.</param>
+    /// <param name="DocNo">The document number.</param>
+    /// <param name="PostingDate">The posting date.</param>
+    /// <param name="IsHandled">Indicates whether the event is handled.</param>
+    [IntegrationEvent(false, false)]
+    local procedure OnBeforeCheckInitialDocumentType(var DtldVendLedgEntry: Record "Detailed Vendor Ledg. Entry"; DocNo: Code[20]; PostingDate: Date; var IsHandled: Boolean)
+    begin
+    end;
+
     [IntegrationEvent(false, false)]
     local procedure OnPostUnApplyVendorCommitOnBeforeFilterDtldVendLedgEntry(DetailedVendorLedgEntry2: Record "Detailed Vendor Ledg. Entry"; ApplyUnapplyParameters: Record "Apply Unapply Parameters")
     begin

src/Layers/APAC/BaseApp/Purchases/Payables/VendorLedgerEntry.Table.al

@@ -19,6 +19,7 @@ using Microsoft.FixedAssets.FixedAsset;
 using Microsoft.Foundation.Attachment;
 using Microsoft.Foundation.AuditCodes;
 using Microsoft.Foundation.NoSeries;
+using Microsoft.Foundation.PaymentTerms;
 using Microsoft.Intercompany.Partner;
 using Microsoft.Purchases.History;
 using Microsoft.Purchases.Remittance;
@@ -582,6 +583,13 @@ table 25 "Vendor Ledger Entry"
         {
             Caption = 'Prepayment';
         }
+        field(91; "Payment Terms Code"; Code[10])
+        {
+            Caption = 'Payment Terms Code';
+            Editable = false;
+            TableRelation = "Payment Terms";
+            ToolTip = 'Specifies the payment terms that determine the due date and payment discount date for the entry.';
+        }
         field(95; "G/L Register No."; Integer)
         {
             Caption = 'G/L Register No.';
@@ -1049,6 +1057,22 @@ table 25 "Vendor Ledger Entry"
         exit('');
     end;
 
+    procedure SetAppliesToDocFilters(var GenJnlLine: Record "Gen. Journal Line")
+    begin
+        SetRange("Document Type", GenJnlLine."Applies-to Doc. Type");
+        SetRange("Document No.", GenJnlLine."Applies-to Doc. No.");
+
+        OnAfterSetAppliesToDocFilters(Rec, GenJnlLine);
+    end;
+
+    procedure ClearDocumentFilters()
+    begin
+        SetRange("Document Type");
+        SetRange("Document No.");
+
+        OnAfterClearDocumentFilters(Rec);
+    end;
+
     procedure CopyFromGenJnlLine(GenJnlLine: Record "Gen. Journal Line")
     begin
         "Vendor No." := GenJnlLine."Account No.";
@@ -1090,6 +1114,7 @@ table 25 "Vendor Ledger Entry"
         "Creditor No." := GenJnlLine."Creditor No.";
         "Payment Reference" := GenJnlLine."Payment Reference";
         "Payment Method Code" := GenJnlLine."Payment Method Code";
+        "Payment Terms Code" := GenJnlLine."Payment Terms Code";
         "Exported to Payment File" := GenJnlLine."Exported to Payment File";
         Adjustment := GenJnlLine.Adjustment;
         "BAS Adjustment" := GenJnlLine."BAS Adjustment";
@@ -1332,5 +1357,15 @@ table 25 "Vendor Ledger Entry"
     local procedure OnBeforeUpdateAmountsForApplication(var VendorLedgerEntry: Record "Vendor Ledger Entry"; ApplnDate: Date; ApplnCurrencyCode: Code[10]; RoundAmounts: Boolean; UpdateMaxPaymentTolerance: Boolean; var IsHandled: Boolean)
     begin
     end;
+
+    [IntegrationEvent(false, false)]
+    local procedure OnAfterSetAppliesToDocFilters(var Rec: Record "Vendor Ledger Entry"; var GenJnlLine: Record "Gen. Journal Line")
+    begin
+    end;
+
+    [IntegrationEvent(false, false)]
+    local procedure OnAfterClearDocumentFilters(var Rec: Record "Vendor Ledger Entry")
+    begin
+    end;
 }