Upravit

Sdílet prostřednictvím

Codeunit 1 replacement

  • Článek

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