ConsultasBrowsers.cs

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using sage.ew.ewbase;
using System.Text.RegularExpressions;
using sage.ew.db;
using System.Data;
using sage.ew.global;

namespace sage.ew.formul
{
    public class ConsultasBrowsers : ewMante
    {
        #region CONSTRUCTORS

        public ConsultasBrowsers()
        {
            this._DataBase = "COMUNES";
            this._Tabla = "BROWSERS";
            this._Clave = "CODIGO";
            this._TituloMantenimiento = "Mantenimiento de consultas personalizadas";
            this._FormManteBaseType = typeof(Forms.frmConsultasBrowsers);
            this._Pantalla = "BROWSERS";
            this._TituloCabecera = "Consultas de Browsers";
            this._TituloMenu = "Consultas de Browsers"; // PE-95692. Error de sintaxis
        }

        public ConsultasBrowsers(string tcCodigo) :
            this()
        {
            // Cargamos el registro correspondiente al tcCodigo
            this._Codigo = tcCodigo;
        }

        #endregion CONSTRUCTORS



        #region PROPIETATS

        private BrowserColumnsConfig _oBrowserColumnsConfig = null;
       
        public BrowserColumnsConfig _ColumnsConfig
        {
            get
            {
                string mascaras = (_lisCampos.ContainsKey("MASCARAS") ? _lisCampos["MASCARAS"]._NewVal.ToString() : "");
                if (_oBrowserColumnsConfig == null) _oBrowserColumnsConfig = new BrowserColumnsConfig(mascaras);
                return _oBrowserColumnsConfig;
            }
            set
            {
                _oBrowserColumnsConfig = value;
                _RefreshBrowserColumnsConfig();
            }
        }

        public void _RefreshBrowserColumnsConfig()
        {
            _lisCampos["MASCARAS"]._NewVal = _lisCampos.ContainsKey("MASCARAS") && _oBrowserColumnsConfig is BrowserColumnsConfig ? _oBrowserColumnsConfig.ToString() : "";
        }
            
        public string _Consulta
        {
            get
            {
                if (_lisCampos.ContainsKey("CONSULTA"))
                {
                    return _lisCampos["CONSULTA"]._NewVal.ToString();
                }
                else
                {
                    return String.Empty;
                }
            }
            set
            {
                if (_lisCampos.ContainsKey("CONSULTA"))
                {
                    _lisCampos["CONSULTA"]._NewVal = value;
                }
            }
        }

        public string _FieldTabla
        {
            get
            {
                if (_lisCampos.ContainsKey("TABLA"))
                {
                    return _lisCampos["TABLA"]._NewVal.ToString().ToUpper();
                }
                else
                {
                    return String.Empty;
                }
            }
            set
            {
                if (_lisCampos.ContainsKey("TABLA"))
                {
                    _lisCampos["TABLA"]._NewVal = value;
                }
            }
        }

        public string _Claves
        {
            get
            {
                if (_lisCampos.ContainsKey("CLAVES"))
                {
                    return _lisCampos["CLAVES"]._NewVal.ToString().ToUpper();
                }
                else
                {
                    return String.Empty;
                }
            }
            set
            {
                if (_lisCampos.ContainsKey("CLAVES"))
                {
                    _lisCampos["CLAVES"]._NewVal = value;
                }
            }
        }

        private string _cBrowserClave = "";
        public string _BrowserClave
        {
            get { return _cBrowserClave; }
            set { _cBrowserClave = value; }
        }


        private string _cTablaConsulta = "";
        public string _TablaConsulta
        {
            get { return _cTablaConsulta; }
            set 
            {
                if (value != null)
                {
                    _cTablaConsulta = value.ToUpper();                    
                }
            }
        }

        private string _cDataBaseConsulta = "";
        public string _DataBaseConsulta
        {
            get { return _cDataBaseConsulta; }
            set 
            {
                if (value == null)
                    value = String.Empty;
                _cDataBaseConsulta = value.ToUpper(); 
            }
        }

        private string _cTituloBrowser = "";
        public string _TituloBrowser
        {
            get { return _cTituloBrowser; }
            set { _cTituloBrowser = value; }
        }

        public string _RequiredFieldsForBrowserExtensions { get; set; }

        public List<string> _CamposResultado = new List<string>();

        #endregion PROPIETATS



        #region OVERRIDES

        public override void _New(string tcCodigo = "")
        {
            base._New(tcCodigo);

            // Assigno el valor a tabla
            _FieldTabla = _TablaConsulta.ToUpper();
        }

        public override void _Load()
        {
            base._Load();

            _oBrowserColumnsConfig = null;
        }

        public override bool _Save()
        {
            // Comprovacions per guardar
            if ((_Estado == _EstadosMantenimiento.EntrandoNuevo || _Estado == _EstadosMantenimiento.EditandoRegistro))
            {
                if (string.IsNullOrWhiteSpace(this._Consulta))
                {
                    this._Error_Message = "Es obligatorio introducir una consulta.";
                    return false;
                }

                // Comprobar si hi ha error a la consulta
                string lcMensajeError = "";
                string lcSql = this._Consulta.ToUpper();
                DataTable loResultat = new DataTable();

                if (!_ComprobarConsulta(ref lcSql, out lcMensajeError, ref loResultat))
                {
                    this._Error_Message = "La consulta no es correcta. No se puede guardar.";
                    return false;
                }

                // Comprovar si la clau està inclosa a la consulta
                int lnPosSelect = this._Consulta.IndexOf("Select", StringComparison.OrdinalIgnoreCase);
                int lnPosFrom = this._Consulta.IndexOf("From", StringComparison.OrdinalIgnoreCase);
                string lcSelect = this._Consulta.Substring(lnPosSelect + 6, lnPosFrom - (lnPosSelect + 6));
                int lnPosAll = lcSelect.IndexOf("*", StringComparison.OrdinalIgnoreCase);
                if (lnPosAll == -1)
                {
                    int lnPosClave = -1;
                    String lcClave, lcConsulta;
                    //PE-105884
                    if (_Hera && _TablaConsulta.ToUpper() == "CLIENTES")
                    {
                        lcConsulta = this._Consulta.ToLower();
                        MatchCollection loMatches = Regex.Matches(lcConsulta.Substring(0, lnPosFrom), @"\s+(as)\s+(?<alias>\w+)");
                        lcClave = "CLIENTEERP";

                        foreach (Match loMatch in loMatches)
                        {
                            if (loMatch.Groups["alias"].Value == lcClave.ToLower()) lnPosClave = 0;  
                        }
                    }
                    else
                    {
                        lnPosClave = lcSelect.IndexOf(_Clave, StringComparison.OrdinalIgnoreCase);
                        lcClave =_Clave;
                    }

                    //if (lnPosClave == -1)
                    //    if (!loResultat.Columns.Contains(_Clave.ToUpper()))
                    //    {
                    //        this._Error_Message = "El resultado de la consulta no contiene el campo clave (" + lcClave + "). No se puede guardar.";
                    //        return false;
                    //    }
                }
            }

            //Refrescamos el campo Mascaras
            _RefreshBrowserColumnsConfig();

            bool saved = base._Save();

            if (saved)
            {
                // Borrar la configuración guardada por si se han cambiado campos...
                string usuario = EW_GLOBAL._GetVariable("wc_usuario").ToString();
                _Vista browserExtPos = new _Vista("COMUNES", "BROWSEREXTPOS", new Dictionary<string, object>() { { "Tabla", _TablaConsulta + "_" + _Codigo }, { "Usuario", usuario } });
                if (browserExtPos._Reccount > 0)
                {
                    browserExtPos._Delete();
                    browserExtPos._TableUpdate();
                }
            }

            return saved;
        }

        public override bool _Delete()
        {
            bool lbDelete = false;

            lbDelete = base._Delete();

            if (lbDelete)
            {
                // PE-95727. Si és la consulta predeterminada,
                string lcCodiConsulta = DB.SQLValor("USRBROWSER", new string[] { "USUARIO", "Upper(TABLA)" }, new string[] { global.EW_GLOBAL._GetVariable("wc_usuario").ToString(), _FieldTabla.ToUpper() }, "CODIGO", "COMUNES").ToString();
                if (this._Codigo.Trim() == lcCodiConsulta.Trim())
                {
                    // l'esborrem
                    _Borrar_Predeterminada();
                }
            }

            return lbDelete;
        }

