clsPep.cs

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Data;
using System.Diagnostics;
using System.Windows.Forms;
using System.IO;
using sage.ew.db;
using sage.ew.global;
using sage.ew.ewbase;
using sage.ew.interficies;


namespace sage.ew.pep
{
    public static class PEP
    {

        // Para poder introducir comillas dobles dentro de cadenas
        const string COMILLAS = "\"";

        #region PROPIEDADES

        // Ruta completa del ejecutable principal de la aplicación
        private static string _cMainEXEFileName = "";

        // Identificación del usuario o “00” para no configurar por usuario
        private static string _cUserId = ""; // S'ha decidit no distingir entre els diferent usuaris d'EW. Un genèric.

        // Idetificador único del cliente (IDSage o similar)
        private static string _cCustomerId = ""; //ALLTRIM(loCodCom.SageID)

        //* SSB / ACC / SMB
        private static string _cDivision = "";

        // Identificador único para la instalación y aplicación (opcional)
        private static string _cLicensePlate = "";

        // Fecha de la última sincronización
        private static DateTime _dFechaSincro = DateTime.MinValue; // TTOD(loCodCom.PepSincro)      

        // Nombre y versión de la aplicación
        private static string _cApplicationNameAndVersion = ""; // ALLTRIM(loCodCom.ProductName) +" "+ ALLTRIM(loCodCom.Version)

        // 0 = Adherido     1 = No adherido     2 = Sin selección
        private static int _nValue = 2; //_Comprobar_Adhesion(loCodCom.PepValue, tlForzar)

        //private static string _cFormName = "";

        //private static string _cUserInterfaceSource = "";

        //private static string _cVolumeCategory = "";

        //private static decimal _nValumeAmmount = 0;

        //private static string _cDirectoryForConfigFiles = "";

        // Para saber si estamos en sage50 (PE-103025)
        private static bool _lSage50 = false;

        // Nombre del ejecutable relacionado (PE-103025)
        private static string _cAppName = "sagetpv";

        // Datatable con los controles a tener en cuenta (PE-103025)
        private static DataTable _dtControles = null;

        #endregion PROPIEDADES


        #region CONSTRUCTORES

        static PEP()
        {
            _Inicializar(); // PE-103025
        }

        #endregion CONSTRUCTORES


        #region METODOS PRIVADOS

        private static DataTable Obtener_Controles()
        {
            DataTable ldtControles = new DataTable();
            
            string lcSql = "SELECT clase, MAX(libreria) as libreria, MAX(nombre) as nombre FROM "+DB.SQLDatabase("COMUNES","OBJETOS");
            if (_lSage50)
            {
                lcSql += " WHERE s50 = " + DB.SQLString(_lSage50);
            }
            lcSql += " GROUP BY clase";
            
            DB.SQLExec(lcSql, ref ldtControles);

            // Poner el nombre de los controles en minúsculas
            foreach (DataRow loFila in ldtControles.Rows)
            {
                loFila["clase"] = loFila["clase"].ToString().ToLower().Trim();
            }
            ldtControles.PrimaryKey = new DataColumn[] { ldtControles.Columns["clase"] };            

            return ldtControles;
        }


