EliminarDocumentosIncompletos.cs

using sage.ew.db;
using sage.ew.DiagnosticoAutomatico;
using sage.ew.DiagnosticoAutomatico.Diagnosticos;
using sage.ew.ewbase.Clases;
using sage.ew.formul.Forms;
using sage.ew.global;
using System;
using System.Collections.Generic;
using System.Data;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace sage.ew.Diagnostico
{
    public class EliminarDocumentosIncompletosVentas
        : EliminarDocumentosIncompletos
    {

        private List<TipoDocumento> _oDocumentos = null;

        protected override List<TipoDocumento> _Documentos
        {
            get
            {
                if (_oDocumentos == null) _oDocumentos = new List<TipoDocumento>() { new TipoDocumentoPresupuestoVenta(), new TipoDocumentoDepositoVenta(), new TipoDocumentoPedidoVenta(), new TipoDocumentoAlbaranVenta(), new TipoDocumentoFacturaVenta(), new TipoDocumentoTicketVenta() };
                return _oDocumentos;
            }
        }

        protected override DataTable CreateDataTable(List<TipoDocumento> toDocumentos)
        {
            string lcTipo;
            DataRow loRow;
            DataTable loDt = new DataTable();

            loDt.Columns.Add("sel", typeof(bool));
            loDt.Columns.Add("tipo", typeof(string)).Caption = "Tipo documento";
            loDt.Columns.Add("tabla", typeof(string));
            loDt.Columns.Add("documento", typeof(string));
            loDt.Columns.Add("key", typeof(string)).ExtendedProperties.Add("NoVisible", true);

            toDocumentos.ForEach(f =>
            {
                lcTipo = $"{f.ToString().Substring(0, 1).ToUpper()}{f.ToString().Substring(1)}";

                f._Data.AsEnumerable().ToList().ForEach(z =>
                {
                    loRow = loDt.NewRow();
                    loRow["tipo"] = lcTipo;
                    loRow["tabla"] = z["TABLA"];
                    loRow["documento"] = $"{z["LETRA"]}{z["NUMERO"]}";
                    z["KEY"] = loRow["key"] = Guid.NewGuid();

                    loDt.Rows.Add(loRow);
                });
            });

            return loDt;
        }

        public EliminarDocumentosIncompletosVentas()
            : base(TipoCategoriaPruebaDiagnostica.Ventas, "Eliminar cabeceras sin líneas y líneas sin cabeceras a nivel de documentos de ventas (pedidos, presupuestos, albarán, depósitos y facturas).")
        {

        }

    }

    public class EliminarDocumentosIncompletosCompras
       : EliminarDocumentosIncompletos
    {
        private List<TipoDocumento> _oDocumentos = null;

        protected override List<TipoDocumento> _Documentos
        {
            get
            {
                if (_oDocumentos == null) _oDocumentos = new List<TipoDocumento>() { new TipoDocumentoPropuestaCompra(), new TipoDocumentoDepositoCompra(), new TipoDocumentoPedidoCompra(), new TipoDocumentoAlbaranCompra(), new TipoDocumentoFacturaCompra() };
                return _oDocumentos;
            }
        }

        protected override DataTable CreateDataTable(List<TipoDocumento> toDocumentos)
        {
            string lcTipo;
            DataRow loRow;
            DataTable loDt = new DataTable();

            loDt.Columns.Add("sel", typeof(bool));
            loDt.Columns.Add("tipo", typeof(string)).Caption = "Tipo documento";
            loDt.Columns.Add("tabla", typeof(string));
            loDt.Columns.Add("documento", typeof(string));
            loDt.Columns.Add("proveedor", typeof(string));
            loDt.Columns.Add("key", typeof(string)).ExtendedProperties.Add("NoVisible", true);

            toDocumentos.ForEach(f =>
            {
                lcTipo = $"{f.ToString().Substring(0, 1).ToUpper()}{f.ToString().Substring(1)}";

                f._Data.AsEnumerable().ToList().ForEach(z =>
                {
                    loRow = loDt.NewRow();
                    loRow["sel"] = true;
                    loRow["tipo"] = lcTipo;
                    loRow["tabla"] = z["TABLA"];
                    loRow["documento"] = z["NUMERO"];
                    loRow["proveedor"] = z["PROVEEDOR"];
                    z["KEY"] = loRow["key"] = Guid.NewGuid();

                    loDt.Rows.Add(loRow);
                });
            });

            return loDt;
        }
        public EliminarDocumentosIncompletosCompras()
            : base(TipoCategoriaPruebaDiagnostica.Compras, "Eliminar cabeceras sin líneas y líneas sin cabeceras a nivel de documentos de compras (pedidos, presupuestos, albarán, depósitos y facturas).")
        {

        }

    }

    #region TIPO DOCUMENTOS COMPRAS

    public class TipoDocumentoFacturaCompra
        : TipoDocumentoCompra
    {
        public TipoDocumentoFacturaCompra()
            : base("C_ALBCOM", "D_ALBCOM", EnUso.TiposEnUso.FACTUCOM.ToString(), "factura")
        {

        }

        protected override string _GetSQLByDocument()
        {
            string lcCampo, lcSQL, lcClave;

            lcCampo = "c.NUMERO, c.PROVEEDOR";
            lcClave = $"'{Convert.ToString(EW_GLOBAL._GetVariable("wc_any"))}' + c.EMPRESA +  {DB.SQLIif("LEN(RTRIM(LTRIM(c.FACTURA))) < 10 ", "SUBSTRING(c.FACTURA, LEN(c.FACTURA) - 9, 10)", "RTRIM(LTRIM(c.FACTURA))")} + c.PROVEEDOR";

            lcSQL = $@"SELECT '{_Tipo}' as TIPO, '{_Tabla}' as TABLA, {lcCampo}, 0 as LINIA, u.CLAVE FROM {DB.SQLDatabase("GESTION", _Tabla)} c {Environment.NewLine}" +
                    $@"LEFT JOIN {DB.SQLDatabase("GESTION", _TablaLineas)} l ON c.NUMERO = l.NUMERO AND l.PROVEEDOR = c.PROVEEDOR AND c.EMPRESA = l.EMPRESA {Environment.NewLine}" +
                    $@"LEFT JOIN {DB.SQLDatabase("COMUNES", "EN_USO")} u on u.tipo = '{_Tipo}' AND u.CLAVE = {lcClave} {Environment.NewLine}" +
                    $@"WHERE c.EMPRESA = {DB.SQLString(EW_GLOBAL._Empresa._Codigo)} AND l.NUMERO is null AND RTRIM(LTRIM(c.FACTURA)) <> '' AND ( u.CLAVE is null OR u.CREATED < {DB.SQLString(DateTime.Now.AddDays(-2))}) {Environment.NewLine} ";

            return lcSQL;
        }
    }

    public class TipoDocumentoAlbaranCompra
        : TipoDocumentoCompra
    {
        public TipoDocumentoAlbaranCompra()
            : base("C_ALBCOM", "D_ALBCOM", EnUso.TiposEnUso.ALBCOM.ToString(), "albaran")
        {

        }

        protected override string _GetSQLByDocument()
        {
            string lcCampo, lcSQL, lcClave;

            lcCampo = "c.NUMERO, c.PROVEEDOR";
            lcClave = $"'{Convert.ToString(EW_GLOBAL._GetVariable("wc_any"))}' + c.EMPRESA + {DB.SQLIif("LEN(RTRIM(LTRIM(c.NUMERO))) < 10 ", "SUBSTRING(c.NUMERO, LEN(c.NUMERO) - 9, 10)", "RTRIM(LTRIM(c.NUMERO))")} + c.PROVEEDOR";

            lcSQL = $@"SELECT '{_Tipo}' as TIPO, '{_Tabla}' as TABLA, {lcCampo}, 0 as LINIA, u.CLAVE FROM {DB.SQLDatabase("GESTION", _Tabla)} c {Environment.NewLine}" +
                    $@"LEFT JOIN {DB.SQLDatabase("GESTION", _TablaLineas)} l ON c.NUMERO = l.NUMERO AND l.PROVEEDOR = c.PROVEEDOR AND c.EMPRESA = l.EMPRESA {Environment.NewLine}" +
                    $@"LEFT JOIN {DB.SQLDatabase("COMUNES", "EN_USO")} u on u.tipo = '{_Tipo}' AND u.CLAVE = {lcClave} {Environment.NewLine}" +
                    $@"WHERE c.EMPRESA = {DB.SQLString(EW_GLOBAL._Empresa._Codigo)} AND l.NUMERO is null AND RTRIM(LTRIM(FACTURA)) = '' AND ( u.CLAVE is null OR u.CREATED < {DB.SQLString(DateTime.Now.AddDays(-2))}) {Environment.NewLine} " +
                    $@"UNION {Environment.NewLine}" +
                    $@"SELECT '{_Tipo}' as TIPO, '{_TablaLineas}' as TABLA, {lcCampo}, LINIA, '' as CLAVE FROM {DB.SQLDatabase("GESTION", _TablaLineas)} c {Environment.NewLine}" +
                    $@"LEFT JOIN {DB.SQLDatabase("GESTION", _Tabla)} l ON c.NUMERO = l.NUMERO AND l.PROVEEDOR = c.PROVEEDOR AND c.EMPRESA = l.EMPRESA {Environment.NewLine}" +
                    $@"WHERE c.EMPRESA = {DB.SQLString(EW_GLOBAL._Empresa._Codigo)} AND l.NUMERO is null ";

            return lcSQL;
        }
    }

    public class TipoDocumentoPedidoCompra
        : TipoDocumentoCompra
    {
        public TipoDocumentoPedidoCompra()
            : base("C_PEDICO", "D_PEDICO", EnUso.TiposEnUso.PEDICOM.ToString(), "pedido")
        {

        }
    }

    public class TipoDocumentoDepositoCompra
        : TipoDocumentoCompra
    {
        public TipoDocumentoDepositoCompra()
            : base("C_DEPCOM", "D_DEPCOM", EnUso.TiposEnUso.DEPOCOM.ToString(), "depósito")
        {

        }
    }

    public class TipoDocumentoPropuestaCompra
        : TipoDocumentoCompra
    {
        public TipoDocumentoPropuestaCompra()
            : base("C_PRECOM", "D_PRECOM", EnUso.TiposEnUso.PRECOM.ToString(), "propuesta")
        {

        }
    }

    #endregion TIPO DOCUMENTOS COMPRAS

    #region TIPO DOCUMENTOS VENTAS

    public class TipoDocumentoTicketVenta
        : TipoDocumentoVenta
    {
        protected internal bool _FactSer = Convert.ToBoolean(EW_GLOBAL._GetVariable("wl_Factser"));
        protected internal bool _SerFact = Convert.ToBoolean(EW_GLOBAL._GetVariable("wl_Serfact"));

        public TipoDocumentoTicketVenta()
            : base("C_ALBVEN", "D_ALBVEN", "C_ALBVEN", "ticket")
        {

        }

        protected override string _GetSQLByDocument()
        {
            string lcCampo, lcSQL, lcClave, lcClaveF, lcAny;

            lcCampo = "c.LETRA, c.NUMERO, c.EJERCICIO";
            lcAny = Convert.ToString(EW_GLOBAL._GetVariable("wc_any"));
            lcClave = $"'{lcAny}' + c.EMPRESA + c.NUMERO + c.LETRA ";
            lcClaveF = _FactSer && _SerFact ? $"'{Convert.ToString(EW_GLOBAL._GetVariable("wc_any"))}' + c.EMPRESA + SUBSTRING(ISNULL(g.FACTURA, c.NUMERO), 3, 8) + SUBSTRING(ISNULL(g.FACTURA, c.NUMERO), 0, 3) " : $"'{Convert.ToString(EW_GLOBAL._GetVariable("wc_any"))}' + c.EMPRESA + ISNULL(g.FACTURA, c.NUMERO) ";

            lcSQL = $@"SELECT '{_Tipo}' as TIPO, '{_Tabla}' as TABLA, {lcCampo}, 0 as LINEA, u.CLAVE, c.TIPO_DOC FROM {DB.SQLDatabase("TPV", _Tabla)} c {Environment.NewLine}" +
                    $@"LEFT JOIN {DB.SQLDatabase("TPV", _TablaLineas)} l ON c.EJERCICIO = l.EJERCICIO AND c.NUMERO = l.NUMERO AND c.LETRA = l.LETRA AND c.EMPRESA = l.EMPRESA {Environment.NewLine}" +
                    $@"LEFT JOIN {DB.SQLDatabase("COMUNES", "EN_USO")} u on u.tipo = '{_Tipo}' AND u.CLAVE = {lcClave} {Environment.NewLine}" +
                    $@"WHERE c.EMPRESA = {DB.SQLString(EW_GLOBAL._Empresa._Codigo)} AND c.TIPO_DOC <> 3 AND l.NUMERO is null AND c.EJERCICIO = {DB.SQLString(lcAny)} AND ( u.CLAVE is null OR u.CREATED < {DB.SQLString(DateTime.Now.AddDays(-2))}) {Environment.NewLine}" +
                    $@"UNION {Environment.NewLine}" +
                    $@"SELECT 'FACTUVEN' as TIPO, '{_Tabla}' as TABLA, {lcCampo}, 0 as LINEA, u.CLAVE, c.TIPO_DOC FROM {DB.SQLDatabase("TPV", _Tabla)} c {Environment.NewLine}" +
                    $@"LEFT JOIN {DB.SQLDatabase("GESTION", "C_ALBVEN")} g ON c.EJERCICIO = '{lcAny}' AND c.NUMERO = g.NUMERO AND c.LETRA = g.LETRA AND c.EMPRESA = g.EMPRESA AND RTRIM(LTRIM(g.FACTURA)) <> '' {Environment.NewLine}" +
                    $@"LEFT JOIN {DB.SQLDatabase("TPV", _TablaLineas)} l ON c.EJERCICIO = l.EJERCICIO AND c.NUMERO = l.NUMERO AND c.LETRA = l.LETRA AND c.EMPRESA = l.EMPRESA {Environment.NewLine}" +
                    $@"LEFT JOIN {DB.SQLDatabase("COMUNES", "EN_USO")} u on u.tipo = 'FACTUVEN' AND u.CLAVE = {lcClaveF} {Environment.NewLine}" +
                    $@"WHERE c.EMPRESA = {DB.SQLString(EW_GLOBAL._Empresa._Codigo)} AND c.TIPO_DOC = 3 AND l.NUMERO is null AND c.EJERCICIO = {DB.SQLString(lcAny)} AND ( u.CLAVE is null OR u.CREATED < {DB.SQLString(DateTime.Now.AddDays(-2))}) {Environment.NewLine}" +
                    $@"UNION {Environment.NewLine}" +
                    $@"SELECT '{_Tipo}' as TIPO, '{_TablaLineas}' as TABLA, {lcCampo}, LINEA, '' as CLAVE, 0 as TIPO_DOC FROM {DB.SQLDatabase("TPV", _TablaLineas)} c {Environment.NewLine}" +
                    $@"LEFT JOIN {DB.SQLDatabase("TPV", _Tabla)} l ON c.EJERCICIO = l.EJERCICIO AND c.NUMERO = l.NUMERO AND c.LETRA = l.LETRA AND c.EMPRESA = l.EMPRESA {Environment.NewLine}" +
                    $@"WHERE c.EMPRESA = {DB.SQLString(EW_GLOBAL._Empresa._Codigo)} AND l.NUMERO is null AND c.EJERCICIO = {DB.SQLString(lcAny)} ";

            return lcSQL;

        }

        protected override string _GetSQLDeleteCabeceraByDocument()
        {
            List<DataRow> loList;
            StringBuilder loSQL = new StringBuilder();

            loList = GetDataByTabla(_Tabla);
            loList.ForEach(f => loSQL.AppendLine($"DELETE FROM {DB.SQLDatabase("TPV", _Tabla)} WHERE EMPRESA = {DB.SQLString(EW_GLOBAL._Empresa._Codigo)} AND NUMERO = {DB.SQLString(f["NUMERO"])} AND LETRA = {DB.SQLString(f["LETRA"])} AND EJERCICIO = {DB.SQLString(f["EJERCICIO"])} AND TIPO_DOC = {DB.SQLString(f["TIPO_DOC"])}; "));

            return loSQL.ToString();
        }

        protected override string _GetSQLDeleteLineasByDocument()
        {
            List<DataRow> loList;
            StringBuilder loSQL = new StringBuilder();

            loList = GetDataByTabla(_TablaLineas);
            loList.ForEach(f => loSQL.AppendLine($"DELETE FROM {DB.SQLDatabase("TPV", _TablaLineas)} WHERE EMPRESA = {DB.SQLString(EW_GLOBAL._Empresa._Codigo)} AND NUMERO = {DB.SQLString(f["NUMERO"])} AND LETRA = {DB.SQLString(f["LETRA"])} AND EJERCICIO = {DB.SQLString(f["EJERCICIO"])} AND LINEA =  {DB.SQLString(f["LINEA"])}; "));

            return loSQL.ToString();
        }
    }

    public class TipoDocumentoFacturaVenta
        : TipoDocumentoVenta
    {
        protected internal bool _FactSer = Convert.ToBoolean(EW_GLOBAL._GetVariable("wl_Factser"));
        protected internal bool _SerFact = Convert.ToBoolean(EW_GLOBAL._GetVariable("wl_Serfact"));

        public TipoDocumentoFacturaVenta()
            : base("C_ALBVEN", "D_ALBVEN", EnUso.TiposEnUso.FACTUVEN.ToString(), "factura")
        {

        }

        protected override string _GetSQLByDocument()
        {
            string lcCampo, lcSQL, lcClave;

            lcCampo = "c.LETRA, c.NUMERO";
            lcClave = _FactSer && _SerFact ? $"'{Convert.ToString(EW_GLOBAL._GetVariable("wc_any"))}' + c.EMPRESA + SUBSTRING(c.FACTURA, 3, 8) + SUBSTRING(c.FACTURA, 0, 3) " : $"'{Convert.ToString(EW_GLOBAL._GetVariable("wc_any"))}' + c.EMPRESA + c.FACTURA";

            lcSQL = $@"SELECT '{_Tipo}' as TIPO, '{_Tabla}' as TABLA, {lcCampo}, 0 as LINIA, u.CLAVE FROM {DB.SQLDatabase("GESTION", _Tabla)} c {Environment.NewLine}" +
                    $@"LEFT JOIN {DB.SQLDatabase("GESTION", _TablaLineas)} l ON c.NUMERO = l.NUMERO AND c.LETRA = l.LETRA AND c.EMPRESA = l.EMPRESA {Environment.NewLine}" +
                    $@"LEFT JOIN {DB.SQLDatabase("COMUNES", "EN_USO")} u on u.tipo = '{_Tipo}' AND u.CLAVE = {lcClave} {Environment.NewLine}" +
                    $@"WHERE c.EMPRESA = {DB.SQLString(EW_GLOBAL._Empresa._Codigo)} AND l.NUMERO is null AND RTRIM(LTRIM(FACTURA)) <> '' AND ( u.CLAVE is null OR u.CREATED < {DB.SQLString(DateTime.Now.AddDays(-2))}) {Environment.NewLine}";

            return lcSQL;
        }

        protected override string _GetSQLDeleteLineasByDocument()
        {
            return "";
        }
    }

    public class TipoDocumentoAlbaranVenta
        : TipoDocumentoVenta
    {
        public TipoDocumentoAlbaranVenta()
            : base("C_ALBVEN", "D_ALBVEN", "C_ALBVEN", "albaran")
        {

        }

        protected override string _GetSQLByDocument()
        {
            string lcCampo, lcSQL, lcClave;

            lcCampo = "c.LETRA, c.NUMERO";
            lcClave = $"'{Convert.ToString(EW_GLOBAL._GetVariable("wc_any"))}' + c.EMPRESA + c.NUMERO + c.LETRA ";

            lcSQL = $@"SELECT '{_Tipo}' as TIPO, '{_Tabla}' as TABLA, {lcCampo}, 0 as LINIA, u.CLAVE FROM {DB.SQLDatabase("GESTION", _Tabla)} c {Environment.NewLine}" +
                    $@"LEFT JOIN {DB.SQLDatabase("GESTION", _TablaLineas)} l ON c.NUMERO = l.NUMERO AND c.LETRA = l.LETRA AND c.EMPRESA = l.EMPRESA {Environment.NewLine}" +
                    $@"LEFT JOIN {DB.SQLDatabase("COMUNES", "EN_USO")} u on u.tipo = '{_Tipo}' AND u.CLAVE = {lcClave} {Environment.NewLine}" +
                    $@"WHERE c.EMPRESA = {DB.SQLString(EW_GLOBAL._Empresa._Codigo)} AND l.NUMERO is null AND RTRIM(LTRIM(FACTURA)) = '' AND ( u.CLAVE is null OR u.CREATED < {DB.SQLString(DateTime.Now.AddDays(-2))}) {Environment.NewLine}" +
                    $@"UNION {Environment.NewLine}" +
                    $@"SELECT '{_Tipo}' as TIPO, '{_TablaLineas}' as TABLA, {lcCampo}, LINIA, '' as CLAVE FROM {DB.SQLDatabase("GESTION", _TablaLineas)} c {Environment.NewLine}" +
                    $@"LEFT JOIN {DB.SQLDatabase("GESTION", _Tabla)} l ON c.NUMERO = l.NUMERO AND c.LETRA = l.LETRA AND c.EMPRESA = l.EMPRESA {Environment.NewLine}" +
                    $@"WHERE c.EMPRESA = {DB.SQLString(EW_GLOBAL._Empresa._Codigo)} AND l.NUMERO is null ";

            return lcSQL;
        }
    }

    public class TipoDocumentoPedidoVenta
        : TipoDocumentoVenta
    {
        public TipoDocumentoPedidoVenta()
            : base("C_PEDIVE", "D_PEDIVE", EnUso.TiposEnUso.PEDIVEN.ToString(), "pedido")
        {

        }
    }

    public class TipoDocumentoDepositoVenta
        : TipoDocumentoVenta
    {
        public TipoDocumentoDepositoVenta()
            : base("C_ALBDEP", "D_ALBDEP", EnUso.TiposEnUso.DEPOVEN.ToString(), "depósito")
        {

        }
    }

    public class TipoDocumentoPresupuestoVenta
        : TipoDocumentoVenta
    {
        public TipoDocumentoPresupuestoVenta()
            : base("C_PRESUV", "D_PRESUV", EnUso.TiposEnUso.PRESUVEN.ToString(), "presupuesto")
        {

        }
    }

    #endregion TIPO DOCUMENTOS VENTAS

    #region ABSTRACT CLASS

    public abstract class EliminarDocumentosIncompletos
        : PruebaDiagnostica
    {
        protected abstract List<TipoDocumento> _Documentos { get; }

        protected abstract DataTable CreateDataTable(List<TipoDocumento> toDocumentos);

        public override IEnumerable<IResultadoPruebaDiagnostica> Ejecutar()
        {
            Seleccionar loForm;
            List<string> loKeys;
            IResultadoPruebaDiagnostica loResDefecte;
            List<TipoDocumento> loDocumentos = new List<TipoDocumento>();
            List<IResultadoPruebaDiagnostica> loRes = new List<IResultadoPruebaDiagnostica>();

            _Documentos.ForEach(f => f.Clear());

            loResDefecte = GetResultadoPreconfigurado();

            loDocumentos = _Documentos.Where(f => f._Data.Rows.Count > 0).ToList();

            if (loDocumentos.Count > 0)
            {
                loForm = new Seleccionar();
                loForm._DataTable = CreateDataTable(loDocumentos);
                loForm._CampoSeleccion = "sel";
                loForm._MostrarColumnaSeleccion = true;
                loForm._ValorSeleccionarTodosDefecto = true;
                loForm._ShowDialog();

                if (loForm.DialogResult == DialogResult.OK)
                {
                    loKeys = loForm._DataTable.AsEnumerable().Where(f => Convert.ToBoolean(f["sel"])).Select(f => Convert.ToString(f["Key"])).ToList();

                    if (loKeys.Count > 0)
                    {
                        loDocumentos.ForEach(f =>
                        {
                            f._Keys = loKeys;
                            loResDefecte = GetResultadoPreconfigurado();
                            loResDefecte = f._GetResultCabeceraByDocument(loResDefecte);
                            if (loResDefecte is IResultadoPruebaDiagnostica) loRes.Add(loResDefecte);
                            loResDefecte = GetResultadoPreconfigurado();
                            loResDefecte = f._GetResultLineasByDocument(loResDefecte);
                            if (loResDefecte is IResultadoPruebaDiagnostica) loRes.Add(loResDefecte);
                        });

                        //Eliminamos los registros en la tabla EN_USO de comunes
                        DeleteEnUso(loDocumentos);
                    }
                    else
                    {
                        loResDefecte.Resultado = TipoResultadoPruebaDiagnostica.Warning;
                        loResDefecte.Descripcion = "No se han seleccionado registros para eliminar.";
                        loRes.Add(loResDefecte);
                    }
                }
                else
                {
                    loResDefecte.Resultado = TipoResultadoPruebaDiagnostica.Warning;
                    loResDefecte.Descripcion = "Eliminación cancelada por el usuario.";
                    loRes.Add(loResDefecte);
                }
            }
            else
            {
                loResDefecte.Resultado = TipoResultadoPruebaDiagnostica.Correcto;
                loResDefecte.Descripcion = "No se han encontrado documentos sin líneas o líneas sin cabeceras. ";
                loRes.Add(loResDefecte);
            }

            _Documentos.ForEach(f => f.Clear());

            return loRes;
        }

        private void DeleteEnUso(List<TipoDocumento> toDocumentos)
        {
            StringBuilder loSQL = new StringBuilder();

            toDocumentos.ForEach(f => f._Data.AsEnumerable().ToList().Where(z => !string.IsNullOrEmpty(Convert.ToString(z["CLAVE"]).Trim())).ToList().ForEach(z => loSQL.AppendLine($"DELETE FROM {DB.SQLDatabase("COMUNES", "EN_USO")} WHERE TIPO = {DB.SQLString(z["TIPO"])} AND CLAVE = {DB.SQLString(z["CLAVE"])};")));

            if (loSQL.Length > 0) DB.SQLExec(loSQL.ToString());
        }

        public EliminarDocumentosIncompletos(TipoCategoriaPruebaDiagnostica teCategoria, string tcDescripcion)
            : base(teCategoria, $"Eliminación de cabeceras y líneas incompletas", tcDescripcion)
        {

        }
    }

    public abstract class TipoDocumentoVenta
        : TipoDocumento
    {
        public TipoDocumentoVenta(string tcTabla, string tcTablaLin, string tcTipo, string tcNombre)
            : base(tcTabla, tcTablaLin, tcTipo, tcNombre)
        {
        }

        protected override string _GetSQLByDocument()
        {
            string lcCampo, lcSQL, lcClave;

            lcCampo = "c.LETRA, c.NUMERO";
            lcClave = $"'{Convert.ToString(EW_GLOBAL._GetVariable("wc_any"))}' + c.EMPRESA + c.NUMERO + c.LETRA ";

            lcSQL = $@"SELECT '{_Tipo}' as TIPO, '{_Tabla}' as TABLA, {lcCampo}, 0 as LINIA, u.CLAVE FROM {DB.SQLDatabase("GESTION", _Tabla)} c {Environment.NewLine}" +
                    $@"LEFT JOIN {DB.SQLDatabase("GESTION", _TablaLineas)} l ON c.NUMERO = l.NUMERO AND c.LETRA = l.LETRA AND c.EMPRESA = l.EMPRESA {Environment.NewLine}" +
                    $@"LEFT JOIN {DB.SQLDatabase("COMUNES", "EN_USO")} u on u.tipo = '{_Tipo}' AND u.CLAVE = {lcClave} {Environment.NewLine}" +
                    $@"WHERE c.EMPRESA = {DB.SQLString(EW_GLOBAL._Empresa._Codigo)} AND l.NUMERO is null AND ( u.CLAVE is null OR u.CREATED < {DB.SQLString(DateTime.Now.AddDays(-2))}) {Environment.NewLine}" +
                    $@"UNION {Environment.NewLine}" +
                    $@"SELECT '{_Tipo}' as TIPO, '{_TablaLineas}' as TABLA, {lcCampo}, LINIA, '' as CLAVE FROM {DB.SQLDatabase("GESTION", _TablaLineas)} c {Environment.NewLine}" +
                    $@"LEFT JOIN {DB.SQLDatabase("GESTION", _Tabla)} l ON c.NUMERO = l.NUMERO AND c.LETRA = l.LETRA AND c.EMPRESA = l.EMPRESA {Environment.NewLine}" +
                    $@"WHERE c.EMPRESA = {DB.SQLString(EW_GLOBAL._Empresa._Codigo)} AND l.NUMERO is null ";

            return lcSQL;
        }

        protected override string _GetSQLDeleteCabeceraByDocument()
        {
            List<DataRow> loList;
            StringBuilder loSQL = new StringBuilder();

            loList = GetDataByTabla(_Tabla);
            loList.ForEach(f => loSQL.AppendLine($"DELETE FROM {DB.SQLDatabase("GESTION", _Tabla)} WHERE EMPRESA = {DB.SQLString(EW_GLOBAL._Empresa._Codigo)} AND NUMERO = {DB.SQLString(f["NUMERO"])} AND LETRA = {DB.SQLString(f["LETRA"])}; "));

            return loSQL.ToString();
        }

        protected override string _GetSQLDeleteLineasByDocument()
        {
            List<DataRow> loList;
            StringBuilder loSQL = new StringBuilder();

            loList = GetDataByTabla(_TablaLineas);
            loList.ForEach(f => loSQL.AppendLine($"DELETE FROM {DB.SQLDatabase("GESTION", _TablaLineas)} WHERE EMPRESA = {DB.SQLString(EW_GLOBAL._Empresa._Codigo)} AND NUMERO = {DB.SQLString(f["NUMERO"])} AND LETRA = {DB.SQLString(f["LETRA"])} AND LINIA = {DB.SQLString(f["LINIA"])} ; "));

            return loSQL.ToString();
        }
    }

    public abstract class TipoDocumentoCompra
        : TipoDocumento
    {
        public TipoDocumentoCompra(string tcTabla, string tcTablaLin, string tcTipo, string tcNombre)
            : base(tcTabla, tcTablaLin, tcTipo, tcNombre)
        {
        }

        protected override string _GetSQLDeleteCabeceraByDocument()
        {
            List<DataRow> loList;
            StringBuilder loSQL = new StringBuilder();

            loList = GetDataByTabla(_Tabla);
            loList.ForEach(f => loSQL.AppendLine($"DELETE FROM {DB.SQLDatabase("GESTION", _Tabla)} WHERE EMPRESA = {DB.SQLString(EW_GLOBAL._Empresa._Codigo)} AND NUMERO = {DB.SQLString(f["NUMERO"])} AND PROVEEDOR = {DB.SQLString(f["PROVEEDOR"])}; "));

            return loSQL.ToString();
        }

        protected override string _GetSQLDeleteLineasByDocument()
        {
            List<DataRow> loList;
            StringBuilder loSQL = new StringBuilder();

            loList = GetDataByTabla(_TablaLineas);
            loList.ForEach(f => loSQL.AppendLine($"DELETE FROM {DB.SQLDatabase("GESTION", _TablaLineas)} WHERE EMPRESA = {DB.SQLString(EW_GLOBAL._Empresa._Codigo)} AND NUMERO = {DB.SQLString(f["NUMERO"])};"));

            return loSQL.ToString();
        }

        protected override string _GetSQLByDocument()
        {
            string lcCampo, lcSQL, lcClave;

            lcCampo = "c.NUMERO, c.PROVEEDOR";
            lcClave = $"'{Convert.ToString(EW_GLOBAL._GetVariable("wc_any"))}' + c.EMPRESA + {DB.SQLIif("LEN(RTRIM(LTRIM(c.NUMERO))) < 10 ", "SUBSTRING(c.NUMERO, LEN(c.NUMERO) - 9, 10)", "RTRIM(LTRIM(c.NUMERO))")}";

            lcSQL = $@"SELECT '{_Tipo}' as TIPO, '{_Tabla}' as TABLA, {lcCampo}, 0 as LINIA, u.CLAVE FROM {DB.SQLDatabase("GESTION", _Tabla)} c {Environment.NewLine}" +
                    $@"LEFT JOIN {DB.SQLDatabase("GESTION", _TablaLineas)} l ON c.NUMERO = l.NUMERO AND l.PROVEEDOR = c.PROVEEDOR AND c.EMPRESA = l.EMPRESA {Environment.NewLine}" +
                    $@"LEFT JOIN {DB.SQLDatabase("COMUNES", "EN_USO")} u on u.tipo = '{_Tipo}' AND u.CLAVE = {lcClave} {Environment.NewLine}" +
                    $@"WHERE c.EMPRESA = {DB.SQLString(EW_GLOBAL._Empresa._Codigo)} AND l.NUMERO is null AND ( u.CLAVE is null OR u.CREATED < {DB.SQLString(DateTime.Now.AddDays(-2))}) {Environment.NewLine}" +
                    $@"UNION {Environment.NewLine}" +
                    $@"SELECT '{_Tipo}' as TIPO, '{_TablaLineas}' as TABLA, {lcCampo}, LINIA, '' as CLAVE FROM {DB.SQLDatabase("GESTION", _TablaLineas)} c {Environment.NewLine}" +
                    $@"LEFT JOIN {DB.SQLDatabase("GESTION", _Tabla)} l ON c.NUMERO = l.NUMERO AND l.PROVEEDOR = c.PROVEEDOR AND c.EMPRESA = l.EMPRESA {Environment.NewLine}" +
                    $@"WHERE c.EMPRESA = {DB.SQLString(EW_GLOBAL._Empresa._Codigo)} AND l.NUMERO is null ";

            return lcSQL;
        }

    }

    public abstract class TipoDocumento
    {
        private DataTable _oData = null;

        public List<string> _Keys { get; set; }

        protected string _Tabla { get; private set; }

        protected string _TablaLineas { get; private set; }

        protected string _Tipo { get; private set; }

        protected string _Nombre { get; private set; }

        public DataTable _Data
        {
            get
            {
                if (_oData == null) _oData = _GetData();
                return _oData;
            }
        }

        protected List<DataRow> GetDataByTabla(string tcTabla)
        {
            return _Data.AsEnumerable().Where(f => Convert.ToString(f["TABLA"]) == tcTabla && _Keys.Contains(Convert.ToString(f["KEY"]))).ToList();
        }

        private DataTable _GetData()
        {
            DataTable loDt = new DataTable();
            DB.SQLExec(_GetSQLByDocument(), ref loDt);

            loDt.Columns.Add("Key", typeof(string));

            return loDt;
        }

        protected abstract string _GetSQLByDocument();

        protected abstract string _GetSQLDeleteCabeceraByDocument();

        protected abstract string _GetSQLDeleteLineasByDocument();

        protected virtual string GetDescripcionOK(bool tbCabecera)
        {
            int lnCount;

            lnCount = GetDataByTabla(tbCabecera ? _Tabla : _TablaLineas).Count();

            return $"Se ha{(lnCount > 1 ? "n" : "")} eliminado {lnCount} {(tbCabecera ? $"cabecera{(lnCount > 1 ? "s" : "")} sin líneas" : $"línea{(lnCount > 1 ? "s" : "")} sin cabecera")} de {_Nombre}";
        }

        protected virtual string GetError(bool tbCabecera)
        {
            int lnCount;

            lnCount = GetDataByTabla(tbCabecera ? _Tabla : _TablaLineas).Count();

            return $"No se ha{(lnCount > 1 ? "n" : "")} podido eliminar {lnCount} {(tbCabecera ? $"cabecera{(lnCount > 1 ? "s" : "")}" : $"línea{(lnCount > 1 ? "s" : "")}")} de {_Nombre}";
        }

        public virtual IResultadoPruebaDiagnostica _GetResultCabeceraByDocument(IResultadoPruebaDiagnostica toResDefecte)
        {
            return _GetResultByDocument(_GetSQLDeleteCabeceraByDocument(), toResDefecte, true);
        }

        public virtual IResultadoPruebaDiagnostica _GetResultLineasByDocument(IResultadoPruebaDiagnostica toResDefecte)
        {
            return _GetResultByDocument(_GetSQLDeleteLineasByDocument(), toResDefecte, false);
        }



        private IResultadoPruebaDiagnostica _GetResultByDocument(string tcSQL, IResultadoPruebaDiagnostica toResDefecte, bool tbCabecera)
        {
            if (!string.IsNullOrEmpty(tcSQL))
            {
                if (DB.SQLExec(tcSQL))
                {
                    toResDefecte.Resultado = TipoResultadoPruebaDiagnostica.Correcto;
                    toResDefecte.Descripcion = GetDescripcionOK(tbCabecera);
                }
                else
                {
                    toResDefecte.Resultado = TipoResultadoPruebaDiagnostica.Error;
                    toResDefecte.Descripcion = GetError(tbCabecera);
                }
            }
            else
            {
                toResDefecte = null;
            }

            return toResDefecte;
        }

        public void Clear()
        {
            _oData = null;
        }

        public override string ToString()
        {
            return _Nombre;
        }

        public TipoDocumento(string tcTabla, string tcTablaLin, string tcTipo, string tcNombre)
        {
            _Tabla = tcTabla;
            _TablaLineas = tcTablaLin;
            _Tipo = tcTipo;
            _Nombre = tcNombre;
        }
    }

    #endregion ABSTRACT CLASS
}