diff --git a/src/Layers/APAC/BaseApp/Purchases/Document/PurchaseHeader.Table.al b/src/Layers/APAC/BaseApp/Purchases/Document/PurchaseHeader.Table.al
index 77e1531c560..8ea6f5d9435 100644
--- a/src/Layers/APAC/BaseApp/Purchases/Document/PurchaseHeader.Table.al
+++ b/src/Layers/APAC/BaseApp/Purchases/Document/PurchaseHeader.Table.al
@@ -6012,7 +6012,7 @@ table 38 "Purchase Header"
     var
         PurchPost: Codeunit "Purch.-Post";
     begin
-        PurchPost.OnAfterPostPurchaseDoc(Rec, GenJnlPostLine, PurchRcpHdrNo, RetShptHdrNo, PurchInvHdrNo, PurchCrMemoHdrNo, false);
+        PurchPost.OnAfterPostPurchaseDoc(Rec, GenJnlPostLine, PurchRcpHdrNo, RetShptHdrNo, PurchInvHdrNo, PurchCrMemoHdrNo, false, false);
     end;
 
     /// <summary>
diff --git a/src/Layers/APAC/BaseApp/Purchases/Posting/PurchPost.Codeunit.al b/src/Layers/APAC/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
index 9e8091f13aa..bcf47e941f4 100644
--- a/src/Layers/APAC/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
+++ b/src/Layers/APAC/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
@@ -174,7 +174,7 @@ codeunit 90 "Purch.-Post"
 
         OnAfterPostPurchaseDoc(
           PurchaseHeader2, GenJnlPostLine, PurchRcptHeader."No.", ReturnShptHeader."No.", PurchInvHeader."No.", PurchCrMemoHeader."No.",
-          SuppressCommit);
+          SuppressCommit, PreviewMode);
 
         OnAfterPostPurchaseDocDropShipment(SalesShptHeader."No.", SuppressCommit, PreviewMode);
     end;
@@ -305,7 +305,7 @@ codeunit 90 "Purch.-Post"
 
         OnAfterProcessPurchLines(
           PurchHeader, PurchRcptHeader, PurchInvHeader, PurchCrMemoHeader, ReturnShptHeader,
-          WhseShip, WhseReceive, PurchaseLinesProcessed, SuppressCommit, EverythingInvoiced);
+          WhseShip, WhseReceive, PurchaseLinesProcessed, SuppressCommit, EverythingInvoiced, PreviewMode);
 
         ErrorMessageMgt.PopContext(ErrorContextElementProcessLines);
         ErrorMessageMgt.Finish(ZeroPurchLineRecID);
@@ -9554,7 +9554,7 @@ codeunit 90 "Purch.-Post"
     end;
 
     [IntegrationEvent(false, false)]
-    procedure OnAfterPostPurchaseDoc(var PurchaseHeader: Record "Purchase Header"; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line"; PurchRcpHdrNo: Code[20]; RetShptHdrNo: Code[20]; PurchInvHdrNo: Code[20]; PurchCrMemoHdrNo: Code[20]; CommitIsSupressed: Boolean)
+    procedure OnAfterPostPurchaseDoc(var PurchaseHeader: Record "Purchase Header"; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line"; PurchRcpHdrNo: Code[20]; RetShptHdrNo: Code[20]; PurchInvHdrNo: Code[20]; PurchCrMemoHdrNo: Code[20]; CommitIsSupressed: Boolean; PreviewMode: Boolean)
     begin
     end;
 
@@ -9768,7 +9768,7 @@ codeunit 90 "Purch.-Post"
     end;
 
     [IntegrationEvent(false, false)]
-    local procedure OnAfterProcessPurchLines(var PurchHeader: Record "Purchase Header"; var PurchRcptHeader: Record "Purch. Rcpt. Header"; var PurchInvHeader: Record "Purch. Inv. Header"; var PurchCrMemoHdr: Record "Purch. Cr. Memo Hdr."; var ReturnShipmentHeader: Record "Return Shipment Header"; WhseShip: Boolean; WhseReceive: Boolean; var PurchLinesProcessed: Boolean; CommitIsSuppressed: Boolean; EverythingInvoiced: Boolean)
+    local procedure OnAfterProcessPurchLines(var PurchHeader: Record "Purchase Header"; var PurchRcptHeader: Record "Purch. Rcpt. Header"; var PurchInvHeader: Record "Purch. Inv. Header"; var PurchCrMemoHdr: Record "Purch. Cr. Memo Hdr."; var ReturnShipmentHeader: Record "Return Shipment Header"; WhseShip: Boolean; WhseReceive: Boolean; var PurchLinesProcessed: Boolean; CommitIsSuppressed: Boolean; EverythingInvoiced: Boolean; PreviewMode: Boolean)
     begin
     end;
 
diff --git a/src/Layers/BE/BaseApp/Purchases/Document/PurchaseHeader.Table.al b/src/Layers/BE/BaseApp/Purchases/Document/PurchaseHeader.Table.al
index 104a44e2773..41ae8822aff 100644
--- a/src/Layers/BE/BaseApp/Purchases/Document/PurchaseHeader.Table.al
+++ b/src/Layers/BE/BaseApp/Purchases/Document/PurchaseHeader.Table.al
@@ -5790,7 +5790,7 @@ table 38 "Purchase Header"
     var
         PurchPost: Codeunit "Purch.-Post";
     begin
-        PurchPost.OnAfterPostPurchaseDoc(Rec, GenJnlPostLine, PurchRcpHdrNo, RetShptHdrNo, PurchInvHdrNo, PurchCrMemoHdrNo, false);
+        PurchPost.OnAfterPostPurchaseDoc(Rec, GenJnlPostLine, PurchRcpHdrNo, RetShptHdrNo, PurchInvHdrNo, PurchCrMemoHdrNo, false, false);
     end;
 
     /// <summary>
diff --git a/src/Layers/BE/BaseApp/Purchases/Posting/PurchPost.Codeunit.al b/src/Layers/BE/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
index 67b9d31dc45..fbd882c3c6d 100644
--- a/src/Layers/BE/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
+++ b/src/Layers/BE/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
@@ -171,7 +171,7 @@ codeunit 90 "Purch.-Post"
 
         OnAfterPostPurchaseDoc(
           PurchaseHeader2, GenJnlPostLine, PurchRcptHeader."No.", ReturnShptHeader."No.", PurchInvHeader."No.", PurchCrMemoHeader."No.",
-          SuppressCommit);
+          SuppressCommit, PreviewMode);
 
         OnAfterPostPurchaseDocDropShipment(SalesShptHeader."No.", SuppressCommit, PreviewMode);
     end;
@@ -302,7 +302,7 @@ codeunit 90 "Purch.-Post"
 
         OnAfterProcessPurchLines(
           PurchHeader, PurchRcptHeader, PurchInvHeader, PurchCrMemoHeader, ReturnShptHeader,
-          WhseShip, WhseReceive, PurchaseLinesProcessed, SuppressCommit, EverythingInvoiced);
+          WhseShip, WhseReceive, PurchaseLinesProcessed, SuppressCommit, EverythingInvoiced, PreviewMode);
 
         ErrorMessageMgt.PopContext(ErrorContextElementProcessLines);
         ErrorMessageMgt.Finish(ZeroPurchLineRecID);