        public override void _Show(string tcCodigoConsulta = "")
        {          
            _Codigo = tcCodigoConsulta;

            base._Show();
        }

        #endregion OVERRIDES



        #region MÈTODES PUBLICS

        public bool _ComprobarConsulta(ref string tcConsulta, out string tcMensajeError, bool tbSoloComprobar = true)
        {
            bool lbCorrecte = false;
            tcMensajeError = "";

            DataTable loResultat = new DataTable();

            // No cal que retorni cap registre
            if (tbSoloComprobar)
            {
                // PE-104661. Añadir top 0 para que no devuelva ningún resultado
                // CCR-Cambiar String.Replace por Regex.Replace para que no sea CS
                tcConsulta = Regex.Replace(tcConsulta, "Select", "Select Top 0", RegexOptions.IgnoreCase);
            }

            lbCorrecte = _ComprobarConsulta(ref tcConsulta, out tcMensajeError, ref loResultat);

            if (tbSoloComprobar)
            {
                // Quitar el top
                // Cambiar String.Replace por Regex.Replace para que no sea CS
                tcConsulta = Regex.Replace(tcConsulta, "Top 0 ", "", RegexOptions.IgnoreCase);
            }
            return lbCorrecte;
        }

        public bool _ComprobarConsulta(ref string tcConsula, out string tcMensajeError, ref DataTable toResultat)
        {
            bool lbCorrecte = false;
            string consultalocal = "";
            tcMensajeError = "";

            toResultat = new DataTable();

            // Trec els espais duplicats a la consulta
            tcConsula = Regex.Replace(tcConsula, @"\s+", " ");

            try
            {
                // Només busquem els alias de base de dades i els canviem pel seu nom
                foreach (KeyValuePair<string, string> loDB in DB._oAliasDB)
                {
                    tcConsula = QuitarAsBD(tcConsula, loDB.Key.Trim());
                    tcConsula = Regex.Replace(tcConsula, loDB.Key.Trim() + "!", loDB.Value.Trim(), RegexOptions.IgnoreCase);
                }

                consultalocal = tcConsula;
                if (!EW_GLOBAL._ReplaceVariables(ref consultalocal))
                {
                    tcMensajeError = "Falta el corchete de cierre en alguna variable global.";
                    return false;
                }

                // Executem la consulta
                if (DB.SQLExec(consultalocal, ref toResultat) && toResultat != null)
                {
                    // No comprovem resultats, només que no falli
                    lbCorrecte = true;
                }
            }
            catch (Exception ex)
            {
                tcMensajeError = ex.Message;
            }

            _CamposResultado.Clear();

            if (lbCorrecte)
            {
                // Extraer los campos para que puedan seleccionar la clave principal
                if (toResultat.Columns.Count > 0)
                {
                    _CamposResultado.Add("");
                }

                // Aunque he intentado controlarlo, sqlserver cambia el nombre del alias repetido. le añade un ordinal
                foreach (DataColumn camp in toResultat.Columns)
                {
                    if (_CamposResultado.Contains(camp.ColumnName.Trim().ToUpper()))
                    {
                        tcMensajeError = "Ha incluido el mismo campo o el mismo alias más de una vez en el resultado de la consulta.";
                        lbCorrecte = false;
                        _CamposResultado.Clear();
                        break;
                    }

                    _CamposResultado.Add(camp.ColumnName.Trim().ToUpper());
                }
            }

            // Reemplazar las variables globales

            return lbCorrecte;
        }

        public void _Predeterminar()
        {
            string lcUsuario = global.EW_GLOBAL._GetVariable("wc_usuario").ToString();

            // Primer esborro el que hi pugui haver
            _Borrar_Predeterminada();

            // i inserto l'actual
            DB.SQLExec("Insert Into " + DB.SQLDatabase("COMUNES", "USRBROWSER") +
                       "(USUARIO, TABLA, CODIGO) " +
                       "Values (" + DB.SQLString(lcUsuario) + "," + DB.SQLString(_FieldTabla.ToUpper()) + "," + DB.SQLString(_Codigo) + ")");
        }

