mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-08-08 02:16:52 +01:00
Add lifecycle error and privacy knowledge
Co-authored-by: Copilot App <223556219+Copilot@users.noreply.github.com> Copilot-Session: 95c06ad8-377d-4faa-8d07-06300b1c81ec
This commit is contained in:
parent
9214f73819
commit
0c2a0ceb82
25 changed files with 457 additions and 37 deletions
|
|
@ -4,10 +4,21 @@ codeunit 50235 "Upgrade With Validation"
|
|||
|
||||
trigger OnValidateUpgradePerCompany()
|
||||
begin
|
||||
// No skip logic and no written justification — full-table validation
|
||||
// runs on every single upgrade pass.
|
||||
// A full-table scan repeats on every upgrade.
|
||||
ValidateAllCustomers();
|
||||
end;
|
||||
|
||||
local procedure ValidateAllCustomers() begin end;
|
||||
local procedure ValidateAllCustomers()
|
||||
var
|
||||
Customer: Record Customer;
|
||||
begin
|
||||
if Customer.FindSet() then
|
||||
repeat
|
||||
if Customer."Customer Posting Group" = 'OLD' then
|
||||
Error(MigrationIncompleteErr);
|
||||
until Customer.Next() = 0;
|
||||
end;
|
||||
|
||||
var
|
||||
MigrationIncompleteErr: Label 'The legacy customer posting group was not migrated.';
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue