From cd96447f3d0090b47954d47879cad64349960382 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Miljan=20Milosavljevi=C4=87?= Date: Tue, 20 Jan 2026 10:50:50 +0100 Subject: [PATCH] Enabling ISV to run custom checks priod to releasing document for xRechnung and ZUGFerD --- .../app/src/XRechnung/XRechnungFormat.Codeunit.al | 6 ++++++ .../EDocumentDE/app/src/ZUGFeRD/ZUGFeRDFormat.Codeunit.al | 6 ++++++ 2 files changed, 12 insertions(+) diff --git a/Apps/DE/EDocumentDE/app/src/XRechnung/XRechnungFormat.Codeunit.al b/Apps/DE/EDocumentDE/app/src/XRechnung/XRechnungFormat.Codeunit.al index 45fe37aec7..8a8f64565b 100644 --- a/Apps/DE/EDocumentDE/app/src/XRechnung/XRechnungFormat.Codeunit.al +++ b/Apps/DE/EDocumentDE/app/src/XRechnung/XRechnungFormat.Codeunit.al @@ -33,6 +33,7 @@ codeunit 13914 "XRechnung Format" implements "E-Document" BindSubscription(EDocPEPPOLValidationDE); EDocPEPPOLBIS30.Check(SourceDocumentHeader, EDocumentService, EDocumentProcessingPhase); UnbindSubscription(EDocPEPPOLValidationDE); + OnAfterCheck(SourceDocumentHeader, EDocumentService, EDocumentProcessingPhase); end; procedure Create(EDocumentService: Record "E-Document Service"; var EDocument: Record "E-Document"; var SourceDocumentHeader: RecordRef; var SourceDocumentLines: RecordRef; var TempBlob: Codeunit "Temp Blob") @@ -154,4 +155,9 @@ codeunit 13914 "XRechnung Format" implements "E-Document" local procedure OnBuyerReferenceOnElseCase(var SourceDocumentHeader: RecordRef; EDocumentService: Record "E-Document Service") begin end; + + [IntegrationEvent(false, false)] + local procedure OnAfterCheck(var SourceDocumentHeader: RecordRef; EDocumentService: Record "E-Document Service"; EDocumentProcessingPhase: Enum "E-Document Processing Phase") + begin + end; } \ No newline at end of file diff --git a/Apps/DE/EDocumentDE/app/src/ZUGFeRD/ZUGFeRDFormat.Codeunit.al b/Apps/DE/EDocumentDE/app/src/ZUGFeRD/ZUGFeRDFormat.Codeunit.al index b98f6632e7..e13d85b56e 100644 --- a/Apps/DE/EDocumentDE/app/src/ZUGFeRD/ZUGFeRDFormat.Codeunit.al +++ b/Apps/DE/EDocumentDE/app/src/ZUGFeRD/ZUGFeRDFormat.Codeunit.al @@ -33,6 +33,7 @@ codeunit 13920 "ZUGFeRD Format" implements "E-Document" BindSubscription(EDocPEPPOLValidationDE); EDocPEPPOLBIS30.Check(SourceDocumentHeader, EDocumentService, EDocumentProcessingPhase); UnbindSubscription(EDocPEPPOLValidationDE); + OnAfterCheck(SourceDocumentHeader, EDocumentService, EDocumentProcessingPhase); end; procedure Create(EDocumentService: Record "E-Document Service"; var EDocument: Record "E-Document"; var SourceDocumentHeader: RecordRef; var SourceDocumentLines: RecordRef; var TempBlob: Codeunit "Temp Blob") @@ -181,4 +182,9 @@ codeunit 13920 "ZUGFeRD Format" implements "E-Document" local procedure OnBuyerReferenceOnElseCase(var SourceDocumentHeader: RecordRef; EDocumentService: Record "E-Document Service") begin end; + + [IntegrationEvent(false, false)] + local procedure OnAfterCheck(var SourceDocumentHeader: RecordRef; EDocumentService: Record "E-Document Service"; EDocumentProcessingPhase: Enum "E-Document Processing Phase") + begin + end; } \ No newline at end of file