        public void _Borrar_Predeterminada()
        {
            string lcUsuario = global.EW_GLOBAL._GetVariable("wc_usuario").ToString();

            DB.SQLExec("Delete From " + DB.SQLDatabase("COMUNES", "USRBROWSER") +
                       " Where USUARIO = " + DB.SQLString(lcUsuario) +
                           " And Upper(TABLA) = " + DB.SQLString(_FieldTabla.ToUpper()));
        }

        public DataTable _GetDataTablePredeterminado()
        {
            DataTable ldDTP = new DataTable();
            string lcMissatge="";
            bool lbCorrecte = false;

            string lcCodiConsulta = DB.SQLValor("USRBROWSER", new string[] { "USUARIO", "Upper(TABLA)" }, new string[] { global.EW_GLOBAL._GetVariable("wc_usuario").ToString(), _FieldTabla.ToUpper() }, "CODIGO", "COMUNES").ToString();

            if (!string.IsNullOrWhiteSpace(lcCodiConsulta))
            {
                string lcSql = DB.SQLValor("BROWSERS", "CODIGO", lcCodiConsulta, "CONSULTA", "COMUNES").ToString();

                if (!string.IsNullOrWhiteSpace(lcSql))
                {
                    // Comprova i recupera les dades
                    lbCorrecte = _ComprobarConsulta(ref lcSql, out lcMissatge, ref ldDTP);
                }

                return ldDTP;
            }
            else
                return null;            
        }

        public List<string> _GetConsultasByTabla()
        {
            List<string> lstConsultas = new List<string>(){""};
            DataTable ldtConsultas = _GetDataTableConsultasByTabla();
            
            if (ldtConsultas != null && ldtConsultas.Rows.Count > 0)
            {
                lstConsultas = ldtConsultas.Rows.OfType<DataRow>().Select(dr => dr.Field<string>(1)).ToList();
            }

            // PE-95742. Añadir un primer elemento en blanco para poder cargar la consulta original
            lstConsultas.Add("");
            lstConsultas.Sort();

            return lstConsultas;
        }

        public DataTable _GetDataTableConsultasByTabla()
        {
            DataTable ldtConsultas = new DataTable();
            string usuario = global.EW_GLOBAL._GetVariable("wc_usuario").ToString();

            string lcSql = "Select browsers.codigo, browsers.nombre, CAST( case when usrbrowser.codigo is null then 0 else 1 end as bit) as predet " +
                           "From " + DB.SQLDatabase("COMUNES", "BROWSERS") + " browsers " +
                           "Left Join " + DB.SQLDatabase("COMUNES", "USRBROWSER") + " usrbrowser On usrbrowser.codigo = browsers.codigo " +
                               " and usrbrowser.usuario = " + DB.SQLString(usuario) +
                               " and Upper(usrbrowser.tabla) = " + DB.SQLString(_TablaConsulta.ToUpper()) + " " +
                           "Where Upper(browsers.tabla) = " + DB.SQLString(_TablaConsulta.ToUpper()) +
                           "Order by browsers.codigo";

            DB.SQLExec(lcSql, ref ldtConsultas);

            return ldtConsultas;
        }

        public string _GetConsultaPredeterminadaCodigo()
        {
            //string lcMissatge = "";
            //bool lbCorrecte = false;

            string lcCodiConsulta = DB.SQLValor("USRBROWSER", new string[] { "USUARIO", "Upper(TABLA)" }, new string[] { global.EW_GLOBAL._GetVariable("wc_usuario").ToString(), _TablaConsulta.ToUpper() }, "CODIGO", "COMUNES").ToString();

            return lcCodiConsulta;
        }

        public string _GetConsultaPredeterminada()
        {
            //string lcMissatge = "";
            //bool lbCorrecte = false;

            string lcCodiConsulta = DB.SQLValor("USRBROWSER", new string[] { "USUARIO", "Upper(TABLA)" }, new string[] { global.EW_GLOBAL._GetVariable("wc_usuario").ToString(), _TablaConsulta.ToUpper() }, "CODIGO", "COMUNES").ToString();

            if (!string.IsNullOrWhiteSpace(lcCodiConsulta))
            {
                string lcNombre = DB.SQLValor("BROWSERS", "CODIGO", lcCodiConsulta, "NOMBRE", "COMUNES").ToString();

                //if (!string.IsNullOrWhiteSpace(lcNombre))
                //{
                //    // Comprova i recupera les dades
                //    lbCorrecte = _ComprobarConsulta(ref lcNombre, out lcMissatge, false);
                //}

                return lcNombre;
            }
            else
                return "";
        }

        public string _GetConsultaByCodigo(string tcCodigoConsulta, bool soloComprobar = false)
        {
            // PE-104661. Añadir parametro soloComprobar para que la consulta no devuelva registros
            string lcMissatge = "";
            string lcSql = "";
            bool lbCorrecte = false;

            string codi = tcCodigoConsulta; //DB.SQLValor("BROWSERS", "NOMBRE", tcCodigoConsulta, "CODIGO", "COMUNES").ToString();

            if (!string.IsNullOrWhiteSpace(codi))
            {
                // Carreguem el registre
                this._Codigo = codi;
                lcSql = this._Consulta;

                if (!string.IsNullOrWhiteSpace(lcSql))
                {
                    // Comprovar retornos de carro...
                    lcSql = lcSql.Trim().Replace("\r", " ").Replace("\n", " ");

                    // Comprova i recupera les dades
                    lbCorrecte = _ComprobarConsulta(ref lcSql, out lcMissatge, soloComprobar);
                }
            }

            if (lbCorrecte)
                return lcSql;
            else
                return "";
        }

        public string _GetConsultaByName(string tcNombreConsulta, bool soloComprobar = false)
        {
            // PE-104661. Añadir parametro soloComprobar para que la consulta no devuelva registros
            string lcMissatge = "";
            string lcSql = "";
            bool lbCorrecte = false;

            string codi = DB.SQLValor("BROWSERS", "NOMBRE", tcNombreConsulta, "CODIGO", "COMUNES").ToString();

            if (!string.IsNullOrWhiteSpace(codi))
            {
                // Carreguem el registre
                this._Codigo = codi;
                lcSql = this._Consulta;

                if (!string.IsNullOrWhiteSpace(lcSql))
                {
                    // Comprovar retornos de carro...
                    lcSql = lcSql.Trim().Replace("\r", " ").Replace("\n", " ");

                    // Comprova i recupera les dades
                    lbCorrecte = _ComprobarConsulta(ref lcSql, out lcMissatge, soloComprobar);
                }
            }

            if (lbCorrecte)
                return lcSql;
            else
                return "";
        }

        #endregion MÈTODES PUBLICS

        private string QuitarAsBD(string tcConsula, string basedatos)
        {
            basedatos = basedatos.ToUpper();

            // Busco totes les base de dades per comprovar si tenen la paraula ' as '
            int posbd = 0;
            do
            {
                posbd = tcConsula.ToUpper().IndexOf(basedatos + "!", posbd + 1);
                if (posbd > -1)
                {
                    // Busco el primer espai
                    int pos1 = tcConsula.ToUpper().IndexOf(" ", posbd);
                    if (pos1 > -1)
                    {
                        // Busco el seguent espai
                        int pos2 = tcConsula.ToUpper().IndexOf(" ", pos1 + 1);
                        if (pos2 > -1)
                        {
                            // Comprobo si la paraula del mig és ' as '
                            if (tcConsula.Substring(pos1 + 1, pos2 - pos1 - 1).ToLower() == "as")
                            {
                                // La trec
                                tcConsula = tcConsula.Substring(0, pos1) + tcConsula.Substring(pos2);
                            }
                        }
                    }
                }
                else
                    break;

            } while (true);

            return tcConsula;
        }

    }
}