@@ -9120,7 +9120,7 @@ codeunit 90 "Purch.-Post"
     end;
 
     [IntegrationEvent(false, false)]
-    procedure OnAfterPostPurchaseDoc(var PurchaseHeader: Record "Purchase Header"; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line"; PurchRcpHdrNo: Code[20]; RetShptHdrNo: Code[20]; PurchInvHdrNo: Code[20]; PurchCrMemoHdrNo: Code[20]; CommitIsSupressed: Boolean)
+    procedure OnAfterPostPurchaseDoc(var PurchaseHeader: Record "Purchase Header"; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line"; PurchRcpHdrNo: Code[20]; RetShptHdrNo: Code[20]; PurchInvHdrNo: Code[20]; PurchCrMemoHdrNo: Code[20]; CommitIsSupressed: Boolean; PreviewMode: Boolean)
     begin
     end;
 
@@ -9334,7 +9334,7 @@ codeunit 90 "Purch.-Post"
     end;
 
     [IntegrationEvent(false, false)]
-    local procedure OnAfterProcessPurchLines(var PurchHeader: Record "Purchase Header"; var PurchRcptHeader: Record "Purch. Rcpt. Header"; var PurchInvHeader: Record "Purch. Inv. Header"; var PurchCrMemoHdr: Record "Purch. Cr. Memo Hdr."; var ReturnShipmentHeader: Record "Return Shipment Header"; WhseShip: Boolean; WhseReceive: Boolean; var PurchLinesProcessed: Boolean; CommitIsSuppressed: Boolean; EverythingInvoiced: Boolean)
+    local procedure OnAfterProcessPurchLines(var PurchHeader: Record "Purchase Header"; var PurchRcptHeader: Record "Purch. Rcpt. Header"; var PurchInvHeader: Record "Purch. Inv. Header"; var PurchCrMemoHdr: Record "Purch. Cr. Memo Hdr."; var ReturnShipmentHeader: Record "Return Shipment Header"; WhseShip: Boolean; WhseReceive: Boolean; var PurchLinesProcessed: Boolean; CommitIsSuppressed: Boolean; EverythingInvoiced: Boolean; PreviewMode: Boolean)
     begin
     end;
 
diff --git a/src/Layers/CH/BaseApp/Purchases/Document/PurchaseHeader.Table.al b/src/Layers/CH/BaseApp/Purchases/Document/PurchaseHeader.Table.al
index 598de87dbf3..de0f6b7b122 100644
--- a/src/Layers/CH/BaseApp/Purchases/Document/PurchaseHeader.Table.al
+++ b/src/Layers/CH/BaseApp/Purchases/Document/PurchaseHeader.Table.al
@@ -5845,7 +5845,7 @@ table 38 "Purchase Header"
     var
         PurchPost: Codeunit "Purch.-Post";
     begin
-        PurchPost.OnAfterPostPurchaseDoc(Rec, GenJnlPostLine, PurchRcpHdrNo, RetShptHdrNo, PurchInvHdrNo, PurchCrMemoHdrNo, false);
+        PurchPost.OnAfterPostPurchaseDoc(Rec, GenJnlPostLine, PurchRcpHdrNo, RetShptHdrNo, PurchInvHdrNo, PurchCrMemoHdrNo, false, false);
     end;
 
     /// <summary>
diff --git a/src/Layers/CH/BaseApp/Purchases/Posting/PurchPost.Codeunit.al b/src/Layers/CH/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
index b1eeb7d913c..a5294f0e91a 100644
--- a/src/Layers/CH/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
+++ b/src/Layers/CH/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
@@ -171,7 +171,7 @@ codeunit 90 "Purch.-Post"
 
         OnAfterPostPurchaseDoc(
           PurchaseHeader2, GenJnlPostLine, PurchRcptHeader."No.", ReturnShptHeader."No.", PurchInvHeader."No.", PurchCrMemoHeader."No.",
-          SuppressCommit);
+          SuppressCommit, PreviewMode);
 
         OnAfterPostPurchaseDocDropShipment(SalesShptHeader."No.", SuppressCommit, PreviewMode);
     end;
@@ -302,7 +302,7 @@ codeunit 90 "Purch.-Post"
 
         OnAfterProcessPurchLines(
           PurchHeader, PurchRcptHeader, PurchInvHeader, PurchCrMemoHeader, ReturnShptHeader,
-          WhseShip, WhseReceive, PurchaseLinesProcessed, SuppressCommit, EverythingInvoiced);
+          WhseShip, WhseReceive, PurchaseLinesProcessed, SuppressCommit, EverythingInvoiced, PreviewMode);
 
         ErrorMessageMgt.PopContext(ErrorContextElementProcessLines);
         ErrorMessageMgt.Finish(ZeroPurchLineRecID);
@@ -9103,7 +9103,7 @@ codeunit 90 "Purch.-Post"
     end;
 
     [IntegrationEvent(false, false)]
-    procedure OnAfterPostPurchaseDoc(var PurchaseHeader: Record "Purchase Header"; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line"; PurchRcpHdrNo: Code[20]; RetShptHdrNo: Code[20]; PurchInvHdrNo: Code[20]; PurchCrMemoHdrNo: Code[20]; CommitIsSupressed: Boolean)
+    procedure OnAfterPostPurchaseDoc(var PurchaseHeader: Record "Purchase Header"; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line"; PurchRcpHdrNo: Code[20]; RetShptHdrNo: Code[20]; PurchInvHdrNo: Code[20]; PurchCrMemoHdrNo: Code[20]; CommitIsSupressed: Boolean; PreviewMode: Boolean)
     begin
     end;
 
@@ -9317,7 +9317,7 @@ codeunit 90 "Purch.-Post"
     end;
 
     [IntegrationEvent(false, false)]
-    local procedure OnAfterProcessPurchLines(var PurchHeader: Record "Purchase Header"; var PurchRcptHeader: Record "Purch. Rcpt. Header"; var PurchInvHeader: Record "Purch. Inv. Header"; var PurchCrMemoHdr: Record "Purch. Cr. Memo Hdr."; var ReturnShipmentHeader: Record "Return Shipment Header"; WhseShip: Boolean; WhseReceive: Boolean; var PurchLinesProcessed: Boolean; CommitIsSuppressed: Boolean; EverythingInvoiced: Boolean)
+    local procedure OnAfterProcessPurchLines(var PurchHeader: Record "Purchase Header"; var PurchRcptHeader: Record "Purch. Rcpt. Header"; var PurchInvHeader: Record "Purch. Inv. Header"; var PurchCrMemoHdr: Record "Purch. Cr. Memo Hdr."; var ReturnShipmentHeader: Record "Return Shipment Header"; WhseShip: Boolean; WhseReceive: Boolean; var PurchLinesProcessed: Boolean; CommitIsSuppressed: Boolean; EverythingInvoiced: Boolean; PreviewMode: Boolean)
     begin
     end;
 
diff --git a/src/Layers/DACH/BaseApp/Purchases/Document/PurchaseHeader.Table.al b/src/Layers/DACH/BaseApp/Purchases/Document/PurchaseHeader.Table.al
index 88121265457..83158b009d8 100644
--- a/src/Layers/DACH/BaseApp/Purchases/Document/PurchaseHeader.Table.al
+++ b/src/Layers/DACH/BaseApp/Purchases/Document/PurchaseHeader.Table.al
@@ -5780,7 +5780,7 @@ table 38 "Purchase Header"
     var
         PurchPost: Codeunit "Purch.-Post";
     begin
-        PurchPost.OnAfterPostPurchaseDoc(Rec, GenJnlPostLine, PurchRcpHdrNo, RetShptHdrNo, PurchInvHdrNo, PurchCrMemoHdrNo, false);
+        PurchPost.OnAfterPostPurchaseDoc(Rec, GenJnlPostLine, PurchRcpHdrNo, RetShptHdrNo, PurchInvHdrNo, PurchCrMemoHdrNo, false, false);
     end;
 
     /// <summary>
diff --git a/src/Layers/ES/BaseApp/Purchases/Document/PurchaseHeader.Table.al b/src/Layers/ES/BaseApp/Purchases/Document/PurchaseHeader.Table.al
index 3949267990d..2ac1b2f4c2e 100644
--- a/src/Layers/ES/BaseApp/Purchases/Document/PurchaseHeader.Table.al
+++ b/src/Layers/ES/BaseApp/Purchases/Document/PurchaseHeader.Table.al
@@ -5910,7 +5910,7 @@ table 38 "Purchase Header"
     var
         PurchPost: Codeunit "Purch.-Post";
     begin
-        PurchPost.OnAfterPostPurchaseDoc(Rec, GenJnlPostLine, PurchRcpHdrNo, RetShptHdrNo, PurchInvHdrNo, PurchCrMemoHdrNo, false);
+        PurchPost.OnAfterPostPurchaseDoc(Rec, GenJnlPostLine, PurchRcpHdrNo, RetShptHdrNo, PurchInvHdrNo, PurchCrMemoHdrNo, false, false);
     end;
 
     /// <summary>
diff --git a/src/Layers/ES/BaseApp/Purchases/Posting/PurchPost.Codeunit.al b/src/Layers/ES/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
index fdce3002eb9..4bbf031b7a7 100644
--- a/src/Layers/ES/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
+++ b/src/Layers/ES/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
@@ -174,7 +174,7 @@ codeunit 90 "Purch.-Post"
 
         OnAfterPostPurchaseDoc(
           PurchaseHeader2, GenJnlPostLine, PurchRcptHeader."No.", ReturnShptHeader."No.", PurchInvHeader."No.", PurchCrMemoHeader."No.",
-          SuppressCommit);
+          SuppressCommit, PreviewMode);
 
         OnAfterPostPurchaseDocDropShipment(SalesShptHeader."No.", SuppressCommit, PreviewMode);
     end;
@@ -307,7 +307,7 @@ codeunit 90 "Purch.-Post"
 
         OnAfterProcessPurchLines(
           PurchHeader, PurchRcptHeader, PurchInvHeader, PurchCrMemoHeader, ReturnShptHeader,
-          WhseShip, WhseReceive, PurchaseLinesProcessed, SuppressCommit, EverythingInvoiced);
+          WhseShip, WhseReceive, PurchaseLinesProcessed, SuppressCommit, EverythingInvoiced, PreviewMode);
 
         ErrorMessageMgt.PopContext(ErrorContextElementProcessLines);
         ErrorMessageMgt.Finish(ZeroPurchLineRecID);
@@ -9278,7 +9278,7 @@ codeunit 90 "Purch.-Post"
     end;
 
     [IntegrationEvent(false, false)]
