Exemple #1
0
        private void BtnGenerar_Click(object sender, EventArgs e)
        {
            N_Contrato_Arren Contratos = new N_Contrato_Arren();
            N_Informe        Informe   = new N_Informe();

            //Contratos.ConectarA("wilmer_portatil");
            //Contratos.Cadena(Program.GsPathData, Program.gsServidor);
            //Informe.ConectarA("wilmer_portatil");
            //Informe.Cadena(Program.GsPathData, Program.gsServidor);
            //Contratos.GenerarDeuda();
            GenerarDeuda();
            DGVDetalle.DataSource = Informe.Consultar();
        }
Exemple #2
0
        public void GenerarDeuda(Boolean ProyInq = false)
        {
            DateTime             dFechaSistema = DateTime.Today;
            DateTime             dLiqHasta     = DateTime.Today;
            int                  DiasControl;
            int                  iDia           = 0;
            M_DatosDeudaContrato DatosDeudaCont = new M_DatosDeudaContrato();
            bool                 bFacturo       = false;
            int                  DiasV          = 0;
            DateTime             TiempoInicial;
            DateTime             TiempoFinal;
            DateTime             TiempoIniInf;
            DateTime             TiempoFinalInf;


            DataTable   DTInmuebles = new DataTable();
            DataTable   DTContratos = new DataTable();
            N_Inmuebles Inmuebles   = new N_Inmuebles();

            N_Control  Control = new N_Control();
            N_Empresas Empresa = new N_Empresas();
            N_Informe  Informe = new N_Informe();

            N_Contrato_Arren Contratos = new N_Contrato_Arren();

            Contratos.ConectarA("wilmer_portatil");
            Inmuebles.ConectarA("wilmer_portatil");
            Control.ConectarA("wilmer_portatil");
            Empresa.ConectarA("wilmer_portatil");
            Informe.ConectarA("wilmer_portatil");
            //Contratos.ConectarA("Access");
            //Inmuebles.ConectarA("Access");
            //Control.ConectarA("Access");
            //Empresa.ConectarA("Access");
            //Informe.ConectarA("Access");

            dFechaSistema = DateTime.Today;

            //Control.Cadena(Program.GsPathData, Program.gsServidor);
            Control.Existe(true);
            //Empresa.Cadena(Program.GsPathData, Program.gsServidor);
            Empresa.Existe(true);
            //Informe.Cadena(Program.GsPathData, Program.gsServidor);
            //Inmuebles.Cadena(Program.GsPathData, Program.gsServidor);
            //Contratos.ConectaA = "wilmer_portatil";
            //Contratos.Cadena(Program.GsPathData, Program.gsServidor);

            Informe.BorrarDatos();

            //DTInmuebles = Inmuebles.Consultar();


            //if (DTInmuebles.Rows.Count > 0)
            //{
            //foreach (DataRow Fila in DTInmuebles.Rows)
            //{
            //DTotalIntrs = 0; DTotalCanon = 0; DTotalDeuda = 0;
            //Inmueble = Convert.ToInt32(Fila["cod_inmueble"]);
            //DTContratos = Contratos.ContratosXInmueble(Inmueble);

            DTContratos = Contratos.ContratosALiquidar();
            foreach (DataRow DRContrato in DTContratos.Rows)
            {
                //dFechaSistema = DateTime.Today;
                //if (Contratos.Existe(Convert.ToInt32(DRContrato["no_contrato"]), true))
                //{
                TiempoInicial = DateTime.Now;
                Contratos.CargarDatos(DRContrato);
                //if (Contratos.C_Contrato_Arren.No_contrato == 2016109)
                //{
                //MessageBox.Show("entro");
                //}
                //Debug.Print ("Liquidando contrato: " + DRContrato["no_contrato"].ToString());
                //Contratos.C_Contrato_Arren = (M_Contrato_Arren)DRContrato;
                Application.DoEvents();
                //label1.Text = "liquidando el contrato: " + Contratos.C_Contrato_Arren.No_contrato;
                dFechaSistema = DateTime.Today;
                if (Contratos.C_Contrato_Arren.Fecha_vencimiento > Contratos.C_Contrato_Arren.Pago_hasta)
                {
                    if (Contratos.C_Contrato_Arren.Formapago == "A")
                    {
                        DiasControl = (Contratos.C_Contrato_Arren.Fecha_vencimiento - Contratos.C_Contrato_Arren.Pago_hasta).Days + 1;
                    }
                    else
                    {
                        DiasControl = (Contratos.C_Contrato_Arren.Fecha_vencimiento - Contratos.C_Contrato_Arren.Pago_hasta.AddMonths(2)).Days + 1;
                    }


                    if (DiasControl >= 30)
                    {
                        if (dFechaSistema >= Contratos.C_Contrato_Arren.Fecha_vencimiento && dFechaSistema > Contratos.C_Contrato_Arren.Pago_hasta)
                        {
                            dLiqHasta = Contratos.C_Contrato_Arren.Fecha_vencimiento;
                        }
                        else if (Contratos.C_Contrato_Arren.Pago_hasta >= dFechaSistema)
                        {
                            if (ProyInq)
                            {
                                if (Contratos.C_Contrato_Arren.Pago_hasta.AddMonths(1) > Contratos.C_Contrato_Arren.Fecha_vencimiento)
                                {
                                    dLiqHasta = Contratos.C_Contrato_Arren.Fecha_vencimiento;
                                }
                                else
                                {
                                    dLiqHasta = Contratos.C_Contrato_Arren.Pago_hasta.AddMonths(1).AddDays(-1);
                                }
                            }
                            else
                            {
                                dLiqHasta = Contratos.C_Contrato_Arren.Pago_hasta.AddDays(-1);
                            }
                        }
                        else
                        {
                            if (Contratos.C_Contrato_Arren.Pago_hasta.Day > 28)
                            {
                                if (dFechaSistema.Month == 2)
                                {
                                    iDia = 28;
                                    if (Contratos.C_Contrato_Arren.Pago_hasta.Date.Day == 29)
                                    {
                                        if (DateTime.IsLeapYear(dFechaSistema.Year))
                                        {
                                            iDia = 29;
                                        }
                                    }
                                }
                                if (dFechaSistema.Month == 4 || dFechaSistema.Month == 6 || dFechaSistema.Month == 9 || dFechaSistema.Month == 11)
                                {
                                    iDia = 30;
                                }
                                else
                                {
                                    iDia = Contratos.C_Contrato_Arren.Pago_hasta.Day;
                                }
                            }
                            else
                            {
                                iDia = Contratos.C_Contrato_Arren.Pago_hasta.Day;
                            }

                            //Debug.Print CDate(iDia &"/" & Month(dFechaSistema) & "/" & Year(dFechaSistema)) -C_Contrato_Arrenpago_hasta + 1
                            //Debug.Print CDate(Day(C_Contrato_Arrenpago_hasta) & "/" & Month(dFechaSistema) & "/" & Year(dFechaSistema))
                            if ((Convert.ToDateTime(iDia + "/" + dFechaSistema.Month + "/" + dFechaSistema.Year) - Contratos.C_Contrato_Arren.Pago_hasta).Days + 1 >= 30)
                            {
                                if (dFechaSistema.Day > iDia)
                                {
                                    iDia = Contratos.C_Contrato_Arren.Pago_hasta.Day;
                                    if (Contratos.C_Contrato_Arren.Pago_hasta.Day > 28)
                                    {
                                        if (dFechaSistema.AddMonths(1).Month == 2)
                                        {
                                            if (DateTime.IsLeapYear(dFechaSistema.Year))
                                            {
                                                iDia = 29;
                                            }
                                            else
                                            {
                                                iDia = 28;
                                            }
                                        }
                                        if (dFechaSistema.AddMonths(1).Month == 4 || dFechaSistema.AddMonths(1).Month == 6 || dFechaSistema.AddMonths(1).Month == 9 || dFechaSistema.AddMonths(1).Month == 11)
                                        {
                                            iDia = 30;
                                        }
                                    }

                                    if (dFechaSistema.Month < 12)
                                    {
                                        dLiqHasta = Convert.ToDateTime(iDia + "/" + dFechaSistema.AddMonths(1).Month + "/" + dFechaSistema.Year).AddDays(-1);
                                    }
                                    else
                                    {
                                        dLiqHasta = Convert.ToDateTime(iDia + "/" + dFechaSistema.AddMonths(1).Month + "/" + (dFechaSistema.Year + 1)).AddDays(-1);
                                    }
                                }
                                else
                                {
                                    dLiqHasta = Convert.ToDateTime(iDia + "/" + dFechaSistema.Month + "/" + dFechaSistema.Year).AddDays(-1);
                                }
                            }
                            else
                            {
                                dLiqHasta = Contratos.C_Contrato_Arren.Pago_hasta.AddMonths(1).AddDays(-1);
                                if (Contratos.C_Contrato_Arren.Fecha_vencimiento >= dFechaSistema && dFechaSistema > dLiqHasta && (dFechaSistema.Subtract(dLiqHasta).Days > Control.C_Control.Diasgracia))
                                {
                                    dLiqHasta = Contratos.C_Contrato_Arren.Pago_hasta.AddMonths(2).AddDays(-1);
                                }
                                //else
                                //    dLiqHasta = C_Contrato_Arren.Pago_hasta.AddMonths(1).AddDays(-1);
                            }
                        }
                    }
                    else if (Contratos.C_Contrato_Arren.Formapago == "V" && DiasControl == 0)
                    {
                        dLiqHasta = Convert.ToDateTime("01/01/1900");
                    }
                    else if (dFechaSistema < Contratos.C_Contrato_Arren.Pago_hasta && Contratos.C_Contrato_Arren.Saldo_canon == 0)
                    {
                        dLiqHasta = Convert.ToDateTime("01/01/1900");
                    }
                    else
                    {
                        dLiqHasta = Contratos.C_Contrato_Arren.Fecha_vencimiento;
                    }
                }
                else
                {
                    if (Contratos.C_Contrato_Arren.Saldo_canon > 0 || Contratos.C_Contrato_Arren.Saldo_intereses > 0)
                    {
                        dLiqHasta = Contratos.C_Contrato_Arren.Fecha_vencimiento;
                    }
                    else
                    {
                        dLiqHasta = Convert.ToDateTime("01/01/1900");
                    }
                }

                if (dLiqHasta != Convert.ToDateTime("01/01/1900"))
                {                //if (dLiqHasta > C_Contrato_Arren.Fecha_vencimiento) dLiqHasta = C_Contrato_Arren.Fecha_vencimiento;
                    if (Contratos.C_Contrato_Arren.No_contrato == 20080082)
                    {
                        Convert.ToInt32("100");
                    }
                    Contratos.LiquidarContratoInquilino(Control, Contratos.C_Contrato_Arren, Contratos.C_Contrato_Arren.No_contrato, dFechaSistema, DateTime.Today, dLiqHasta, 0, "", 0, false, false, 0, ref bFacturo, ref DatosDeudaCont);
                }
                if (dLiqHasta != Convert.ToDateTime("01/01/1900"))
                {
                    TiempoIniInf = DateTime.Now;
                    if (DatosDeudaCont.dDeudaCanon > 0 || DatosDeudaCont.dDeudaIntrs > 0)
                    {
                        //Informe.C_Informe = new M_Informe();
                        Informe.C_Informe.No_contrato = Contratos.C_Contrato_Arren.No_contrato;
                        Informe.C_Informe.Deudacanon  = DatosDeudaCont.dDeudaCanon;
                        Informe.C_Informe.Deudaintrs  = DatosDeudaCont.dDeudaIntrs;
                        Informe.C_Informe.Dias        = 0;
                        Informe.C_Informe.Cod_empresa = 1;
                        if (Contratos.C_Contrato_Arren.Enabogado)
                        {
                            if (!string.IsNullOrEmpty(Contratos.C_Contrato_Arren.FEntAbogado.ToString()))
                            {
                                dFechaSistema = Contratos.C_Contrato_Arren.FEntAbogado;
                            }
                        }
                        if (Contratos.C_Contrato_Arren.EnConciliacion)
                        {
                            if (!string.IsNullOrEmpty(Contratos.C_Contrato_Arren.Fecha_enconciliacion.ToString()))
                            {
                                dFechaSistema = Contratos.C_Contrato_Arren.Fecha_enconciliacion;
                            }
                        }
                        DiasV = Contratos.SaberDias(dFechaSistema, Contratos.C_Contrato_Arren.Pago_hasta, Contratos.C_Contrato_Arren.Formapago);
                        if (Contratos.C_Contrato_Arren.Pago_hasta < Contratos.C_Contrato_Arren.Fecha_vencimiento && DiasV > 0)
                        {
                            if (DiasV <= Control.C_Control.Diasgracia)
                            {
                                if (DatosDeudaCont.dSaldoAnt > 0)
                                {
                                    DiasV = Contratos.SaberDias(dFechaSistema, Contratos.C_Contrato_Arren.Ultimopago, Contratos.C_Contrato_Arren.Formapago);
                                    Informe.C_Informe.Deudacanon = DatosDeudaCont.dSaldoAnt;
                                }
                                Informe.C_Informe.Dias = DiasV;
                            }
                            else
                            {
                                Informe.C_Informe.Dias = DiasV;
                            }
                        }
                        else if (DatosDeudaCont.dSaldoAnt > 0 && DiasV > 0)
                        {
                            DiasV = Contratos.SaberDias(dFechaSistema, Contratos.C_Contrato_Arren.Ultimopago, Contratos.C_Contrato_Arren.Formapago);
                            //Informe.C_Informe.Deudacanon = DatosDeudaCont.dSaldoAnt;
                            if (DiasV > 0)
                            {
                                Informe.C_Informe.Dias = DiasV;
                            }
                        }
                        else
                        {
                            Informe.C_Informe.Dias = 0;
                        }
                        Informe.Insertar(Informe.C_Informe);
                        TiempoFinalInf = DateTime.Now;
                        Debug.Print("Grabando en Informe: " + Contratos.C_Contrato_Arren.No_contrato + " tiempo: " + (TiempoFinalInf - TiempoIniInf).TotalSeconds);
                    }
                }
                TiempoFinal = DateTime.Now;
                Debug.Print("liquidando contrato: " + Contratos.C_Contrato_Arren.No_contrato + " tiempo: " + (TiempoFinal - TiempoInicial).TotalSeconds.ToString());
                label1.Text = "liquidando contrato: " + Contratos.C_Contrato_Arren.No_contrato + " tiempo: " + (TiempoFinal - TiempoInicial).TotalSeconds.ToString();
                //}
            }
            //}

            //}
        }