protected void Page_Load(object sender, EventArgs e) { pnlExportar.Visible = true; // Response.BinaryWrite(System.Text.UTF8Encoding.UTF8.GetPreamble()); try { using (CobranzasDataContext db = new CobranzasDataContext()) { Int32 idPersona = Convert.ToInt32(Request["idPersona"]); DateTime Desde = Convert.ToDateTime(Request["FechaDesde"]); DateTime Hasta = Convert.ToDateTime(Request["FechaHasta"]); Int32 idCliente = Convert.ToInt32(Request["idCliente"] ?? "0"); Boolean IncluyeComentario = Request["Comentario"] != null; Personas Persona = db.Personas.Single(x => x.idPersona == idPersona); General.FormatoFecha = "dd/MM/yyyy"; General.FormatoFechaW = "ddd dd/MM/yyyy"; lblFechaDesde.Text = Desde.AFechaMuyCorta(); lblFechaHasta.Text = Hasta.AFechaMuyCorta(); lblNaviera.Text = idCliente == 0 ? "Todas" : db.Clientes.Single(x => x.idCliente == idCliente).Nombre; lblNombre.Text = Persona.Nombre; lblRif.Text = Persona.Rif; lblCodigo.Text = Persona.Codigo; lblPais.Text = Persona.Paises.Nombre; lblDireccionFiscal.Text = Persona.DireccionFiscal; lblDireccionEntrega.Text = Persona.DireccionEntrega; lblDeudaLocal.Text = Persona.Cuentas.Where(x => x.Activa && (idCliente == 0 || x.idCliente == idCliente)).Sum(x => x.MontoRestante * x.CambioLocal).ToString("N") + Persona.Paises.idMoneda; lblDeudaDolar.Text = Persona.Cuentas.Where(x => x.Activa && (idCliente == 0 || x.idCliente == idCliente)).Sum(x => x.MontoRestante / x.CambioDolar).ToString("N") + "USD"; lblCantidadFacturas.Text = Persona.Cuentas.Count(x => x.Activa && (idCliente == 0 || x.idCliente == idCliente)).ToString(); var Pagos = db.Pagos.Where(x => x.idPersona == idPersona && x.Fecha.Date >= Desde && x.Fecha.Date <= Hasta).OrderByDescending(x => x.Fecha); Pagos Pago = Pagos.FirstOrDefault(); lblUltimoPago.Text = Pago == null ? "Sin Pagos en el Período" : Pago.Fecha.AFechaCorta(); lblCantidadPagos.Text = Pagos.Count().ToString(); var Gestiones = Persona.Gestiones.Where(x => (idCliente == 0 || x.Cuentas_Gestiones.Any(y => y.Cuentas.idCliente == idCliente)) && x.Status.Tipo != "Sistema" & x.Fecha.Date >= Desde && x.Fecha.Date <= Hasta).OrderByDescending(x => x.Fecha); var Llamadas = db.Llamadas.Where(x => (x.Telefonos.idPersona == idPersona || x.Telefonos.PersonasContacto.idPersona == idPersona) && (x.Fecha.Date >= Desde && x.Fecha.Date <= Hasta)); Gestiones Gestion = Gestiones.First(); lblStatus.Text = Gestion.Status.Nombre; lblGestion.Text = Gestion.Descripcion; lblGestionesTotales.Text = Gestiones.Count().ToString(); lblLlamadasContestadas.Text = Llamadas.Where(x => x.StatusPrimario == "Contestado" && (x.Fecha.Date >= Desde && x.Fecha.Date <= Hasta)).Count().ToString(); lblLlamadasNoContestadas.Text = Llamadas.Where(x => x.StatusPrimario != "Contestado" && (x.Fecha.Date >= Desde && x.Fecha.Date <= Hasta)).Count().ToString(); lblEnviosAutomaticos.Text = Persona.Gestiones.Count(x => x.idStatus == 18).ToString(); lblCorreos.Text = db.Correos.Count(x => x.RutaEml == null && x.Correos_Personas.Any(y => y.idPersona == idPersona) && (x.Fecha.Date >= Desde && x.Fecha.Date <= Hasta)).ToString(); lblCorreosAsignados.Text = db.Correos.Count(x => x.RutaEml != null && x.Correos_Personas.Any(y => y.idPersona == idPersona) && (x.Fecha.Date >= Desde && x.Fecha.Date <= Hasta)).ToString(); lblPagosProcesados.Text = db.Pagos.Count(x => x.idPersona == idPersona && x.idOperador != null && x.Confirmado == true && (x.Fecha.Date >= Desde && x.Fecha.Date <= Hasta)).ToString(); lblReclamos.Text = db.Reclamos.Count(x => x.Codigo != null && x.idOperador != null && x.Cuentas_Reclamos.Any(y => y.Cuentas.idPersona == idPersona) && (x.Fecha.Date >= Desde && x.Fecha.Date <= Hasta)).ToString(); lblCompromisos.Text = db.Compromisos.Count(x => x.idPersona == idPersona && (x.Fecha.Date >= Desde && x.Fecha.Date <= Hasta)).ToString(); lblAvisos.Text = db.Avisos.Count(x => x.idPersona == idPersona && (x.FechaAviso.Date >= Desde && x.FechaAviso.Date <= Hasta)).ToString(); lblVisitas.Text = Gestiones.Count(x => x.idStatus == 12).ToString(); Origenes Origen = Persona.Cuentas.First().Origenes; using (OleDbConnection Conn = new OleDbConnection(Origen.ConnectionString)) { OleDbCommand Comm = Conn.CreateCommand(); Comm.CommandType = CommandType.StoredProcedure; Comm.CommandText = "Cobranzas.TiempoPago"; Comm.Parameters.Add("CodigoPersona", OleDbType.VarChar).Value = Persona.Codigo; Comm.Parameters.Add("Pais", OleDbType.Char, 3).Value = Persona.idPais; Comm.Parameters.Add("Modo", OleDbType.Integer).Value = 0; DataSet DS = new DataSet(); OleDbDataAdapter DA = new OleDbDataAdapter(Comm); DA.Fill(DS); DataRow Fila = DS.Tables[0].Rows[0]; lblTF1.Text = Convert.ToInt32(Fila["C00_15"]).ToString(); lblTF2.Text = Convert.ToInt32(Fila["C16_30"]).ToString(); lblTF3.Text = Convert.ToInt32(Fila["C31_45"]).ToString(); lblTF4.Text = Convert.ToInt32(Fila["C46_60"]).ToString(); lblTF5.Text = Convert.ToInt32(Fila["C61_90"]).ToString(); lblTF6.Text = Convert.ToInt32(Fila["C91_"]).ToString(); lblTM1.Text = Convert.ToDecimal(Fila["M00_15"]).ToString(); lblTM2.Text = Convert.ToDecimal(Fila["M16_30"]).ToString(); lblTM3.Text = Convert.ToDecimal(Fila["M31_45"]).ToString(); lblTM4.Text = Convert.ToDecimal(Fila["M46_60"]).ToString(); lblTM5.Text = Convert.ToDecimal(Fila["M61_90"]).ToString(); lblTM6.Text = Convert.ToDecimal(Fila["M91_"]).ToString(); Comm.Parameters["Modo"].Value = 1; DS = new DataSet(); DA = new OleDbDataAdapter(Comm); DA.Fill(DS); Fila = DS.Tables[0].Rows[0]; lblCF1.Text = Convert.ToInt32(Fila["C00_15"]).ToString(); lblCF2.Text = Convert.ToInt32(Fila["C16_30"]).ToString(); lblCF3.Text = Convert.ToInt32(Fila["C31_45"]).ToString(); lblCF4.Text = Convert.ToInt32(Fila["C46_60"]).ToString(); lblCF5.Text = Convert.ToInt32(Fila["C61_90"]).ToString(); lblCF6.Text = Convert.ToInt32(Fila["C91_"]).ToString(); lblCM1.Text = Convert.ToDecimal(Fila["M00_15"]).ToString(); lblCM2.Text = Convert.ToDecimal(Fila["M16_30"]).ToString(); lblCM3.Text = Convert.ToDecimal(Fila["M31_45"]).ToString(); lblCM4.Text = Convert.ToDecimal(Fila["M46_60"]).ToString(); lblCM5.Text = Convert.ToDecimal(Fila["M61_90"]).ToString(); lblCM6.Text = Convert.ToDecimal(Fila["M91_"]).ToString(); OleDbCommand Comm2 = Conn.CreateCommand(); Comm2.CommandType = CommandType.StoredProcedure; Comm2.CommandText = "Cobranzas.PersonaCondiciones"; Comm2.Parameters.Add("CodigoPersona", OleDbType.VarChar).Value = Persona.Codigo; Comm2.Parameters.Add("Pais", OleDbType.Char, 3).Value = Persona.idPais; Comm2.Parameters.Add("FechaDesde", OleDbType.Date).Value = Desde.Date; Comm2.Parameters.Add("FechaHasta", OleDbType.Date).Value = Hasta.Date; DS = new DataSet(); DA = new OleDbDataAdapter(Comm2); DA.Fill(DS); Fila = DS.Tables[0].Rows[0]; lblPagaDG.Text = Convert.ToBoolean(Fila["PagaDG"]) ? "Sí" : "No"; lblPagaSeguro.Text = Convert.ToBoolean(Fila["PagaSeguro"]) ? "Sí" : "No";; lblTaquilla.Text = Convert.ToBoolean(Fila["Taquilla"]) ? "Sí" : "No"; lblChequesDevueltos.Text = Convert.ToBoolean(Fila["ChequesDevueltos"]) ? "Sí" : "No"; } } } catch (Exception Ex) { } }