        private static bool Execute_pep(string tcParams, bool tlSincron=false)
        {
            bool llOk = false;
            string lcParams = "", lcRutaExe="";

            //*!* Parámetros disponibles para la ejecución de Sage.PEP.Exe: 
            //*!*
            //*!*   <MainEXEFileName>: Ruta completa del ejecutable principal de la aplicación
            //*!*   <UserId>: Identificación del usuario o “00” para no configurar por usuario
            //*!*   <CustomerId>: Idetificador único del cliente (IDSage o similar)
            //*!*   <Division>: SSB / ACC / SMB
            //*!*   <FormName>: Nombre del módulo funcional
            //*!*   <UserInterfaceSource>: Elemento de la interfaz de usuario (Toolbar, MainMenu, VerticalMenu, …)
            //*!*   <ApplicationNameAndVersion>: Nombre y versión de la aplicación
            //*!*   <Value>:0 ? Adherido     1 ? No aherido     2 ? Sin selección
            //*!*   <VolumeCategory>: Nombre de la categoría para el envío de información de volumen
            //*!*   <ValumeAmmount>: Cantidad asociada a la categoría anterior para el envío de información de volumen
            //*!*   <DirectoryForConfigFiles>: Directorio que contiene los ficheros configuración de la adhesión al Programa de Mejora de cada cliente. (opcional)
            //*!*   <LicensePlate>: Identificador único para la instalación y aplicación (opcional)
            //*!*
            //*!*     Ejemplos ejecución:
            //*!*     Sage.PEP.exe -EXE="C:\GrupoSP\CON2012\Contabilidad.exe" -USER=02 -FORM="Gestión de asientos" -UISOURCE="Toolbar" -DIVISION="ACC" -CUSTOMERID="Pepito" -VERSION="ContaPlus 2013 R2"
            //*!*     Sage.PEP.exe -EXE="C:\GrupoSP\NOM2012\Nominas.exe" -USER=05 -EULA  

            //*!*     OJO, VALOR tiene que ser uno de los valores devueltos por la llamada -ISJOINED
            //*!*     Sage.PEP.exe -EXE="C:\GrupoSP\GES2012\EXE\Gestion.exe" -USER=88 -VALUE=3 -SAVEEULA 


            // Únicamente enviamos información en caso de estar en ejecutable
            if (!Convert.ToBoolean(EW_GLOBAL._GetVariable("wl_EsEjecutable")))
                return true;

            // En licencias internas de pruebas no enviar información  (PE-103025)
            if (LICENCIAS._EsLicenciaParaPruebas)
                return true;

            // En licencias de DEMO no enviar información  (Task 110943)
            if (LICENCIAS._Demo)
                return true;
            
            // Obtener todos los parámetros para la ejecución de sage.PEP.exe 
            lcParams = "-EXE=" + COMILLAS + _cMainEXEFileName.Trim() + COMILLAS + " -USER=" + _cUserId + " -LICENSEPLATE=" + COMILLAS + _cLicensePlate + COMILLAS + " " + tcParams;            
            
            // Ruta del ejecutable sage.PEP.exe
            lcRutaExe = Path.Combine(EW_GLOBAL._GetVariable("wc_PathInicio").ToString(), @"librerias\Sage.PEP.exe");

            // Preparar proceso 
            Process loProcess = new Process();
            ProcessStartInfo loExePep = new ProcessStartInfo(lcRutaExe);
            loExePep.Arguments = lcParams;
            loProcess.StartInfo = loExePep;                              

            try 
            {                
                llOk = loProcess.Start();
                if (tlSincron)
                    loProcess.WaitForExit();   
            }
            catch (Exception loEx)
            {
                DB.Registrar_Error(loEx); //Registramos excepción
                llOk = false;
                MessageBox.Show("Se ha detectado alguna incidencia en la ejecución del PEP Service."+Environment.NewLine+loEx.Message,"Pep Service",MessageBoxButtons.OK,MessageBoxIcon.Error);             
            }

            return llOk;
        }

        private static bool Enviar_Opcion(string tcNombreOpcion, bool tlEdicion)
        {
            bool llOk = false;
            string lcParams = "",lcModulo="";            

            // En licencias internas de pruebas no enviar información  (PE-103025)
            if (LICENCIAS._EsLicenciaParaPruebas)
                return true;

            // En licencias de DEMO no enviar información  (Task 110943)
            if (LICENCIAS._Demo)
                return true;            

            // Comprobar si está adherido   
             if (_nValue != 0)
                return true;
            
            // Si estamos editando un pefil no hay que enviar información (PE-103025)
            if (EW_GLOBAL._EdicionPerfiles && !tlEdicion)
                return true;

            // Bug 138639
            tcNombreOpcion = LimpiarDatosBasura(tcNombreOpcion);


            // Módulo desde donde se ha llamado la opción
            lcModulo = Convert.ToString(EW_GLOBAL._GetVariable("wc_modulo")).ToLower().Trim();

            // Opción a enviar
            tcNombreOpcion = _cAppName +"_"+tcNombreOpcion;

            //* Sage.PEP.exe -EXE=<MainEXEFileName> -USER=<UserId> -CUSTOMERID=<CustomerId> 
            //* [-CONFIGFILESDIR=<DirectoryForConfigFiles>] [-LICENSEPLATE=<LicensePlate>]
            //* -DIVISION=<Division> -FORM=<FormName> -UISOURCE=<UserInterfaceSource> 
            //* -VERSION=<ApplicationNameAndVersion>            

            lcParams = " -CUSTOMERID=" + COMILLAS + _cCustomerId + COMILLAS +
                        " -DIVISION=" + COMILLAS + _cDivision + COMILLAS +
                        " -FORM=" + COMILLAS + tcNombreOpcion + COMILLAS +
                        " -UISOURCE=" + COMILLAS + lcModulo + COMILLAS +            
                        " -VERSION=" + COMILLAS + _cApplicationNameAndVersion + COMILLAS;

            llOk = Execute_pep(lcParams);

            return llOk;
        }

