Codeunit 1 replacement
With Business Central, codeunit 1 Application Management has been removed and replaced with system codeunits and management codeunits. However, for technical upgrades from Dynamics NAV, you must import the replacement codeunit 1 that is provided in this article into your application database. For more information about the codeunit 1 removal and what it means, see Transitioning From Codeunit 1.
Codeunit 1 replacement codeunit
Copy the code to a text editor, and save it as a .txt file type. You'll use this during a technical upgrade.
OBJECT Codeunit 1 ApplicationManagement
{
OBJECT-PROPERTIES
{
Date=;
Time=;
Version List=;
}
PROPERTIES
{
OnRun=BEGIN
END;
}
CODE
{
VAR
DebuggerManagement@1017 : Codeunit 9500;
LogInManagement@1027 : Codeunit 40;
TextManagement@1003 : Codeunit 41;
CaptionManagement@1000 : Codeunit 42;
LanguageManagement@1002 : Codeunit 43;
AutoFormatManagement@1012 : Codeunit 45;
NotSupportedErr@1004 : TextConst 'ENU=The value is not supported.';
[Internal]
PROCEDURE CompanyOpen@30();
VAR
LogonManagement@1000 : Codeunit 9802;
BEGIN
LogonManagement.SetLogonInProgress(TRUE);
// This needs to be the very first thing to run before company open
CODEUNIT.RUN(CODEUNIT::"Azure AD User Management");
OnBeforeCompanyOpen;
LogInManagement.CompanyOpen;
OnAfterCompanyOpen;
LogonManagement.SetLogonInProgress(FALSE);
END;
[External]
PROCEDURE GetSystemIndicator@51(VAR Text@1000 : Text[250];VAR Style@1001 : 'Standard,Accent1,Accent2,Accent3,Accent4,Accent5,Accent6,Accent7,Accent8,Accent9');
VAR
CompanyInformation@1002 : Record 79;
BEGIN
IF CompanyInformation.GET THEN
CompanyInformation.GetSystemIndicator(Text,Style);
OnAfterGetSystemIndicator(Text,Style);
END;
[External]
PROCEDURE CompanyClose@31();
BEGIN
OnBeforeCompanyClose;
LogInManagement.CompanyClose;
OnAfterCompanyClose;
END;
[External]
PROCEDURE FindPrinter@11(ReportID@1000 : Integer) : Text[250];
VAR
PrinterSelection@1001 : Record 78;
PrinterName@1002 : Text[250];
BEGIN
CLEAR(PrinterSelection);
IF PrinterSelection.READPERMISSION THEN
IF NOT PrinterSelection.GET(USERID,ReportID) THEN
IF NOT PrinterSelection.GET('',ReportID) THEN
IF NOT PrinterSelection.GET(USERID,0) THEN
IF PrinterSelection.GET('',0) THEN;
PrinterName := PrinterSelection."Printer Name";
OnAfterFindPrinter(ReportID,PrinterName);
EXIT(PrinterName);
END;
[External]
PROCEDURE ApplicationVersion@2() : Text[248];
VAR
AppVersion@1000 : Text[248];
BEGIN
AppVersion := CustomApplicationVersion('W1 11.0');
OnAfterGetApplicationVersion(AppVersion);
EXIT(AppVersion);
END;
LOCAL PROCEDURE CustomApplicationVersion@1051(BaseBuildVersion@1000 : Text[80]) : Text[80];
BEGIN
EXIT(BaseBuildVersion);
END;
[External]
PROCEDURE ApplicationBuild@3() : Text[80];
BEGIN
// Must ever only be the build number of the server building the app.
EXIT(CustomApplicationBuild('19912'));
END;
LOCAL PROCEDURE CustomApplicationBuild@1050(BaseBuildNumber@1000 : Text[80]) : Text[80];
BEGIN
EXIT(BaseBuildNumber);
END;
[External]
PROCEDURE ApplicationLanguage@4() : Integer;
BEGIN
EXIT(1033);
END;
[Internal]
PROCEDURE DefaultRoleCenter@50() : Integer;
VAR
ConfPersMgt@1000 : Codeunit 9170;
AzureADUserManagement@1002 : Codeunit 9010;
PermissionManager@1003 : Codeunit 9002;
DefaultRoleCenterID@1001 : Integer;
BEGIN
IF PermissionManager.SoftwareAsAService THEN
IF AzureADUserManagement.TryGetAzureUserPlanRoleCenterId(DefaultRoleCenterID,USERSECURITYID) THEN;
IF DefaultRoleCenterID = 0 THEN
DefaultRoleCenterID := ConfPersMgt.DefaultRoleCenterID;
OnAfterGetDefaultRoleCenter(DefaultRoleCenterID);
EXIT(DefaultRoleCenterID);
END;
[External]
PROCEDURE MakeDateTimeText@114(VAR DateTimeText@1000 : Text[250]) : Integer;
BEGIN
EXIT(TextManagement.MakeDateTimeText(DateTimeText));
END;
[External]
PROCEDURE GetSeparateDateTime@10011(DateTimeText@1000 : Text[250];VAR Date@1005 : Date;VAR Time@1006 : Time) : Boolean;
BEGIN
EXIT(TextManagement.GetSeparateDateTime(DateTimeText,Date,Time));
END;
[External]
PROCEDURE MakeDateText@105(VAR DateText@1000 : Text[250]) : Integer;
VAR
Position@1001 : Integer;
BEGIN
Position := TextManagement.MakeDateText(DateText);
OnAfterMakeDateText(Position,DateText);
EXIT(Position);
END;
[External]
PROCEDURE MakeTimeText@106(VAR TimeText@1000 : Text[250]) : Integer;
VAR
Position@1001 : Integer;
BEGIN
Position := TextManagement.MakeTimeText(TimeText);
OnAfterMakeTimeText(Position,TimeText);
EXIT(Position);
END;
[External]
PROCEDURE MakeText@107(VAR Text@1000 : Text[250]) : Integer;
VAR
Position@1001 : Integer;
BEGIN
Position := TextManagement.MakeText(Text);
OnAfterMakeText(Position,Text);
EXIT(Position);
END;
[External]
PROCEDURE MakeDateTimeFilter@214(VAR DateTimeFilterText@1000 : Text[250]) : Integer;
VAR
Position@1001 : Integer;
BEGIN
Position := TextManagement.MakeDateTimeFilter(DateTimeFilterText);
OnAfterMakeDateTimeFilter(Position,DateTimeFilterText);
EXIT(Position);
END;
[External]
PROCEDURE MakeDateFilter@205(VAR DateFilterText@1000 : Text) : Integer;
VAR
Position@1001 : Integer;
BEGIN
Position := TextManagement.MakeDateFilter(DateFilterText);
OnAfterMakeDateFilter(Position,DateFilterText);
EXIT(Position);
END;
[Internal]
PROCEDURE MakeTextFilter@207(VAR TextFilterText@1000 : Text) : Integer;
VAR
Position@1001 : Integer;
BEGIN
Position := TextManagement.MakeTextFilter(TextFilterText);
OnAfterMakeTextFilter(Position,TextFilterText);
EXIT(Position);
END;
[Internal]
PROCEDURE MakeCodeFilter@209(VAR TextFilterText@1000 : Text) : Integer;
VAR
Position@1001 : Integer;
BEGIN
Position := TextManagement.MakeTextFilter(TextFilterText);
OnAfterMakeCodeFilter(Position,TextFilterText);
EXIT(Position);
END;
[External]
PROCEDURE MakeTimeFilter@206(VAR TimeFilterText@1000 : Text[250]) : Integer;
VAR
Position@1001 : Integer;
BEGIN
Position := TextManagement.MakeTimeFilter(TimeFilterText);
OnAfterMakeTimeFilter(Position,TimeFilterText);
EXIT(Position);
END;
[External]
PROCEDURE AutoFormatTranslate@12(AutoFormatType@1000 : Integer;AutoFormatExpr@1001 : Text[80]) : Text[80];
VAR
AutoFormatTranslation@1002 : Text[80];
BEGIN
AutoFormatTranslation := AutoFormatManagement.AutoFormatTranslate(AutoFormatType,AutoFormatExpr);
OnAfterAutoFormatTranslate(AutoFormatType,AutoFormatExpr,AutoFormatTranslation);
EXIT(AutoFormatTranslation);
END;
[External]
PROCEDURE ReadRounding@14() : Decimal;
BEGIN
EXIT(AutoFormatManagement.ReadRounding);
END;
[External]
PROCEDURE LocalCaptionClassTranslate@15(Language@1000 : Integer;CaptionExpr@1001 : Text[1024]) : Text[1024];
VAR
Caption@1002 : Text[1024];
BEGIN
Caption := CaptionManagement.CaptionClassTranslate(Language,CaptionExpr);
OnAfterCaptionClassTranslate(Language,CaptionExpr,Caption);
EXIT(Caption);
END;
[External]
PROCEDURE GetCueStyle@16(TableId@1000 : Integer;FieldNo@1002 : Integer;CueValue@1001 : Decimal) : Text;
VAR
CueSetup@1003 : Codeunit 9701;
BEGIN
EXIT(CueSetup.GetCustomizedCueStyle(TableId,FieldNo,CueValue));
END;
[Internal]
PROCEDURE SetGlobalLanguage@5();
BEGIN
LanguageManagement.SetGlobalLanguage;
END;
[Internal]
PROCEDURE ValidateApplicationlLanguage@1102601001(LanguageID@1037 : Integer);
BEGIN
LanguageManagement.ValidateApplicationLanguage(LanguageID);
END;
[Internal]
PROCEDURE LookupApplicationlLanguage@1102601005(VAR LanguageID@1040 : Integer);
BEGIN
LanguageManagement.LookupApplicationLanguage(LanguageID);
END;
[External]
PROCEDURE GetGlobalTableTriggerMask@20(TableID@1000 : Integer) : Integer;
VAR
TableTriggerMask@1001 : Integer;
BEGIN
// Replaced by GetDatabaseTableTriggerSetup
OnAfterGetGlobalTableTriggerMask(TableID,TableTriggerMask);
EXIT(TableTriggerMask);
END;
[External]
PROCEDURE OnGlobalInsert@21(RecRef@1000 : RecordRef);
BEGIN
// Replaced by OnDataBaseInsert. This trigger is only called from pages.
OnAfterOnGlobalInsert(RecRef);
END;
[External]
PROCEDURE OnGlobalModify@22(RecRef@1000 : RecordRef;xRecRef@1002 : RecordRef);
BEGIN
// Replaced by OnDataBaseModify. This trigger is only called from pages.
OnAfterOnGlobalModify(RecRef,xRecRef);
END;
[External]
PROCEDURE OnGlobalDelete@23(RecRef@1000 : RecordRef);
BEGIN
// Replaced by OnDataBaseDelete. This trigger is only called from pages.
OnAfterOnGlobalDelete(RecRef);
END;
[External]
PROCEDURE OnGlobalRename@24(RecRef@1000 : RecordRef;xRecRef@1002 : RecordRef);
BEGIN
// Replaced by OnDataBaseRename. This trigger is only called from pages.
OnAfterOnGlobalRename(RecRef,xRecRef);
END;
[Internal]
PROCEDURE GetDatabaseTableTriggerSetup@25(TableId@1000 : Integer;VAR OnDatabaseInsert@1001 : Boolean;VAR OnDatabaseModify@1002 : Boolean;VAR OnDatabaseDelete@1003 : Boolean;VAR OnDatabaseRename@1004 : Boolean);
VAR
IntegrationManagement@1005 : Codeunit 5150;
ChangeLogMgt@1006 : Codeunit 423;
BEGIN
ChangeLogMgt.GetDatabaseTableTriggerSetup(TableId,OnDatabaseInsert,OnDatabaseModify,OnDatabaseDelete,OnDatabaseRename);
IntegrationManagement.GetDatabaseTableTriggerSetup(TableId,OnDatabaseInsert,OnDatabaseModify,OnDatabaseDelete,OnDatabaseRename);
OnAfterGetDatabaseTableTriggerSetup(TableId,OnDatabaseInsert,OnDatabaseModify,OnDatabaseDelete,OnDatabaseRename);
END;
[Internal]
PROCEDURE OnDatabaseInsert@26(RecRef@1000 : RecordRef);
VAR
IntegrationManagement@1001 : Codeunit 5150;
ChangeLogMgt@1002 : Codeunit 423;
BEGIN
OnBeforeOnDatabaseInsert(RecRef);
ChangeLogMgt.LogInsertion(RecRef);
IntegrationManagement.OnDatabaseInsert(RecRef);
OnAfterOnDatabaseInsert(RecRef);
END;
[Internal]
PROCEDURE OnDatabaseModify@27(RecRef@1000 : RecordRef);
VAR
IntegrationManagement@1001 : Codeunit 5150;
ChangeLogMgt@1002 : Codeunit 423;
BEGIN
OnBeforeOnDatabaseModify(RecRef);
ChangeLogMgt.LogModification(RecRef);
IntegrationManagement.OnDatabaseModify(RecRef);
OnAfterOnDatabaseModify(RecRef);
END;
[Internal]
PROCEDURE OnDatabaseDelete@28(RecRef@1000 : RecordRef);
VAR
IntegrationManagement@1001 : Codeunit 5150;
ChangeLogMgt@1002 : Codeunit 423;
BEGIN
OnBeforeOnDatabaseDelete(RecRef);
ChangeLogMgt.LogDeletion(RecRef);
IntegrationManagement.OnDatabaseDelete(RecRef);
OnAfterOnDatabaseDelete(RecRef);
END;
[Internal]
PROCEDURE OnDatabaseRename@29(RecRef@1000 : RecordRef;xRecRef@1001 : RecordRef);
VAR
IntegrationManagement@1002 : Codeunit 5150;
ChangeLogMgt@1003 : Codeunit 423;
BEGIN
OnBeforeOnDatabaseRename(RecRef,xRecRef);
ChangeLogMgt.LogRename(RecRef,xRecRef);
IntegrationManagement.OnDatabaseRename(RecRef,xRecRef);
OnAfterOnDatabaseRename(RecRef,xRecRef);
END;
[Internal]
PROCEDURE OnDebuggerBreak@55(ErrorMessage@1000 : Text);
BEGIN
DebuggerManagement.ProcessDebuggerBreak(ErrorMessage);
END;
[External]
PROCEDURE LaunchDebugger@60();
BEGIN
PAGE.RUN(PAGE::"Session List");
END;
[External]
PROCEDURE OpenSettings@65();
BEGIN
PAGE.RUN(PAGE::"My Settings");
END;
[External]
PROCEDURE OpenContactMSSales@6();
BEGIN
PAGE.RUN(PAGE::"Contact MS Sales");
END;
[External]
PROCEDURE InvokeExtensionInstallation@8(AppId@1000 : Text;ResponseUrl@1002 : Text);
VAR
ExtensionMarketplaceMgmt@1001 : Codeunit 2501;
BEGIN
IF NOT ExtensionMarketplaceMgmt.InstallExtension(AppId,ResponseUrl) THEN
MESSAGE(GETLASTERRORTEXT);
END;
[Internal]
PROCEDURE CustomizeChart@70(VAR TempChart@1000 : TEMPORARY Record 2000000078) : Boolean;
VAR
GenericChartMgt@1001 : Codeunit 9180;
BEGIN
EXIT(GenericChartMgt.ChartCustomization(TempChart));
END;
[External]
PROCEDURE HasCustomLayout@76(ObjectType@1004 : 'Report,Page';ObjectID@1000 : Integer) : Integer;
VAR
ReportLayoutSelection@1003 : Record 9651;
BEGIN
// Return value:
// 0: No custom layout
// 1: RDLC layout
// 2: Word layout
IF ObjectType <> ObjectType::Report THEN
ERROR(NotSupportedErr);
EXIT(ReportLayoutSelection.HasCustomLayout(ObjectID));
END;
[Internal]
PROCEDURE MergeDocument@77(ObjectType@1006 : 'Report,Page';ObjectID@1000 : Integer;ReportAction@1001 : 'SaveAsPdf,SaveAsWord,SaveAsExcel,Preview,Print,SaveAsHtml';XmlData@1002 : InStream;FileName@1003 : Text);
VAR
DocumentReportMgt@1004 : Codeunit 9651;
BEGIN
IF ObjectType <> ObjectType::Report THEN
ERROR(NotSupportedErr);
DocumentReportMgt.MergeWordLayout(ObjectID,ReportAction,XmlData,FileName);
END;
[Internal]
PROCEDURE ReportGetCustomRdlc@78(ReportId@1000 : Integer) : Text;
VAR
CustomReportLayout@1002 : Record 9650;
BEGIN
EXIT(CustomReportLayout.GetCustomRdlc(ReportId));
END;
[External]
PROCEDURE ReportScheduler@79(ReportId@1000 : Integer;RequestPageXml@1001 : Text) : Boolean;
VAR
ScheduleAReport@1002 : Page 682;
BEGIN
EXIT(ScheduleAReport.ScheduleAReport(ReportId,RequestPageXml));
END;
[Integration]
[External]
LOCAL PROCEDURE OnAfterGetApplicationVersion@1(VAR AppVersion@1000 : Text[248]);
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnBeforeCompanyOpen@1010();
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnAfterCompanyOpen@1007();
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnBeforeCompanyClose@1017();
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnAfterCompanyClose@1013();
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnAfterGetSystemIndicator@1018(VAR Text@1000 : Text[250];VAR Style@1001 : 'Standard,Accent1,Accent2,Accent3,Accent4,Accent5,Accent6,Accent7,Accent8,Accent9');
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnAfterFindPrinter@1023(ReportID@1000 : Integer;VAR PrinterName@1001 : Text[250]);
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnAfterGetDefaultRoleCenter@1033(VAR DefaultRoleCenterID@1000 : Integer);
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnAfterMakeDateText@1036(VAR Position@1000 : Integer;VAR DateText@1001 : Text[250]);
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnAfterMakeTimeText@1039(VAR Position@1001 : Integer;VAR TimeText@1000 : Text[250]);
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnAfterMakeText@1040(VAR Position@1001 : Integer;VAR Text@1000 : Text[250]);
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnAfterMakeDateTimeFilter@1045(VAR Position@1001 : Integer;VAR DateTimeFilterText@1000 : Text[250]);
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnAfterMakeDateFilter@1046(VAR Position@1001 : Integer;VAR DateFilterText@1000 : Text);
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnAfterMakeTextFilter@1047(VAR Position@1001 : Integer;VAR TextFilterText@1000 : Text);
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnAfterMakeCodeFilter@1052(VAR Position@1001 : Integer;VAR TextFilterText@1000 : Text);
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnAfterMakeTimeFilter@1053(VAR Position@1001 : Integer;VAR TimeFilterText@1000 : Text[250]);
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnAfterAutoFormatTranslate@1056(AutoFormatType@1001 : Integer;AutoFormatExpression@1000 : Text[80];VAR AutoFormatTranslation@1002 : Text[80]);
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnAfterCaptionClassTranslate@1061(Language@1001 : Integer;CaptionExpression@1000 : Text[1024];VAR Caption@1002 : Text[1024]);
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnAfterGetGlobalTableTriggerMask@1001(TableID@1000 : Integer;VAR TableTriggerMask@1002 : Integer);
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnAfterOnGlobalInsert@1002(RecRef@1000 : RecordRef);
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnAfterOnGlobalModify@1003(RecRef@1000 : RecordRef;xRecRef@1002 : RecordRef);
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnAfterOnGlobalDelete@1004(RecRef@1000 : RecordRef);
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnAfterOnGlobalRename@1005(RecRef@1000 : RecordRef;xRecRef@1002 : RecordRef);
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnAfterGetDatabaseTableTriggerSetup@1020(TableId@1000 : Integer;VAR OnDatabaseInsert@1001 : Boolean;VAR OnDatabaseModify@1002 : Boolean;VAR OnDatabaseDelete@1003 : Boolean;VAR OnDatabaseRename@1004 : Boolean);
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnAfterOnDatabaseInsert@1035(RecRef@1000 : RecordRef);
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnAfterOnDatabaseModify@1034(RecRef@1000 : RecordRef);
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnAfterOnDatabaseDelete@1032(RecRef@1000 : RecordRef);
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnAfterOnDatabaseRename@1024(RecRef@1000 : RecordRef;xRecRef@1001 : RecordRef);
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnBeforeOnDatabaseInsert@1037(RecRef@1000 : RecordRef);
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnBeforeOnDatabaseModify@1038(RecRef@1000 : RecordRef);
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnBeforeOnDatabaseDelete@1041(RecRef@1000 : RecordRef);
BEGIN
END;
[Integration]
[External]
LOCAL PROCEDURE OnBeforeOnDatabaseRename@1042(RecRef@1000 : RecordRef;xRecRef@1001 : RecordRef);
BEGIN
END;
[Integration]
[External]
PROCEDURE OnEditInExcel@82(ServiceName@1000 : Text[240];ODataFilter@1001 : Text);
BEGIN
END;
[Integration]
[External]
PROCEDURE OnInstallAppPerDatabase@83();
BEGIN
END;
[Integration]
[External]
PROCEDURE OnInstallAppPerCompany@84();
BEGIN
END;
[Integration]
[External]
PROCEDURE OnCheckPreconditionsPerDatabase@87();
BEGIN
END;
[Integration]
[External]
PROCEDURE OnCheckPreconditionsPerCompany@88();
BEGIN
END;
[Integration]
[External]
PROCEDURE OnUpgradePerDatabase@89();
BEGIN
END;
[Integration]
[External]
PROCEDURE OnUpgradePerCompany@90();
BEGIN
END;
[Integration]
[External]
PROCEDURE OnValidateUpgradePerDatabase@91();
BEGIN
END;
[Integration]
[External]
PROCEDURE OnValidateUpgradePerCompany@92();
BEGIN
END;
[EventSubscriber(Codeunit,2000000001,GetApplicationVersion)]
LOCAL PROCEDURE GetApplicationVersionSub@2000(VAR Version@1000 : Text[248]);
BEGIN
Version := ApplicationVersion
END;
[EventSubscriber(Codeunit,2000000001,GetReleaseVersion)]
LOCAL PROCEDURE GetReleaseVersionSub@2001(VAR Version@1000 : Text[50]);
BEGIN
END;
[EventSubscriber(Codeunit,2000000001,GetApplicationBuild)]
LOCAL PROCEDURE GetApplicationBuildSub@2002(VAR Build@1000 : Text[80]);
BEGIN
Build := ApplicationBuild
END;
[EventSubscriber(Codeunit,2000000002,GetGlobalTableTriggerMask)]
LOCAL PROCEDURE GetGlobalTableTriggerMaskSub@2003(TableID@1000 : Integer;VAR TableTriggerMask@1001 : Integer);
BEGIN
TableTriggerMask := GetGlobalTableTriggerMask(TableId)
END;
[EventSubscriber(Codeunit,2000000002,OnGlobalInsert)]
LOCAL PROCEDURE OnGlobalInsertSub@2004(RecRef@1000 : RecordRef);
BEGIN
OnGlobalInsert(RecRef)
END;
[EventSubscriber(Codeunit,2000000002,OnGlobalModify)]
LOCAL PROCEDURE OnGlobalModifySub@2005(RecRef@1000 : RecordRef;xRecRef@1001 : RecordRef);
BEGIN
OnGlobalModify(RecRef,xRecRef)
END;
[EventSubscriber(Codeunit,2000000002,OnGlobalDelete)]
LOCAL PROCEDURE OnGlobalDeleteSub@2006(RecRef@1000 : RecordRef);
BEGIN
OnGlobalDelete(RecRef)
END;
[EventSubscriber(Codeunit,2000000002,OnGlobalRename)]
LOCAL PROCEDURE OnGlobalRenameSub@2007(RecRef@1000 : RecordRef;xRecRef@1001 : RecordRef);
BEGIN
OnGlobalRename(RecRef,xRecRef)
END;
[EventSubscriber(Codeunit,2000000002,GetDatabaseTableTriggerSetup)]
LOCAL PROCEDURE GetDatabaseTableTriggerSetupSub@2008(TableId@1000 : Integer;VAR OnDatabaseInsert@1001 : Boolean;VAR OnDatabaseModify@1002 : Boolean;VAR OnDatabaseDelete@1003 : Boolean;VAR OnDatabaseRename@1004 : Boolean);
BEGIN
GetDatabaseTableTriggerSetup(TableId,OnDatabaseInsert,OnDatabaseModify,OnDatabaseDelete,OnDatabaseRename)
END;
[EventSubscriber(Codeunit,2000000002,OnDatabaseInsert)]
LOCAL PROCEDURE OnDatabaseInsertSub@2009(RecRef@1000 : RecordRef);
BEGIN
OnDatabaseInsert(RecRef)
END;
[EventSubscriber(Codeunit,2000000002,OnDatabaseModify)]
LOCAL PROCEDURE OnDatabaseModifySub@2010(RecRef@1000 : RecordRef);
BEGIN
OnDatabaseModify(RecRef)
END;
[EventSubscriber(Codeunit,2000000002,OnDatabaseDelete)]
LOCAL PROCEDURE OnDatabaseDeleteSub@2011(RecRef@1000 : RecordRef);
BEGIN
OnDatabaseDelete(RecRef)
END;
[EventSubscriber(Codeunit,2000000002,OnDatabaseRename)]
LOCAL PROCEDURE OnDatabaseRenameSub@2012(RecRef@1000 : RecordRef;xRecRef@1001 : RecordRef);
BEGIN
OnDatabaseRename(RecRef,xRecRef)
END;
[EventSubscriber(Codeunit,2000000003,OnCompanyOpen)]
LOCAL PROCEDURE OnCompanyOpenSub@2013();
BEGIN
CompanyOpen
END;
[EventSubscriber(Codeunit,2000000003,OnCompanyClose)]
LOCAL PROCEDURE OnCompanyCloseSub@2014();
BEGIN
CompanyClose
END;
[EventSubscriber(Codeunit,2000000004,AutoFormatTranslate)]
LOCAL PROCEDURE AutoFormatTranslateSub@2016(AutoFormatType@1000 : Integer;AutoFormatExpr@1001 : Text[80];VAR Translation@1002 : Text[80]);
BEGIN
Translation := AutoFormatTranslate(AutoFormatType,AutoFormatExpr)
END;
[EventSubscriber(Codeunit,2000000004,GetDefaultRoundingPrecision)]
LOCAL PROCEDURE GetDefaultRoundingPrecisionSub@2017(VAR AmountRoundingPrecision@1000 : Decimal);
BEGIN
AmountRoundingPrecision := ReadRounding
END;
[EventSubscriber(Codeunit,2000000004,CaptionClassTranslate)]
LOCAL PROCEDURE CaptionClassTranslateSub@2018(Language@1000 : Integer;CaptionExpr@1001 : Text[1024];VAR Translation@1002 : Text[1024]);
BEGIN
Translation := LocalCaptionClassTranslate(Language,CaptionExpr)
END;
[EventSubscriber(Codeunit,2000000004,GetSystemIndicator)]
LOCAL PROCEDURE GetSystemIndicatorSub@2019(VAR Text@1000 : Text[250];VAR Style@1001 : 'Standard,Accent1,Accent2,Accent3,Accent4,Accent5,Accent6,Accent7,Accent8,Accent9');
BEGIN
GetSystemIndicator(Text,Style)
END;
[EventSubscriber(Codeunit,2000000004,GetCueStyle)]
LOCAL PROCEDURE GetCueStyleSub@2020(TableId@1000 : Integer;FieldNo@1002 : Integer;CueValue@1001 : Decimal;VAR StyleText@1003 : Text);
BEGIN
StyleText := GetCueStyle(TableId,FieldNo,CueValue)
END;
[EventSubscriber(Codeunit,2000000004,GetApplicationLanguage)]
LOCAL PROCEDURE GetApplicationLanguageSub@2021(VAR Language@1000 : Integer);
BEGIN
Language := ApplicationLanguage
END;
[EventSubscriber(Codeunit,2000000005,GetPrinterName)]
LOCAL PROCEDURE GetPrinterNameSub@2022(ReportID@1000 : Integer;VAR PrinterName@1001 : Text[250]);
BEGIN
PrinterName := FindPrinter(ReportID);
END;
[EventSubscriber(Codeunit,2000000005,GetPaperTrayForReport)]
LOCAL PROCEDURE GetPaperTrayForReportSub@2023(ReportID@1000 : Integer;VAR FirstPage@1001 : Integer;VAR DefaultPage@1002 : Integer;VAR LastPage@1003 : Integer);
BEGIN
END;
[EventSubscriber(Codeunit,2000000005,HasCustomLayout)]
LOCAL PROCEDURE HasCustomLayoutSub@2024(ObjectType@1004 : 'Report,Page';ObjectID@1000 : Integer;VAR LayoutType@1002 : 'None,RDLC,Word');
BEGIN
LayoutType := HasCustomLayout(ObjectType,ObjectID)
END;
[EventSubscriber(Codeunit,2000000005,MergeDocument)]
LOCAL PROCEDURE MergeDocumentSub@2025(ObjectType@1006 : 'Report,Page';ObjectID@1000 : Integer;ReportAction@1001 : 'SaveAsPdf,SaveAsWord,SaveAsExcel,Preview,Print,SaveAsHtml';XmlData@1002 : InStream;FileName@1003 : Text);
BEGIN
MergeDocument(ObjectType,ObjectID,ReportAction,XmlData,FileName)
END;
[EventSubscriber(Codeunit,2000000005,ReportGetCustomRdlc)]
LOCAL PROCEDURE ReportGetCustomRdlcSub@2026(ReportId@1000 : Integer;VAR RdlcText@1001 : Text);
BEGIN
RdlcText := ReportGetCustomRdlc(ReportId)
END;
[EventSubscriber(Codeunit,2000000005,ScheduleReport)]
LOCAL PROCEDURE ScheduleReportSub@2027(ReportId@1000 : Integer;RequestPageXml@1001 : Text;VAR Scheduled@1002 : Boolean);
BEGIN
Scheduled := ReportScheduler(ReportId,RequestPageXml)
END;
[EventSubscriber(Codeunit,2000000006,GetDefaultRoleCenterID)]
LOCAL PROCEDURE GetDefaultRoleCenterIDSub@2028(VAR ID@1001 : Integer);
BEGIN
ID := DefaultRoleCenter
END;
[EventSubscriber(Codeunit,2000000006,CustomizeChart)]
LOCAL PROCEDURE CustomizeChartSub@2029(VAR TempChart@1000 : TEMPORARY Record 2000000078;VAR LookupOK@1001 : Boolean);
BEGIN
LookupOK := CustomizeChart(TempChart)
END;
[EventSubscriber(Codeunit,2000000006,OpenSettings)]
LOCAL PROCEDURE OpenSettingsSub@2030();
BEGIN
OpenSettings
END;
[EventSubscriber(Codeunit,2000000006,OpenContactMSSales)]
LOCAL PROCEDURE OpenContactMSSalesSub@2031();
BEGIN
OpenContactMSSales
END;
[EventSubscriber(Codeunit,2000000006,OpenDebugger)]
LOCAL PROCEDURE OpenDebuggerSub@2032();
BEGIN
LaunchDebugger
END;
[EventSubscriber(Codeunit,2000000006,OnEditInExcel)]
LOCAL PROCEDURE OnEditInExcelSub@2033(ServiceName@1000 : Text[240];ODataFilter@1001 : Text);
BEGIN
END;
[EventSubscriber(Codeunit,2000000006,InvokeExtensionInstallation)]
LOCAL PROCEDURE InvokeExtensionInstallationSub@2034(AppId@1000 : Text;ResponseUrl@1001 : Text);
BEGIN
END;
[EventSubscriber(Codeunit,2000000007,MakeDateTimeFilter)]
LOCAL PROCEDURE MakeDateTimeFilterSub@2035(VAR DateTimeFilterText@1000 : Text);
BEGIN
MakeDateTimeFilter(DateTimeFilterText)
END;
[EventSubscriber(Codeunit,2000000007,MakeIntFilter)]
LOCAL PROCEDURE MakeIntFilterSub@2036(VAR IntFilterText@1000 : Integer);
BEGIN
END;
[EventSubscriber(Codeunit,2000000007,MakeDateFilter)]
LOCAL PROCEDURE MakeDateFilterSub@2037(VAR DateFilterText@1000 : Text);
BEGIN
MakeDateFilter(DateFilterText)
END;
[EventSubscriber(Codeunit,2000000007,MakeTextFilter)]
LOCAL PROCEDURE MakeTextFilterSub@2038(VAR TextFilterText@1000 : Text);
BEGIN
MakeTextFilter(TextFilterText)
END;
[EventSubscriber(Codeunit,2000000007,MakeCodeFilter)]
LOCAL PROCEDURE MakeCodeFilterSub@2039(VAR TextFilterText@1000 : Text);
BEGIN
MakeCodeFilter(TextFilterText)
END;
[EventSubscriber(Codeunit,2000000007,MakeTimeFilter)]
LOCAL PROCEDURE MakeTimeFilterSub@2040(VAR TimeFilterText@1000 : Text);
BEGIN
MakeTimeFilter(TimeFilterText)
END;
[EventSubscriber(Codeunit,2000000008,OnCheckPreconditionsPerDatabase)]
LOCAL PROCEDURE OnCheckPreconditionsPerDatabaseSub@2041();
BEGIN
OnCheckPreconditionsPerDatabase
END;
[EventSubscriber(Codeunit,2000000008,OnCheckPreconditionsPerCompany)]
LOCAL PROCEDURE OnCheckPreconditionsPerCompanySub@2042();
BEGIN
OnCheckPreconditionsPerCompany
END;
[EventSubscriber(Codeunit,2000000008,OnUpgradePerDatabase)]
LOCAL PROCEDURE OnUpgradePerDatabaseSub@2043();
BEGIN
OnUpgradePerDatabase
END;
[EventSubscriber(Codeunit,2000000008,OnUpgradePerCompany)]
LOCAL PROCEDURE OnUpgradePerCompanySub@2044();
BEGIN
OnUpgradePerCompany
END;
[EventSubscriber(Codeunit,2000000008,OnValidateUpgradePerDatabase)]
LOCAL PROCEDURE OnValidateUpgradePerDatabaseSub@2045();
BEGIN
OnValidateUpgradePerDatabase
END;
[EventSubscriber(Codeunit,2000000008,OnValidateUpgradePerCompany)]
LOCAL PROCEDURE OnValidateUpgradePerCompanySub@2046();
BEGIN
OnValidateUpgradePerCompany
END;
[EventSubscriber(Codeunit,2000000009,OnDebuggerBreak)]
LOCAL PROCEDURE OnDebuggerBreakSub@2047(ErrorMessage@1000 : Text);
BEGIN
OnDebuggerBreak(ErrorMessage);
END;
[EventSubscriber(Codeunit,2000000010,OnInstallAppPerDatabase)]
LOCAL PROCEDURE OnInstallAppPerDatabaseSub@2048();
BEGIN
OnInstallAppPerDatabase
END;
[EventSubscriber(Codeunit,2000000010,OnInstallAppPerCompany)]
LOCAL PROCEDURE OnInstallAppPerCompanySub@2049();
BEGIN
OnInstallAppPerCompany
END;
BEGIN
END.
}
}
See also
Converting a Database
Resolving Compilation Errors When Converting a Dynamics NAV Database
Exporting and Importing Objects
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour