OBJECT Page 87878 Clean-Start Database Analyzer
{
  OBJECT-PROPERTIES
  {
    Date=22-01-26;
    Time=12:00:00;
    Version List=SPLN1.00;
  }
  PROPERTIES
  {
    Editable=No;
    CaptionML=ENU=Clean-Start Database Analyzer;
    InsertAllowed=No;
    DeleteAllowed=No;
    ModifyAllowed=No;
    SourceTable=Table2000000026;
    DataCaptionExpr='Clean-Start Database Analyzer';
    SourceTableView=SORTING(Number)
                    WHERE(Number=CONST(1));
    PageType=Card;
    OnOpenPage=VAR
                 AllObject@1002 : Record 2000000038;
                 CompanyRec@1005 : Record 2000000006;
                 AppMgt@1000000000 : Codeunit 1;
                 Companies@1009 : Record 2000000006;
                 Field@1013 : Record 2000000041;
               BEGIN
                 AllObject.RESET;
                 AllObject.SETFILTER("Object Type", '1');
                 AllObject.SETFILTER("Object ID", '1..49999|100000..1000000|99000750..99008535');
                 IF AllObject.FINDSET THEN BEGIN
                   REPEAT
                     Field.RESET;
                     Field.SETRANGE(TableNo, AllObject."Object ID");
                     Field.SETFILTER("No.", '50000..99999');
                     IF Field.FINDFIRST THEN
                       CustomizedStandardTables += 1;
                   UNTIL AllObject.NEXT = 0;
                 END;

                 AllObject.RESET;
                 AllObject.SETFILTER("Object Type", '1');
                 AllObject.SETFILTER("Object ID", '50000..99999');

                 CustomTables := AllObject.COUNT;

                 CompanyRec.RESET;
                 CompanyCount := CompanyRec.COUNT;

                 AppVerString := AppMgt.ApplicationVersion;

                 IF STRPOS(AppVerString, '14.') <> 0 THEN
                   AppVerString := 'BC 14'
                 ELSE BEGIN
                   IF STRPOS(AppVerString, '13.') <> 0 THEN
                     AppVerString := 'BC 13'
                   ELSE BEGIN
                     IF STRPOS(AppVerString, '11.') <> 0 THEN
                       AppVerString := 'NAV 2018'
                     ELSE BEGIN
                       IF STRPOS(AppVerString, '10.') <> 0 THEN
                         AppVerString := 'NAV 2017'
                       ELSE BEGIN
                         IF STRPOS(AppVerString, '9.') <> 0 THEN
                           AppVerString := 'NAV 2016'
                         ELSE BEGIN
                           IF STRPOS(AppVerString, '8.') <> 0 THEN
                             AppVerString := 'NAV 2015'
                           ELSE BEGIN
                             IF STRPOS(AppVerString, '7.1') <> 0 THEN
                               AppVerString := 'NAV 2013 R2'
                             ELSE BEGIN
                               IF STRPOS(AppVerString, '7.0') <> 0 THEN
                                 AppVerString := 'NAV 2013'
                               ELSE BEGIN
                                 AppVerString := AppMgt.ApplicationVersion;
                               END;
                             END;
                           END;
                         END;
                       END;
                     END;
                   END;
                 END;
               END;

  }
  CONTROLS
  {
    { 1   ;0   ;Container ;
                ContainerType=ContentArea }

    { 2   ;1   ;Group     ;
                Name=Group;
                GroupType=Group }

    { 7   ;2   ;Field     ;
                CaptionML=ENU=Number of companies to migrate;
                SourceExpr=CompanyCount;
                Editable=false }

    { 3   ;2   ;Field     ;
                CaptionML=ENU=Current NAV Version;
                SourceExpr=AppVerString;
                Editable=false }

    { 4   ;2   ;Field     ;
                DrillDown=Yes;
                CaptionML=ENU=Number of custom tables to migrate;
                SourceExpr=CustomTables;
                Editable=false;
                OnDrillDown=VAR
                              Object@1000 : Record 2000000001;
                            BEGIN
                              Object.RESET;
                              Object.SETFILTER(Type, '1');
                              Object.SETFILTER(ID, '50000..99999');
                              PAGE.RUN(87879,Object);
                            END;
                             }

    { 5   ;2   ;Field     ;
                DrillDown=Yes;
                CaptionML=ENU=Number of customized standard tables to migrate;
                SourceExpr=CustomizedStandardTables;
                Editable=false;
                OnDrillDown=VAR
                              Object@1000 : Record 2000000001;
                              Field@1001 : Record 2000000041;
                            BEGIN
                              Object.RESET;
                              Object.SETFILTER(Type, '1');
                              Object.SETFILTER(ID, '1..49999|100000..1000000|99000750..99008535');
                              IF Object.FINDSET THEN BEGIN
                                REPEAT
                                  Field.RESET;
                                  Field.SETRANGE(TableNo, Object.ID);
                                  Field.SETFILTER("No.", '50000..99999');
                                  IF Field.FINDFIRST THEN BEGIN
                                    Object.MARK(TRUE);
                                  END;
                                UNTIL Object.NEXT = 0;
                              END;

                              Object.MARKEDONLY(TRUE);
                              PAGE.RUN(87879,Object);
                            END;
                             }

  }
  CODE
  {
    VAR
      CustomTables@1000 : Integer;
      AppVerString@1001 : Text;
      CompanyCount@1002 : Integer;
      CustomizedStandardTables@1003 : Integer;

    BEGIN
    {
      SPLN1.00 GPE 20220126 Object created
    }
    END.
  }
}