        private static string LimpiarDatosBasura(string tcNombreOpcion)
        {
            tcNombreOpcion = QuitarLiteral(tcNombreOpcion, "(sólolectura)");
            tcNombreOpcion = QuitarLiteral(tcNombreOpcion, "(bajasuscripción)");
            tcNombreOpcion = QuitarLiteral(tcNombreOpcion, "(sql_log)");

            tcNombreOpcion = RecortarHastaLiteral(tcNombreOpcion, "browser_listadodeplanesanalíticosdelacuentacontable");
            tcNombreOpcion = RecortarHastaLiteral(tcNombreOpcion, "frmobserv_observacionesdelcliente");

            if (tcNombreOpcion.Contains("frmdoccompra"))
            {
                tcNombreOpcion = RecortarHastaLiteral(tcNombreOpcion, "frmdoccompraalbaran");
                tcNombreOpcion = RecortarHastaLiteral(tcNombreOpcion, "frmdoccompradeposito");
                tcNombreOpcion = RecortarHastaLiteral(tcNombreOpcion, "frmdoccomprafactura");
                tcNombreOpcion = RecortarHastaLiteral(tcNombreOpcion, "frmdoccomprapedido");
                tcNombreOpcion = RecortarHastaLiteral(tcNombreOpcion, "frmdoccomprapropuesta");
            }

            if (tcNombreOpcion.Contains("frmdocventa"))
            {
                tcNombreOpcion = RecortarHastaLiteral(tcNombreOpcion, "frmdocventaalbaran");
                tcNombreOpcion = RecortarHastaLiteral(tcNombreOpcion, "frmdocventadeposito");
                tcNombreOpcion = RecortarHastaLiteral(tcNombreOpcion, "frmdocventafra");
                tcNombreOpcion = RecortarHastaLiteral(tcNombreOpcion, "frmdocventaped");
                tcNombreOpcion = RecortarHastaLiteral(tcNombreOpcion, "frmdocventapresupuesto");
                tcNombreOpcion = RecortarHastaLiteral(tcNombreOpcion, "frmdocventatpv");
            }

            return tcNombreOpcion;
        }
        
        private static string QuitarLiteral(string tcNombreOpcion, string tcLiteral)
        {
            if (tcNombreOpcion.Contains(tcLiteral))
                tcNombreOpcion = tcNombreOpcion.Replace(tcLiteral, "");

            return tcNombreOpcion;
        }

        private static string RecortarHastaLiteral(string tcNombreOpcion, string tcLiteral)
        {
            if (tcNombreOpcion.Contains(tcLiteral))
            {
                int lnPos = tcNombreOpcion.IndexOf(tcLiteral);
                if (lnPos >= 0)
                {
                    lnPos = lnPos + tcLiteral.Length;
                    tcNombreOpcion = tcNombreOpcion.Substring(0, lnPos);
                }
            }

            return tcNombreOpcion;
        }

        #endregion  METODOS PRIVADOS


        #region METODOS PUBLICOS

        public static void _Inicializar()
        {
            // Únicamente enviamos información en caso de estar en ejecutable
            if (!Convert.ToBoolean(EW_GLOBAL._GetVariable("wl_EsEjecutable")))
                return;

            // En licencias internas de pruebas no enviar información  (PE-103025)
            if (LICENCIAS._EsLicenciaParaPruebas)
                return;

            // En licencias de DEMO no enviar información  (Task 110943)
            if (LICENCIAS._Demo)
                return;            

            // Estamos en sage50? (PE-103025)  
            _lSage50 = Convert.ToBoolean(EW_GLOBAL._GetVariable("wl_Sage50"));
            _cAppName = (_lSage50 ? "sage50" : "sagetpv");

            // Task 110943. Si en el fichero sagelic existe el atributo "internal.user" con el valor "yes", NO se enviará información a google analytics           
            if (_lSage50)
            {
                object loInternal = LICENCIAS._ObtenerAtributoSagelic("internal.user");
                if (loInternal != null && Convert.ToString(loInternal).ToLower().Trim() == "yes")
                    return;
            }

            // Obtener registro CODCOM
            object loObj = null;
            Dictionary<string, object> loDicCodCom = DB.SQLREGValor("codcom", "1", "1", "comunes");
            if (loDicCodCom.Count <= 0)
                return;

            // Establecer el valor para las propiedades necesarias
            _cMainEXEFileName = Path.Combine(EW_GLOBAL._GetVariable("wc_PathInicio").ToString(), (_lSage50 ? "Sage50.exe" : "Eurowin.exe"));  // PE-103025
            _cUserId = "00";
            _cDivision = "SSB"; // Task 110943
            _cLicensePlate = EW_GLOBAL._GetVariable("wc_ewlicencia").ToString();            

            loObj = null;
            if (loDicCodCom.TryGetValue("sageid", out loObj))
                _cCustomerId = loObj.ToString().Trim();

            // PE-79928. Este campo no se utiliza desde .NET 
            //loObj = null;
            //if (loDicCodCom.TryGetValue("pepsincro", out loObj))
            //    this._dFechaSincro = Convert.ToDateTime(loObj).Date;

            loObj = null;
            if (loDicCodCom.TryGetValue("productname", out loObj))
                _cApplicationNameAndVersion = loObj.ToString().Trim();

            loObj = null;
            if (loDicCodCom.TryGetValue("version", out loObj))
                _cApplicationNameAndVersion += " " + loDicCodCom["version"].ToString().Trim();

            loObj = null;
            if (loDicCodCom.TryGetValue("pepvalue", out loObj))
                _nValue = Convert.ToInt32(loObj);           

            if (_Login())
            {
                // PE-103025. Obtener datatable con todos los objetos a tener en cuenta
                _dtControles = Obtener_Controles();
            }
        }