-    procedure OnAfterPostPurchaseDoc(var PurchaseHeader: Record "Purchase Header"; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line"; PurchRcpHdrNo: Code[20]; RetShptHdrNo: Code[20]; PurchInvHdrNo: Code[20]; PurchCrMemoHdrNo: Code[20]; CommitIsSupressed: Boolean)
+    procedure OnAfterPostPurchaseDoc(var PurchaseHeader: Record "Purchase Header"; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line"; PurchRcpHdrNo: Code[20]; RetShptHdrNo: Code[20]; PurchInvHdrNo: Code[20]; PurchCrMemoHdrNo: Code[20]; CommitIsSupressed: Boolean; PreviewMode: Boolean)
     begin
     end;
 
@@ -9492,7 +9492,7 @@ codeunit 90 "Purch.-Post"
     end;
 
     [IntegrationEvent(false, false)]
-    local procedure OnAfterProcessPurchLines(var PurchHeader: Record "Purchase Header"; var PurchRcptHeader: Record "Purch. Rcpt. Header"; var PurchInvHeader: Record "Purch. Inv. Header"; var PurchCrMemoHdr: Record "Purch. Cr. Memo Hdr."; var ReturnShipmentHeader: Record "Return Shipment Header"; WhseShip: Boolean; WhseReceive: Boolean; var PurchLinesProcessed: Boolean; CommitIsSuppressed: Boolean; EverythingInvoiced: Boolean)
+    local procedure OnAfterProcessPurchLines(var PurchHeader: Record "Purchase Header"; var PurchRcptHeader: Record "Purch. Rcpt. Header"; var PurchInvHeader: Record "Purch. Inv. Header"; var PurchCrMemoHdr: Record "Purch. Cr. Memo Hdr."; var ReturnShipmentHeader: Record "Return Shipment Header"; WhseShip: Boolean; WhseReceive: Boolean; var PurchLinesProcessed: Boolean; CommitIsSuppressed: Boolean; EverythingInvoiced: Boolean; PreviewMode: Boolean)
     begin
     end;
 
diff --git a/src/Layers/FI/BaseApp/Purchases/Document/PurchaseHeader.Table.al b/src/Layers/FI/BaseApp/Purchases/Document/PurchaseHeader.Table.al
index 4e71d280a38..e370343eb91 100644
--- a/src/Layers/FI/BaseApp/Purchases/Document/PurchaseHeader.Table.al
+++ b/src/Layers/FI/BaseApp/Purchases/Document/PurchaseHeader.Table.al
@@ -5823,7 +5823,7 @@ table 38 "Purchase Header"
     var
         PurchPost: Codeunit "Purch.-Post";
     begin
-        PurchPost.OnAfterPostPurchaseDoc(Rec, GenJnlPostLine, PurchRcpHdrNo, RetShptHdrNo, PurchInvHdrNo, PurchCrMemoHdrNo, false);
+        PurchPost.OnAfterPostPurchaseDoc(Rec, GenJnlPostLine, PurchRcpHdrNo, RetShptHdrNo, PurchInvHdrNo, PurchCrMemoHdrNo, false, false);
     end;
 
     /// <summary>
diff --git a/src/Layers/FI/BaseApp/Purchases/Posting/PurchPost.Codeunit.al b/src/Layers/FI/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
index 9869df5218e..ce3d86e0af5 100644
--- a/src/Layers/FI/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
+++ b/src/Layers/FI/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
@@ -171,7 +171,7 @@ codeunit 90 "Purch.-Post"
 
         OnAfterPostPurchaseDoc(
           PurchaseHeader2, GenJnlPostLine, PurchRcptHeader."No.", ReturnShptHeader."No.", PurchInvHeader."No.", PurchCrMemoHeader."No.",
-          SuppressCommit);
+          SuppressCommit, PreviewMode);
 
         OnAfterPostPurchaseDocDropShipment(SalesShptHeader."No.", SuppressCommit, PreviewMode);
     end;
@@ -302,7 +302,7 @@ codeunit 90 "Purch.-Post"
 
         OnAfterProcessPurchLines(
           PurchHeader, PurchRcptHeader, PurchInvHeader, PurchCrMemoHeader, ReturnShptHeader,
-          WhseShip, WhseReceive, PurchaseLinesProcessed, SuppressCommit, EverythingInvoiced);
+          WhseShip, WhseReceive, PurchaseLinesProcessed, SuppressCommit, EverythingInvoiced, PreviewMode);
 
         ErrorMessageMgt.PopContext(ErrorContextElementProcessLines);
         ErrorMessageMgt.Finish(ZeroPurchLineRecID);
@@ -9078,7 +9078,7 @@ codeunit 90 "Purch.-Post"
     end;
 
     [IntegrationEvent(false, false)]
-    procedure OnAfterPostPurchaseDoc(var PurchaseHeader: Record "Purchase Header"; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line"; PurchRcpHdrNo: Code[20]; RetShptHdrNo: Code[20]; PurchInvHdrNo: Code[20]; PurchCrMemoHdrNo: Code[20]; CommitIsSupressed: Boolean)
+    procedure OnAfterPostPurchaseDoc(var PurchaseHeader: Record "Purchase Header"; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line"; PurchRcpHdrNo: Code[20]; RetShptHdrNo: Code[20]; PurchInvHdrNo: Code[20]; PurchCrMemoHdrNo: Code[20]; CommitIsSupressed: Boolean; PreviewMode: Boolean)
     begin
     end;
 
@@ -9292,7 +9292,7 @@ codeunit 90 "Purch.-Post"
     end;
 
     [IntegrationEvent(false, false)]
-    local procedure OnAfterProcessPurchLines(var PurchHeader: Record "Purchase Header"; var PurchRcptHeader: Record "Purch. Rcpt. Header"; var PurchInvHeader: Record "Purch. Inv. Header"; var PurchCrMemoHdr: Record "Purch. Cr. Memo Hdr."; var ReturnShipmentHeader: Record "Return Shipment Header"; WhseShip: Boolean; WhseReceive: Boolean; var PurchLinesProcessed: Boolean; CommitIsSuppressed: Boolean; EverythingInvoiced: Boolean)
+    local procedure OnAfterProcessPurchLines(var PurchHeader: Record "Purchase Header"; var PurchRcptHeader: Record "Purch. Rcpt. Header"; var PurchInvHeader: Record "Purch. Inv. Header"; var PurchCrMemoHdr: Record "Purch. Cr. Memo Hdr."; var ReturnShipmentHeader: Record "Return Shipment Header"; WhseShip: Boolean; WhseReceive: Boolean; var PurchLinesProcessed: Boolean; CommitIsSuppressed: Boolean; EverythingInvoiced: Boolean; PreviewMode: Boolean)
     begin
     end;
 
diff --git a/src/Layers/GB/BaseApp/Purchases/Document/PurchaseHeader.Table.al b/src/Layers/GB/BaseApp/Purchases/Document/PurchaseHeader.Table.al
index 27826469b1e..c2b13847912 100644
--- a/src/Layers/GB/BaseApp/Purchases/Document/PurchaseHeader.Table.al
+++ b/src/Layers/GB/BaseApp/Purchases/Document/PurchaseHeader.Table.al
@@ -5782,7 +5782,7 @@ table 38 "Purchase Header"
     var
         PurchPost: Codeunit "Purch.-Post";
     begin
-        PurchPost.OnAfterPostPurchaseDoc(Rec, GenJnlPostLine, PurchRcpHdrNo, RetShptHdrNo, PurchInvHdrNo, PurchCrMemoHdrNo, false);
+        PurchPost.OnAfterPostPurchaseDoc(Rec, GenJnlPostLine, PurchRcpHdrNo, RetShptHdrNo, PurchInvHdrNo, PurchCrMemoHdrNo, false, false);
     end;
 
     /// <summary>
diff --git a/src/Layers/GB/BaseApp/Purchases/Posting/PurchPost.Codeunit.al b/src/Layers/GB/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
index e3986e50431..c00c31dece2 100644
--- a/src/Layers/GB/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
+++ b/src/Layers/GB/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
@@ -175,7 +175,7 @@ codeunit 90 "Purch.-Post"
 
         OnAfterPostPurchaseDoc(
           PurchaseHeader2, GenJnlPostLine, PurchRcptHeader."No.", ReturnShptHeader."No.", PurchInvHeader."No.", PurchCrMemoHeader."No.",
-          SuppressCommit);
+          SuppressCommit, PreviewMode);
 
         OnAfterPostPurchaseDocDropShipment(SalesShptHeader."No.", SuppressCommit, PreviewMode);
     end;
@@ -306,7 +306,7 @@ codeunit 90 "Purch.-Post"
 
         OnAfterProcessPurchLines(
           PurchHeader, PurchRcptHeader, PurchInvHeader, PurchCrMemoHeader, ReturnShptHeader,
-          WhseShip, WhseReceive, PurchaseLinesProcessed, SuppressCommit, EverythingInvoiced);
+          WhseShip, WhseReceive, PurchaseLinesProcessed, SuppressCommit, EverythingInvoiced, PreviewMode);
 
         ErrorMessageMgt.PopContext(ErrorContextElementProcessLines);
         ErrorMessageMgt.Finish(ZeroPurchLineRecID);
