Exportfile for AOT version 1.0 or later
Formatversion: 1

***Element: CLS

; Microsoft Dynamics Class: SysSetupFormRun unloaded
; --------------------------------------------------------------------------------
  CLSVERSION 1
  
  CLASS #SysSetupFormRun
    PROPERTIES
      Name                #SysSetupFormRun
      Extends             #FormRun
      RunOn               #Client
    ENDPROPERTIES
    
    METHODS
      Version: 3
      SOURCE #classDeclaration
        #public class SysSetupFormRun extends FormRun
        #{
        ##if.never
        #    #define.CurrentVersion(1)
        #    #localmacro.CurrentList
        #    #endmacro
        ##endif
        #}
      ENDSOURCE
      SOURCE #docCursor
        #Common docCursor()
        #{
        #    if (infolog.docuHandlingActive())
        #    {
        #        return super();
        #    }
        #    else
        #    {
        #        return null;
        #    }
        #}
      ENDSOURCE
      SOURCE #init
        #public void init()
        #{
        #    super();
        #    SysSecurityFormSetup::loadSecurity(this);
        #}
      ENDSOURCE
      SOURCE #loadUserSetting
        #public void loadUserSetting()
        #{
        #    SysSaveSetup    sysSaveSetup;
        #    super();
        #
        #    sysSaveSetup = SysSaveSetup::construct(this);
        #    sysSaveSetup.loadFormSetup();
        #}
      ENDSOURCE
      SOURCE #new
        #void new(Args args)
        #{
        #    KMActionMenuButtonAuto              KMActionMenuButtonAuto;
        #    KMKnowledgeCollectorMenuButtonAuto  KMKnowledgeCollectorMenuButtonAuto;
        #    ;
        #
        #    super(args);
        #    // CC Start
        #    if (this.name() != formstr(SysLicenseCode))
        #    {
        #        KMActionMenuButtonAuto  = new KMActionMenuButtonAuto(this);
        #        if (KMActionMenuButtonAuto.check())
        #            KMActionMenuButtonAuto.create();
        #
        #        KMKnowledgeCollectorMenuButtonAuto= new KMKnowledgeCollectorMenuButtonAuto(this);
        #        if (KMKnowledgeCollectorMenuButtonAuto.check())
        #            KMKnowledgeCollectorMenuButtonAuto.create();
        #    }
        #    // CC End
        #}
      ENDSOURCE
      SOURCE #saveUserSetting
        #public void saveUserSetting()
        #{
        #    SysSaveSetup    sysSaveSetup = SysSaveSetup::construct(this);
        #    ;
        #    sysSaveSetup.saveFormSetup();
        #    super();
        #}
      ENDSOURCE
      SOURCE #task
        #public int task(int _p1)
        #{
        #    #task
        #    FormDataSource formDataSource;
        #
        #    //Added by SL - start
        #    SysDictField        df;
        #    FormControl         fc;
        #    FormStringControl   fsc;
        #    FormButtonControl   fbc;
        #    DictEnum            dictEnum = new DictEnum(enumnum(Types));
        #    DictEnum            dictEnums;
        #    //Added by SL - end
        #
        #    int ret;
        #    ;
        #
        #    if (_p1 == #taskCtrlQ)
        #    {
        #        fc = this.selectedControl();
        #        formDataSource =  this.objectSet();
        #
        #        if(fc && formDataSource)
        #        {
        #            switch(SysFormRun::controlType(classIdGet(fc)))
        #            {
        #                case FormControlType::CheckBox :
        #                case FormControlType::ComboBox :
        #                case FormControlType::Date :
        #                case FormControlType::FileName :
        #                case FormControlType::Grid :
        #                case FormControlType::Group :
        #                case FormControlType::Guid :
        #                case FormControlType::Int64 :
        #                case FormControlType::Integer :
        #                case FormControlType::RadioButton :
        #                case FormControlType::Real :
        #                case FormControlType::StaticText :
        #                case FormControlType::String :
        #                case FormControlType::Time :
        #
        #                    fsc = fc;
        #                    if(fsc.dataField() && formDataSource.table())
        #                    {
        #                        info(strfmt("Control Name   -> %1", fsc.name()));
        #                        info(strfmt('Table.Field       -> %2.%1', fieldId2Name(formDataSource.table(), fsc.dataField() - 65536), tableId2Name(formDataSource.table())));
        #
        #                        df = new SysDictField(formDataSource.table(), fsc.dataField() - 65536);
        #                        if(df)
        #                        {
        #                            info(strfmt('Type                -> %1', dictEnum.index2Symbol(df.baseType())));
        #
        #                            if(df.baseType() == typeOf(Types::Enum))
        #                            {
        #                                dictEnums = new dictEnum(df.enumId());
        #                                info(strfmt('Base Enum       -> %1',dictEnums.name()));
        #                            }
        #
        #                            info(strfmt('Ext Data Type -> %1',extendedTypeId2name(df.typeId())));
        #                            info(strfmt('Size                  ->  %1',int2str(df.stringLen())));
        #                            info(strfmt('Max Right        -> %1',(df.rights())));
        #                            info(strfmt('Label                -> %1:  %2',(df.labelLabel()),(df.label()) ));
        #                            info(strfmt('Help                 -> %1:  %2',(df.helpLabelId()),(df.help()) ));
        #                        }
        #                    }
        #
        #                    if(fsc.dataMethod())
        #                    {
        #                        info(strfmt('Method %1.%2',tableId2Name(formDataSource.table()), fsc.dataMethod()));
        #                    }
        #
        #                    break;
        #
        #                default:
        #                    ret = super(_p1);
        #                    return ret;
        #            }
        #
        #            return 1;
        #        }
        #        ret = super(_p1);
        #        return ret;
        #    }
        #    else if (_p1 == #taskFilter)
        #    {
        #        formDataSource = this.objectSet();
        #        if (formDataSource &&
        #            formDataSource.queryRun() &&
        #            formDataSource.queryRun().args() &&
        #            !formDataSource.queryRun().args().caller())
        #        {
        #            formDataSource.queryRun().args().caller(this);
        #        }
        #    }
        #
        #    ret = super(_p1);
        #
        #    return ret;
        #}
      ENDSOURCE
    ENDMETHODS
  ENDCLASS

***Element: PRN

; Microsoft Dynamics Project : ControlInfo unloaded
; --------------------------------------------------------------------------------
  PROJECTVERSION 2
  
  PROJECT #ControlInfo
   SHARED
  PROPERTIES
    Name                #ControlInfo
  ENDPROPERTIES
  
    BEGINNODE
      FILETYPE 0
      UTILTYPE 45
      UTILOBJECTID 643
      NODETYPE 329
      NAME #SysSetupFormRun
    ENDNODE
  ENDPROJECT
  

***Element: END