diff --git a/src/Apps/W1/EDocument/App/src/Processing/EDocExport.Codeunit.al b/src/Apps/W1/EDocument/App/src/Processing/EDocExport.Codeunit.al index 4a94fe2123..f1230cc8bc 100644 --- a/src/Apps/W1/EDocument/App/src/Processing/EDocExport.Codeunit.al +++ b/src/Apps/W1/EDocument/App/src/Processing/EDocExport.Codeunit.al @@ -183,6 +183,7 @@ codeunit 6102 "E-Doc. Export" else EDocumentProcessing.ModifyServiceStatus(EDocument, EDocumentService, EDocServiceStatus); EDocumentProcessing.ModifyEDocumentStatus(EDocument); + OnExportEDocumentAfterCreateEDocument(EDocumentService, EDocument, SourceDocumentHeaderMapped, SourceDocumentLineMapped, TempBlob, Success); end; internal procedure ExportEDocumentBatch(var EDocuments: Record "E-Document"; var EDocService: Record "E-Document Service"; var TempEDocMappingLogs: Record "E-Doc. Mapping Log" temporary; var TempBlob: Codeunit "Temp Blob"; var EDocumentsErrorCount: Dictionary of [Integer, Integer]) @@ -530,4 +531,9 @@ codeunit 6102 "E-Doc. Export" local procedure OnAfterCreateEDocument(var EDocument: Record "E-Document"; var SourceDocumentHeader: RecordRef) begin end; + + [IntegrationEvent(false, false)] + local procedure OnExportEDocumentAfterCreateEDocument(EDocumentService: Record "E-Document Service"; EDocument: Record "E-Document"; SourceDocumentHeaderMapped: RecordRef; SourceDocumentLineMapped: RecordRef; var TempBlob: Codeunit "Temp Blob"; Success: Boolean) + begin + end; } diff --git a/src/Apps/W1/EDocument/App/src/Processing/EDocumentSubscribers.Codeunit.al b/src/Apps/W1/EDocument/App/src/Processing/EDocumentSubscribers.Codeunit.al index a11862a36e..868ba598b2 100644 --- a/src/Apps/W1/EDocument/App/src/Processing/EDocumentSubscribers.Codeunit.al +++ b/src/Apps/W1/EDocument/App/src/Processing/EDocumentSubscribers.Codeunit.al @@ -573,7 +573,9 @@ codeunit 6103 "E-Document Subscribers" EDocument."Document Type" := DocumentType; EDocument.Status := Enum::"E-Document Status"::Processed; EDocument.Modify(true); - + + OnAfterUpdateToPostedPurchaseEDocument(EDocument, PostedRecord, PostedDocumentNo, DocumentType); + EDocService := EDocumentLog.GetLastServiceFromLog(EDocument); EDocLogHelper.InsertLog(EDocument, EDocService, Enum::"E-Document Service Status"::"Imported Document Created"); end; @@ -632,4 +634,8 @@ codeunit 6103 "E-Document Subscribers" Telemetry.LogMessage('0000PYF', DraftChangeTok, Verbosity::Normal, DataClassification::SystemMetadata, TelemetryScope::All, TelemetryDimensions); end; + [IntegrationEvent(false, false)] + local procedure OnAfterUpdateToPostedPurchaseEDocument(var EDocument: Record "E-Document"; PostedRecord: Variant; PostedDocumentNo: Code[20]; DocumentType: Enum "E-Document Type") + begin + end; }