Program.cs

using System;
using System.Collections.Generic;
using System.Linq;
using System.Windows.Forms;
using System.Threading;
using System.Reflection;
using System.IO;
using sage.ew.functions;
using sage.ew.db;
using sage.ew.netvfp;
using sage.ew.global;
using Sage.ES.S50.S50Update.Classes;
using System.Diagnostics;
using System.Threading.Tasks;

namespace sage._50
{
    static class Program
    {
        public static int _nHandleVfp = 0;
        public static string _cdirectoryPath = "";
        public static string _cLicenciaSage50 = "";  // PE-100885
        private static string _cPathLibrerias = "";

        // PE-95913. Propiedades para la carga automática de un formulario mediante acceso directo
        public static string _cUserEurowin = "";
        public static string _cPasswordEurowin = "";
        public static string _cFormEurowin = "";
        public static string _cParamsFormEurowin = "";  // PE-96522
        public static string _cGrupoParametro = ""; //Task 195376: Forzar un grupo de arranque específico por parámetros de entrada

        // Para detectar cuando arrancamos un acceso directo / tarea automático
        private static bool _lAutomatico = false;

        [STAThread]
        public static void Main(string[] tcArgs)
        {
            bool lbRetorn = true;
            bool llDebug = false, llSplash = true, llSplashInfo = false;
            string lcError = "";
            string lcNameProducto = "Sage 50"; // PE-103466                       

            // Comprobar ruta de las librerías. Task 143679             
            _cPathLibrerias = Application.StartupPath;
            if (EntryControl(tcArgs))
            {
                // Obtener posibles parámetros. Task 143679
                ObtenerParametros(tcArgs);

                if (lbRetorn && !Directory.Exists(_cPathLibrerias))
                {
                    lcError += "- No existe la ruta de librerías: " + _cPathLibrerias + Environment.NewLine;
                    lbRetorn = false;
                }

                // Comprobar ruta de inicio de la aplicación. Task 143679            
                _cdirectoryPath = Directory.GetParent(_cPathLibrerias).FullName;
                if (string.IsNullOrWhiteSpace(_cdirectoryPath) || !Directory.Exists(_cdirectoryPath))
                {
                    lcError += "- No existe la ruta de inicio: " + _cdirectoryPath + Environment.NewLine;
                    lbRetorn = false;
                }

                // Comprobar ruta de las librerías 
                //_cPathLibrerias = Path.Combine(_cdirectoryPath, "Librerias\\");

                _cPathLibrerias = VersionNumber.DirectoryFullNameVersion(_cdirectoryPath);
                if (lbRetorn && !Directory.Exists(_cPathLibrerias))
                {
                    lcError += "- No existe la ruta de librerías: " + _cPathLibrerias + Environment.NewLine;
                    lbRetorn = false;
                }

                // Evitar el error System.InvalidOperationException. Task 143679        
                // http://msdn.microsoft.com/es-es/library/110t3299.aspx
                // Obtiene o establece un valor que indica si se detectaran las llamadas de un hilo a el subproceso que lo ha creado o no
                Control.CheckForIllegalCrossThreadCalls = true;

                // Task 142425. Revisión especial para tareas con el usuario SAGESYSTEM            
                // Si las tareas estan creadas con el nuevo formato, tendran un password de 64 carácteres que hay que revisar
                // Si el password es de 32 carácteres, es el formato antiguo. Hay que revisar los accesos del usuario SAGESYSTEM. Tampoco consumirá licencia
                if (_cUserEurowin.ToUpper().Trim() == "SAGESYSTEM" && _cPasswordEurowin.Trim().Length >= 64)
                {
                    // Marcar nuevo formato de password para revisar más adelante en el método frmPrincipal._Login()
                    EW_GLOBAL._lSageSystem64 = true;
                }

                // Si no se han podido obtener los parámetros inciales correctamente, terminamos.
                if (!lbRetorn)
                {
                    try
                    {
                        MessageBox.Show(lcError, lcNameProducto, MessageBoxButtons.OK, MessageBoxIcon.Warning);
                    }
                    catch (InvalidOperationException)
                    {
                        //Si es InvalidOperationException es que estamos en alguna tarea programada y por tanto sin acceso a parte visual (usuario SYSTEM). No se puede lanzar un MessageBox.
                        //en este caso guardamos el error en el visor de eventos de windows ya que en este momento aun no tendremos inicializada la base de datos
                        using (System.Diagnostics.EventLog eventLog = new System.Diagnostics.EventLog("Application"))
                        {
                            eventLog.Source = "Application";
                            eventLog.WriteEntry(lcError, System.Diagnostics.EventLogEntryType.Error, 50);
                        }
                    }
                    NETVFP._CerrarHandle(_nHandleVfp); // PE-103466
                    return;
                }

                // Iniciar estilos visuales 
                DB.Registrar_Traza("Program.cs,Main_EnableVisualStyles"); // PE-104002
                Application.EnableVisualStyles();
                Application.SetCompatibleTextRenderingDefault(false);

                try
                {
                    // Asignamos la ruta de inicio de la aplicación
                    main_s50._cPathInicio = _cdirectoryPath;
                    main_s50._lEsEjecutable = true;

                    // Revisar si queremos mostrar el Splash y Info de arranque
                    MostrarSplashInfo(out llSplash, out llSplashInfo, out llDebug);

                    // PE-104002. Establecer modo debug                         
                    EW_GLOBAL._lDebugMode = llDebug;

                    // Mostrar Splash. Task 143679
                    main_s50._frmSplash = new Forms.frmSplash();
                    
                    if (!_lAutomatico && llSplash)
                    {
                        main_s50._frmSplash._bMostrarInfo = llSplashInfo;
                        main_s50._frmSplash.Show();

                        while (main_s50._frmSplash._IsBusy)
                        {
                            Application.DoEvents();
                            Thread.Sleep(100);
                        }

                        lbRetorn = main_s50._frmSplash._Result;
                    }
                    else
                    {
                        // Validar inicio y mostrar formulario principal
                        DB.Registrar_Traza("Program.cs,Main_main_Sage_50"); // PE-104002
                        lbRetorn = main_s50._main_Sage_50();
                    }
                }
                catch (Exception ex)
                {
                    main_s50._ErrorString = !string.IsNullOrEmpty(main_s50._ErrorString) ? main_s50._ErrorString + System.Environment.NewLine + ex.Message : ex.Message;
                    lbRetorn = false;
                }


                if (lbRetorn)
                {
                    // Si hay algun mensaje en _ErrorString ahora se muestra desde frmPrincipal_Shown
                    DB.Registrar_Traza("Program.cs,Main_Run"); // PE-104002
                    _Run(); // Quitar del Main() cualquier referencia a librerias externas ya que todavía no se ha definido la ruta de librerias.
                }
                else
                {
                    try
                    {
                        MessageBox.Show(main_s50._ErrorString, lcNameProducto + " - Error en la validación de inicio", MessageBoxButtons.OK, MessageBoxIcon.Error);
                    }
                    catch (InvalidOperationException)
                    {
                        //Si es InvalidOperationException es que estamos en alguna tarea programada y por tanto sin acceso a parte visual (usuario SYSTEM). No se puede lanzar un MessageBox.
                        //en este caso guardamos el error en el visor de eventos de windows
                        using (System.Diagnostics.EventLog eventLog = new System.Diagnostics.EventLog("Application"))
                        {
                            eventLog.Source = "Application";
                            eventLog.WriteEntry("Error en la validacion de inicio: " + main_s50._ErrorString, System.Diagnostics.EventLogEntryType.Error, 50);
                        }
                    }
                    main_s50._frmSplash.Close();
                    NETVFP._CerrarHandle(_nHandleVfp); // PE-103466
                }
            }
        }

        private static bool EntryControl(string[] tcArgs)
        {
            string lcPath;
            Process proc = null;
            DirectoryInfo loDirLibrerias;

            //Si no podemos quitar el parametro de control, quiere decir que no viene
            if (!ParamControl(tcArgs) && !System.Diagnostics.Debugger.IsAttached)
            {
                loDirLibrerias = new DirectoryInfo(_cPathLibrerias);
                lcPath = Path.Combine(loDirLibrerias.Parent.FullName, "Sage50.exe");
                
                //Si existe la lanzadera
                if (File.Exists(lcPath))
                {
                    //Guardamos la ruta para no eliminar la carpeta
                    SaveEngagedVersion(loDirLibrerias.Name, loDirLibrerias.Parent.FullName);

                    proc = new Process();
                    proc.EnableRaisingEvents = false;
                    proc.StartInfo.UseShellExecute = false;
                    proc.StartInfo.FileName = lcPath;
                    proc.StartInfo.CreateNoWindow = true;
                    proc.StartInfo.WindowStyle = ProcessWindowStyle.Maximized;
                    proc.StartInfo.Arguments = string.Join(" ", tcArgs);
                    proc.StartInfo.WorkingDirectory = loDirLibrerias.Parent.FullName;
                    proc.Start();

                    return false;
                }
            }
            
            return true;
        }

