[EventSubscriber(ObjectType::Codeunit, Codeunit::"Sales-Post", OnBeforeFinalizePosting, '', false, false)]local procedure KeepSalesOrdersAfterInvoiced(var EverythingInvoiced: Boolean)varSalesSetup: Record "Sales & Receivables Setup";beginSalesSetup.FindFirst();if SalesSetup.AllowStatusStayOpen then beginEverythingInvoiced := false;end;end;[EventSubscriber(ObjectType::Codeunit, Codeunit::"Sales-Post", OnAfterFinalizePosting, '', false, false)]local procedure SetStatusBackToOpen(var SalesHeader: Record "Sales Header")varSalesSetup: Record "Sales & Receivables Setup";beginSalesSetup.FindFirst();if SalesSetup.AllowStatusStayOpen then beginSalesHeader.Status := SalesHeader.Status::Open;SalesHeader.Modify();end;end;
Valentin Castravet
Work: Zander ERP Services
Blog: Dynamics 365 Business Central Insights
LinkedIn: www.linkedin.com/in/valentin-c-0500a247/
André Arnaud de Cal...
292,160
Super User 2025 Season 1
Martin Dráb
230,962
Most Valuable Professional
nmaenpaa
101,156