mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-08-06 17:36:53 +01:00
e81632b4be
Fill telemetry and Query coverage, strengthen thin review domains, correct audited content defects, and add deterministic cheap-model evaluation and reference-integrity safeguards. Co-authored-by: Copilot App <223556219+Copilot@users.noreply.github.com> Copilot-Session: 9825b012-e653-496a-9310-c1f4b6f8ac27
26 lines
708 B
AL
26 lines
708 B
AL
codeunit 50206 "Upgrade Graceful"
|
|
{
|
|
Subtype = Upgrade;
|
|
|
|
trigger OnUpgradePerCompany()
|
|
begin
|
|
UpgradeCustomerLink('C00010');
|
|
end;
|
|
|
|
local procedure UpgradeCustomerLink(CustomerNo: Code[20])
|
|
var
|
|
Customer: Record Customer;
|
|
begin
|
|
if not Customer.Get(CustomerNo) then begin
|
|
Session.LogMessage(
|
|
'UPG0001',
|
|
'Customer not found during upgrade',
|
|
Verbosity::Warning,
|
|
DataClassification::SystemMetadata,
|
|
TelemetryScope::ExtensionPublisher,
|
|
'CustomerNo', CustomerNo);
|
|
exit;
|
|
end;
|
|
// Continue upgrade work using Customer ...
|
|
end;
|
|
}
|