diff --git a/src/Apps/CZ/AdvancePaymentsLocalization/app/Src/Codeunits/RelPurchAdvLetterDocCZZ.Codeunit.al b/src/Apps/CZ/AdvancePaymentsLocalization/app/Src/Codeunits/RelPurchAdvLetterDocCZZ.Codeunit.al index 4f3e94f4b2b..5235d7bdf4d 100644 --- a/src/Apps/CZ/AdvancePaymentsLocalization/app/Src/Codeunits/RelPurchAdvLetterDocCZZ.Codeunit.al +++ b/src/Apps/CZ/AdvancePaymentsLocalization/app/Src/Codeunits/RelPurchAdvLetterDocCZZ.Codeunit.al @@ -70,18 +70,27 @@ codeunit 31018 "Rel. Purch.Adv.Letter Doc. CZZ" end; procedure PerformManualRelease(var PurchAdvLetterHeaderCZZ: Record "Purch. Adv. Letter Header CZZ") + begin + CheckPurchaseAdvanceLetterPendingApproval(PurchAdvLetterHeaderCZZ); + Codeunit.Run(Codeunit::"Rel. Purch.Adv.Letter Doc. CZZ", PurchAdvLetterHeaderCZZ); + end; + + local procedure CheckPurchaseAdvanceLetterPendingApproval(var PurchAdvLetterHeaderCZZ: Record "Purch. Adv. Letter Header CZZ") var AdvPaymentsApprovMgtCZZ: Codeunit "Adv. Payments Approv. Mgt. CZZ"; + IsHandled: Boolean; begin + IsHandled := false; + OnBeforeCheckPurchaseAdvanceLetterPendingApproval(PurchAdvLetterHeaderCZZ, IsHandled); + if IsHandled then + exit; + if AdvPaymentsApprovMgtCZZ.IsPurchaseAdvanceLetterApprovalsWorkflowEnabled(PurchAdvLetterHeaderCZZ) and (PurchAdvLetterHeaderCZZ.Status = PurchAdvLetterHeaderCZZ.Status::New) then Error(ApprovalProcessReleaseErr); - - Codeunit.Run(Codeunit::"Rel. Purch.Adv.Letter Doc. CZZ", PurchAdvLetterHeaderCZZ); end; - procedure Reopen(var PurchAdvLetterHeaderCZZ: Record "Purch. Adv. Letter Header CZZ") var PurchAdvLetterManagementCZZ: Codeunit "PurchAdvLetterManagement CZZ"; @@ -174,4 +183,9 @@ codeunit 31018 "Rel. Purch.Adv.Letter Doc. CZZ" local procedure OnBeforeCheckDocumentTotalAmounts(var PurchAdvLetterHeaderCZZ: Record "Purch. Adv. Letter Header CZZ"; var IsHandled: Boolean) begin end; + + [IntegrationEvent(false, false)] + local procedure OnBeforeCheckPurchaseAdvanceLetterPendingApproval(var PurchAdvLetterHeaderCZZ: Record "Purch. Adv. Letter Header CZZ"; var IsHandled: Boolean) + begin + end; }