diff --git a/src/Apps/CZ/AdvancePaymentsLocalization/app/Src/TableExtensions/CashDocumentLineCZZ.TableExt.al b/src/Apps/CZ/AdvancePaymentsLocalization/app/Src/TableExtensions/CashDocumentLineCZZ.TableExt.al index f8c580444dc..58c97cb8f57 100644 --- a/src/Apps/CZ/AdvancePaymentsLocalization/app/Src/TableExtensions/CashDocumentLineCZZ.TableExt.al +++ b/src/Apps/CZ/AdvancePaymentsLocalization/app/Src/TableExtensions/CashDocumentLineCZZ.TableExt.al @@ -21,7 +21,13 @@ tableextension 31028 "Cash Document Line CZZ" extends "Cash Document Line CZP" var SalesAdvLetterHeaderCZZ: Record "Sales Adv. Letter Header CZZ"; PurchAdvLetterHeaderCZZ: Record "Purch. Adv. Letter Header CZZ"; + IsHandled: Boolean; begin + IsHandled := false; + OnBeforeValidateAdvanceLetterNoCZZ(Rec, xRec, IsHandled); + if IsHandled then + exit; + if "Advance Letter No. CZZ" <> '' then begin TestField("Gen. Document Type", "Gen. Document Type"::Payment); case "Document Type" of @@ -59,7 +65,13 @@ tableextension 31028 "Cash Document Line CZZ" extends "Cash Document Line CZP" var SalesAdvLetterHeaderCZZ: Record "Sales Adv. Letter Header CZZ"; PurchAdvLetterHeaderCZZ: Record "Purch. Adv. Letter Header CZZ"; + IsHandled: Boolean; begin + IsHandled := false; + OnBeforeLookupAdvanceLetterNoCZZ(Rec, IsHandled); + if IsHandled then + exit; + TestField("Gen. Document Type", "Gen. Document Type"::Payment); if not ((("Document Type" = "Document Type"::Receipt) and ("Account Type" = "Account Type"::Customer)) or (("Document Type" = "Document Type"::Withdrawal) and ("Account Type" = "Account Type"::Vendor))) then @@ -145,4 +157,14 @@ tableextension 31028 "Cash Document Line CZZ" extends "Cash Document Line CZP" ("Applies-To Doc. Type" = "Applies-To Doc. Type"::Payment) and ("Applies-To Doc. No." <> '')); end; + + [IntegrationEvent(false, false)] + local procedure OnBeforeValidateAdvanceLetterNoCZZ(var CashDocumentLineCZP: Record "Cash Document Line CZP"; xCashDocumentLineCZP: Record "Cash Document Line CZP"; var IsHandled: Boolean) + begin + end; + + [IntegrationEvent(false, false)] + local procedure OnBeforeLookupAdvanceLetterNoCZZ(var CashDocumentLineCZP: Record "Cash Document Line CZP"; var IsHandled: Boolean) + begin + end; } diff --git a/src/Apps/CZ/CashDeskLocalization/app/Src/Codeunits/CashDocumentReleaseCZP.Codeunit.al b/src/Apps/CZ/CashDeskLocalization/app/Src/Codeunits/CashDocumentReleaseCZP.Codeunit.al index 1197ca0c7ac..3b4fa884d6f 100644 --- a/src/Apps/CZ/CashDeskLocalization/app/Src/Codeunits/CashDocumentReleaseCZP.Codeunit.al +++ b/src/Apps/CZ/CashDeskLocalization/app/Src/Codeunits/CashDocumentReleaseCZP.Codeunit.al @@ -202,16 +202,20 @@ codeunit 11725 "Cash Document-Release CZP" local procedure CheckMandatoryFields(CashDocumentHeaderCZP: Record "Cash Document Header CZP") var SkipPaymentPurposeTestField: Boolean; + SkipAmountsTestFields: Boolean; begin SkipPaymentPurposeTestField := false; - OnBeforeCheckMandatoryFields(CashDocumentHeaderCZP, SkipPaymentPurposeTestField); + SkipAmountsTestFields := false; + OnBeforeCheckMandatoryFields(CashDocumentHeaderCZP, SkipPaymentPurposeTestField, SkipAmountsTestFields); CashDocumentHeaderCZP.TestField(CashDocumentHeaderCZP."No."); CashDocumentHeaderCZP.TestField(CashDocumentHeaderCZP."Posting Date"); CashDocumentHeaderCZP.VATRounding(); CashDocumentHeaderCZP.CalcFields(CashDocumentHeaderCZP."Amount Including VAT", CashDocumentHeaderCZP."Amount Including VAT (LCY)"); - CashDocumentHeaderCZP.TestField(CashDocumentHeaderCZP."Amount Including VAT"); - CashDocumentHeaderCZP.TestField(CashDocumentHeaderCZP."Amount Including VAT (LCY)"); + if not SkipAmountsTestFields then begin + CashDocumentHeaderCZP.TestField(CashDocumentHeaderCZP."Amount Including VAT"); + CashDocumentHeaderCZP.TestField(CashDocumentHeaderCZP."Amount Including VAT (LCY)"); + end; CashDocumentHeaderCZP.TestField(CashDocumentHeaderCZP."Document Date"); if not SkipPaymentPurposeTestField then CashDocumentHeaderCZP.TestField(CashDocumentHeaderCZP."Payment Purpose"); @@ -373,7 +377,7 @@ codeunit 11725 "Cash Document-Release CZP" end; [IntegrationEvent(false, false)] - local procedure OnBeforeCheckMandatoryFields(CashDocumentHeaderCZP: Record "Cash Document Header CZP"; var SkipPaymentPurposeTestField: Boolean) + local procedure OnBeforeCheckMandatoryFields(CashDocumentHeaderCZP: Record "Cash Document Header CZP"; var SkipPaymentPurposeTestField: Boolean; var SkipAmountsTestFields: Boolean) begin end; }