@@ -9105,7 +9105,7 @@ codeunit 90 "Purch.-Post"
     end;
 
     [IntegrationEvent(false, false)]
-    procedure OnAfterPostPurchaseDoc(var PurchaseHeader: Record "Purchase Header"; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line"; PurchRcpHdrNo: Code[20]; RetShptHdrNo: Code[20]; PurchInvHdrNo: Code[20]; PurchCrMemoHdrNo: Code[20]; CommitIsSupressed: Boolean)
+    procedure OnAfterPostPurchaseDoc(var PurchaseHeader: Record "Purchase Header"; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line"; PurchRcpHdrNo: Code[20]; RetShptHdrNo: Code[20]; PurchInvHdrNo: Code[20]; PurchCrMemoHdrNo: Code[20]; CommitIsSupressed: Boolean; PreviewMode: Boolean)
     begin
     end;
 
@@ -9319,7 +9319,7 @@ codeunit 90 "Purch.-Post"
     end;
 
     [IntegrationEvent(false, false)]
-    local procedure OnAfterProcessPurchLines(var PurchHeader: Record "Purchase Header"; var PurchRcptHeader: Record "Purch. Rcpt. Header"; var PurchInvHeader: Record "Purch. Inv. Header"; var PurchCrMemoHdr: Record "Purch. Cr. Memo Hdr."; var ReturnShipmentHeader: Record "Return Shipment Header"; WhseShip: Boolean; WhseReceive: Boolean; var PurchLinesProcessed: Boolean; CommitIsSuppressed: Boolean; EverythingInvoiced: Boolean)
+    local procedure OnAfterProcessPurchLines(var PurchHeader: Record "Purchase Header"; var PurchRcptHeader: Record "Purch. Rcpt. Header"; var PurchInvHeader: Record "Purch. Inv. Header"; var PurchCrMemoHdr: Record "Purch. Cr. Memo Hdr."; var ReturnShipmentHeader: Record "Return Shipment Header"; WhseShip: Boolean; WhseReceive: Boolean; var PurchLinesProcessed: Boolean; CommitIsSuppressed: Boolean; EverythingInvoiced: Boolean; PreviewMode: Boolean)
     begin
     end;
 
diff --git a/src/Layers/IT/BaseApp/Purchases/Document/PurchaseHeader.Table.al b/src/Layers/IT/BaseApp/Purchases/Document/PurchaseHeader.Table.al
index 382afe5935b..9d837708128 100644
--- a/src/Layers/IT/BaseApp/Purchases/Document/PurchaseHeader.Table.al
+++ b/src/Layers/IT/BaseApp/Purchases/Document/PurchaseHeader.Table.al
@@ -6392,7 +6392,7 @@ table 38 "Purchase Header"
     var
         PurchPost: Codeunit "Purch.-Post";
     begin
-        PurchPost.OnAfterPostPurchaseDoc(Rec, GenJnlPostLine, PurchRcpHdrNo, RetShptHdrNo, PurchInvHdrNo, PurchCrMemoHdrNo, false);
+        PurchPost.OnAfterPostPurchaseDoc(Rec, GenJnlPostLine, PurchRcpHdrNo, RetShptHdrNo, PurchInvHdrNo, PurchCrMemoHdrNo, false, false);
     end;
 
     /// <summary>
diff --git a/src/Layers/IT/BaseApp/Purchases/Posting/PurchPost.Codeunit.al b/src/Layers/IT/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
index d6a188d9626..43e8b098707 100644
--- a/src/Layers/IT/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
+++ b/src/Layers/IT/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
@@ -178,7 +178,7 @@ codeunit 90 "Purch.-Post"
 
         OnAfterPostPurchaseDoc(
           PurchaseHeader2, GenJnlPostLine, PurchRcptHeader."No.", ReturnShptHeader."No.", PurchInvHeader."No.", PurchCrMemoHeader."No.",
-          SuppressCommit);
+          SuppressCommit, PreviewMode);
 
         OnAfterPostPurchaseDocDropShipment(SalesShptHeader."No.", SuppressCommit, PreviewMode);
     end;
@@ -309,7 +309,7 @@ codeunit 90 "Purch.-Post"
 
         OnAfterProcessPurchLines(
           PurchHeader, PurchRcptHeader, PurchInvHeader, PurchCrMemoHeader, ReturnShptHeader,
-          WhseShip, WhseReceive, PurchaseLinesProcessed, SuppressCommit, EverythingInvoiced);
+          WhseShip, WhseReceive, PurchaseLinesProcessed, SuppressCommit, EverythingInvoiced, PreviewMode);
 
         ErrorMessageMgt.PopContext(ErrorContextElementProcessLines);
         ErrorMessageMgt.Finish(ZeroPurchLineRecID);
@@ -9448,7 +9448,7 @@ codeunit 90 "Purch.-Post"
     end;
 
     [IntegrationEvent(false, false)]
-    procedure OnAfterPostPurchaseDoc(var PurchaseHeader: Record "Purchase Header"; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line"; PurchRcpHdrNo: Code[20]; RetShptHdrNo: Code[20]; PurchInvHdrNo: Code[20]; PurchCrMemoHdrNo: Code[20]; CommitIsSupressed: Boolean)
+    procedure OnAfterPostPurchaseDoc(var PurchaseHeader: Record "Purchase Header"; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line"; PurchRcpHdrNo: Code[20]; RetShptHdrNo: Code[20]; PurchInvHdrNo: Code[20]; PurchCrMemoHdrNo: Code[20]; CommitIsSupressed: Boolean; PreviewMode: Boolean)
     begin
     end;
 
@@ -9674,7 +9674,7 @@ codeunit 90 "Purch.-Post"
     end;
 
     [IntegrationEvent(false, false)]
-    local procedure OnAfterProcessPurchLines(var PurchHeader: Record "Purchase Header"; var PurchRcptHeader: Record "Purch. Rcpt. Header"; var PurchInvHeader: Record "Purch. Inv. Header"; var PurchCrMemoHdr: Record "Purch. Cr. Memo Hdr."; var ReturnShipmentHeader: Record "Return Shipment Header"; WhseShip: Boolean; WhseReceive: Boolean; var PurchLinesProcessed: Boolean; CommitIsSuppressed: Boolean; EverythingInvoiced: Boolean)
+    local procedure OnAfterProcessPurchLines(var PurchHeader: Record "Purchase Header"; var PurchRcptHeader: Record "Purch. Rcpt. Header"; var PurchInvHeader: Record "Purch. Inv. Header"; var PurchCrMemoHdr: Record "Purch. Cr. Memo Hdr."; var ReturnShipmentHeader: Record "Return Shipment Header"; WhseShip: Boolean; WhseReceive: Boolean; var PurchLinesProcessed: Boolean; CommitIsSuppressed: Boolean; EverythingInvoiced: Boolean; PreviewMode: Boolean)
     begin
     end;
 
diff --git a/src/Layers/NA/BaseApp/Purchases/Document/PurchaseHeader.Table.al b/src/Layers/NA/BaseApp/Purchases/Document/PurchaseHeader.Table.al
index 881017a4e08..5b258f65a97 100644
--- a/src/Layers/NA/BaseApp/Purchases/Document/PurchaseHeader.Table.al
+++ b/src/Layers/NA/BaseApp/Purchases/Document/PurchaseHeader.Table.al
@@ -5961,7 +5961,7 @@ table 38 "Purchase Header"
     var
         PurchPost: Codeunit "Purch.-Post";
     begin
-        PurchPost.OnAfterPostPurchaseDoc(Rec, GenJnlPostLine, PurchRcpHdrNo, RetShptHdrNo, PurchInvHdrNo, PurchCrMemoHdrNo, false);
+        PurchPost.OnAfterPostPurchaseDoc(Rec, GenJnlPostLine, PurchRcpHdrNo, RetShptHdrNo, PurchInvHdrNo, PurchCrMemoHdrNo, false, false);
     end;
 
     /// <summary>
diff --git a/src/Layers/NA/BaseApp/Purchases/Posting/PurchPost.Codeunit.al b/src/Layers/NA/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
index b6466186ab7..7f7c23bf7d8 100644
--- a/src/Layers/NA/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
+++ b/src/Layers/NA/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
@@ -171,7 +171,7 @@ codeunit 90 "Purch.-Post"
 
         OnAfterPostPurchaseDoc(
           PurchaseHeader2, GenJnlPostLine, PurchRcptHeader."No.", ReturnShptHeader."No.", PurchInvHeader."No.", PurchCrMemoHeader."No.",
-          SuppressCommit);
+          SuppressCommit, PreviewMode);
 
         OnAfterPostPurchaseDocDropShipment(SalesShptHeader."No.", SuppressCommit, PreviewMode);
     end;
@@ -323,7 +323,7 @@ codeunit 90 "Purch.-Post"
 
         OnAfterProcessPurchLines(
           PurchHeader, PurchRcptHeader, PurchInvHeader, PurchCrMemoHeader, ReturnShptHeader,
-          WhseShip, WhseReceive, PurchaseLinesProcessed, SuppressCommit, EverythingInvoiced);
+          WhseShip, WhseReceive, PurchaseLinesProcessed, SuppressCommit, EverythingInvoiced, PreviewMode);
 
         ErrorMessageMgt.PopContext(ErrorContextElementProcessLines);
         ErrorMessageMgt.Finish(ZeroPurchLineRecID);
@@ -9815,7 +9815,7 @@ codeunit 90 "Purch.-Post"
     end;
 
     [IntegrationEvent(false, false)]
