Microsoft/bcquality
1
0
Fork 0
mirror of https://github.com/microsoft/BCQuality.git synced 2026-08-06 17:36:53 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Transaction and error handling in BC AL - new knowledge articles

Browse source
This commit is contained in:
Volodymyr Dvernytskyi 2026-04-23 20:58:02 +03:00
parent 7dd3f4777d
commit 4ce7d816cc
19 changed files with 415 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

27
microsoft/knowledge/performance/codeunit-run-requires-prior-commit-inside-transaction.bad.al Normal file
View file

@ -0,0 +1,27 @@
codeunit 50147 "Perf Sample OpenTxnRun Bad"
{
procedure ApplyDiscountToSelection(var Customer: Record Customer)
var
ApplyOne: Codeunit "Perf Sample OpenTxnRun Apply";
RunLog: Record "Custom Run Log";
begin
if Customer.FindSet() then
repeat
RunLog.Init();
RunLog."Customer No." := Customer."No.";
RunLog.Insert();
if not ApplyOne.Run(Customer) then;
until Customer.Next() = 0;
end;
}
codeunit 50148 "Perf Sample OpenTxnRun Apply"
{
TableNo = Customer;
trigger OnRun()
begin
Rec.Validate("Customer Price Group", 'VIP');
Rec.Modify(true);
end;
}