        public static bool _Login()
        {
            bool llOk = false;            

            // Sage.PEP.exe -EXE=<MainEXEFileName> -USER=<UserId> -CUSTOMERID=<CustomerId> 
            // [-CONFIGFILESDIR=<DirectoryForConfigFiles>] [-LICENSEPLATE=<LicensePlate>]
            // -VERSION=<ApplicationNameAndVersion> -LOGIN

            string lcParams = " -VERSION=" + COMILLAS + _cApplicationNameAndVersion + COMILLAS + " "+
                               " -LOGIN";

            llOk = Execute_pep(lcParams);

            return llOk;
        }


        public static bool _Control(Control toControl, bool tlEdicion=false)
        {
            bool llOk = false;
            string lcExcluir = "messageboxtactil,frmprincipal,frmlogin,btdocsalir";

            if (toControl == null)
                return true;

            // Obtener el nombre del control
            string lcNombreControl = toControl.Name.ToLower().Trim();
            if (string.IsNullOrWhiteSpace(lcNombreControl))
                return true;            

            // Excluir controles
            if (lcExcluir.Contains(lcNombreControl))
                return true;

            // PE-103259. En caso que el control sea un checkbox y esté en el formulario de configuración de empresa se enviará la información tambien
            if ((toControl is CheckBox) && toControl.FindForm() != null && (toControl.FindForm().Name.ToLower().Trim() == "frmempresa"))
            {
                lcNombreControl = "opcemp_" + (((CheckBox)toControl).Checked ? "marked" : "unmarked") + "_" +  toControl.Text.ToLower().Replace(" ", "").Trim();
                return Enviar_Opcion(lcNombreControl, false);
            }

            //Task 103195
            if ((toControl is CheckBox) && toControl.FindForm() != null && (toControl.FindForm().Name.ToLower().Trim() == "frmgruposemp") && lcNombreControl == "chkbackup")
            {
                lcNombreControl = "chkbackup_" + (((CheckBox)toControl).Checked ? "marked" : "unmarked") + "_" + toControl.Text.ToLower().Replace(" ", "").Trim();
                return Enviar_Opcion(lcNombreControl, false);
            }

            // Comprobar si se trata de un formulario, en ese caso enviar la información directamente
            if (toControl is Form)
            {
                String lcText;

                lcText = (toControl is IFormBase) ? ((IFormBase)toControl)._ObtenerText(false) : toControl.Text;
                lcText = lcText.ToLower().Trim().Replace(" ", "");

                return Enviar_Opcion(lcNombreControl + "_" + lcText, tlEdicion);
            }

            // PE-105393: Si es un botón, miramos si tenemos definida la variable que nos dice si enviar o no la estadistica
            if (toControl is Button && toControl.GetType().GetProperty("_GoogleAnalytics") != null && ((IGoogleAnalitics)toControl)._GoogleAnalytics)
            {
                return Enviar_Opcion(lcNombreControl + "_" + toControl.Text.ToLower().Trim().Replace(" ", ""), tlEdicion);
            }

            // Comprobar que el control esté dentro de nuestra tabla OBJETOS
            if (_dtControles != null && _dtControles.Rows.Count > 0)
            {
                llOk = (_dtControles.Rows.Find(lcNombreControl) != null);
            }

            // Enviar información 
            if (llOk)                
                return Enviar_Opcion(lcNombreControl,tlEdicion);
            else
                return false;
        }


        public static bool _Opcion(string tcOpcion, bool tlEdicion=false)
        {            
            if (string.IsNullOrWhiteSpace(tcOpcion))
                return true;

            return Enviar_Opcion(tcOpcion,tlEdicion);
        }

        #endregion  METODOS PUBLICOS
    }
}