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