using Exferia_Aplicacion.General;
using Exferia_Aplicacion.Modelos_Compras;
using Exferia_Aplicacion.Visualizacion;
using Exferia_Compras._0_Modelos;
using Exferia_Compras._1_Datos;
using Exferia_Compras._3_Vistas;
using Exferia_EntityFramework;
using Exferia_Formularios;
using Exferia_General;
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Globalization;
using System.Linq;
using System.Reflection;
using System.Text;
using System.Threading;
using System.Threading.Tasks;
using System.Transactions;
using System.Windows.Forms;
using static Exferia_Aplicacion.General.Enumerados;

namespace Exferia_Compras._3_Vistas.Controladoras
{
    public class P_Vencimiento_Controladora
    {
        #region Variables Generales
        private P_Vencimiento g_frm_P_Vencimiento = null;//Variable que enlaza con la pantalla asociada
        private PE_Esperando g_frm_PE_Esperando;//Pantalla de Espera, para cuando se ejecutan tareas pesadas como cargar, guardar, etc

        //Clases de Negocio Necesarias para la carga de datos
        private COM_Vencimientos_Datos g_obj_COM_Vencimientos_Datos = new COM_Vencimientos_Datos();
        private COM_FacturasCabecera_Datos g_obj_COM_FacturasCabecera_Datos = new COM_FacturasCabecera_Datos();

        //Modelos Necesaios
        public COM_Vencimientos g_mdl_COM_Vencimientos = null;
        public CTA_PredefinidosCabeceras g_mdl_CTA_PredefinidosCabeceras = null;
        public INTERNO_COM_FacturasCabecera_Modelo g_mdl_INTERNO_COM_FacturasCabecera_Modelo = null;
        public GEN_EjerciciosActivos_Empresa g_mdl_GEN_EjerciciosActivos_Empresa = null;

        public bool g_bol_Termino_CargaDatos_Inicial = false;//Se utiliza para saber cuando se termina la carga de datos estaticos inciales

        //Tareea Asincrona de carga de datos
        private BackgroundWorker g_obj_TareaAsincrona_CargarDatos;

        //Tareea Asincrona de grabar de datos
        private BackgroundWorker g_obj_TareaAsincrona_GrabarDatos;
        public bool g_bol_GrabarDatos_TerminoCorrectamente = true;
        private bool g_bol_GrabarDatos_VolverListado = true;

        //Tareea Asincrona de borrar de datos
        private BackgroundWorker g_obj_TareaAsincrona_BorrarDatos;

        //Tarea Asincrona de Relenar datos FacturaCabecera
        private BackgroundWorker g_obj_TareaAsincrona_RellenarDatos_FacturaCabecera;

        public long g_lng_idEjercicio = -1;
        public long g_lng_idDelegacion = -1;
        public long g_lng_idProveedor = -1;
       
        //Datos de de Cerrado y Volcado
        public string g_str_Estado = Variables.G_STR_ESTADO_CONTABILIDAD_ABIERTO;

        //Saber si el Ejercicio del Documento tiene CierreAdministrativo o CierreContable
        public G_ENUM_VALIDACIONFECHAS_TIPOCIERRE g_obj_ENUM_VALIDACIONFECHAS_TIPOCIERRE = G_ENUM_VALIDACIONFECHAS_TIPOCIERRE.Ninguno;
        #endregion

        #region Enumerados
        public enum G_ENUM_NIVELES
        {
            Factura = 1
        }
        public enum G_ENUM_ACCIONES_BLOQUEO
        {
            Bloquear_NoActual = 0,
            Bloquear_SiActual = 1,
            Desbloquear_SiActual = 2
        }
        public enum G_ENUM_ACCIONES_VACIADO
        {
            Vaciar_NoActual = 0,
            Vaciar_SiActual = 1
        }
        #endregion

        #region Constructor
        public P_Vencimiento_Controladora(P_Vencimiento _frm_P_Vencimiento)
        {
            g_frm_P_Vencimiento = _frm_P_Vencimiento;

            Rellenar_ArbolSecundarioSeleccion();

            g_bol_Termino_CargaDatos_Inicial = true;
        }
        #endregion

        #region Datos Iniciales

        private void Rellenar_ArbolSecundarioSeleccion()
        {
            try
            {
                List<INTERNO_ArbolSecundarioSeleccion_Modelo> lst_INTERNO_ArbolSecundarioSeleccion_Modelo_FINAL = new List<INTERNO_ArbolSecundarioSeleccion_Modelo>();
                //Proveedor
                lst_INTERNO_ArbolSecundarioSeleccion_Modelo_FINAL.AddRange(Variables.G_LST_ARBOLSECUNDARIOSELECCION_PROVEEDOR);
                //Proveedor-Cartera
                lst_INTERNO_ArbolSecundarioSeleccion_Modelo_FINAL.AddRange(Variables.G_LST_ARBOLSECUNDARIOSELECCION_PROVEEDOR_CARTERA);
                //Proveedor-Contabilidad
                lst_INTERNO_ArbolSecundarioSeleccion_Modelo_FINAL.AddRange(Variables.G_LST_ARBOLSECUNDARIOSELECCION_PROVEEDOR_CONTABILIDAD);

                //Cargar los valores
                g_frm_P_Vencimiento.Exferia_ArbolSecundarioSeleccion_Vencimiento.Cargar(lst_INTERNO_ArbolSecundarioSeleccion_Modelo_FINAL, g_frm_P_Vencimiento.P_Base_ValoresGenerales, g_frm_P_Vencimiento.P_Base_FechaTrabajo, g_frm_P_Vencimiento);
            }
            catch (Exception ex)
            {
                Control_Errores.Errores_Log("", ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(Rellenar_ArbolSecundarioSeleccion));
            }
        }