-    procedure OnAfterPostPurchaseDoc(var PurchaseHeader: Record "Purchase Header"; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line"; PurchRcpHdrNo: Code[20]; RetShptHdrNo: Code[20]; PurchInvHdrNo: Code[20]; PurchCrMemoHdrNo: Code[20]; CommitIsSupressed: Boolean)
+    procedure OnAfterPostPurchaseDoc(var PurchaseHeader: Record "Purchase Header"; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line"; PurchRcpHdrNo: Code[20]; RetShptHdrNo: Code[20]; PurchInvHdrNo: Code[20]; PurchCrMemoHdrNo: Code[20]; CommitIsSupressed: Boolean; PreviewMode: Boolean)
     begin
     end;
 
@@ -10029,7 +10029,7 @@ codeunit 90 "Purch.-Post"
     end;
 
     [IntegrationEvent(false, false)]
-    local procedure OnAfterProcessPurchLines(var PurchHeader: Record "Purchase Header"; var PurchRcptHeader: Record "Purch. Rcpt. Header"; var PurchInvHeader: Record "Purch. Inv. Header"; var PurchCrMemoHdr: Record "Purch. Cr. Memo Hdr."; var ReturnShipmentHeader: Record "Return Shipment Header"; WhseShip: Boolean; WhseReceive: Boolean; var PurchLinesProcessed: Boolean; CommitIsSuppressed: Boolean; EverythingInvoiced: Boolean)
+    local procedure OnAfterProcessPurchLines(var PurchHeader: Record "Purchase Header"; var PurchRcptHeader: Record "Purch. Rcpt. Header"; var PurchInvHeader: Record "Purch. Inv. Header"; var PurchCrMemoHdr: Record "Purch. Cr. Memo Hdr."; var ReturnShipmentHeader: Record "Return Shipment Header"; WhseShip: Boolean; WhseReceive: Boolean; var PurchLinesProcessed: Boolean; CommitIsSuppressed: Boolean; EverythingInvoiced: Boolean; PreviewMode: Boolean)
     begin
     end;
 
diff --git a/src/Layers/NL/BaseApp/Purchases/Document/PurchaseHeader.Table.al b/src/Layers/NL/BaseApp/Purchases/Document/PurchaseHeader.Table.al
index e929356f4bd..8bb8ffb4ebb 100644
--- a/src/Layers/NL/BaseApp/Purchases/Document/PurchaseHeader.Table.al
+++ b/src/Layers/NL/BaseApp/Purchases/Document/PurchaseHeader.Table.al
@@ -5801,7 +5801,7 @@ table 38 "Purchase Header"
     var
         PurchPost: Codeunit "Purch.-Post";
     begin
-        PurchPost.OnAfterPostPurchaseDoc(Rec, GenJnlPostLine, PurchRcpHdrNo, RetShptHdrNo, PurchInvHdrNo, PurchCrMemoHdrNo, false);
+        PurchPost.OnAfterPostPurchaseDoc(Rec, GenJnlPostLine, PurchRcpHdrNo, RetShptHdrNo, PurchInvHdrNo, PurchCrMemoHdrNo, false, false);
     end;
 
     /// <summary>
diff --git a/src/Layers/NO/BaseApp/Purchases/Document/PurchaseHeader.Table.al b/src/Layers/NO/BaseApp/Purchases/Document/PurchaseHeader.Table.al
index 74950023c96..2b2d6a1c5de 100644
--- a/src/Layers/NO/BaseApp/Purchases/Document/PurchaseHeader.Table.al
+++ b/src/Layers/NO/BaseApp/Purchases/Document/PurchaseHeader.Table.al
@@ -5806,7 +5806,7 @@ table 38 "Purchase Header"
     var
         PurchPost: Codeunit "Purch.-Post";
     begin
-        PurchPost.OnAfterPostPurchaseDoc(Rec, GenJnlPostLine, PurchRcpHdrNo, RetShptHdrNo, PurchInvHdrNo, PurchCrMemoHdrNo, false);
+        PurchPost.OnAfterPostPurchaseDoc(Rec, GenJnlPostLine, PurchRcpHdrNo, RetShptHdrNo, PurchInvHdrNo, PurchCrMemoHdrNo, false, false);
     end;
 
     /// <summary>
diff --git a/src/Layers/RU/BaseApp/Purchases/Document/PurchaseHeader.Table.al b/src/Layers/RU/BaseApp/Purchases/Document/PurchaseHeader.Table.al
index 9fb94d0b08b..4642f5e20c7 100644
--- a/src/Layers/RU/BaseApp/Purchases/Document/PurchaseHeader.Table.al
+++ b/src/Layers/RU/BaseApp/Purchases/Document/PurchaseHeader.Table.al
@@ -6430,7 +6430,7 @@ table 38 "Purchase Header"
     var
         PurchPost: Codeunit "Purch.-Post";
     begin
-        PurchPost.OnAfterPostPurchaseDoc(Rec, GenJnlPostLine, PurchRcpHdrNo, RetShptHdrNo, PurchInvHdrNo, PurchCrMemoHdrNo, false);
+        PurchPost.OnAfterPostPurchaseDoc(Rec, GenJnlPostLine, PurchRcpHdrNo, RetShptHdrNo, PurchInvHdrNo, PurchCrMemoHdrNo, false, false);
     end;
 
     /// <summary>
diff --git a/src/Layers/RU/BaseApp/Purchases/Posting/PurchPost.Codeunit.al b/src/Layers/RU/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
index 3bbb87f2ccd..600fb092d19 100644
--- a/src/Layers/RU/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
+++ b/src/Layers/RU/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
@@ -175,7 +175,7 @@ codeunit 90 "Purch.-Post"
 
         OnAfterPostPurchaseDoc(
           PurchaseHeader2, GenJnlPostLine, PurchRcptHeader."No.", ReturnShptHeader."No.", PurchInvHeader."No.", PurchCrMemoHeader."No.",
-          SuppressCommit);
+          SuppressCommit, PreviewMode);
 
         OnAfterPostPurchaseDocDropShipment(SalesShptHeader."No.", SuppressCommit, PreviewMode);
     end;
@@ -311,7 +311,7 @@ codeunit 90 "Purch.-Post"
 
         OnAfterProcessPurchLines(
           PurchHeader, PurchRcptHeader, PurchInvHeader, PurchCrMemoHeader, ReturnShptHeader,
-          WhseShip, WhseReceive, PurchaseLinesProcessed, SuppressCommit, EverythingInvoiced);
+          WhseShip, WhseReceive, PurchaseLinesProcessed, SuppressCommit, EverythingInvoiced, PreviewMode);
 
         ErrorMessageMgt.PopContext(ErrorContextElementProcessLines);
         ErrorMessageMgt.Finish(ZeroPurchLineRecID);
@@ -9851,7 +9851,7 @@ codeunit 90 "Purch.-Post"
     end;
 
     [IntegrationEvent(false, false)]
