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

Add lifecycle error and privacy knowledge

Browse source 
Co-authored-by: Copilot App <223556219+Copilot@users.noreply.github.com>

Copilot-Session: 95c06ad8-377d-4faa-8d07-06300b1c81ec
This commit is contained in:
Jesper Schulz-Wedde 2026-07-14 12:02:49 +02:00
parent 9214f73819
commit 0c2a0ceb82
25 changed files with 457 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

48
microsoft/knowledge/upgrade/install-code-does-not-run-on-version-upgrade.good.al Normal file
View file

@ -0,0 +1,48 @@
codeunit 50304 "My App Install"
{
Subtype = Install;
trigger OnInstallAppPerCompany()
begin
InitializeSetup();
end;
local procedure InitializeSetup()
var
MyAppSetup: Record "My App Setup";
begin
if MyAppSetup.IsEmpty() then
MyAppSetup.Insert(true);
end;
}
codeunit 50305 "My App Upgrade"
{
Subtype = Upgrade;
trigger OnUpgradePerCompany()
var
UpgradeTag: Codeunit "Upgrade Tag";
begin
if UpgradeTag.HasUpgradeTag(ConfigurationVersionTag()) then
exit;
MigrateLegacySetup();
UpgradeTag.SetUpgradeTag(ConfigurationVersionTag());
end;
local procedure MigrateLegacySetup()
var
MyAppSetup: Record "My App Setup";
begin
if MyAppSetup.Get() then begin
MyAppSetup."Configuration Version" := 2;
MyAppSetup.Modify(true);
end;
end;
local procedure ConfigurationVersionTag(): Code[250]
begin
exit('MS-50305-ConfigurationVersion-20260714');
end;
}