        public void Datos_PorDefecto()
        {
            //Fecha
            g_frm_P_Vencimiento.Exferia_FechaSeleccion_FechaVencimiento.Exferia_FechaSeleccion_Fecha = g_frm_P_Vencimiento.P_Base_FechaTrabajo.ToString("dd/MM/yyyy");

            //Ejercicio
            g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Ejercicio.Exferia_F3_SoloSeleccion_Id = g_mdl_GEN_EjerciciosActivos_Empresa.id;
            g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Ejercicio.Exferia_F3_SoloSeleccion_Codigo = g_mdl_GEN_EjerciciosActivos_Empresa.anioControl;
            g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Ejercicio.Exferia_F3_SoloSeleccion_Descripcion = g_mdl_GEN_EjerciciosActivos_Empresa.descripcion;
            g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Ejercicio.Exferia_F3_SoloSeleccion_FechaBorrado = g_mdl_GEN_EjerciciosActivos_Empresa.fechaBorrado;
            g_lng_idEjercicio = g_mdl_GEN_EjerciciosActivos_Empresa.id;

            //Delegacion
            if (g_frm_P_Vencimiento.P_Base_ValoresGenerales.Delegacion != null)
            {
                g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Delegacion.Exferia_F3_SoloSeleccion_Id = g_frm_P_Vencimiento.P_Base_ValoresGenerales.Delegacion.id;
                g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Delegacion.Exferia_F3_SoloSeleccion_Codigo = g_frm_P_Vencimiento.P_Base_ValoresGenerales.Delegacion.codigo;
                g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Delegacion.Exferia_F3_SoloSeleccion_Descripcion = g_frm_P_Vencimiento.P_Base_ValoresGenerales.Delegacion.descripcion;
                g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Delegacion.Exferia_F3_SoloSeleccion_FechaBorrado = g_frm_P_Vencimiento.P_Base_ValoresGenerales.Delegacion.fechaBorrado;
            }

            Bloquea_Desbloquea(G_ENUM_NIVELES.Factura, G_ENUM_ACCIONES_BLOQUEO.Desbloquear_SiActual);
            FacturaCabecera_Actualizar_DatosFiltro();

            //Buscar la PredefinidoCabecera por Defecto
            //Cargamos el ensamblado #########################################################################################################################################################################
            Assembly m_assembly_2 = Assembly.LoadFrom(Variables.G_STR_LIBRERIA_RUTAINICIAL + @"\" + Variables.G_STR_LIBRERIA_CONTABILIDAD + ".dll");
            //Obtenemos el tipo de la clase
            Type m_type_2 = m_assembly_2.GetType("" + Variables.G_STR_LIBRERIA_CONTABILIDAD + "." + Variables.G_STR_LIBRERIA_DATOSCONTABILIDAD);
            //creamos la instancia
            var obj_Clase_2 = Activator.CreateInstance(m_type_2);
            //Cargamos el metodo solicitado
            MethodInfo obj_MethodInfo_2 = obj_Clase_2.GetType().GetMethod(Variables.G_STR_LIBRERIA_DATOSCONTABILIDAD_PROCEDIMIENTO_CTAPREDEFINIDOCABECERA_OBTENERMODELO_POR_DEFECTO, BindingFlags.Instance | BindingFlags.NonPublic);

            //Obtener valores
            object[] arr_Parametros_2 = { Variables.G_PREDEFINIDOFICHEROS_FACTURASDECOMPRA.Id };

            //Pasamos los parametros al metodo y lo ejecutamos
            g_mdl_CTA_PredefinidosCabeceras = (CTA_PredefinidosCabeceras)obj_MethodInfo_2.Invoke(obj_Clase_2, arr_Parametros_2);
            //##################################################################################################################################################################################################

            g_frm_P_Vencimiento.P_Base_SeModificoDatosPantalla = false;
        }
        #endregion

        #region Arbol Secundario
        public void ArbolSecundario_Cambiar_Proveedor(long lng_idProveedor)
        {
            try
            {
                //ArbolSecundarioSeleccion Identificadores Necesarios .......................................
                //idProveedor
                g_frm_P_Vencimiento.Exferia_ArbolSecundarioSeleccion_Vencimiento.Exferia_ArbolSecundarioSeleccion_IDPROVEEDOR = lng_idProveedor;

                //Recargar el Arbol Secundario
                g_frm_P_Vencimiento.Exferia_ArbolSecundarioSeleccion_Vencimiento.RecargarSeleccionNodo();
            }
            catch (Exception ex)
            {
                Control_Errores.Errores_Log("", ex, nameof(P_Vencimiento_Controladora) + "" + nameof(ArbolSecundario_Cambiar_Proveedor));
            }
        }
        #endregion

        #region Vaciar Datos
        public void VaciarDatos()
        {
            //Modelo de Vencimiento
            g_mdl_COM_Vencimientos = null;

            g_lng_idEjercicio = -1;
            g_lng_idDelegacion = -1;
            g_lng_idProveedor = -1;

            //Modelo de FacturaCabecera
            g_mdl_INTERNO_COM_FacturasCabecera_Modelo = null;
            g_obj_ENUM_VALIDACIONFECHAS_TIPOCIERRE = G_ENUM_VALIDACIONFECHAS_TIPOCIERRE.Ninguno;

            //estado
            g_str_Estado = Variables.G_STR_ESTADO_CONTABILIDAD_ABIERTO;

            //codigo
            g_frm_P_Vencimiento.Exferia_TextBox_Codigo.Text = "";

            //descripcion
            g_frm_P_Vencimiento.Exferia_TextBox_Descripcion.Text = "";

            //Importe
            g_frm_P_Vencimiento.Exferia_TextBox_Importe.Text = "";

            //FechaVencimiento
            g_frm_P_Vencimiento.Exferia_FechaSeleccion_FechaVencimiento.Exferia_FechaSeleccion_Fecha = "";

            //Tesoreria
            g_frm_P_Vencimiento.Exferia_F3_Tesoreria.Exferia_F3_Id = -1;
            g_frm_P_Vencimiento.Exferia_F3_Tesoreria.Exferia_F3_Codigo = "";
            g_frm_P_Vencimiento.Exferia_F3_Tesoreria.Exferia_F3_Descripcion = "";
            g_frm_P_Vencimiento.Exferia_F3_Tesoreria.Exferia_F3_FechaBorrado = null;

            g_frm_P_Vencimiento.Panel_DatosPantalla.Enabled = false;

            Vaciar_Datos_FacturasCabeceras(G_ENUM_NIVELES.Factura, G_ENUM_ACCIONES_VACIADO.Vaciar_SiActual);

            ArbolSecundario_Cambiar_Proveedor(-1);

            string[] str_Separador = new string[] { " [" };
            //Si ya hay valores de objeto, los elimino para rellenarlos de nuevo
            if (g_frm_P_Vencimiento.P_Base_TituloPantalla.Split(str_Separador, StringSplitOptions.None).Count() > 1)
            {
                g_frm_P_Vencimiento.P_Base_TituloPantalla = (g_frm_P_Vencimiento.P_Base_TituloPantalla.Split(str_Separador, StringSplitOptions.None))[0];
            }

            //Actualizar el Boton de Seleccion de pantalla ####################################################
            Variables.G_EMS_CONTROL_MENUSUPERIOR.Update_Texto_NombrePantalla(g_frm_P_Vencimiento.Tag.ToString());
            //#################################################################################################
        }
        #endregion

        #region Comprobacion de cambios, para  grabar o no antes de salir o cambiar de registro
        public bool ComprobarCambios()
        {
            if (g_frm_P_Vencimiento.P_Base_SeModificoDatosPantalla)
            {
                if (Mensajes.MostrarMensaje_Pregunta(Mensajes.G_STR_MENSAJES_GENERAL_PREGUNTA_GUARDARCAMBIOS()))
                {
                    GrabarDatos(false);

                    if (g_obj_TareaAsincrona_GrabarDatos != null)
                    {
                        //Te quedas espernado a que termine la tarea asincrona de grabar
                        while (g_obj_TareaAsincrona_GrabarDatos.IsBusy)
                            Application.DoEvents();
                    }

                    return g_bol_GrabarDatos_TerminoCorrectamente;
                }
            }
            return true;
        }
        public bool ComprobarCambios_SinPreguntar()
        {
            if (g_frm_P_Vencimiento.P_Base_SeModificoDatosPantalla)
            {
                GrabarDatos(false);

                //Te quedas espernado a que termine la tarea asincrona de grabar
                if (g_obj_TareaAsincrona_GrabarDatos != null)
                {
                    while (g_obj_TareaAsincrona_GrabarDatos.IsBusy)
                        Application.DoEvents();
                }

                return g_bol_GrabarDatos_TerminoCorrectamente;
            }
            return true;
        }
        #endregion

        #region Datos FacturaCabecera
        public void Rellenar_Datos_FacturaCabecera(long _lng_id_FacturaCabecera)
        {
            try
            {
                //Bloquear el formulario para que no se pueda hacer nada hasta que termine
                g_frm_P_Vencimiento.Enabled = false;

                //Mostrar la pantalla de espera
                g_frm_PE_Esperando = new PE_Esperando();

                // Si la tarea asincrona esta en marcha la paro
                if (g_obj_TareaAsincrona_RellenarDatos_FacturaCabecera != null)
                {
                    while (g_obj_TareaAsincrona_RellenarDatos_FacturaCabecera.IsBusy)
                        Application.DoEvents();
                }
                else
                {
                    g_obj_TareaAsincrona_RellenarDatos_FacturaCabecera = new BackgroundWorker();
                    g_obj_TareaAsincrona_RellenarDatos_FacturaCabecera.DoWork += new DoWorkEventHandler(TareaAsincrona_RellenarDatos_FacturaCabecera_DoWork);
                    g_obj_TareaAsincrona_RellenarDatos_FacturaCabecera.RunWorkerCompleted += new RunWorkerCompletedEventHandler(TareaAsincrona_RellenarDatos_FacturaCabecera_Completed);
                    g_obj_TareaAsincrona_RellenarDatos_FacturaCabecera.WorkerReportsProgress = false;
                }

                //(Tarea Asincrona) Cargar Datos ##################################################################
                g_obj_TareaAsincrona_RellenarDatos_FacturaCabecera.RunWorkerAsync(_lng_id_FacturaCabecera);
                //#################################################################################################

                g_frm_PE_Esperando.Show();
            }
            catch (Exception ex)
            {
                g_frm_P_Vencimiento.Enabled = true;

                if (g_frm_PE_Esperando != null)
                {
                    g_frm_PE_Esperando.Close();
                    g_frm_PE_Esperando = null;
                }

                throw new Control_Errores("", ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(Rellenar_Datos_FacturaCabecera), true);
            }
        }
        private void TareaAsincrona_RellenarDatos_FacturaCabecera_DoWork(object sender, DoWorkEventArgs e)
        {
            try
            {
                long lng_id = (long)e.Argument;

                // Cargar Valores
                e.Result = RellenarDatos_FacturaCabecera_Final(lng_id);
            }
            catch (ThreadAbortException ex)
            {
                Control_Errores.Errores_Log("", ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(TareaAsincrona_RellenarDatos_FacturaCabecera_DoWork));
                e.Result = false;
            }
            catch (Control_Errores)
            {
                e.Result = false;
            }
            catch (Exception ex)
            {
                Control_Errores.Errores_Log("", ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(TareaAsincrona_RellenarDatos_FacturaCabecera_DoWork));
                e.Result = false;
            }
        }
        private void TareaAsincrona_RellenarDatos_FacturaCabecera_Completed(object sender, RunWorkerCompletedEventArgs e)
        {
            bool bol_ValorDevuelto = false;

            try
            {
                if (g_frm_PE_Esperando != null)
                {
                    g_frm_PE_Esperando.Close();
                    g_frm_PE_Esperando = null;
                }

                bol_ValorDevuelto = (bool)e.Result;

                if (bol_ValorDevuelto==false)
                {
                    Mensajes.MostrarMensaje(Mensajes.G_STR_MENSAJES_GENERAL_ERROR_CARGARDATOSPANTALLA());
                }
            }
            catch (Exception ex)
            {
                Control_Errores.Errores_Log("", ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(TareaAsincrona_RellenarDatos_FacturaCabecera_Completed));
            }
            finally
            {
                //Desbloquear el Formulario
                g_frm_P_Vencimiento.Enabled = true;

                g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Simple_FacturaCabecera.Exferia_F3_SoloSeleccion_Simple_Foco();
            }
        }

        private bool RellenarDatos_FacturaCabecera_Final(long _lng_id)
        {
            bool bol_ValorDevuelto = false;

            try
            {
                //Buscar la FacturaCabecera
                g_mdl_INTERNO_COM_FacturasCabecera_Modelo = g_obj_COM_FacturasCabecera_Datos.Obtener_Auxiliar(_lng_id);

                if (g_mdl_INTERNO_COM_FacturasCabecera_Modelo != null)
                {
                    //Calcular el Pendiente
                    decimal dcm_Pendiente = g_mdl_INTERNO_COM_FacturasCabecera_Modelo.total;
                    if (g_mdl_INTERNO_COM_FacturasCabecera_Modelo.Importe_Pagos != null)
                    {
                        dcm_Pendiente -= g_mdl_INTERNO_COM_FacturasCabecera_Modelo.Importe_Pagos.Value;

                        if (g_mdl_INTERNO_COM_FacturasCabecera_Modelo.Importe_Devoluciones != null)
                        {
                            dcm_Pendiente += g_mdl_INTERNO_COM_FacturasCabecera_Modelo.Importe_Devoluciones.Value;
                        }
                    }

                    //Si se esta modificando, hay que tener en cuenta el importe que tenia para calcular el pendiente
                    if (g_mdl_COM_Vencimientos != null)
                    {
                        dcm_Pendiente += g_mdl_COM_Vencimientos.importe;
                    }
                    g_frm_P_Vencimiento.Exferia_TextBox_Importe.Text = dcm_Pendiente.ToString();

                    //Ejercicio
                    if (g_mdl_INTERNO_COM_FacturasCabecera_Modelo.Ejercicio != null)
                    {
                        g_lng_idEjercicio = g_mdl_INTERNO_COM_FacturasCabecera_Modelo.Ejercicio.id;
                        g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Ejercicio.Exferia_F3_SoloSeleccion_Id = g_mdl_INTERNO_COM_FacturasCabecera_Modelo.Ejercicio.id;
                        g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Ejercicio.Exferia_F3_SoloSeleccion_Codigo = g_mdl_INTERNO_COM_FacturasCabecera_Modelo.Ejercicio.anioControl;
                        g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Ejercicio.Exferia_F3_SoloSeleccion_Descripcion = g_mdl_INTERNO_COM_FacturasCabecera_Modelo.Ejercicio.descripcion;
                        g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Ejercicio.Exferia_F3_SoloSeleccion_FechaBorrado = g_mdl_INTERNO_COM_FacturasCabecera_Modelo.Ejercicio.fechaBorrado;
                    }

                    //Proveedor                   
                    g_lng_idProveedor = g_mdl_INTERNO_COM_FacturasCabecera_Modelo.MAE_Proveedores.id;
                    g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Proveedor.Exferia_F3_SoloSeleccion_Id = g_mdl_INTERNO_COM_FacturasCabecera_Modelo.MAE_Proveedores.id;
                    g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Proveedor.Exferia_F3_SoloSeleccion_Codigo = g_mdl_INTERNO_COM_FacturasCabecera_Modelo.MAE_Proveedores.codigo;
                    g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Proveedor.Exferia_F3_SoloSeleccion_Descripcion = g_mdl_INTERNO_COM_FacturasCabecera_Modelo.MAE_Proveedores.razonSocial;
                    g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Proveedor.Exferia_F3_SoloSeleccion_FechaBorrado = g_mdl_INTERNO_COM_FacturasCabecera_Modelo.MAE_Proveedores.fechaBorrado;

                    //Tersoreria
                    if (g_mdl_INTERNO_COM_FacturasCabecera_Modelo.MAE_Proveedores.idTesoreria != null)
                    {

                        //Cargamos el ensamblado #########################################################################################################################################################################
                        Assembly m_assembly_1 = Assembly.LoadFrom(Variables.G_STR_LIBRERIA_RUTAINICIAL + @"\" + Variables.G_STR_LIBRERIA_MAESTROS + ".dll");
                        //Obtenemos el tipo de la clase
                        Type m_type_1 = m_assembly_1.GetType("" + Variables.G_STR_LIBRERIA_MAESTROS + "." + Variables.G_STR_LIBRERIA_DATOSMAESTROS);
                        //creamos la instancia
                        var obj_Clase_1 = Activator.CreateInstance(m_type_1);
                        //Cargamos el metodo solicitado
                        MethodInfo obj_MethodInfo_1 = obj_Clase_1.GetType().GetMethod(Variables.G_STR_LIBRERIA_DATOSMAESTROS_PROCEDIMIENTO_MAETESORERIAS_OBTENERMODELO_POR_ID, BindingFlags.Instance | BindingFlags.NonPublic);

                        //Obtener valores
                        object[] arr_Parametros_1 = { g_mdl_INTERNO_COM_FacturasCabecera_Modelo.MAE_Proveedores.idTesoreria.Value };

                        //Pasamos los parametros al metodo y lo ejecutamos
                        MAE_Tesorerias mdl_MAE_Tesorerias = (MAE_Tesorerias)obj_MethodInfo_1.Invoke(obj_Clase_1, arr_Parametros_1);
                        //##################################################################################################################################################################################################

                        if (mdl_MAE_Tesorerias != null)
                        {
                            g_frm_P_Vencimiento.Exferia_F3_Tesoreria.Exferia_F3_Id = mdl_MAE_Tesorerias.id;
                            g_frm_P_Vencimiento.Exferia_F3_Tesoreria.Exferia_F3_Codigo = mdl_MAE_Tesorerias.codigo;
                            g_frm_P_Vencimiento.Exferia_F3_Tesoreria.Exferia_F3_Descripcion = mdl_MAE_Tesorerias.descripcion;
                            g_frm_P_Vencimiento.Exferia_F3_Tesoreria.Exferia_F3_FechaBorrado = mdl_MAE_Tesorerias.fechaBorrado;
                        }
                    }

                    //Delegacion
                    GEN_Delegaciones mdl_GEN_Delegaciones = g_mdl_INTERNO_COM_FacturasCabecera_Modelo.GEN_Delegaciones;
                    if (mdl_GEN_Delegaciones != null)
                    {
                        g_lng_idDelegacion = mdl_GEN_Delegaciones.id;
                        g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Delegacion.Exferia_F3_SoloSeleccion_Id = mdl_GEN_Delegaciones.id;
                        g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Delegacion.Exferia_F3_SoloSeleccion_Codigo = mdl_GEN_Delegaciones.codigo;
                        g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Delegacion.Exferia_F3_SoloSeleccion_Descripcion = mdl_GEN_Delegaciones.descripcion;
                        g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Delegacion.Exferia_F3_SoloSeleccion_FechaBorrado = mdl_GEN_Delegaciones.fechaBorrado;
                    }

                    g_mdl_CTA_PredefinidosCabeceras = g_mdl_INTERNO_COM_FacturasCabecera_Modelo.CTA_PredefinidosCabeceras;

                    FacturaCabecera_Actualizar_DatosFiltro();

                    ArbolSecundario_Cambiar_Proveedor(g_mdl_INTERNO_COM_FacturasCabecera_Modelo.idProveedor);

                    bol_ValorDevuelto = true;
                }
            }
            catch (Control_Errores)
            { }
            catch (Exception ex)
            {
                Control_Errores.Errores_Log("", ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(RellenarDatos_FacturaCabecera_Final));
            }

            return bol_ValorDevuelto;
        }

        public void FacturaCabecera_Actualizar_DatosFiltro()
        {
            //Filtrado de Opciones del Padre
            List<INTERNO_Filtro_OpcionPadre_Modelo> lst_INTERNO_Filtro_OpcionPadre_Modelo = new List<INTERNO_Filtro_OpcionPadre_Modelo>();

            //Para que busque con el Filtro del Ejercicio
            lst_INTERNO_Filtro_OpcionPadre_Modelo.Add(new INTERNO_Filtro_OpcionPadre_Modelo(nameof(INTERNO_COM_FacturasCabecera_Listado_Modelo.idEjercicio), g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Ejercicio.Exferia_F3_SoloSeleccion_Id));

            //Para que busque con el Filtro del estado, que no este abierto
            lst_INTERNO_Filtro_OpcionPadre_Modelo.Add(new INTERNO_Filtro_OpcionPadre_Modelo(nameof(INTERNO_COM_FacturasCabecera_Listado_Modelo.estado), -1, Variables.G_STR_ESTADO_CONTABILIDAD_ABIERTO));

            //Para que busque con el Filtro del Delegacion
            lst_INTERNO_Filtro_OpcionPadre_Modelo.Add(new INTERNO_Filtro_OpcionPadre_Modelo(Variables.G_STR_OPCION_GEN_DELEGACION, g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Delegacion.Exferia_F3_SoloSeleccion_Id));

            //Para que busque con el Filtro de la Proveedor
            lst_INTERNO_Filtro_OpcionPadre_Modelo.Add(new INTERNO_Filtro_OpcionPadre_Modelo(nameof(INTERNO_COM_FacturasCabecera_Listado_Modelo.idProveedor), g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Proveedor.Exferia_F3_SoloSeleccion_Id));

            //Filtros para facturas
            g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Simple_FacturaCabecera.Exferia_F3_SoloSeleccion_Simple_RELACIONADOS = lst_INTERNO_Filtro_OpcionPadre_Modelo;
        }

        public void Bloquea_Desbloquea(G_ENUM_NIVELES _enum_Nivel, G_ENUM_ACCIONES_BLOQUEO _enum_Accion)
        {
            //Factura
            if (G_ENUM_NIVELES.Factura.Equals(_enum_Nivel))
            {
                
                //Bloquear_SiActual 
                if (G_ENUM_ACCIONES_BLOQUEO.Bloquear_SiActual.Equals(_enum_Accion))
                {
                    g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Simple_FacturaCabecera.Enabled = false;

                    Vaciar_Datos_FacturasCabeceras(G_ENUM_NIVELES.Factura, G_ENUM_ACCIONES_VACIADO.Vaciar_SiActual);
                }
                //Desbloquear_SiActual
                else if (G_ENUM_ACCIONES_BLOQUEO.Desbloquear_SiActual.Equals(_enum_Accion))
                {
                    g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Simple_FacturaCabecera.Enabled = true;

                    Vaciar_Datos_FacturasCabeceras(G_ENUM_NIVELES.Factura, G_ENUM_ACCIONES_VACIADO.Vaciar_SiActual);
                }
            }
        }

        public void Vaciar_Datos_FacturasCabeceras(G_ENUM_NIVELES _enum_Nivel, G_ENUM_ACCIONES_VACIADO _enum_Accion)
        {
            //Factura
            if (G_ENUM_NIVELES.Factura.Equals(_enum_Nivel))
            {
                g_mdl_INTERNO_COM_FacturasCabecera_Modelo = null;

                //Vaciar_SiActual 
                if (G_ENUM_ACCIONES_VACIADO.Vaciar_SiActual.Equals(_enum_Accion))
                {
                    //F3 de Factura
                    g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Simple_FacturaCabecera.Exferia_F3_SoloSeleccion_Simple_Id = -1;
                    g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Simple_FacturaCabecera.Exferia_F3_SoloSeleccion_Simple_Codigo = "";
                    g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Simple_FacturaCabecera.Exferia_F3_SoloSeleccion_Simple_FechaBorrado = null;
                }
            }
        }
        #endregion

        #region Cargar Datos
        public void RecargarDatos()
        {
            try
            {
                //Bloquear el formulario para que no se pueda hacer nada hasta que termine
                g_frm_P_Vencimiento.Enabled = false;

                //Mostrar la pantalla de espera
                g_frm_PE_Esperando = new PE_Esperando();

                // Si la tarea asincrona esta en marcha la paro
                if (g_obj_TareaAsincrona_CargarDatos != null)
                {
                    while (g_obj_TareaAsincrona_CargarDatos.IsBusy)
                        Application.DoEvents();
                }
                else
                {
                    g_obj_TareaAsincrona_CargarDatos = new BackgroundWorker();
                    g_obj_TareaAsincrona_CargarDatos.DoWork += new DoWorkEventHandler(TareaAsincrona_CargarDatos_DoWork);
                    g_obj_TareaAsincrona_CargarDatos.RunWorkerCompleted += new RunWorkerCompletedEventHandler(TareaAsincrona_CargarDatos_Completed);
                    g_obj_TareaAsincrona_CargarDatos.WorkerReportsProgress = false;
                }

                //Vaciar
                VaciarDatos();

                //(Tarea Asincrona) Cargar Datos ##################################################################
                g_obj_TareaAsincrona_CargarDatos.RunWorkerAsync();
                //#################################################################################################

                g_frm_PE_Esperando.ShowDialog();
            }
            catch (Exception ex)
            {
                g_frm_P_Vencimiento.Enabled = true;

                if (g_frm_PE_Esperando != null)
                {
                    g_frm_PE_Esperando.Close();
                    g_frm_PE_Esperando = null;
                }

                throw new Control_Errores(Mensajes.G_STR_MENSAJES_GENERAL_ERROR_CARGARDATOSPANTALLA(), ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(RecargarDatos), true);
            }
        }
        private void TareaAsincrona_CargarDatos_DoWork(object sender, DoWorkEventArgs e)
        {
            INTERNO_ValorDevuelto_Modelo mdl_INTERNO_ValorDevuelto_Modelo = new INTERNO_ValorDevuelto_Modelo();
            mdl_INTERNO_ValorDevuelto_Modelo.TodoCorrecto = true;
            try
            {
                // Cargar Valores
                if (CargarDatos(g_frm_P_Vencimiento.P_Base_id) == false)
                {
                    mdl_INTERNO_ValorDevuelto_Modelo.TodoCorrecto = false;
                    mdl_INTERNO_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_MENSAJES_GENERAL_ERROR_CARGARDATOSPANTALLA();
                }
            }
            catch (ThreadAbortException ex)
            {
                Control_Errores.Errores_Log("", ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(TareaAsincrona_CargarDatos_DoWork));
                mdl_INTERNO_ValorDevuelto_Modelo.TodoCorrecto = false;
                mdl_INTERNO_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_MENSAJES_GENERAL_ERROR_CARGARDATOSPANTALLA();
            }
            catch (Control_Errores)
            {
                mdl_INTERNO_ValorDevuelto_Modelo.TodoCorrecto = false;
                mdl_INTERNO_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_MENSAJES_GENERAL_ERROR_CARGARDATOSPANTALLA();
            }
            catch (Exception ex)
            {
                Control_Errores.Errores_Log("", ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(TareaAsincrona_CargarDatos_DoWork));
                mdl_INTERNO_ValorDevuelto_Modelo.TodoCorrecto = false;
                mdl_INTERNO_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_MENSAJES_GENERAL_ERROR_CARGARDATOSPANTALLA();
            }
            finally
            {
                e.Result = mdl_INTERNO_ValorDevuelto_Modelo;
            }
        }
        private void TareaAsincrona_CargarDatos_Completed(object sender, RunWorkerCompletedEventArgs e)
        {
            g_obj_ENUM_VALIDACIONFECHAS_TIPOCIERRE = G_ENUM_VALIDACIONFECHAS_TIPOCIERRE.Ninguno;
            if (g_frm_PE_Esperando != null)
            {
                g_frm_PE_Esperando.Close();
                g_frm_PE_Esperando = null;
            }
            //Desbloquear el Formulario
            g_frm_P_Vencimiento.Enabled = true;

            try
            {

                INTERNO_ValorDevuelto_Modelo mdl_ValorDevuelto_Modelo_Resultado = (INTERNO_ValorDevuelto_Modelo)e.Result;

                //Mostrar si tuviera algun mensaje
                if (mdl_ValorDevuelto_Modelo_Resultado.TodoCorrecto == false)
                {
                    Mensajes.MostrarMensaje(mdl_ValorDevuelto_Modelo_Resultado.Mensaje);
                    g_frm_P_Vencimiento.Salir_P_Base();
                }
                else
                {
                    g_frm_P_Vencimiento.Panel_DatosPantalla.Enabled = true;

                    //Actualizar el control de Resumen de Facturas
                    g_frm_P_Vencimiento.CTU_Cartera_Compras_Vencimiento.Rellenar_DataGrid(G_ENUM_CTU_CARTERA_COMPRAS_TIPODOCUMENTOFILTRO.FacturasCabeceraCompra, g_mdl_INTERNO_COM_FacturasCabecera_Modelo.id, true);

                    //Recargar lsitado arbolsecundario
                    g_frm_P_Vencimiento.Exferia_ArbolSecundarioSeleccion_Vencimiento.RecargarSeleccionNodo();
                }
            }
            catch (Exception ex)
            {
                Control_Errores.Errores_Log("", ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(TareaAsincrona_CargarDatos_Completed));
                Mensajes.MostrarMensaje(Mensajes.G_STR_MENSAJES_GENERAL_ERROR_CARGARDATOSPANTALLA());

                g_frm_P_Vencimiento.Salir_P_Base();
            }
            finally
            {

                //Hacemos foco al primer control.
                g_frm_P_Vencimiento.Exferia_TextBox_Descripcion.Exferia_TextBox_Foco();

                //Si no tiene Cierre
                if (g_obj_ENUM_VALIDACIONFECHAS_TIPOCIERRE.Equals(G_ENUM_VALIDACIONFECHAS_TIPOCIERRE.Ninguno))
                {
                    //Configurar Cerrar/Abrir/Volcado
                    Mostrar_CerradoAbierto();
                }
            }
        }

        public bool CargarDatos(long _lng_id)
        {
            bool bol_ValorDevuelto = true;

            try
            {
                g_mdl_COM_Vencimientos = g_obj_COM_Vencimientos_Datos.Obtener(_lng_id);

                //Si no es Nulo Cargo lo Datos
                if (g_mdl_COM_Vencimientos != null)
                {
                    //Paginador ................................................................................
                    if (g_frm_P_Vencimiento.P_Base_PantallaOrigen != null &&
                        g_frm_P_Vencimiento.P_Base_PantallaOrigen.P_Base_Objetos_Filtrados != null &&
                        g_frm_P_Vencimiento.P_Base_PantallaOrigen.P_Base_Objetos_Filtrados.Count > 0)
                    {
                        long lng_id_ParaPaginacion = g_mdl_COM_Vencimientos.id;
                        int int_PaginaDelObjeto = g_frm_P_Vencimiento.P_Base_PantallaOrigen.P_Base_Objetos_Filtrados.IndexOf(g_frm_P_Vencimiento.P_Base_PantallaOrigen.P_Base_Objetos_Filtrados.Where(n => n.ID.Equals(lng_id_ParaPaginacion)).FirstOrDefault());

                        g_frm_P_Vencimiento.g_obj_Funciones_Paginador.SetPaginaActual(int_PaginaDelObjeto);
                        // Asignando al paginador la pagina actual.
                        g_frm_P_Vencimiento.Exferia_Paginador_Vencimientos.PaginaActual = g_frm_P_Vencimiento.g_obj_Funciones_Paginador.GetPaginaActual();
                    }
                    //...........................................................................................

                    //Estado
                    g_str_Estado = g_mdl_COM_Vencimientos.estado;

                    //codigo
                    g_frm_P_Vencimiento.Exferia_TextBox_Codigo.Text = g_mdl_COM_Vencimientos.codigo.ToString();

                    //observaciones
                    g_frm_P_Vencimiento.Exferia_TextBox_Descripcion.Text = g_mdl_COM_Vencimientos.observaciones.ToString();

                    //fechaVencimiento
                    g_frm_P_Vencimiento.Exferia_FechaSeleccion_FechaVencimiento.Exferia_FechaSeleccion_Fecha = g_mdl_COM_Vencimientos.fechaVencimiento.ToString("dd/MM/yyyy");

                    //Datos de la Factura 
                    RellenarDatos_FacturaCabecera_Final(g_mdl_COM_Vencimientos.idFacturaCabecera);
                    if (g_mdl_INTERNO_COM_FacturasCabecera_Modelo != null)
                    {
                        //Factura
                        g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Simple_FacturaCabecera.Exferia_F3_SoloSeleccion_Simple_Id = g_mdl_INTERNO_COM_FacturasCabecera_Modelo.id;
                        g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Simple_FacturaCabecera.Exferia_F3_SoloSeleccion_Simple_Codigo = g_mdl_INTERNO_COM_FacturasCabecera_Modelo.numeroFactura.ToString();
                        g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Simple_FacturaCabecera.Exferia_F3_SoloSeleccion_Simple_FechaBorrado = g_mdl_INTERNO_COM_FacturasCabecera_Modelo.fechaBorrado;

                        //ArbolSecundarioSeleccion Identificadores Necesarios .......................................
                        //idProveedor
                        g_frm_P_Vencimiento.Exferia_ArbolSecundarioSeleccion_Vencimiento.Exferia_ArbolSecundarioSeleccion_IDPROVEEDOR = g_mdl_INTERNO_COM_FacturasCabecera_Modelo.idProveedor;
                    }
                    //...........................................................................................

                    //Tesoreria 
                    if (g_mdl_COM_Vencimientos.MAE_Tesorerias != null)
                    {
                        g_frm_P_Vencimiento.Exferia_F3_Tesoreria.Exferia_F3_Id = g_mdl_COM_Vencimientos.MAE_Tesorerias.id;
                        g_frm_P_Vencimiento.Exferia_F3_Tesoreria.Exferia_F3_Codigo = g_mdl_COM_Vencimientos.MAE_Tesorerias.codigo;
                        g_frm_P_Vencimiento.Exferia_F3_Tesoreria.Exferia_F3_Descripcion = g_mdl_COM_Vencimientos.MAE_Tesorerias.descripcion;
                        g_frm_P_Vencimiento.Exferia_F3_Tesoreria.Exferia_F3_FechaBorrado = g_mdl_COM_Vencimientos.MAE_Tesorerias.fechaBorrado;
                    }
                    else
                    {
                        g_frm_P_Vencimiento.Exferia_F3_Tesoreria.Exferia_F3_Id = -1;
                        g_frm_P_Vencimiento.Exferia_F3_Tesoreria.Exferia_F3_Codigo = string.Empty;
                        g_frm_P_Vencimiento.Exferia_F3_Tesoreria.Exferia_F3_Descripcion = string.Empty;
                        g_frm_P_Vencimiento.Exferia_F3_Tesoreria.Exferia_F3_FechaBorrado = null;
                    }

                    //Importe
                    g_frm_P_Vencimiento.Exferia_TextBox_Importe.Text = g_mdl_COM_Vencimientos.importe.ToString();

                    // Mostrar Campo en el Titulo de mantenimiento
                    string str_MenuSuperior_Codigo = "";
                    if (g_frm_P_Vencimiento.g_mdl_PRV_OpcionesDetalle != null &&
                        g_frm_P_Vencimiento.g_mdl_PRV_OpcionesDetalle.camposMostrar_TituloMantenimiento != null &&
                        g_frm_P_Vencimiento.g_mdl_PRV_OpcionesDetalle.camposMostrar_TituloMantenimiento.Trim().Length > 0)
                    {
                        //Obtener el Array de Campos
                        string[] arr_Campos = g_frm_P_Vencimiento.g_mdl_PRV_OpcionesDetalle.camposMostrar_TituloMantenimiento.Split(new Char[] { ',' });
                        string str_ValorAMostrarFinal = "";

                        string[] str_Separador = new string[] { " [" };
                        //Si ya hay valores de objeto, los elimino para rellenarlos de nuevo
                        if (g_frm_P_Vencimiento.P_Base_TituloPantalla.Split(str_Separador, StringSplitOptions.None).Count() > 1)
                        {
                            g_frm_P_Vencimiento.P_Base_TituloPantalla = (g_frm_P_Vencimiento.P_Base_TituloPantalla.Split(str_Separador, StringSplitOptions.None))[0];
                        }

                        dynamic dnm_Objeto = g_mdl_COM_Vencimientos;
                        foreach (string str_campo in arr_Campos)
                        {
                            var Valor = dnm_Objeto.GetType().GetProperty(str_campo).GetValue(dnm_Objeto, null);
                            if (Valor != null)
                            {
                                str_ValorAMostrarFinal += " " + Valor;
                            }

                            // codigo
                            if (str_campo.Equals(nameof(g_mdl_COM_Vencimientos.codigo)))
                            {
                                str_MenuSuperior_Codigo = g_mdl_COM_Vencimientos.codigo.ToString();
                            }
                            // observaciones
                            else if (str_campo.Equals(nameof(g_mdl_COM_Vencimientos.observaciones)))
                            {
                                str_MenuSuperior_Codigo = g_mdl_COM_Vencimientos.observaciones;
                            }
                        }
                        if (str_ValorAMostrarFinal != "")
                        {
                            g_frm_P_Vencimiento.P_Base_TituloPantalla += " [" + str_ValorAMostrarFinal + "] -Modificar";
                        }
                    }

                    //Actualizar el Boton de Seleccion de pantalla ####################################################
                    Variables.G_EMS_CONTROL_MENUSUPERIOR.Add_Texto_NombrePantalla_Descripciones(g_frm_P_Vencimiento.Tag.ToString(), str_MenuSuperior_Codigo);
                    //#################################################################################################

                    g_frm_P_Vencimiento.P_Base_SeModificoDatosPantalla = false;
                }
            }
            catch (Control_Errores)
            {
                bol_ValorDevuelto = false;
            }
            catch (Exception ex)
            {
                Control_Errores.Errores_Log("", ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(CargarDatos));
                bol_ValorDevuelto = false;
            }

            return bol_ValorDevuelto;
        }
        #endregion

        #region Grabar Datos
        public void GrabarDatos(bool _bol_VolverAlListado)
        {
            try
            {
                //Validacion para Aviso ..................................................
                INTERNO_ValorDevuelto_Modelo mdl_ValorDevuelto_Modelo = Validar_ParaAvisos();
                if (mdl_ValorDevuelto_Modelo.TodoCorrecto == false)
                {
                    if (mdl_ValorDevuelto_Modelo.Mensaje.Trim().Length > 0)
                    {
                        if (Mensajes.MostrarMensaje_Pregunta(mdl_ValorDevuelto_Modelo.Mensaje) == false)
                        {
                            g_bol_GrabarDatos_TerminoCorrectamente = false;
                            //Poner el Foco en el objeto que tuvoel problema en validar
                            if (mdl_ValorDevuelto_Modelo.Objeto != null)
                            {
                                Funciones.Poner_Foco_Objeto(g_frm_P_Vencimiento, mdl_ValorDevuelto_Modelo.Objeto);
                            }

                            g_bol_GrabarDatos_TerminoCorrectamente = false;
                            return;
                        }
                    }
                }
                //.........................................................................................


                g_bol_GrabarDatos_VolverListado = _bol_VolverAlListado;

                g_bol_GrabarDatos_TerminoCorrectamente = true;

                g_frm_P_Vencimiento.Enabled = false;
                g_frm_PE_Esperando = new PE_Esperando(Mensajes.G_STR_ESPERANDO_GRABANDODATOS());

                g_obj_TareaAsincrona_GrabarDatos = new BackgroundWorker();
                g_obj_TareaAsincrona_GrabarDatos.DoWork += new DoWorkEventHandler(TareaAsincrona_GrabarDatos_DoWork);
                g_obj_TareaAsincrona_GrabarDatos.RunWorkerCompleted += new RunWorkerCompletedEventHandler(TareaAsincrona_GrabarDatos_Completed);
                g_obj_TareaAsincrona_GrabarDatos.RunWorkerAsync();

                g_frm_PE_Esperando.ShowDialog();
            }
            catch (Exception ex)
            {
                g_bol_GrabarDatos_TerminoCorrectamente = false;
                if (g_frm_PE_Esperando != null)
                {
                    g_frm_PE_Esperando.Close();
                    g_frm_PE_Esperando = null;
                }
                g_frm_P_Vencimiento.Enabled = true;

                Control_Errores.Errores_Log("", ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(GrabarDatos));
                Mensajes.MostrarMensaje(Mensajes.G_STR_MENSAJES_GENERAL_ERROR_GRABARDATOSPANTALLA());
            }
        }
        private void TareaAsincrona_GrabarDatos_DoWork(object sender, DoWorkEventArgs e)
        {

            INTERNO_ValorDevuelto_Modelo mdl_INTERNO_ValorDevuelto_Modelo = new INTERNO_ValorDevuelto_Modelo();
            mdl_INTERNO_ValorDevuelto_Modelo.TodoCorrecto = true;

            try
            {
                // Validar Primero
                INTERNO_ValorDevuelto_Modelo mdl_ValorDevuelto_Modelo_VALIDACION = ValidarDatos();
                if (mdl_ValorDevuelto_Modelo_VALIDACION.TodoCorrecto)
                {
                    mdl_INTERNO_ValorDevuelto_Modelo = GrabarDatos_Final();
                }
                else
                {
                    mdl_INTERNO_ValorDevuelto_Modelo = mdl_ValorDevuelto_Modelo_VALIDACION;
                }
            }
            catch (ThreadAbortException ex)
            {
                Control_Errores.Errores_Log("", ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(TareaAsincrona_GrabarDatos_DoWork));

                mdl_INTERNO_ValorDevuelto_Modelo.TodoCorrecto = false;
                mdl_INTERNO_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_MENSAJES_GENERAL_ERROR_GRABARDATOSPANTALLA();
            }
            catch (Control_Errores)
            {
                mdl_INTERNO_ValorDevuelto_Modelo.TodoCorrecto = false;
                mdl_INTERNO_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_MENSAJES_GENERAL_ERROR_GRABARDATOSPANTALLA();
            }
            catch (Exception ex)
            {
                Control_Errores.Errores_Log("", ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(TareaAsincrona_GrabarDatos_DoWork));

                mdl_INTERNO_ValorDevuelto_Modelo.TodoCorrecto = false;
                mdl_INTERNO_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_MENSAJES_GENERAL_ERROR_GRABARDATOSPANTALLA();
            }
            finally
            {
                e.Result = mdl_INTERNO_ValorDevuelto_Modelo;
            }
        }
        private void TareaAsincrona_GrabarDatos_Completed(object sender, RunWorkerCompletedEventArgs e)
        {
            if (g_frm_PE_Esperando != null)
            {
                g_frm_PE_Esperando.Close();
                g_frm_PE_Esperando = null;
            }
            g_frm_P_Vencimiento.Enabled = true;

            try
            {
                INTERNO_ValorDevuelto_Modelo mdl_ValorDevuelto_Modelo_Resultado = (INTERNO_ValorDevuelto_Modelo)e.Result;

                //Mostrar si tuviera algun mensaje
                if (mdl_ValorDevuelto_Modelo_Resultado.TodoCorrecto == false)
                {
                    if (mdl_ValorDevuelto_Modelo_Resultado.Mensaje.Trim().Length > 0)
                    {
                        Mensajes.MostrarMensaje(mdl_ValorDevuelto_Modelo_Resultado.Mensaje);

                        //Poner el Foco en el objeto que tuvoel problema en validar
                        if (mdl_ValorDevuelto_Modelo_Resultado.Objeto != null)
                        {
                            Funciones.Poner_Foco_Objeto(g_frm_P_Vencimiento, mdl_ValorDevuelto_Modelo_Resultado.Objeto);
                        }
                    }

                    g_bol_GrabarDatos_TerminoCorrectamente = false;
                }
                else
                {
                    // Devolver al Listado el Row Añadido/Modificado
                    if (g_frm_P_Vencimiento.P_Base_PantallaOrigen != null)
                    {
                        g_frm_P_Vencimiento.P_Base_PantallaOrigen.P_Base_ActualizarRegistro(mdl_ValorDevuelto_Modelo_Resultado.Id, mdl_ValorDevuelto_Modelo_Resultado.TipoAccion);
                    }
                    else if (g_frm_P_Vencimiento.P_Base_F3Origen != null)
                    {
                        g_frm_P_Vencimiento.P_Base_F3Origen.Exferia_F3_ActualizarRegistro(mdl_ValorDevuelto_Modelo_Resultado.Id, mdl_ValorDevuelto_Modelo_Resultado.TipoAccion);
                    }

                    g_frm_P_Vencimiento.P_Base_SeModificoDatosPantalla = false;

                    if (g_bol_GrabarDatos_VolverListado)
                    {
                        g_frm_P_Vencimiento.Salir_P_Base();
                    }
                }
            }
            catch (Exception ex)
            {
                Control_Errores.Errores_Log("", ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(TareaAsincrona_GrabarDatos_Completed));
            }
        }

        public INTERNO_ValorDevuelto_Modelo ValidarDatos()
        {
            INTERNO_ValorDevuelto_Modelo mdl_ValorDevuelto_Modelo = new INTERNO_ValorDevuelto_Modelo();
            mdl_ValorDevuelto_Modelo.TodoCorrecto = true;

            try
            {
                //Si el codigo esta vacio y se intenta buscar el ultimo numerico y llego al limite de base de datos
                if (g_frm_P_Vencimiento.Exferia_TextBox_Codigo.Text.Trim().Length == 0)
                {
                    long lng_Codigo = 1;
                    //Si es NUevo, tengo que mirar el ultimo vencimiento de la factura y ponerle el siguiente
                    if (g_mdl_INTERNO_COM_FacturasCabecera_Modelo != null &&
                        g_mdl_INTERNO_COM_FacturasCabecera_Modelo.COM_Vencimientos != null &&
                        g_mdl_INTERNO_COM_FacturasCabecera_Modelo.COM_Vencimientos.Count > 0)
                    {
                        long? lng_ultimoVencimiento = g_mdl_INTERNO_COM_FacturasCabecera_Modelo.COM_Vencimientos.Select(m => m.codigo).OrderByDescending(m => m).FirstOrDefault();
                        if (lng_ultimoVencimiento != null)
                        {
                            lng_Codigo = lng_ultimoVencimiento.Value + 1;
                        }
                    }

                    g_frm_P_Vencimiento.Exferia_TextBox_Codigo.Text = lng_Codigo.ToString();
                }

                // El codigo no puede estar Repetido
                if (mdl_ValorDevuelto_Modelo.TodoCorrecto)
                {
                    if (g_mdl_INTERNO_COM_FacturasCabecera_Modelo != null &&
                        g_mdl_INTERNO_COM_FacturasCabecera_Modelo.COM_Vencimientos != null &&
                        g_mdl_INTERNO_COM_FacturasCabecera_Modelo.COM_Vencimientos.Count > 0)
                    {
                        //Buscar este codigo en el listado de vencimientos
                        if (g_mdl_INTERNO_COM_FacturasCabecera_Modelo.COM_Vencimientos.ToList().Exists(m => (g_mdl_COM_Vencimientos != null ? m.id != g_mdl_COM_Vencimientos.id : 1 == 1) && m.codigo == long.Parse(g_frm_P_Vencimiento.Exferia_TextBox_Codigo.Text)))
                        {
                            mdl_ValorDevuelto_Modelo.TodoCorrecto = false;
                            mdl_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_GENERAL_VALIDACIONES_REPETIDO(g_frm_P_Vencimiento.Exferia_Label_Codigo.Text);
                            mdl_ValorDevuelto_Modelo.Objeto = g_frm_P_Vencimiento.Exferia_TextBox_Codigo;
                        }
                    }
                }

                // Las Descripcion no puede estar vacía
                if ((mdl_ValorDevuelto_Modelo.TodoCorrecto) && (g_frm_P_Vencimiento.Exferia_TextBox_Descripcion.Text.Trim().Length == 0))
                {
                    mdl_ValorDevuelto_Modelo.TodoCorrecto = false;
                    mdl_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_GENERAL_VALIDACIONES_VACIO(g_frm_P_Vencimiento.Exferia_Label_Descripcion.Text);
                    mdl_ValorDevuelto_Modelo.Objeto = g_frm_P_Vencimiento.Exferia_TextBox_Descripcion;
                }

                // FacturaCabecera no puede estar Vacio (Obligatorio)
                if (mdl_ValorDevuelto_Modelo.TodoCorrecto && g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Simple_FacturaCabecera.Exferia_F3_SoloSeleccion_Simple_Codigo.Trim().Length == 0)
                {
                    mdl_ValorDevuelto_Modelo.TodoCorrecto = false;
                    mdl_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_GENERAL_VALIDACIONES_VACIO(g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Simple_FacturaCabecera.Exferia_F3_SoloSeleccion_Simple_Titulo);
                    mdl_ValorDevuelto_Modelo.Objeto = g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Simple_FacturaCabecera.Exferia_F3_SoloSeleccion_Simple_PRINCIPAL_TextBox_Codigo;
                }

                // Si hay FacturaCabecera validar que es Correcta
                if (mdl_ValorDevuelto_Modelo.TodoCorrecto && (g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Simple_FacturaCabecera.Exferia_F3_SoloSeleccion_Simple_Codigo.Trim().Length != 0) && g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Simple_FacturaCabecera.Exferia_F3_SoloSeleccion_Simple_Id == -1)
                {
                    mdl_ValorDevuelto_Modelo.TodoCorrecto = false;
                    mdl_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_GENERAL_VALIDACIONES_F3_INCORRECTO(g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Simple_FacturaCabecera.Exferia_F3_SoloSeleccion_Simple_Titulo);
                    mdl_ValorDevuelto_Modelo.Objeto = g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Simple_FacturaCabecera.Exferia_F3_SoloSeleccion_Simple_PRINCIPAL_TextBox_Codigo;
                }

                // La fecha de vencimiento, si no esta vacio, debe ser correcta. 
                if (mdl_ValorDevuelto_Modelo.TodoCorrecto)
                {
                    int int_fechaAlta_Respuesta = Funciones.Fecha_Validacion(g_frm_P_Vencimiento.Exferia_FechaSeleccion_FechaVencimiento.Exferia_FechaSeleccion_Fecha.Trim(' ', '/'));

                    if (int_fechaAlta_Respuesta == 1)//Vacia
                    {
                        mdl_ValorDevuelto_Modelo.TodoCorrecto = false;
                        mdl_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_GENERAL_VALIDACIONES_VACIO(g_frm_P_Vencimiento.Exferia_FechaSeleccion_FechaVencimiento.Exferia_FechaSeleccion_Descripcion);
                        mdl_ValorDevuelto_Modelo.Objeto = g_frm_P_Vencimiento.Exferia_FechaSeleccion_FechaVencimiento;
                    }
                    else if (int_fechaAlta_Respuesta == 2)//Incorrecta
                    {
                        mdl_ValorDevuelto_Modelo.TodoCorrecto = false;
                        mdl_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_GENERAL_VALIDACIONES_FECHA_INCORRECTA(g_frm_P_Vencimiento.Exferia_FechaSeleccion_FechaVencimiento.Exferia_FechaSeleccion_Descripcion);
                        mdl_ValorDevuelto_Modelo.Objeto = g_frm_P_Vencimiento.Exferia_FechaSeleccion_FechaVencimiento;
                    }
                }

                // Si hay Tesoreria validar que es Correcta
                if (mdl_ValorDevuelto_Modelo.TodoCorrecto && (g_frm_P_Vencimiento.Exferia_F3_Tesoreria.Exferia_F3_Codigo.Trim().Length != 0 ||
                    g_frm_P_Vencimiento.Exferia_F3_Tesoreria.Exferia_F3_Descripcion.Trim().Length != 0) && g_frm_P_Vencimiento.Exferia_F3_Tesoreria.Exferia_F3_Id == -1)
                {
                    mdl_ValorDevuelto_Modelo.TodoCorrecto = false;
                    mdl_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_GENERAL_VALIDACIONES_F3_INCORRECTO(g_frm_P_Vencimiento.Exferia_F3_Tesoreria.Exferia_F3_Titulo);
                    mdl_ValorDevuelto_Modelo.Objeto = g_frm_P_Vencimiento.Exferia_F3_Tesoreria.Exferia_F3_PRINCIPAL_TextBox_Codigo;
                }

                // El importe no puede estar vacío
                if ((mdl_ValorDevuelto_Modelo.TodoCorrecto) && (g_frm_P_Vencimiento.Exferia_TextBox_Importe.Text.Trim().Length == 0))
                {
                    mdl_ValorDevuelto_Modelo.TodoCorrecto = false;
                    mdl_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_GENERAL_VALIDACIONES_VACIO(g_frm_P_Vencimiento.Exferia_Label_Importe.Text);
                    mdl_ValorDevuelto_Modelo.Objeto = g_frm_P_Vencimiento.Exferia_TextBox_Importe;
                }

                // El importe debe ser diferente 0
                if ((mdl_ValorDevuelto_Modelo.TodoCorrecto) && (Convert.ToDecimal(g_frm_P_Vencimiento.Exferia_TextBox_Importe.Text.Trim()).Equals(0m)))
                {
                    mdl_ValorDevuelto_Modelo.TodoCorrecto = false;
                    mdl_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_GENERAL_VALIDACIONES_VACIO(g_frm_P_Vencimiento.Exferia_Label_Importe.Text);
                    mdl_ValorDevuelto_Modelo.Objeto = g_frm_P_Vencimiento.Exferia_TextBox_Importe;
                }
            }
            catch (Control_Errores)
            {
                mdl_ValorDevuelto_Modelo.TodoCorrecto = false;
                mdl_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_MENSAJES_GENERAL_ERROR_VALIDARDATOSPANTALLA();
            }
            catch (Exception ex)
            {
                Control_Errores.Errores_Log("", ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(ValidarDatos));

                mdl_ValorDevuelto_Modelo.TodoCorrecto = false;
                mdl_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_MENSAJES_GENERAL_ERROR_VALIDARDATOSPANTALLA();
            }

            return mdl_ValorDevuelto_Modelo;
        }
        private INTERNO_ValorDevuelto_Modelo GrabarDatos_Final()
        {
            INTERNO_ValorDevuelto_Modelo mdl_INTERNO_ValorDevuelto_Modelo = new INTERNO_ValorDevuelto_Modelo();
            mdl_INTERNO_ValorDevuelto_Modelo.TodoCorrecto = true;

            try
            {
                COM_Vencimientos mdl_COM_Vencimientos = new COM_Vencimientos();

                //id
                mdl_COM_Vencimientos.id = g_mdl_COM_Vencimientos != null ? g_mdl_COM_Vencimientos.id : -1;

                //codigo
                mdl_COM_Vencimientos.codigo = long.Parse(g_frm_P_Vencimiento.Exferia_TextBox_Codigo.Text);

                //observaciones
                string str_descripcion = g_frm_P_Vencimiento.Exferia_TextBox_Descripcion.Text;
                if (str_descripcion.Trim().Length == 0)
                {
                    //Ejercicio
                    str_descripcion = "Vencimiento " + g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Ejercicio.Exferia_F3_SoloSeleccion_Codigo;

                    //Delegacion
                    if (g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Delegacion.Exferia_F3_SoloSeleccion_Id > -1)
                    {
                        str_descripcion += "/" + g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Delegacion.Exferia_F3_SoloSeleccion_Codigo;
                    }

                    //Factura
                    str_descripcion += "/" + g_frm_P_Vencimiento.Exferia_F3_SoloSeleccion_Simple_FacturaCabecera.Exferia_F3_SoloSeleccion_Simple_Codigo;

                    //Codigo
                    str_descripcion += "/" + g_frm_P_Vencimiento.Exferia_TextBox_Codigo.Text;

                    //Poner el el TextBox
                    g_frm_P_Vencimiento.Exferia_TextBox_Descripcion.Text = str_descripcion;
                }
                mdl_COM_Vencimientos.observaciones = str_descripcion;

                //idFacturaCabecera
                mdl_COM_Vencimientos.idFacturaCabecera = g_mdl_INTERNO_COM_FacturasCabecera_Modelo.id;

                //estado
                mdl_COM_Vencimientos.estado = g_str_Estado;

                //importe
                mdl_COM_Vencimientos.importe = Convert.ToDecimal(g_frm_P_Vencimiento.Exferia_TextBox_Importe.Text.Trim());

                //fechaVencimiento
                mdl_COM_Vencimientos.fechaVencimiento = DateTime.ParseExact(g_frm_P_Vencimiento.Exferia_FechaSeleccion_FechaVencimiento.Exferia_FechaSeleccion_Fecha, "dd/MM/yyyy", CultureInfo.InvariantCulture);

                //idTesoreria
                if (g_frm_P_Vencimiento.Exferia_F3_Tesoreria.Exferia_F3_Id != -1)
                { mdl_COM_Vencimientos.idTesoreria = g_frm_P_Vencimiento.Exferia_F3_Tesoreria.Exferia_F3_Id; }
                else
                { mdl_COM_Vencimientos.idTesoreria = null; }

                // Se graba el modelo ya relleno.
                mdl_INTERNO_ValorDevuelto_Modelo = g_obj_COM_Vencimientos_Datos.Grabar(mdl_COM_Vencimientos);

                // Grabamos las Agrupaciones del Vencimiento
                if (mdl_INTERNO_ValorDevuelto_Modelo.TodoCorrecto)
                {
                    //Buscar el vencimiento Grabado
                    g_mdl_COM_Vencimientos = g_obj_COM_Vencimientos_Datos.Obtener(mdl_INTERNO_ValorDevuelto_Modelo.Id);

                    g_frm_P_Vencimiento.P_Base_id = g_mdl_COM_Vencimientos.id;

                    //Permisos para borrar
                    g_frm_P_Vencimiento.Exferia_Button_Borrar.Enabled = true;
                }
            }
            catch (Control_Errores)
            {
                mdl_INTERNO_ValorDevuelto_Modelo.TodoCorrecto = false;
                mdl_INTERNO_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_MENSAJES_GENERAL_ERROR_GRABARDATOSPANTALLA();
            }
            catch (Exception ex)
            {
                Control_Errores.Errores_Log("", ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(GrabarDatos_Final));
                mdl_INTERNO_ValorDevuelto_Modelo.TodoCorrecto = false;
                mdl_INTERNO_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_MENSAJES_GENERAL_ERROR_GRABARDATOSPANTALLA();
            }
            
            return mdl_INTERNO_ValorDevuelto_Modelo;
        }

        public INTERNO_ValorDevuelto_Modelo Validar_ParaAvisos()
        {
            INTERNO_ValorDevuelto_Modelo mdl_ValorDevuelto_Modelo = new INTERNO_ValorDevuelto_Modelo();
            mdl_ValorDevuelto_Modelo.TodoCorrecto = true;

            try
            {
                //### Se pasa del Pendiente que hay estipulado para la factura ###################################################################
                decimal dcm_TotalFactura = (g_mdl_INTERNO_COM_FacturasCabecera_Modelo != null) ? g_mdl_INTERNO_COM_FacturasCabecera_Modelo.total : 0m;
                decimal dcm_Importe = g_frm_P_Vencimiento.Exferia_TextBox_Importe.Text.Trim().Length > 0 ? Convert.ToDecimal(g_frm_P_Vencimiento.Exferia_TextBox_Importe.Text.Trim()) : 0m;
                decimal dcm_TotalVencimentos = g_mdl_INTERNO_COM_FacturasCabecera_Modelo.Importe_Vencimientos != null ? g_mdl_INTERNO_COM_FacturasCabecera_Modelo.Importe_Vencimientos.Value : 0m;

                // Si estuviera modificando el Pago, tengo que restar el importe que habia para saber exacto el pendiente 
                if (g_mdl_COM_Vencimientos != null)
                {
                    dcm_TotalVencimentos -= g_mdl_COM_Vencimientos.importe;
                }

                if (dcm_TotalFactura != 0 && (dcm_TotalVencimentos + dcm_Importe) > dcm_TotalFactura)
                {
                    mdl_ValorDevuelto_Modelo.TodoCorrecto = false;
                    //Buscar la factura por si diera error, poder poner los datos del mensaje
                    INTERNO_OpcionesDetalle_Modelo mld_INTERNO_OpcionesDetalle_Modelo = Datos_Generales.PRV_Opciones_Buscar_Detalles(Variables.G_STR_OPCION_COM_FACTURACABECERA_AUX);

                    mdl_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_PVENCIMIENTO_VALIDACION_PENDIENTE_INFERIOR_IMPORTE(mld_INTERNO_OpcionesDetalle_Modelo.descripcion_Singular);
                    mdl_ValorDevuelto_Modelo.Objeto = g_frm_P_Vencimiento.Exferia_TextBox_Importe;
                }

                //### Hay Pagos asociados que es superior al vencimento ###########################################################################
                if (g_mdl_COM_Vencimientos != null)
                {
                    if (g_mdl_COM_Vencimientos.COM_Pagos!= null &&
                        g_mdl_COM_Vencimientos.COM_Pagos.Count > 0)
                    {
                        decimal dcm_Suma_Pagos = g_mdl_COM_Vencimientos.COM_Pagos.Sum(m => m.importe);

                        if (dcm_Suma_Pagos > dcm_Importe)
                        {
                            mdl_ValorDevuelto_Modelo.TodoCorrecto = false;

                            //Buscar el devolucion por si diera error, poder poner los datos del mensaje
                            INTERNO_OpcionesDetalle_Modelo mld_INTERNO_OpcionesDetalle_Modelo = Datos_Generales.PRV_Opciones_Buscar_Detalles(Variables.G_STR_OPCION_COM_PAGO);
                            mdl_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_PVENCIMIENTO_VALIDACION_COBROSASOCIADOS_SUPERIOR(mld_INTERNO_OpcionesDetalle_Modelo.descripcion_Plural);
                            mdl_ValorDevuelto_Modelo.Objeto = g_frm_P_Vencimiento.Exferia_TextBox_Importe;
                        }
                    }
                }

                //Poner la Pregunta
                if (mdl_ValorDevuelto_Modelo.TodoCorrecto == false)
                {
                    mdl_ValorDevuelto_Modelo.Mensaje += Mensajes.G_STR_MENSAJES_GENERAL_PREGUNTA_DESEASCONTINUAR();
                }

            }
            catch (Control_Errores)
            {
                mdl_ValorDevuelto_Modelo.TodoCorrecto = false;
                mdl_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_MENSAJES_GENERAL_ERROR_VALIDARDATOSPANTALLA();
            }
            catch (Exception ex)
            {
                Control_Errores.Errores_Log("", ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(ValidarDatos));

                mdl_ValorDevuelto_Modelo.TodoCorrecto = false;
                mdl_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_MENSAJES_GENERAL_ERROR_VALIDARDATOSPANTALLA();
            }

            return mdl_ValorDevuelto_Modelo;
        }
        #endregion

        #region Borrar Datos
        public void BorrarDatos()
        {
            try
            {
                // Preguntar si esta Seguro de Borrar
                if (Mensajes.MostrarMensaje_Pregunta(Mensajes.G_STR_MENSAJES_GENERAL_PREGUNTA_BORRAR()))
                {
                    g_frm_P_Vencimiento.Enabled = false;
                    g_frm_PE_Esperando = new PE_Esperando(Mensajes.G_STR_ESPERANDO_BORRANDODATOS());


                    g_obj_TareaAsincrona_BorrarDatos = new BackgroundWorker();
                    g_obj_TareaAsincrona_BorrarDatos.DoWork += new DoWorkEventHandler(TareaAsincrona_BorrarDatos_DoWork);
                    g_obj_TareaAsincrona_BorrarDatos.RunWorkerCompleted += new RunWorkerCompletedEventHandler(TareaAsincrona_BorrarDatos_Completed);
                    g_obj_TareaAsincrona_BorrarDatos.RunWorkerAsync();

                    g_frm_PE_Esperando.ShowDialog();
                }
            }
            catch (Exception ex)
            {
                if (g_frm_PE_Esperando != null)
                {
                    g_frm_PE_Esperando.Close();
                    g_frm_PE_Esperando = null;
                }

                g_frm_P_Vencimiento.Enabled = true;

                Control_Errores.Errores_Log("", ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(BorrarDatos));
                Mensajes.MostrarMensaje(Mensajes.G_STR_MENSAJES_GENERAL_ERROR_BORRARDATOSPANTALLA());
            }
        }
        private void TareaAsincrona_BorrarDatos_DoWork(object sender, DoWorkEventArgs e)
        {
            INTERNO_ValorDevuelto_Modelo mdl_ValorDevuelto_Modelo = new INTERNO_ValorDevuelto_Modelo();
            mdl_ValorDevuelto_Modelo.TodoCorrecto = true;

            try
            {
                // Borrar 
                mdl_ValorDevuelto_Modelo = BorrarDatos_Final();
            }
            catch (ThreadAbortException ex)
            {
                Control_Errores.Errores_Log("", ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(TareaAsincrona_BorrarDatos_DoWork));

                mdl_ValorDevuelto_Modelo.TodoCorrecto = false;
                mdl_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_MENSAJES_GENERAL_ERROR_BORRARDATOSPANTALLA();
            }
            catch (Control_Errores)
            {
                mdl_ValorDevuelto_Modelo.TodoCorrecto = false;
                mdl_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_MENSAJES_GENERAL_ERROR_BORRARDATOSPANTALLA();
            }
            catch (Exception ex)
            {
                Control_Errores.Errores_Log("", ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(TareaAsincrona_BorrarDatos_DoWork));

                mdl_ValorDevuelto_Modelo.TodoCorrecto = false;
                mdl_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_MENSAJES_GENERAL_ERROR_BORRARDATOSPANTALLA();
            }
            finally
            {
                e.Result = mdl_ValorDevuelto_Modelo;
            }
        }
        private void TareaAsincrona_BorrarDatos_Completed(object sender, RunWorkerCompletedEventArgs e)
        {
            if (g_frm_PE_Esperando != null)
            {
                g_frm_PE_Esperando.Close();
                g_frm_PE_Esperando = null;
            }
            g_frm_P_Vencimiento.Enabled = true;

            try
            {
                INTERNO_ValorDevuelto_Modelo mdl_ValorDevuelto_Modelo_Resultado = (INTERNO_ValorDevuelto_Modelo)e.Result;

                //Mostrar si tuviera algun mensaje
                if (mdl_ValorDevuelto_Modelo_Resultado.TodoCorrecto == false)
                {
                    if (mdl_ValorDevuelto_Modelo_Resultado.Mensaje.Trim().Length > 0)
                    {
                        Mensajes.MostrarMensaje(mdl_ValorDevuelto_Modelo_Resultado.Mensaje);
                    }
                }
                else
                {
                    // Devolver al Listado el Row Borrar
                    if (g_frm_P_Vencimiento.P_Base_PantallaOrigen != null)
                    {
                        g_frm_P_Vencimiento.P_Base_PantallaOrigen.P_Base_ActualizarRegistro(mdl_ValorDevuelto_Modelo_Resultado.Id, mdl_ValorDevuelto_Modelo_Resultado.TipoAccion);
                    }
                    else if (g_frm_P_Vencimiento.P_Base_F3Origen != null)
                    {
                        g_frm_P_Vencimiento.P_Base_F3Origen.Exferia_F3_ActualizarRegistro(mdl_ValorDevuelto_Modelo_Resultado.Id, mdl_ValorDevuelto_Modelo_Resultado.TipoAccion);
                    }

                    
                    g_frm_P_Vencimiento.P_Base_SeModificoDatosPantalla = false;
                    g_frm_P_Vencimiento.Salir_P_Base();
                    
                }
            }
            catch (Exception ex)
            {
                Control_Errores.Errores_Log("", ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(TareaAsincrona_BorrarDatos_Completed));
            }
        }

        private INTERNO_ValorDevuelto_Modelo BorrarDatos_Final()
        {
            INTERNO_ValorDevuelto_Modelo mdl_ValorDevuelto_Modelo = new INTERNO_ValorDevuelto_Modelo();
            try
            {
                mdl_ValorDevuelto_Modelo = g_obj_COM_Vencimientos_Datos.Borrar(g_mdl_COM_Vencimientos != null ? g_mdl_COM_Vencimientos.id : -1);

                return mdl_ValorDevuelto_Modelo;
            }
            catch (Control_Errores)
            {
                mdl_ValorDevuelto_Modelo.TodoCorrecto = false;
                mdl_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_MENSAJES_GENERAL_ERROR_BORRARDATOSPANTALLA();
            }
            catch (Exception ex)
            {
                Control_Errores.Errores_Log("", ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(BorrarDatos_Final));
                mdl_ValorDevuelto_Modelo.TodoCorrecto = false;
                mdl_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_MENSAJES_GENERAL_ERROR_BORRARDATOSPANTALLA();
            }

            return mdl_ValorDevuelto_Modelo;
        }
        #endregion

        #region Cerrar/Abrir
        public void Mostrar_CerradoAbierto()
        {
            //Por Defecto
            g_str_Estado = Variables.G_STR_ESTADO_CONTABILIDAD_ABIERTO;

            //Buscar el Estado del Vencimiento
            if (g_mdl_COM_Vencimientos != null)
            {
                g_str_Estado = g_obj_COM_Vencimientos_Datos.Obtener_Estado(g_mdl_COM_Vencimientos.id);

                //Si esta Cerrado Bloqueo para que no deje hacer nada
                if (g_str_Estado.Equals(Variables.G_STR_ESTADO_CONTABILIDAD_CERRADO))
                {
                    //Cambiar Imagen del Boton de Cerrar
                    g_frm_P_Vencimiento.Exferia_Button_CerrarAbrir.Exferia_Button_Imagen = Imagenes.G_ENUM_IMAGENES.G_IMG_CERRADO;
                    Imagenes.Asignar_Imagen(g_frm_P_Vencimiento.Exferia_Button_CerrarAbrir);
                    g_frm_P_Vencimiento.Exferia_Button_CerrarAbrir.Tag = "1";

                    //Bloqueo los Controles
                    SoloLectura.Empezar(g_frm_P_Vencimiento, true);
                }
                //Abierto
                else
                {
                    //Cambiar Imagen del Boton de Abrir
                    g_frm_P_Vencimiento.Exferia_Button_CerrarAbrir.Exferia_Button_Imagen = Imagenes.G_ENUM_IMAGENES.G_IMG_ABIERTO;
                    Imagenes.Asignar_Imagen(g_frm_P_Vencimiento.Exferia_Button_CerrarAbrir);
                    g_frm_P_Vencimiento.Exferia_Button_CerrarAbrir.Tag = "0";

                    //Desbloqueo los Controles
                    SoloLectura.Empezar(g_frm_P_Vencimiento, false);
                }
            }
        }

        #region Cerrar Documento
        public void Cerrar_Documento()
        {
            try
            {
                g_frm_PE_Esperando = new PE_Esperando(Mensajes.G_STR_ESPERANDO_CERRANDO_DOCUMENTO());

                BackgroundWorker obj_TareaAsincrona_Cerrar_Documento = new BackgroundWorker();

                obj_TareaAsincrona_Cerrar_Documento.DoWork += new DoWorkEventHandler(TareaAsincrona_Cerrar_Documento_DoWork);
                obj_TareaAsincrona_Cerrar_Documento.RunWorkerCompleted += new RunWorkerCompletedEventHandler(TareaAsincrona_Cerrar_Documento_Completed);
                obj_TareaAsincrona_Cerrar_Documento.RunWorkerAsync();

                //Mostrar Pantalla de Espera
                g_frm_PE_Esperando.ShowDialog();
            }
            catch (Exception ex)
            {
                if (g_frm_PE_Esperando != null)
                {
                    g_frm_PE_Esperando.Close();
                    g_frm_PE_Esperando = null;
                }

                Control_Errores.Errores_Log("", ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(Cerrar_Documento));
            }
        }

        private void TareaAsincrona_Cerrar_Documento_DoWork(object sender, DoWorkEventArgs e)
        {
            INTERNO_ValorDevuelto_Modelo mdl_ValorDevuelto_Modelo = new INTERNO_ValorDevuelto_Modelo();
            mdl_ValorDevuelto_Modelo.TodoCorrecto = true;
            mdl_ValorDevuelto_Modelo.Mensaje = "";

            using (TransactionScope transaccion_SQL = new TransactionScope(TransactionScopeOption.Required))
            {
                try
                {
                    //Cargamos el ensamblado #########################################################################################################################################################################
                    Assembly m_assembly_1 = Assembly.LoadFrom(Variables.G_STR_LIBRERIA_RUTAINICIAL + @"\" + Variables.G_STR_LIBRERIA_CONTABILIDAD + ".dll");
                    //Obtenemos el tipo de la clase
                    Type m_type_1 = m_assembly_1.GetType("" + Variables.G_STR_LIBRERIA_CONTABILIDAD + "." + Variables.G_STR_LIBRERIA_DATOSCONTABILIDAD);
                    //creamos la instancia
                    var obj_Clase_1 = Activator.CreateInstance(m_type_1);
                    //Cargamos el metodo solicitado
                    MethodInfo obj_MethodInfo_1 = obj_Clase_1.GetType().GetMethod(Variables.G_STR_LIBRERIA_DATOSCONTABILIDAD_PROCEDIMIENTO_ACCIONDOCUMENTO_CERRAR, BindingFlags.Instance | BindingFlags.NonPublic);

                    List<long> lst_ids = new List<long>();
                    lst_ids.Add(g_mdl_COM_Vencimientos.id);

                    //Obtener valores
                    object[] arr_Parametros_1 = {   null,
                                                    -1,
                                                    g_frm_P_Vencimiento.g_mdl_PRV_OpcionesDetalle.opcion,
                                                    lst_ids};

                    //Pasamos los parametros al metodo y lo ejecutamos
                    mdl_ValorDevuelto_Modelo = (INTERNO_ValorDevuelto_Modelo)obj_MethodInfo_1.Invoke(obj_Clase_1, arr_Parametros_1);
                    //########################################################################################################################################################################

                    if (mdl_ValorDevuelto_Modelo.TodoCorrecto)
                    {
                        transaccion_SQL.Complete();
                    }

                    transaccion_SQL.Dispose();
                }
                catch (ThreadAbortException ex)
                {
                    transaccion_SQL.Dispose();

                    Control_Errores.Errores_Log("", ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(TareaAsincrona_Cerrar_Documento_DoWork));

                    mdl_ValorDevuelto_Modelo.TodoCorrecto = false;
                    mdl_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_MENSAJES_ERROR_CERRAR_DOCUMENTO();
                }
                catch (Control_Errores)
                {
                    transaccion_SQL.Dispose();

                    mdl_ValorDevuelto_Modelo.TodoCorrecto = false;
                    mdl_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_MENSAJES_ERROR_CERRAR_DOCUMENTO();
                }
                catch (Exception ex)
                {
                    transaccion_SQL.Dispose();

                    Control_Errores.Errores_Log("", ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(TareaAsincrona_Cerrar_Documento_DoWork));

                    mdl_ValorDevuelto_Modelo.TodoCorrecto = false;
                    mdl_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_MENSAJES_ERROR_CERRAR_DOCUMENTO();
                }
                finally
                {
                    e.Result = mdl_ValorDevuelto_Modelo;
                }
            }
        }
        private void TareaAsincrona_Cerrar_Documento_Completed(object sender, RunWorkerCompletedEventArgs e)
        {
            if (g_frm_PE_Esperando != null)
            {
                g_frm_PE_Esperando.Close();
                g_frm_PE_Esperando = null;
            }

            //Termino 
            INTERNO_ValorDevuelto_Modelo mdl_INTERNO_ValorDevuelto_Modelo_CERRAR_TERMINO = (INTERNO_ValorDevuelto_Modelo)e.Result;

            //Termino todo Correctamente
            if (mdl_INTERNO_ValorDevuelto_Modelo_CERRAR_TERMINO.TodoCorrecto)
            {
                Mostrar_CerradoAbierto();

                //Actualizar registro en Listado principal
                if (g_frm_P_Vencimiento.P_Base_PantallaOrigen != null)
                {
                    List<INTERNO_ActualizarCampoListadoGeneral_Modelo> lst_INTERNO_ActualizarCampoListadoGeneral_Modelo = new List<INTERNO_ActualizarCampoListadoGeneral_Modelo>();
                    lst_INTERNO_ActualizarCampoListadoGeneral_Modelo.Add(new INTERNO_ActualizarCampoListadoGeneral_Modelo(g_mdl_COM_Vencimientos.id, nameof(INTERNO_COM_Vencimientos_Listado_Modelo.estado), Variables.G_STR_ESTADO_CONTABILIDAD_CERRADO));

                    g_frm_P_Vencimiento.P_Base_PantallaOrigen.P_Base_ActualizarRegistros_Campo(lst_INTERNO_ActualizarCampoListadoGeneral_Modelo, G_ENUM_TIPOACCION.INT_MODIFICAR);
                    g_frm_P_Vencimiento.P_Base_PantallaOrigen.P_Base_ActualizarRegistro_ConObjeto(Variables.G_STR_OPCION_COM_VENCIMIENTO, G_ENUM_TIPOACCION.INT_NADA);
                }

                //Actualizar el control de Resumen de Facturas
                g_frm_P_Vencimiento.CTU_Cartera_Compras_Vencimiento.Rellenar_DataGrid(G_ENUM_CTU_CARTERA_COMPRAS_TIPODOCUMENTOFILTRO.FacturasCabeceraCompra, g_mdl_INTERNO_COM_FacturasCabecera_Modelo.id, true);
            }
            //Ocurrio un Error
            else
            {
                Mensajes.MostrarMensaje(mdl_INTERNO_ValorDevuelto_Modelo_CERRAR_TERMINO.Mensaje);
            }
        }
        #endregion

        #region Abrir Documento
        public void Abrir_Documento()
        {
            try
            {
                g_frm_PE_Esperando = new PE_Esperando(Mensajes.G_STR_ESPERANDO_ABRIENNDO_DOCUMENTO());

                BackgroundWorker obj_TareaAsincrona_Abrir_Documento = new BackgroundWorker();

                obj_TareaAsincrona_Abrir_Documento.DoWork += new DoWorkEventHandler(TareaAsincrona_Abrir_Documento_DoWork);
                obj_TareaAsincrona_Abrir_Documento.RunWorkerCompleted += new RunWorkerCompletedEventHandler(TareaAsincrona_Abrir_Documento_Completed);
                obj_TareaAsincrona_Abrir_Documento.RunWorkerAsync();

                //Mostrar Pantalla de Espera
                g_frm_PE_Esperando.ShowDialog();
            }
            catch (Exception ex)
            {
                if (g_frm_PE_Esperando != null)
                {
                    g_frm_PE_Esperando.Close();
                    g_frm_PE_Esperando = null;
                }

                Control_Errores.Errores_Log("", ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(Abrir_Documento));
            }
        }

        private void TareaAsincrona_Abrir_Documento_DoWork(object sender, DoWorkEventArgs e)
        {
            INTERNO_ValorDevuelto_Modelo mdl_ValorDevuelto_Modelo = new INTERNO_ValorDevuelto_Modelo();
            mdl_ValorDevuelto_Modelo.TodoCorrecto = true;
            mdl_ValorDevuelto_Modelo.Mensaje = "";

            using (TransactionScope transaccion_SQL = new TransactionScope(TransactionScopeOption.Required))
            {
                try
                {
                    //Cargamos el ensamblado #########################################################################################################################################################################
                    Assembly m_assembly_1 = Assembly.LoadFrom(Variables.G_STR_LIBRERIA_RUTAINICIAL + @"\" + Variables.G_STR_LIBRERIA_CONTABILIDAD + ".dll");
                    //Obtenemos el tipo de la clase
                    Type m_type_1 = m_assembly_1.GetType("" + Variables.G_STR_LIBRERIA_CONTABILIDAD + "." + Variables.G_STR_LIBRERIA_DATOSCONTABILIDAD);
                    //creamos la instancia
                    var obj_Clase_1 = Activator.CreateInstance(m_type_1);
                    //Cargamos el metodo solicitado
                    MethodInfo obj_MethodInfo_1 = obj_Clase_1.GetType().GetMethod(Variables.G_STR_LIBRERIA_DATOSCONTABILIDAD_PROCEDIMIENTO_ACCIONDOCUMENTO_ABRIR, BindingFlags.Instance | BindingFlags.NonPublic);

                    List<long> lst_ids = new List<long>();
                    lst_ids.Add(g_mdl_COM_Vencimientos.id);

                    //Obtener valores
                    object[] arr_Parametros_1 = {   -1,
                                                    null,
                                                    -1,
                                                    g_frm_P_Vencimiento.g_mdl_PRV_OpcionesDetalle.opcion,
                                                    lst_ids,
                                                    -1};

                    //Pasamos los parametros al metodo y lo ejecutamos
                    mdl_ValorDevuelto_Modelo = (INTERNO_ValorDevuelto_Modelo)obj_MethodInfo_1.Invoke(obj_Clase_1, arr_Parametros_1);
                    //########################################################################################################################################################################

                    if (mdl_ValorDevuelto_Modelo.TodoCorrecto)
                    {
                        transaccion_SQL.Complete();
                    }

                    transaccion_SQL.Dispose();
                }
                catch (ThreadAbortException ex)
                {
                    transaccion_SQL.Dispose();

                    Control_Errores.Errores_Log("", ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(TareaAsincrona_Abrir_Documento_DoWork));

                    mdl_ValorDevuelto_Modelo.TodoCorrecto = false;
                    mdl_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_MENSAJES_ERROR_ABRIR_DOCUMENTO();
                }
                catch (Control_Errores)
                {
                    transaccion_SQL.Dispose();

                    mdl_ValorDevuelto_Modelo.TodoCorrecto = false;
                    mdl_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_MENSAJES_ERROR_ABRIR_DOCUMENTO();
                }
                catch (Exception ex)
                {
                    transaccion_SQL.Dispose();

                    Control_Errores.Errores_Log("", ex, nameof(P_Vencimiento_Controladora) + "/" + nameof(TareaAsincrona_Abrir_Documento_DoWork));

                    mdl_ValorDevuelto_Modelo.TodoCorrecto = false;
                    mdl_ValorDevuelto_Modelo.Mensaje = Mensajes.G_STR_MENSAJES_ERROR_ABRIR_DOCUMENTO();
                }
                finally
                {
                    e.Result = mdl_ValorDevuelto_Modelo;
                }
            }
        }
        private void TareaAsincrona_Abrir_Documento_Completed(object sender, RunWorkerCompletedEventArgs e)
        {
            if (g_frm_PE_Esperando != null)
            {
                g_frm_PE_Esperando.Close();
                g_frm_PE_Esperando = null;
            }

            //Termino 
            INTERNO_ValorDevuelto_Modelo mdl_INTERNO_ValorDevuelto_Modelo_ABRIR_TERMINO = (INTERNO_ValorDevuelto_Modelo)e.Result;

            //Termino todo Correctamente
            if (mdl_INTERNO_ValorDevuelto_Modelo_ABRIR_TERMINO.TodoCorrecto)
            {
                Mostrar_CerradoAbierto();

                //Actualizar registro en Listado principal
                if (g_frm_P_Vencimiento.P_Base_PantallaOrigen != null)
                {
                    List<INTERNO_ActualizarCampoListadoGeneral_Modelo> lst_INTERNO_ActualizarCampoListadoGeneral_Modelo = new List<INTERNO_ActualizarCampoListadoGeneral_Modelo>();
                    lst_INTERNO_ActualizarCampoListadoGeneral_Modelo.Add(new INTERNO_ActualizarCampoListadoGeneral_Modelo(g_mdl_COM_Vencimientos.id, nameof(INTERNO_COM_Vencimientos_Listado_Modelo.estado), Variables.G_STR_ESTADO_CONTABILIDAD_ABIERTO));

                    g_frm_P_Vencimiento.P_Base_PantallaOrigen.P_Base_ActualizarRegistros_Campo(lst_INTERNO_ActualizarCampoListadoGeneral_Modelo, G_ENUM_TIPOACCION.INT_MODIFICAR);
                    g_frm_P_Vencimiento.P_Base_PantallaOrigen.P_Base_ActualizarRegistro_ConObjeto(Variables.G_STR_OPCION_COM_VENCIMIENTO, G_ENUM_TIPOACCION.INT_NADA);
                }

                //Actualizar el control de Resumen de Facturas
                g_frm_P_Vencimiento.CTU_Cartera_Compras_Vencimiento.Rellenar_DataGrid(G_ENUM_CTU_CARTERA_COMPRAS_TIPODOCUMENTOFILTRO.FacturasCabeceraCompra, g_mdl_INTERNO_COM_FacturasCabecera_Modelo.id, true);
            }
            //Ocurrio un Error
            else
            {
                Mensajes.MostrarMensaje(mdl_INTERNO_ValorDevuelto_Modelo_ABRIR_TERMINO.Mensaje);
            }
        }

        #endregion
        #endregion
    }
}