-    procedure OnAfterPostPurchaseDoc(var PurchaseHeader: Record "Purchase Header"; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line"; PurchRcpHdrNo: Code[20]; RetShptHdrNo: Code[20]; PurchInvHdrNo: Code[20]; PurchCrMemoHdrNo: Code[20]; CommitIsSupressed: Boolean)
+    procedure OnAfterPostPurchaseDoc(var PurchaseHeader: Record "Purchase Header"; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line"; PurchRcpHdrNo: Code[20]; RetShptHdrNo: Code[20]; PurchInvHdrNo: Code[20]; PurchCrMemoHdrNo: Code[20]; CommitIsSupressed: Boolean; PreviewMode: Boolean)
     begin
     end;
 
@@ -10065,7 +10065,7 @@ codeunit 90 "Purch.-Post"
     end;
 
     [IntegrationEvent(false, false)]
-    local procedure OnAfterProcessPurchLines(var PurchHeader: Record "Purchase Header"; var PurchRcptHeader: Record "Purch. Rcpt. Header"; var PurchInvHeader: Record "Purch. Inv. Header"; var PurchCrMemoHdr: Record "Purch. Cr. Memo Hdr."; var ReturnShipmentHeader: Record "Return Shipment Header"; WhseShip: Boolean; WhseReceive: Boolean; var PurchLinesProcessed: Boolean; CommitIsSuppressed: Boolean; EverythingInvoiced: Boolean)
+    local procedure OnAfterProcessPurchLines(var PurchHeader: Record "Purchase Header"; var PurchRcptHeader: Record "Purch. Rcpt. Header"; var PurchInvHeader: Record "Purch. Inv. Header"; var PurchCrMemoHdr: Record "Purch. Cr. Memo Hdr."; var ReturnShipmentHeader: Record "Return Shipment Header"; WhseShip: Boolean; WhseReceive: Boolean; var PurchLinesProcessed: Boolean; CommitIsSuppressed: Boolean; EverythingInvoiced: Boolean; PreviewMode: Boolean)
     begin
     end;
 
diff --git a/src/Layers/SE/BaseApp/Purchases/Document/PurchaseHeader.Table.al b/src/Layers/SE/BaseApp/Purchases/Document/PurchaseHeader.Table.al
index 0e3d0b92751..b5c96f153d3 100644
--- a/src/Layers/SE/BaseApp/Purchases/Document/PurchaseHeader.Table.al
+++ b/src/Layers/SE/BaseApp/Purchases/Document/PurchaseHeader.Table.al
@@ -5783,7 +5783,7 @@ table 38 "Purchase Header"
     var
         PurchPost: Codeunit "Purch.-Post";
     begin
-        PurchPost.OnAfterPostPurchaseDoc(Rec, GenJnlPostLine, PurchRcpHdrNo, RetShptHdrNo, PurchInvHdrNo, PurchCrMemoHdrNo, false);
+        PurchPost.OnAfterPostPurchaseDoc(Rec, GenJnlPostLine, PurchRcpHdrNo, RetShptHdrNo, PurchInvHdrNo, PurchCrMemoHdrNo, false, false);
     end;
 
     /// <summary>
diff --git a/src/Layers/W1/BaseApp/Purchases/Document/PurchaseHeader.Table.al b/src/Layers/W1/BaseApp/Purchases/Document/PurchaseHeader.Table.al
index 72764b30dfa..c0b7a56dd1f 100644
--- a/src/Layers/W1/BaseApp/Purchases/Document/PurchaseHeader.Table.al
+++ b/src/Layers/W1/BaseApp/Purchases/Document/PurchaseHeader.Table.al
@@ -5774,7 +5774,7 @@ table 38 "Purchase Header"
     var
         PurchPost: Codeunit "Purch.-Post";
     begin
-        PurchPost.OnAfterPostPurchaseDoc(Rec, GenJnlPostLine, PurchRcpHdrNo, RetShptHdrNo, PurchInvHdrNo, PurchCrMemoHdrNo, false);
+        PurchPost.OnAfterPostPurchaseDoc(Rec, GenJnlPostLine, PurchRcpHdrNo, RetShptHdrNo, PurchInvHdrNo, PurchCrMemoHdrNo, false, false);
     end;
 
     /// <summary>
diff --git a/src/Layers/W1/BaseApp/Purchases/Posting/PurchPost.Codeunit.al b/src/Layers/W1/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
index ef2ef4c647a..16f1c7f127d 100644
--- a/src/Layers/W1/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
+++ b/src/Layers/W1/BaseApp/Purchases/Posting/PurchPost.Codeunit.al
@@ -171,7 +171,7 @@ codeunit 90 "Purch.-Post"
 
         OnAfterPostPurchaseDoc(
           PurchaseHeader2, GenJnlPostLine, PurchRcptHeader."No.", ReturnShptHeader."No.", PurchInvHeader."No.", PurchCrMemoHeader."No.",
-          SuppressCommit);
+          SuppressCommit, PreviewMode);
 
         OnAfterPostPurchaseDocDropShipment(SalesShptHeader."No.", SuppressCommit, PreviewMode);
     end;
@@ -299,7 +299,7 @@ codeunit 90 "Purch.-Post"
 
         OnAfterProcessPurchLines(
           PurchHeader, PurchRcptHeader, PurchInvHeader, PurchCrMemoHeader, ReturnShptHeader,
-          WhseShip, WhseReceive, PurchaseLinesProcessed, SuppressCommit, EverythingInvoiced);
+          WhseShip, WhseReceive, PurchaseLinesProcessed, SuppressCommit, EverythingInvoiced, PreviewMode);
 
         ErrorMessageMgt.PopContext(ErrorContextElementProcessLines);
         ErrorMessageMgt.Finish(ZeroPurchLineRecID);
@@ -9072,7 +9072,7 @@ codeunit 90 "Purch.-Post"
     end;
 
     [IntegrationEvent(false, false)]
-    procedure OnAfterPostPurchaseDoc(var PurchaseHeader: Record "Purchase Header"; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line"; PurchRcpHdrNo: Code[20]; RetShptHdrNo: Code[20]; PurchInvHdrNo: Code[20]; PurchCrMemoHdrNo: Code[20]; CommitIsSupressed: Boolean)
+    procedure OnAfterPostPurchaseDoc(var PurchaseHeader: Record "Purchase Header"; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line"; PurchRcpHdrNo: Code[20]; RetShptHdrNo: Code[20]; PurchInvHdrNo: Code[20]; PurchCrMemoHdrNo: Code[20]; CommitIsSupressed: Boolean; PreviewMode: Boolean)
     begin
     end;
 
@@ -9286,7 +9286,7 @@ codeunit 90 "Purch.-Post"
     end;
 
     [IntegrationEvent(false, false)]
-    local procedure OnAfterProcessPurchLines(var PurchHeader: Record "Purchase Header"; var PurchRcptHeader: Record "Purch. Rcpt. Header"; var PurchInvHeader: Record "Purch. Inv. Header"; var PurchCrMemoHdr: Record "Purch. Cr. Memo Hdr."; var ReturnShipmentHeader: Record "Return Shipment Header"; WhseShip: Boolean; WhseReceive: Boolean; var PurchLinesProcessed: Boolean; CommitIsSuppressed: Boolean; EverythingInvoiced: Boolean)
+    local procedure OnAfterProcessPurchLines(var PurchHeader: Record "Purchase Header"; var PurchRcptHeader: Record "Purch. Rcpt. Header"; var PurchInvHeader: Record "Purch. Inv. Header"; var PurchCrMemoHdr: Record "Purch. Cr. Memo Hdr."; var ReturnShipmentHeader: Record "Return Shipment Header"; WhseShip: Boolean; WhseReceive: Boolean; var PurchLinesProcessed: Boolean; CommitIsSuppressed: Boolean; EverythingInvoiced: Boolean; PreviewMode: Boolean)
     begin
     end;