private void BtnGenerar_Click(object sender, EventArgs e) { if (RdbDiagnostico.Checked) { CrpSubInformePacienteDiagnostico Crp = new CrpSubInformePacienteDiagnostico(); Crp.SetParameterValue("@CodEmpresa", CboEmpresa.SelectedValue); Crp.SetParameterValue("@FechaDesde", DtDesde.Value.ToShortDateString()); Crp.SetParameterValue("@FechaHasta", DtHasta.Value.ToShortDateString()); FrmVisualizarReporte f = new FrmVisualizarReporte(); f.crystalReportViewer1.ReportSource = Crp; f.Show(); } else { CrpInforme Crp = new CrpInforme(); Crp.SetParameterValue("@CodEmpresa", CboEmpresa.SelectedValue); Crp.SetParameterValue("@FechaDesde", DtDesde.Value.ToShortDateString()); Crp.SetParameterValue("@FechaHasta", DtHasta.Value.ToShortDateString()); FrmVisualizarReporte f = new FrmVisualizarReporte(); //SE VISUALIZA EL REPORTE f.crystalReportViewer1.ReportSource = Crp; f.Show(); } }
private void BrnGraficas_Click(object sender, EventArgs e) { CrpGraficaxSexo Crp = new CrpGraficaxSexo(); Crp.SetParameterValue("@CodEmpresa", CboEmpresa.SelectedValue); Crp.SetParameterValue("@FechaDesde", DtDesde.Value.ToShortDateString()); Crp.SetParameterValue("@FechaHasta", DtHasta.Value.ToShortDateString()); FrmVisualizarReporte f = new FrmVisualizarReporte(); //SE VISUALIZA EL REPORTE f.crystalReportViewer1.ReportSource = Crp; f.Show(); }
private void PnlCertificado_Click(object sender, EventArgs e) { DataTable TablaPaciente = new DataTable(); ClsSqlServer NuevoSql = new ClsSqlServer(); NuevoSql.CadenaCnn = Historia_Clinica.Conexion.CadenaConexion.cadena(); NuevoSql.Conectar(); string Documento = DocumentoP; //SE REALIZAN LAS RESPECTIVAS COLUMNAS Y SE LLENAN LAS TABLAS CON LA INFORMACIÓN QUE SE REQUIERE PARA EL REPORTE string Query = "SELECT dbo.Paciente.Pac_Nombre1+ ' ' + isnull(dbo.Paciente.Pac_Nombre2,'') "+ " +' '+dbo.Paciente.Pac_Apellido1+ ' '+isnull(dbo.Paciente.Pac_Apellido2,'') As Nombres, "+ " dbo.Paciente.Pac_TipoIdentificacion, dbo.Paciente.Pac_TipoIdentificacion+' '+dbo.Paciente.Pac_Identificacion As Pac_Identificacion, "+ " dbo.Paciente.Pac_FechaNacimiento, dbo.Genero.Gen_Descripcion, "+ " dbo.Paciente.Pac_CodCiudad, dbo.Paciente.Pac_Direccion, "+ " dbo.Paciente.Pac_CodNivelEducativo, dbo.Paciente.Pac_CodProfesion,Profesion.Prof_Descripcion, "+ " dbo.TipoSangre.TipSan_Descripcion, dbo.Paciente.Pac_EstadoCivil, "+ " dbo.EstadoCivil.EstCivil_Descripcion,Pac_Telefono "+ "FROM dbo.Paciente LEFT OUTER JOIN "+ " dbo.EstadoCivil ON dbo.Paciente.Pac_EstadoCivil = "+ " dbo.EstadoCivil.EstCivil_Codigo LEFT OUTER JOIN "+ " dbo.TipoSangre ON dbo.Paciente.Pac_TipoSangre = "+ " dbo.TipoSangre.TipSan_Codigo LEFT OUTER JOIN "+ " dbo.Genero ON dbo.Paciente.Pac_CodGenero = dbo.Genero.Gen_Codigo inner join Profesion on Profesion.Prof_Codigo = dbo.Paciente.Pac_CodProfesion "+ "WHERE Pac_Identificacion='"+ Documento + "'"; TablaPaciente = NuevoSql.LlenarTabla(Query); //FIN PACIENTE string NumeroEntrada = NumEntradaP; string Enfasis = EnfasisP; string Fecha = FechaP; string ConceptoTarea = ConceptoP; string examenes = ""; string query = "SELECT dbo.Examen.Exam_Descripcion, dbo.EntradaHistoria.Entr_Numero, dbo.TipResultado.TipRes_Descripcion " + "FROM dbo.ExamenPracticado INNER JOIN " + "dbo.Examen ON dbo.ExamenPracticado.ExaPrac_Examen_Codigo = dbo.Examen.Exam_Codigo INNER JOIN " + "dbo.EntradaHistoria ON dbo.ExamenPracticado.ExaPrac_Entrada_Numero = dbo.EntradaHistoria.Entr_Numero INNER JOIN " + "dbo.TipResultado ON dbo.ExamenPracticado.ExaPrac_Resultado = dbo.TipResultado.TipRes_Codigo INNER JOIN " + "dbo.TipResultado AS TipResultado_1 ON dbo.ExamenPracticado.ExaPrac_Resultado = TipResultado_1.TipRes_Codigo WHERE dbo.EntradaHistoria.Entr_Numero=" + NumeroEntrada; DataTable TablaExamenes = new DataTable(); TablaExamenes = NuevoSql.LlenarTabla(query); for (int i = 0; i < TablaExamenes.Rows.Count; i++) { string x = TablaExamenes.Rows[i]["Exam_Descripcion"].ToString() + " (" + TablaExamenes.Rows[i]["TipRes_Descripcion"].ToString() + ")"; if (i == 0) { examenes = x; } else { examenes = examenes + " " + x; } } //ENVIÓ DE PARAMETROS AL REPORTE string edad = Convert.ToString(CalcularEdad(Convert.ToDateTime(TablaPaciente.Rows[0]["Pac_FechaNacimiento"]))) + " " + "Años"; FrmVisualizarReporte f = new FrmVisualizarReporte(); if (RdbCarta.Checked) { CrystalReport1 cry = new CrystalReport1(); cry.SetParameterValue("NombreCompleto", TablaPaciente.Rows[0]["Nombres"]); cry.SetParameterValue("Documento", TablaPaciente.Rows[0]["Pac_Identificacion"]); cry.SetParameterValue("Edad", edad); cry.SetParameterValue("Genero", TablaPaciente.Rows[0]["Gen_Descripcion"]); cry.SetParameterValue("Telefono", TablaPaciente.Rows[0]["Pac_Telefono"].ToString()); cry.SetParameterValue("Ciudad", Configuracion.LugarExamen); if (examenes.Trim() == "") { cry.SetParameterValue("ExamenesPracticados", "NO APLICA"); } else { cry.SetParameterValue("ExamenesPracticados", examenes); } cry.SetParameterValue("@NumeroEntrada", Convert.ToInt32(NumeroEntrada)); cry.SetParameterValue("Enfasis", Enfasis); cry.SetParameterValue("FechaExamen", Fecha); if (ConceptoTarea == "") { cry.SetParameterValue("DesAptitud", ""); } else { cry.SetParameterValue("DesAptitud", "CONCEPTO DE APTITUD PARA LA TAREA:"); } cry.SetParameterValue("ConceptoTarea", ConceptoTarea); //PARA EL TIPO DE EXAMEN Query = "SELECT dbo.TipoExamen.TipoExam_Descripcion, " + "dbo.Concepto.Conc_Descripcion " + "FROM dbo.TipoExamen INNER JOIN " + "dbo.EntradaHistoria ON dbo.TipoExamen.TipoExam_Codigo = " + "dbo.EntradaHistoria.Entr_TipoExamenCodigo INNER JOIN " + "dbo.Concepto ON dbo.EntradaHistoria.Entr_Concepto_Codigo = " + "dbo.Concepto.Conc_Codigo where dbo.EntradaHistoria.Entr_Numero= " + NumeroEntrada; TablaPaciente = null; TablaPaciente = NuevoSql.LlenarTabla(Query); cry.SetParameterValue("TipoExamen", TablaPaciente.Rows[0]["TipoExam_Descripcion"].ToString()); cry.SetParameterValue("Concepto", TablaPaciente.Rows[0]["Conc_Descripcion"].ToString()); TablaPaciente = null; //PARA EL NOMBRE DE LA EMPRESA Query = "SELECT Empresa.Empre_RazonSocial,Empresa.Empre_Nit, cargo.Carg_Descripcion as Ocup_Descripcion, InfOcu_Entrada_Numero FROM dbo.InformacionOcupacional inner join Empresa on InfOcu_CodEmpresa=Empresa.Empr_Codigo inner join cargo on cargo.Carg_Codigo = InformacionOcupacional.InfOcu_CodOcupacion WHERE InfOcu_Entrada_Numero=" + NumeroEntrada; TablaPaciente = NuevoSql.LlenarTabla(Query); cry.SetParameterValue("NombreEmpresa", TablaPaciente.Rows[0]["Empre_RazonSocial"].ToString()); cry.SetParameterValue("Ciudad", Configuracion.LugarExamen); cry.SetParameterValue("nit", Configuracion.Nit); cry.SetParameterValue("tel", Configuracion.Telefono); cry.SetParameterValue("direccion", Configuracion.Direccion); cry.SetParameterValue("piepagina", Configuracion.PiePagina); cry.SetParameterValue("nitempresa", TablaPaciente.Rows[0]["Empre_Nit"].ToString()); cry.SetParameterValue("Cargo", TablaPaciente.Rows[0]["Ocup_Descripcion"]); Query = "SELECT dbo.ARL.Arl_Codigo, dbo.ARL.Arl_Descripcion, " + "dbo.EPS.Eps_Codigo, dbo.EPS.Eps_Descripcion, " + "dbo.Paciente.Pac_Identificacion, dbo.Paciente.Pac_Nombre1, " + "dbo.Paciente.Pac_Nombre2, dbo.Paciente.Pac_Apellido1, " + "dbo.Paciente.Pac_Apellido2, dbo.EntradaHistoria.Entr_IdPaciente, " + "dbo.EntradaHistoria.Entr_FechaEntrada, dbo.EntradaHistoria.Entr_Numero " + "FROM dbo.EntradaHistoria RIGHT OUTER JOIN "+ "dbo.EPS INNER JOIN " + "dbo.Paciente ON dbo.EPS.Eps_Codigo = dbo.Paciente.Pac_CodEPS INNER JOIN " + "dbo.ARL ON dbo.Paciente.Pac_CodARL = dbo.ARL.Arl_Codigo ON " + "dbo.EntradaHistoria.Entr_IdPaciente = dbo.Paciente.Pac_Identificacion " + "AND dbo.EntradaHistoria.Entr_IdPaciente = dbo.Paciente.Pac_Identificacion " + "WHERE Pac_Identificacion='" + Documento + "'"; TablaPaciente = null; TablaPaciente = NuevoSql.LlenarTabla(Query); if (TablaPaciente.Rows.Count > 0) { cry.SetParameterValue("EPS", TablaPaciente.Rows[0]["Eps_Descripcion"]); cry.SetParameterValue("ARL", TablaPaciente.Rows[0]["Arl_Descripcion"]); } else { cry.SetParameterValue("EPS", ""); cry.SetParameterValue("ARL", ""); } TablaPaciente = null; TablaExamenes = null; //SE VISUALIZA EL REPORTE f.crystalReportViewer1.ReportSource = cry; f.Show(); } else { CrystalReport1Oficio cry = new CrystalReport1Oficio(); cry.SetParameterValue("NombreCompleto", TablaPaciente.Rows[0]["Nombres"]); cry.SetParameterValue("Documento", TablaPaciente.Rows[0]["Pac_Identificacion"]); cry.SetParameterValue("Edad", edad); cry.SetParameterValue("Genero", TablaPaciente.Rows[0]["Gen_Descripcion"]); cry.SetParameterValue("Telefono", TablaPaciente.Rows[0]["Pac_Telefono"].ToString()); cry.SetParameterValue("Ciudad", Configuracion.LugarExamen); cry.SetParameterValue("nit", Configuracion.Nit); cry.SetParameterValue("piepagina", Configuracion.PiePagina); if (examenes.Trim() == "") { cry.SetParameterValue("ExamenesPracticados", "NO APLICA"); } else { cry.SetParameterValue("ExamenesPracticados", examenes); } cry.SetParameterValue("@NumeroEntrada", Convert.ToInt32(NumeroEntrada)); cry.SetParameterValue("Enfasis", Enfasis); cry.SetParameterValue("FechaExamen", Fecha); if (ConceptoTarea == "") { cry.SetParameterValue("DesAptitud", ""); } else { cry.SetParameterValue("DesAptitud", "CONCEPTO DE APTITUD PARA LA TAREA:"); } cry.SetParameterValue("ConceptoTarea", ConceptoTarea); //PARA EL TIPO DE EXAMEN Query = "SELECT dbo.TipoExamen.TipoExam_Descripcion, " + "dbo.Concepto.Conc_Descripcion " + "FROM dbo.TipoExamen INNER JOIN " + "dbo.EntradaHistoria ON dbo.TipoExamen.TipoExam_Codigo = " + "dbo.EntradaHistoria.Entr_TipoExamenCodigo INNER JOIN " + "dbo.Concepto ON dbo.EntradaHistoria.Entr_Concepto_Codigo = " + "dbo.Concepto.Conc_Codigo where dbo.EntradaHistoria.Entr_Numero= " + NumeroEntrada; TablaPaciente = null; TablaPaciente = NuevoSql.LlenarTabla(Query); cry.SetParameterValue("TipoExamen", TablaPaciente.Rows[0]["TipoExam_Descripcion"].ToString()); cry.SetParameterValue("Concepto", TablaPaciente.Rows[0]["Conc_Descripcion"].ToString()); TablaPaciente = null; //PARA EL NOMBRE DE LA EMPRESA Query = "SELECT Empresa.Empre_RazonSocial, Empresa.Empre_Nit, cargo.Carg_Descripcion as Ocup_Descripcion, InfOcu_Entrada_Numero FROM dbo.InformacionOcupacional inner join Empresa on InfOcu_CodEmpresa=Empresa.Empr_Codigo inner join cargo on cargo.Carg_Codigo = InformacionOcupacional.InfOcu_CodOcupacion WHERE InfOcu_Entrada_Numero=" + NumeroEntrada; TablaPaciente = NuevoSql.LlenarTabla(Query); cry.SetParameterValue("NombreEmpresa", TablaPaciente.Rows[0]["Empre_RazonSocial"].ToString()); cry.SetParameterValue("Ciudad", Configuracion.LugarExamen); cry.SetParameterValue("nit", Configuracion.Nit); cry.SetParameterValue("tel", Configuracion.Telefono); cry.SetParameterValue("direccion", Configuracion.Direccion); cry.SetParameterValue("piepagina", Configuracion.PiePagina); cry.SetParameterValue("nitempresa", TablaPaciente.Rows[0]["Empre_Nit"].ToString()); cry.SetParameterValue("Cargo", TablaPaciente.Rows[0]["Ocup_Descripcion"]); Query = "SELECT dbo.ARL.Arl_Codigo, dbo.ARL.Arl_Descripcion, " + "dbo.EPS.Eps_Codigo, dbo.EPS.Eps_Descripcion, " + "dbo.Paciente.Pac_Identificacion, dbo.Paciente.Pac_Nombre1, " + "dbo.Paciente.Pac_Nombre2, dbo.Paciente.Pac_Apellido1, " + "dbo.Paciente.Pac_Apellido2, dbo.EntradaHistoria.Entr_IdPaciente, " + "dbo.EntradaHistoria.Entr_FechaEntrada, dbo.EntradaHistoria.Entr_Numero " + "FROM dbo.EntradaHistoria RIGHT OUTER JOIN "+ "dbo.EPS INNER JOIN " + "dbo.Paciente ON dbo.EPS.Eps_Codigo = dbo.Paciente.Pac_CodEPS INNER JOIN " + "dbo.ARL ON dbo.Paciente.Pac_CodARL = dbo.ARL.Arl_Codigo ON " + "dbo.EntradaHistoria.Entr_IdPaciente = dbo.Paciente.Pac_Identificacion " + "AND dbo.EntradaHistoria.Entr_IdPaciente = dbo.Paciente.Pac_Identificacion " + "WHERE Pac_Identificacion='" + Documento + "'"; TablaPaciente = null; TablaPaciente = NuevoSql.LlenarTabla(Query); if (TablaPaciente.Rows.Count > 0) { cry.SetParameterValue("EPS", TablaPaciente.Rows[0]["Eps_Descripcion"]); cry.SetParameterValue("ARL", TablaPaciente.Rows[0]["Arl_Descripcion"]); } else { cry.SetParameterValue("EPS", ""); cry.SetParameterValue("ARL", ""); } TablaPaciente = null; TablaExamenes = null; //SE VISUALIZA EL REPORTE f.crystalReportViewer1.ReportSource = cry; f.Show(); } //} //} }
private void DgvDatos_CellClick(object sender, DataGridViewCellEventArgs e) { if (RdbSinAtender.Checked) { //ABIRI FORMULADO DE HISTORIA CLINICA if (e.RowIndex > -1 && e.ColumnIndex == 3) { FrnHistoriaClinica f = new FrnHistoriaClinica(); #region VARIABLES string documento = DgvDatos.CurrentRow.Cells["DgvDatosColDocumento"].Value.ToString(); string edad = DgvDatos.CurrentRow.Cells["DgvDatosColedad"].Value.ToString(); string sexo = DgvDatos.CurrentRow.Cells["DgvDatosColSexo"].Value.ToString(); string fecha = DgvDatos.CurrentRow.Cells["DgvDatosColFecha"].Value.ToString(); string entrada = DgvDatos.CurrentRow.Cells["DgvDatosColEntrada"].Value.ToString(); string efasis = DgvDatos.CurrentRow.Cells["DgvDatosColEnfasis"].Value.ToString(); string Nombres = DgvDatos.CurrentRow.Cells["DgvDatosColNombres"].Value.ToString(); #endregion IdPacientenAtencion = documento; if (ConsultarPaciente()) { #region PASAMOS LOS VALORES A LOS OBJETOS DEL FORMULARIO //ConsultarPaciente(); f.LblDatos.Text = "Tipo de Examen: " + entrada; f.LblDatos1.Text = "Enfasis: " + efasis; f.LblDatos2.Text = "Fecha : " + fecha.Substring(0, 10); f.LblDatos3.Text = "Sexo: " + sexo; f.LblDatos4.Text = "Edad: " + edad; f.TxtNombre.Text = Nombres; f.TxtDocumento.Text = documento; f.SooloVer = false; #endregion f.ShowDialog(); } else { MessageBox.Show("El paciente ya fue atendido", "", MessageBoxButtons.OK); } } } else { #region PARA ABRIR EL REPORTE Y EL FORMULARIO PARA VISUALIZAR LA INFORMACIÓN if (e.RowIndex > -1) { if (e.ColumnIndex == DgvDatosColImprimir.Index) { string Documento = DgvDatos.Rows[e.RowIndex].Cells["DgvDatosColDocumento"].Value.ToString(); //SE REALIZAN LAS RESPECTIVAS COLUMNAS Y SE LLENAN LAS TABLAS CON LA INFORMACIÓN QUE SE REQUIERE PARA EL REPORTE string Query = "SELECT dbo.Paciente.Pac_Nombre1+ ' ' + isnull(dbo.Paciente.Pac_Nombre2,'') "+ " +' '+dbo.Paciente.Pac_Apellido1+ ' '+isnull(dbo.Paciente.Pac_Apellido2,'') As Nombres, "+ " dbo.Paciente.Pac_TipoIdentificacion, dbo.Paciente.Pac_TipoIdentificacion+' '+dbo.Paciente.Pac_Identificacion As Pac_Identificacion, "+ " dbo.Paciente.Pac_FechaNacimiento, dbo.Genero.Gen_Descripcion, "+ " dbo.Paciente.Pac_CodCiudad, dbo.Paciente.Pac_Direccion, "+ " dbo.Paciente.Pac_CodNivelEducativo, dbo.Paciente.Pac_CodProfesion,Profesion.Prof_Descripcion, "+ " dbo.TipoSangre.TipSan_Descripcion, dbo.Paciente.Pac_EstadoCivil, "+ " dbo.EstadoCivil.EstCivil_Descripcion,Pac_Telefono "+ "FROM dbo.Paciente LEFT OUTER JOIN "+ " dbo.EstadoCivil ON dbo.Paciente.Pac_EstadoCivil = "+ " dbo.EstadoCivil.EstCivil_Codigo LEFT OUTER JOIN "+ " dbo.TipoSangre ON dbo.Paciente.Pac_TipoSangre = "+ " dbo.TipoSangre.TipSan_Codigo LEFT OUTER JOIN "+ " dbo.Genero ON dbo.Paciente.Pac_CodGenero = dbo.Genero.Gen_Codigo inner join Profesion on Profesion.Prof_Codigo = dbo.Paciente.Pac_CodProfesion "+ "WHERE Pac_Identificacion='"+ Documento + "'"; TablaPaciente = NuevoSql.LlenarTabla(Query); //FIN PACIENTE string NumeroEntrada = DgvDatos.Rows[e.RowIndex].Cells["DgvDatosColNumeroHistoria"].Value.ToString(); string Enfasis = DgvDatos.Rows[e.RowIndex].Cells["DgvDatosColEnfasis"].Value.ToString(); string Fecha = DgvDatos.Rows[e.RowIndex].Cells["DgvDatosColFecha1"].Value.ToString(); string ConceptoTarea = DgvDatos.Rows[e.RowIndex].Cells["DgvDatosconceptoAptitud"].Value.ToString(); string examenes = ""; string query = "SELECT dbo.Examen.Exam_Descripcion, dbo.EntradaHistoria.Entr_Numero, dbo.TipResultado.TipRes_Descripcion " + "FROM dbo.ExamenPracticado INNER JOIN " + "dbo.Examen ON dbo.ExamenPracticado.ExaPrac_Examen_Codigo = dbo.Examen.Exam_Codigo INNER JOIN " + "dbo.EntradaHistoria ON dbo.ExamenPracticado.ExaPrac_Entrada_Numero = dbo.EntradaHistoria.Entr_Numero INNER JOIN " + "dbo.TipResultado ON dbo.ExamenPracticado.ExaPrac_Resultado = dbo.TipResultado.TipRes_Codigo INNER JOIN " + "dbo.TipResultado AS TipResultado_1 ON dbo.ExamenPracticado.ExaPrac_Resultado = TipResultado_1.TipRes_Codigo WHERE dbo.EntradaHistoria.Entr_Numero=" + NumeroEntrada; DataTable TablaExamenes = new DataTable(); TablaExamenes = NuevoSql.LlenarTabla(query); for (int i = 0; i < TablaExamenes.Rows.Count; i++) { string x = TablaExamenes.Rows[i]["Exam_Descripcion"].ToString() + " (" + TablaExamenes.Rows[i]["TipRes_Descripcion"].ToString() + ")"; if (i == 0) { examenes = x; } else { examenes = examenes + " " + x; } } //ENVIÓ DE PARAMETROS AL REPORTE string edad = Convert.ToString(CalcularEdad(Convert.ToDateTime(TablaPaciente.Rows[0]["Pac_FechaNacimiento"]))) + " " + "Años"; FrmVisualizarReporte f = new FrmVisualizarReporte(); CrystalReport1 cry = new CrystalReport1(); string documento = TablaPaciente.Rows[0]["Pac_Identificacion"].ToString(); cry.SetParameterValue("NombreCompleto", TablaPaciente.Rows[0]["Nombres"]); cry.SetParameterValue("Documento", TablaPaciente.Rows[0]["Pac_Identificacion"]); cry.SetParameterValue("Edad", edad); cry.SetParameterValue("Genero", TablaPaciente.Rows[0]["Gen_Descripcion"]); cry.SetParameterValue("Telefono", TablaPaciente.Rows[0]["Pac_Telefono"].ToString()); cry.SetParameterValue("Ciudad", Configuracion.LugarExamen); cry.SetParameterValue("nit", Configuracion.Nit); cry.SetParameterValue("piepagina", Configuracion.PiePagina); if (examenes.Trim() == "") { cry.SetParameterValue("ExamenesPracticados", "NO APLICA"); } else { cry.SetParameterValue("ExamenesPracticados", examenes); } cry.SetParameterValue("@NumeroEntrada", Convert.ToInt32(NumeroEntrada)); cry.SetParameterValue("Enfasis", Enfasis); cry.SetParameterValue("FechaExamen", Fecha); if (ConceptoTarea == "") { cry.SetParameterValue("DesAptitud", ""); } else { cry.SetParameterValue("DesAptitud", "CONCEPTO DE APTITUD PARA LA TAREA:"); } cry.SetParameterValue("ConceptoTarea", ConceptoTarea); //PARA EL TIPO DE EXAMEN Query = "SELECT dbo.TipoExamen.TipoExam_Descripcion, " + "dbo.Concepto.Conc_Descripcion " + "FROM dbo.TipoExamen INNER JOIN " + "dbo.EntradaHistoria ON dbo.TipoExamen.TipoExam_Codigo = " + "dbo.EntradaHistoria.Entr_TipoExamenCodigo INNER JOIN " + "dbo.Concepto ON dbo.EntradaHistoria.Entr_Concepto_Codigo = " + "dbo.Concepto.Conc_Codigo where dbo.EntradaHistoria.Entr_Numero= " + NumeroEntrada; TablaPaciente = null; TablaPaciente = NuevoSql.LlenarTabla(Query); cry.SetParameterValue("TipoExamen", TablaPaciente.Rows[0]["TipoExam_Descripcion"].ToString()); cry.SetParameterValue("Concepto", TablaPaciente.Rows[0]["Conc_Descripcion"].ToString()); TablaPaciente = null; //PARA EL NOMBRE DE LA EMPRESA Query = "SELECT Empresa.Empre_RazonSocial,Empresa.Empre_Nit, cargo.Carg_Descripcion as Ocup_Descripcion, InfOcu_Entrada_Numero FROM dbo.InformacionOcupacional inner join Empresa on InfOcu_CodEmpresa=Empresa.Empr_Codigo inner join cargo on cargo.Carg_Codigo = InformacionOcupacional.InfOcu_CodOcupacion WHERE InfOcu_Entrada_Numero=" + NumeroEntrada; TablaPaciente = NuevoSql.LlenarTabla(Query); cry.SetParameterValue("NombreEmpresa", TablaPaciente.Rows[0]["Empre_RazonSocial"].ToString()); cry.SetParameterValue("nitempresa", TablaPaciente.Rows[0]["Empre_Nit"].ToString()); cry.SetParameterValue("Ciudad", Configuracion.LugarExamen); cry.SetParameterValue("nit", Configuracion.Nit); cry.SetParameterValue("tel", Configuracion.Telefono); cry.SetParameterValue("direccion", Configuracion.Direccion); cry.SetParameterValue("piepagina", Configuracion.PiePagina); cry.SetParameterValue("Cargo", TablaPaciente.Rows[0]["Ocup_Descripcion"]); Query = "SELECT dbo.ARL.Arl_Codigo, dbo.ARL.Arl_Descripcion, " + "dbo.EPS.Eps_Codigo, dbo.EPS.Eps_Descripcion, " + "dbo.Paciente.Pac_Identificacion, dbo.Paciente.Pac_Nombre1, " + "dbo.Paciente.Pac_Nombre2, dbo.Paciente.Pac_Apellido1, " + "dbo.Paciente.Pac_Apellido2, dbo.EntradaHistoria.Entr_IdPaciente, " + "dbo.EntradaHistoria.Entr_FechaEntrada, dbo.EntradaHistoria.Entr_Numero " + "FROM dbo.EntradaHistoria RIGHT OUTER JOIN "+ "dbo.EPS INNER JOIN " + "dbo.Paciente ON dbo.EPS.Eps_Codigo = dbo.Paciente.Pac_CodEPS INNER JOIN " + "dbo.ARL ON dbo.Paciente.Pac_CodARL = dbo.ARL.Arl_Codigo ON " + "dbo.EntradaHistoria.Entr_IdPaciente = dbo.Paciente.Pac_Identificacion " + "AND dbo.EntradaHistoria.Entr_IdPaciente = dbo.Paciente.Pac_Identificacion " + "WHERE Pac_Identificacion='" + Documento + "'"; TablaPaciente = null; TablaPaciente = NuevoSql.LlenarTabla(Query); if (TablaPaciente.Rows.Count > 0) { cry.SetParameterValue("EPS", TablaPaciente.Rows[0]["Eps_Descripcion"]); cry.SetParameterValue("ARL", TablaPaciente.Rows[0]["Arl_Descripcion"]); } else { cry.SetParameterValue("EPS", ""); cry.SetParameterValue("ARL", ""); } TablaPaciente = null; TablaExamenes = null; //SE VISUALIZA EL REPORTE f.crystalReportViewer1.ReportSource = cry; f.Show(); } } #endregion #region PARA ARIR FORMULARIO DE HISTORIA PARA VER LA HISTORIA DEL PACIENTE if (e.RowIndex > -1) { if (e.ColumnIndex == DgvDatosColatendido.Index) { string documento = DgvDatos.CurrentRow.Cells["DgvDatosColDocumento"].Value.ToString(); string NumeroEntrada = DgvDatos.Rows[e.RowIndex].Cells["DgvDatosColNumeroHistoria"].Value.ToString(); string Enfasis = DgvDatos.Rows[e.RowIndex].Cells["DgvDatosColEnfasis"].Value.ToString(); string Fecha = DgvDatos.Rows[e.RowIndex].Cells["DgvDatosColFecha1"].Value.ToString(); string ConceptoTarea = DgvDatos.Rows[e.RowIndex].Cells["DgvDatosconceptoAptitud"].Value.ToString(); FrmOpcionesImprimir f = new FrmOpcionesImprimir(); f.NumeroAtencion = Convert.ToInt32(DgvDatos.Rows[e.RowIndex].Cells["DgvDatosColNumeroHistoria"].Value.ToString()); string Nombres = DgvDatos.CurrentRow.Cells["DgvDatosColNombres"].Value.ToString(); f.LblNombre.Text = Nombres; f.DocumentoP = DgvDatos.Rows[e.RowIndex].Cells["DgvDatosColDocumento"].Value.ToString(); f.NumEntradaP = NumeroEntrada; f.EnfasisP = Enfasis; f.FechaP = Fecha; f.documento = documento; f.ConceptoP = ConceptoTarea; f.ShowDialog(); } if (e.ColumnIndex == DgvDatosColDocumento.Index || e.ColumnIndex == DgvDatosColNombres.Index) { if (LblMensaje.Text == "HISTORIA MÉDICA") { string paciente = DgvDatos.Rows[e.RowIndex].Cells["DgvDatosColDocumento"].Value.ToString(); FrnHistoriaClinica f = new FrnHistoriaClinica(); f.LblEntrada.Visible = true; f.LblEntrada.Text = DgvDatos.Rows[e.RowIndex].Cells["DgvDatosColNumeroHistoria"].Value.ToString(); f.TxtDocumento.Text = paciente; if (DgvDatos.Rows[e.RowIndex].Cells["Column1"].Value.ToString() == "False") { f.SooloVer = true; //f.BuscarTodo(); f.BtnCerrarHistoria.Visible = true; f.BtnGuardarHistoria.Visible = true; f.BtnCerrarHistoria.Visible = true; f.LblGuardarCerra.Visible = true; f.LblGuardar.Visible = true; f.TxtDocumento.BackColor = Color.SteelBlue; } else { f.SooloVer = true; //f.BuscarTodo(); f.TxtDocumento.ReadOnly = true; f.BtnGuardarHistoria.Visible = false; f.BtnCerrarHistoria.Visible = false; f.LblGuardarCerra.Visible = false; f.LblGuardar.Visible = false; } if (LblMensaje.Text == "CETIFICADOS Y HISTORIAS") { f.TxtDocumento.ReadOnly = true; f.BtnGuardarHistoria.Visible = false; f.BtnCerrarHistoria.Visible = false; f.LblGuardarCerra.Visible = false; f.LblGuardar.Visible = false; } string documento = DgvDatos.CurrentRow.Cells["DgvDatosColDocumento"].Value.ToString(); string edad = DgvDatos.CurrentRow.Cells["DgvDatosColedad"].Value.ToString(); string sexo = DgvDatos.CurrentRow.Cells["DgvDatosColSexo"].Value.ToString(); string fecha = DgvDatos.CurrentRow.Cells["DgvDatosColFecha"].Value.ToString(); string entrada = DgvDatos.CurrentRow.Cells["DgvDatosColEntrada"].Value.ToString(); string efasis = DgvDatos.CurrentRow.Cells["DgvDatosColEnfasis"].Value.ToString(); f.LblDatos.Text = "Tipo de Examen: " + entrada; f.LblDatos1.Text = "Enfasis: " + efasis; f.LblDatos2.Text = "Fecha : " + fecha.Substring(0, 10); f.LblDatos3.Text = "Sexo: " + sexo; f.LblDatos4.Text = "Edad: " + edad; f.ShowDialog(); } else { if (DgvDatos.Rows[e.RowIndex].DefaultCellStyle.BackColor == Color.SteelBlue) { if (MessageBox.Show("¿Desea ver y adjuntar examenes?", "", MessageBoxButtons.YesNo, MessageBoxIcon.Question) == DialogResult.Yes) { string documento = DgvDatos.CurrentRow.Cells["DgvDatosColDocumento"].Value.ToString(); string Nombres = DgvDatos.CurrentRow.Cells["DgvDatosColNombres"].Value.ToString(); string NumeroAtencion = DgvDatos.Rows[e.RowIndex].Cells["DgvDatosColNumeroHistoria"].Value.ToString(); FrmVerPacientes f = new FrmVerPacientes(); f.LblNombrePaciente.Text = Nombres; f.LblNumeroAtencion.Text = NumeroAtencion; f.txtidentificacion.Text = documento; f.ShowDialog(); } } } } } #endregion } }
private void DgvDatos_CellClick(object sender, DataGridViewCellEventArgs e) { //try //{ DataTable TablaPaciente = new DataTable(); //SE VERIFIVA QUE SE HAYA SELECCIONADO UNA COLUMNA if (e.ColumnIndex > 0) { //PREGUNTAMOS QUE SERA LA COLUMNA DE IMPRIMIR if (DgvDatos.Columns[e.ColumnIndex].HeaderText == "********") { string Documento = DgvDatos.Rows[e.RowIndex].Cells["DgvDatosColDocumento"].Value.ToString(); //SE REALIZAN LAS RESPECTIVAS COLUMNAS Y SE LLENAN LAS TABLAS CON LA INFORMACIÓN QUE SE REQUIERE PARA EL REPORTE string Query = "SELECT dbo.Paciente.Pac_Nombre1+ ' ' + isnull(dbo.Paciente.Pac_Nombre2,'') "+ " +' '+dbo.Paciente.Pac_Apellido1+ ' '+isnull(dbo.Paciente.Pac_Apellido2,'') As Nombres, "+ " dbo.Paciente.Pac_TipoIdentificacion, dbo.Paciente.Pac_TipoIdentificacion+' '+dbo.Paciente.Pac_Identificacion As Pac_Identificacion, "+ " dbo.Paciente.Pac_FechaNacimiento, dbo.Genero.Gen_Descripcion, "+ " dbo.Paciente.Pac_LugarNacimiento, dbo.Paciente.Pac_Direccion, "+ " dbo.Paciente.Pac_NivelEducacion, dbo.Paciente.Pac_Profesion_Codigo, "+ " dbo.TipoSangre.TipSan_Descripcion, dbo.Paciente.Pac_EstadoCivil, "+ " dbo.EstadoCivil.EstCivil_Descripcion,Pac_Telefono "+ "FROM dbo.Paciente LEFT OUTER JOIN "+ " dbo.EstadoCivil ON dbo.Paciente.Pac_EstadoCivil = "+ " dbo.EstadoCivil.EstCivil_Codigo LEFT OUTER JOIN "+ " dbo.TipoSangre ON dbo.Paciente.Pac_TipoSangre = "+ " dbo.TipoSangre.TipSan_Codigo LEFT OUTER JOIN "+ " dbo.Genero ON dbo.Paciente.Pac_Genero_Codigo = dbo.Genero.Gen_Codigo "+ "WHERE Pac_Identificacion='"+ Documento + "'"; TablaPaciente = NuevoSql.LlenarTabla(Query); //FIN PACIENTE string NumeroEntrada = DgvDatos.Rows[e.RowIndex].Cells["DgvDatosColNumeroHistoria"].Value.ToString(); string Enfasis = DgvDatos.Rows[e.RowIndex].Cells["DgvDatosColEnfasis"].Value.ToString(); string Fecha = DgvDatos.Rows[e.RowIndex].Cells["DgvDatosColFecha"].Value.ToString(); string examenes = ""; string query = "SELECT dbo.Examen.Exam_Descripcion, dbo.EntradaHistoria.Entr_Numero, dbo.TipResultado.TipRes_Descripcion " + "FROM dbo.ExamenPracticado INNER JOIN " + "dbo.Examen ON dbo.ExamenPracticado.ExaPrac_Examen_Codigo = dbo.Examen.Exam_Codigo INNER JOIN " + "dbo.EntradaHistoria ON dbo.ExamenPracticado.ExaPrac_Entrada_Numero = dbo.EntradaHistoria.Entr_Numero INNER JOIN " + "dbo.TipResultado ON dbo.ExamenPracticado.ExaPrac_Resultado = dbo.TipResultado.TipRes_Codigo INNER JOIN " + "dbo.TipResultado AS TipResultado_1 ON dbo.ExamenPracticado.ExaPrac_Resultado = TipResultado_1.TipRes_Codigo WHERE dbo.EntradaHistoria.Entr_Numero=" + NumeroEntrada; DataTable TablaExamenes = new DataTable(); TablaExamenes = NuevoSql.LlenarTabla(query); for (int i = 0; i < TablaExamenes.Rows.Count; i++) { string x = TablaExamenes.Rows[i]["Exam_Descripcion"].ToString() + " (" + TablaExamenes.Rows[i]["TipRes_Descripcion"].ToString() + ")"; if (i == 0) { examenes = x; } else { examenes = examenes + " " + x; } } //ENVIÓ DE PARAMETROS AL REPORTE string edad = Convert.ToString(CalcularEdad(Convert.ToDateTime(TablaPaciente.Rows[0]["Pac_FechaNacimiento"]))) + " " + "Años"; FrmVisualizarReporte f = new FrmVisualizarReporte(); CrystalReport1 cry = new CrystalReport1(); cry.SetParameterValue("NombreCompleto", TablaPaciente.Rows[0]["Nombres"]); cry.SetParameterValue("Cargo", TablaPaciente.Rows[0]["Pac_Profesion_Codigo"]); cry.SetParameterValue("Documento", TablaPaciente.Rows[0]["Pac_Identificacion"]); cry.SetParameterValue("Edad", edad); cry.SetParameterValue("Genero", TablaPaciente.Rows[0]["Gen_Descripcion"]); cry.SetParameterValue("Telefono", TablaPaciente.Rows[0]["Pac_Telefono"].ToString()); cry.SetParameterValue("EPS", "NOMBRE DE LA EPS"); cry.SetParameterValue("ARL", "NOMBRE DE LA ARL"); cry.SetParameterValue("Ciudad", Configuracion.LugarExamen); cry.SetParameterValue("nit", Configuracion.Nit); cry.SetParameterValue("piepagina", Configuracion.PiePagina); if (examenes.Trim() == "") { cry.SetParameterValue("ExamenesPracticados", "NO APLICA"); } else { cry.SetParameterValue("ExamenesPracticados", examenes); } cry.SetParameterValue("@NumeroEntrada", Convert.ToInt32(NumeroEntrada)); cry.SetParameterValue("Enfasis", Enfasis); cry.SetParameterValue("FechaExamen", Fecha); //cry.DataSourceConnections = NuevoSql.conexion; //PARA EL TIPO DE EXAMEN Query = "SELECT dbo.TipoExamen.TipoExam_Descripcion, " + "dbo.Concepto.Conc_Descripcion " + "FROM dbo.TipoExamen INNER JOIN " + "dbo.EntradaHistoria ON dbo.TipoExamen.TipoExam_Codigo = " + "dbo.EntradaHistoria.Entr_TipoExamenCodigo INNER JOIN " + "dbo.Concepto ON dbo.EntradaHistoria.Entr_Concepto_Codigo = " + "dbo.Concepto.Conc_Codigo where dbo.EntradaHistoria.Entr_Numero= " + NumeroEntrada; TablaPaciente = null; TablaPaciente = NuevoSql.LlenarTabla(Query); cry.SetParameterValue("TipoExamen", TablaPaciente.Rows[0]["TipoExam_Descripcion"].ToString()); cry.SetParameterValue("Concepto", TablaPaciente.Rows[0]["Conc_Descripcion"].ToString()); TablaPaciente = null; //PARA EL NOMBRE DE LA EMPRESA Query = "SELECT InfOcu_Empresa, InfOcu_Entrada_Numero FROM dbo.InformacionOcupacional WHERE InfOcu_Entrada_Numero=" + NumeroEntrada; TablaPaciente = NuevoSql.LlenarTabla(Query); cry.SetParameterValue("NombreEmpresa", TablaPaciente.Rows[0]["InfOcu_Empresa"].ToString()); //cry.SetParameterValue("nitempresa", TablaPaciente.Rows[0]["InfOcu_Nit"].ToString()); cry.SetParameterValue("Ciudad", Configuracion.LugarExamen); cry.SetParameterValue("nit", Configuracion.Nit); cry.SetParameterValue("tel", Configuracion.Telefono); cry.SetParameterValue("direccion", Configuracion.Direccion); cry.SetParameterValue("piepagina", Configuracion.PiePagina); Query = "SELECT dbo.ARL.Arl_Codigo, dbo.ARL.Arl_Descripcion, " + "dbo.EPS.Eps_Codigo, dbo.EPS.Eps_Descripcion, " + "dbo.Paciente.Pac_Identificacion, dbo.Paciente.Pac_Nombre1, " + "dbo.Paciente.Pac_Nombre2, dbo.Paciente.Pac_Apellido1, " + "dbo.Paciente.Pac_Apellido2, dbo.EntradaHistoria.Entr_IdPaciente, " + "dbo.EntradaHistoria.Entr_FechaEntrada, dbo.EntradaHistoria.Entr_Numero " + "FROM dbo.EntradaHistoria RIGHT OUTER JOIN "+ "dbo.EPS INNER JOIN " + "dbo.Paciente ON dbo.EPS.Eps_Codigo = dbo.Paciente.Pac_CodEPS INNER JOIN " + "dbo.ARL ON dbo.Paciente.Pac_CodARL = dbo.ARL.Arl_Codigo ON " + "dbo.EntradaHistoria.Entr_IdPaciente = dbo.Paciente.Pac_Identificacion " + "AND dbo.EntradaHistoria.Entr_IdPaciente = dbo.Paciente.Pac_Identificacion " + "WHERE Pac_Identificacion='" + Documento + "'"; TablaPaciente = null; TablaPaciente = NuevoSql.LlenarTabla(Query); if (TablaPaciente.Rows.Count > 0) { cry.SetParameterValue("EPS", TablaPaciente.Rows[0]["Eps_Descripcion"]); cry.SetParameterValue("ARL", TablaPaciente.Rows[0]["Arl_Descripcion"]); } else { cry.SetParameterValue("EPS", ""); cry.SetParameterValue("ARL", ""); } //cry.DataSourceConnections[0].SetConnection("192.168.1.10", "2019"; //cry.Load() TablaPaciente = null; TablaExamenes = null; //SE VISUALIZA EL REPORTE f.crystalReportViewer1.ReportSource = cry; f.Show(); } } //} //catch (Exception) //{ // MessageBox.Show("No se puede generar el reporte","Error",MessageBoxButtons.OK,MessageBoxIcon.Warning); //} try { if (DgvDatos.Columns[e.ColumnIndex].HeaderText == "-----") { HistoriaPaciente f = new HistoriaPaciente(); f.Nhistoria = DgvDatos.Rows[e.RowIndex].Cells["DgvDatosColNumeroHistoria"].Value.ToString(); f.TxtDocumento.Text = DgvDatos.Rows[e.RowIndex].Cells["DgvDatosColDocumento"].Value.ToString(); f.Show(); } } catch (Exception) { } }