        private static void SaveEngagedVersion(string tcVersion, string tcPathConfig)
        {
            string lcVersions;

            ConfigINI loConfigIni = new ConfigINI();
            loConfigIni._Load(tcPathConfig, "");

            lcVersions = loConfigIni._Propiedad("[ACCESCONTROL]").Trim();

            if(!lcVersions.Contains(tcVersion))
            {
                lcVersions = String.IsNullOrEmpty(lcVersions) ? tcVersion : $"{lcVersions}|{tcVersion}";
                loConfigIni._Save("[ACCESCONTROL]", lcVersions, tcPathConfig);
            }
        }

        private static bool ParamControl(string[] tcArgs)
        {
            return tcArgs.Count() > 0 && tcArgs[tcArgs.Count() - 1] == S50UpdateLibrary.ParamControl;
        }

        private static void MostrarSplashInfo(out bool tlMostrarSplash, out bool tlMostrarInfo, out bool tlDebug)
        {
            // Por defecto mostramos Splash sin Info
            tlMostrarSplash = true;
            tlMostrarInfo = false;
            tlDebug = false;

            // Revisar si no queremos mostrar el Splash
            string lcValor = Convert.ToString(FUNCTIONS.LeerConfigIni("[SPLASH]", _cdirectoryPath)).Trim().ToUpper();
            if (lcValor == "NO")
                tlMostrarSplash = false;
            else
            {
                // En caso de mostrar Splash, revisar si queremos mostar info en el
                lcValor = Convert.ToString(FUNCTIONS.LeerConfigIni("[SPLASH_INFO]", _cdirectoryPath)).Trim().ToUpper();
                if (lcValor == "SI")
                    tlMostrarInfo = true;
            }

            // Revisar si entramos en modo debug
            lcValor = Convert.ToString(FUNCTIONS.LeerConfigIni("[SQL_LOG]", _cdirectoryPath)).Trim().ToUpper();
            if (lcValor == "SI")
                tlDebug = true;
        }

        private static void ObtenerParametros(string[] tcArgs)
        {            
            if (tcArgs != null && tcArgs.Count() > 0)
            {                
                // Ahora tenemos todos los parámetros juntos separados por '|'
                string lcParams = tcArgs[0].Trim().Substring(1);
                DB.Registrar_Traza("Program.cs,Main_Parameters", lcParams);                
                
                // Obtener parámetros por separado y recorrerlos para cargar sus valores.
                string[] lcArgs = lcParams.Split('|');

                if (lcArgs.Count() > 2)
                {
                    _lAutomatico = true;

                    int lnArg = 0;
                    foreach (string lcArg in lcArgs)
                    {
                        // Los 3 primeros parámetros serán USUARIO, PASSWORD y FORMULARIO
                        switch (lnArg)
                        {
                            case 0:
                                _cUserEurowin = lcArgs[0];
                                break;

                            case 1:
                                _cPasswordEurowin = lcArgs[1];
                                break;

                            case 2:
                                _cFormEurowin = lcArgs[2];
                                break;
                        }

                        // El resto de parámetros serán los posibles parámetros del FORMULARIO a ejecutar
                        if (lnArg >= 3)
                        {
                            if (!string.IsNullOrWhiteSpace(_cParamsFormEurowin) && lcArg == "ACCESODIRECTO")
                                _cParamsFormEurowin += "*";

                            _cParamsFormEurowin += lcArg;
                        }

                        lnArg++;
                    }                                                                                             
                }
            }
            if (tcArgs.Count() > 1)
            {
                //Task 195376: Comprobar si existe un parámetro de tipo /GRUPO:0001 para forzar el arranque con un grupo
                var result = Array.Find(tcArgs, param => param.Length == 11 && param.Substring(0, 6) == "/GRUPO");
                if (result != null)
                {
                    _cGrupoParametro = "COMU" + result.Substring(7);
                }
            }
        }

        private static void _Run()
        {
            //Asignem nom
            Thread.CurrentThread.Name = "MainThread";

            // TODO. Que fer amb els estils?
            EW_GLOBAL._CodiPerfilCarregat = ".predet";

            // Arrancamos la pantalla principal de Sage 50
            DB.Registrar_Traza("Program.cs,Main_frmPrincipal"); // PE-104002
            Application.Run(new Forms.frmPrincipal());

            // Una vez cerramos sage50, hacemos una copia del config.ini            
            CopiarConfigIni();
        }

        private static void CopiarConfigIni()
        {
            string lcFile = Path.Combine(main_s50._cPathInicio, "config.ini");
            string lcFileBak = Path.Combine(main_s50._cPathInicio, "config.bak");

            try
            {         
                if (File.Exists(lcFile))
                    File.Copy(lcFile, lcFileBak, true);             
            }
            catch (Exception) {}
        }
    }
}