OBJECT Page 87879 Clean-Start Table List
{
  OBJECT-PROPERTIES
  {
    Date=22-01-26;
    Time=12:00:00;
    Version List=SPLN1.00;
  }
  PROPERTIES
  {
    Editable=No;
    CaptionML=ENU=Clean-Start Table List;
    InsertAllowed=No;
    DeleteAllowed=No;
    ModifyAllowed=No;
    SourceTable=Table2000000001;
    SourceTableView=SORTING(Type,Company Name,ID)
                    WHERE(Type=FILTER(Table));
    PageType=List;
    OnOpenPage=BEGIN
                 NoOfRecInFilter := Rec.COUNT;
               END;

    OnAfterGetRecord=BEGIN
                       NoOfRecInFilter := Rec.COUNT;
                     END;

    ActionList=ACTIONS
    {
      { 11      ;    ;ActionContainer;
                      ActionContainerType=ActionItems }
      { 15      ;1   ;ActionGroup }
      { 16      ;2   ;Action    ;
                      Name=ShowFields;
                      CaptionML=ENU=Table Fields;
                      Promoted=Yes;
                      PromotedIsBig=Yes;
                      OnAction=VAR
                                 Field@1000 : Record 2000000041;
                               BEGIN
                                 Field.RESET;
                                 Field.SETRANGE(TableNo,Rec.ID);
                                 PAGE.RUN(6521,Field);
                               END;
                                }
    }
  }
  CONTROLS
  {
    { 1   ;0   ;Container ;
                ContainerType=ContentArea }

    { 2   ;1   ;Group     ;
                Name=Group;
                GroupType=Repeater }

    { 3   ;2   ;Field     ;
                SourceExpr=ID }

    { 4   ;2   ;Field     ;
                SourceExpr=Name }

    { 5   ;2   ;Field     ;
                SourceExpr=Caption }

    { 6   ;2   ;Field     ;
                SourceExpr=Modified }

    { 7   ;2   ;Field     ;
                SourceExpr=Compiled }

    { 8   ;2   ;Field     ;
                SourceExpr=Date }

    { 9   ;2   ;Field     ;
                SourceExpr=Time }

    { 10  ;2   ;Field     ;
                SourceExpr="Version List" }

    { 14  ;1   ;Group     ;
                GroupType=Group }

    { 13  ;2   ;Group     ;
                Editable=FALSE;
                GroupType=Group }

    { 12  ;3   ;Field     ;
                CaptionML=ENU=No. of records (Filter);
                SourceExpr=NoOfRecInFilter;
                Editable=FALSE }

  }
  CODE
  {
    VAR
      NoOfRecInFilter@1001 : Integer;

    BEGIN
    {
      SPLN1.00 GPE 20220126 Object created
    }
    END.
  }
}