mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-08-07 01:46:53 +01:00
Transaction and error handling in BC AL - new knowledge articles
This commit is contained in:
parent
7dd3f4777d
commit
4ce7d816cc
19 changed files with 415 additions and 10 deletions
|
|
@ -0,0 +1,12 @@
|
|||
codeunit 50144 "Perf Sample AtomicSub Bad"
|
||||
{
|
||||
procedure ApplyDiscountToSelection(var Customer: Record Customer)
|
||||
begin
|
||||
if Customer.FindSet(true) then
|
||||
repeat
|
||||
Customer."Customer Price Group" := 'VIP';
|
||||
Customer.Modify(true);
|
||||
Commit();
|
||||
until Customer.Next() = 0;
|
||||
end;
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue