mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-05 14:46:55 +01:00
1e5d901bd4
"AL methods limited during write transactions: commit before RunModal and Codeunit.Run" - so a developer or agent searching for the runtime error text lands on the one article that covers all four restricted methods. Slug and sample stems renamed to match; keywords gain the error's own phrase and the legacy Form.RunModal name it still uses. Co-Authored-By: Claude Fable 5.1 <noreply@anthropic.com>
18 lines
715 B
AL
18 lines
715 B
AL
codeunit 50259 "Perf Sample RunModalInTxn Good"
|
|
{
|
|
procedure ChangeShippingAgent(DocNo: Code[20])
|
|
var
|
|
SalesHeader: Record "Sales Header";
|
|
ShippingAgent: Record "Shipping Agent";
|
|
begin
|
|
// User interaction first, while no write transaction is open.
|
|
if Page.RunModal(Page::"Shipping Agents", ShippingAgent) <> Action::LookupOK then
|
|
exit;
|
|
|
|
// All writes after the choice is made; the transaction ends with the trigger.
|
|
SalesHeader.Get(SalesHeader."Document Type"::Order, DocNo);
|
|
SalesHeader."Shipment Date" := WorkDate();
|
|
SalesHeader.Validate("Shipping Agent Code", ShippingAgent.Code);
|
|
SalesHeader.Modify(true);
|
|
end;
|
|
}
|