I have downloaded the source code but this did not help. As I don't know much about JavaScript and control addins. I have figure it out how to do this in AL.
I want to add an action on role center page for a specific company navigation.
As we know that we have very limited customization option on a role center page. This is how I did it.
pageextension 50401 BusinessManagerRC extends "Business Manager Role Center"
{
actions
{
addafter("Chart of Accounts")
{
action("NavigateNorwayCompany")
{
ApplicationArea = Basic, Suite;
CaptionML = DAN = 'Norge', ENU = 'Norway';
Image = Import;
//Visible = InnotechDK;
RunObject = codeunit NavigateNOC;
}
}
}
}
Added an action on the Business Manager role center page which runs the a custom code-unit.
codeunit 50403 "NavigateNOC"
{
var
ClientTypeManagement: Codeunit "Client Type Management";
LanguageID: Integer;
LocaleID: Integer;
TimeZoneID: Text[180];
VarCompany: Text;
NewWorkdate: Date;
ProfileID: Code[30];
RunningOnSaaS: Boolean;
MyNotificationsLbl: Label 'Change when I receive notifications.';
IsNotOnMobile: Boolean;
CompanyDisplayName: Text[250];
ProfileAppID: Guid;
ProfileScope: Option System,Tenant;
IsCompanyChanged: Boolean;
trigger OnRun()
begin
NavigateCompany();
end;
procedure NavigateCompany()
var
company: Record Company;
CurrentCompany: Text[100];
SelectedCompany: Record Company;
AllowedCompanies: Page "Allowed Companies";
IsSetupInProgress: Boolean;
begin
if NOT (company.CurrentCompany = 'NorwayCompany') then begin
VarCompany := 'NorwayCompany';
SetCompanyDisplayName;
end;
end;
local procedure SetCompanyDisplayName()
var
SelectedCompany: Record Company;
CompanyInformationManagement: Codeunit "Company Information Mgt.";
begin
if SelectedCompany.Get(VarCompany) then
CompanyDisplayName := CompanyInformationManagement.GetCompanyDisplayNameDefaulted(SelectedCompany);
OnQueryCompanyPage();
end;
local procedure OnQueryCompanyPage()
var
AllProfile: Record "All Profile";
TenantLicenseState: Codeunit "Tenant License State";
UserPersonalization: Record "User Personalization";
sessionSetting: SessionSettings;
AnythingUpdated: Boolean;
WasEvaluation: Boolean;
begin
with UserPersonalization do begin
Get(UserSecurityId);
if (Company <> VarCompany) or
IsCompanyChanged or
(Scope <> ProfileScope)
then begin
AnythingUpdated := true;
sessionSetting.Init();
if Company <> VarCompany then begin
WasEvaluation := TenantLicenseState.IsEvaluationMode();
sessionSetting.Company := VarCompany;
end;
if ("Profile ID" <> ProfileID) or
("App ID" <> ProfileAppID) or
(Scope <> ProfileScope)
then begin
sessionSetting.ProfileId := ProfileID;
sessionSetting.ProfileAppId := ProfileAppID;
sessionSetting.ProfileSystemScope := ProfileScope = ProfileScope::System;
end;
if "Locale ID" <> LocaleID then
sessionSetting.LocaleId := LocaleID;
if "Time Zone" <> TimeZoneID then
sessionSetting.Timezone := TimeZoneID;
end;
end;
if AnythingUpdated then
sessionSetting.RequestSessionUpdate(true);
end;
}
I am posting, it might help other community members
