private void FrmVerPacientes_Load(object sender, EventArgs e)
{
ObjServer.CadenaCnn = Historia_Clinica.Conexion.CadenaConexion.cadena();
ObjServer.Conectar();
// Cargo los datos que tendra el combobox DgvExamenPacticadoColResultado
DgvExamenPacticadoColResultado.DataSource = ObjServer.LlenarTabla("SELECT [TipRes_Codigo] As Codigo ,[TipRes_Descripcion] As Descripcion FROM [dbo].[TipResultado] order by TipRes_Descripcion");
DgvExamenPacticadoColResultado.DisplayMember = "Descripcion";
DgvExamenPacticadoColResultado.ValueMember = "Codigo";
//DgvExamenPacticadoColResultado
DgvExamenPacticado.Rows.Clear();
string query = "";
string ColCod = "";
string ColDes = "";
DataTable tabla = new DataTable();
ColCod = "DgvExamenPacticadoColCodigo";
ColDes = "DgvExamenPacticadoColExamen";
query = "SELECT [Exam_Codigo] As [Codigo] ,[Exam_Descripcion] As [Descripcion] FROM [dbo].[Examen] order by Exam_Descripcion";
tabla = ObjServer.LlenarTabla(query);
DgvExamenPacticadoColExamen.DataSource = tabla;
DgvExamenPacticadoColExamen.DisplayMember = "Descripcion";
DgvExamenPacticadoColExamen.ValueMember = "Codigo";
CARGAR_EXAMENES();
DgvExamenPacticadoColExamen.Width = 180;
DgvExamenPacticadoColAjuntar.Width = 110;
DgvExamenPacticadoColResultado.Width = 130;
EstilosDgv(DgvExamenPacticado);
CargarIconosDGV();
tamañoDGV();
//Creamos los parametros para el reporte
//ReportParameter FechaAtencion = new ReportParameter();
//ReportParameter Concepto = new ReportParameter();
//ReportParameter TipoExamen = new ReportParameter();
//ReportParameter Enfasis = new ReportParameter();
//ReportParameter ConceptoAptitud = new ReportParameter();
//ReportParameter Recomendacion = new ReportParameter();
////
////Establecemos el valor de los parámetros
//FechaAtencion = new ReportParameter("FechaAtencion", "0000value_par0");
//Concepto = new ReportParameter("Concepto", "0000value_par0");
//TipoExamen = new ReportParameter("TipoExamen", "0000value_par0");
//Enfasis = new ReportParameter("Enfasis", "0000value_par0");
//ConceptoAptitud = new ReportParameter("ConceptoActitud", "0000value_par0");
//Recomendacion = new ReportParameter("Recomendacion", "0000value_par0");
// TODO: esta línea de código carga datos en la tabla 'conexionHistoriaC.SP_EntradaHistoria' Puede moverla o quitarla según sea necesario.
// this.reportViewer1.LocalReport.SetParameters(FechaAtencion);
//this.reportViewer1.LocalReport.SetParameters(Concepto);
//this.reportViewer1.LocalReport.SetParameters(TipoExamen);
//this.reportViewer1.LocalReport.SetParameters(Enfasis);
//this.reportViewer1.LocalReport.SetParameters(ConceptoAptitud);
//this.reportViewer1.LocalReport.SetParameters(Recomendacion);
//this.reportViewer1.RefreshReport();
}
public async Task <string> BuscarHistoriaSinAtender()
{
TablaPaciente = new DataTable();
DgvDatos.Rows.Clear();
NuevoSql.CadenaCnn = Historia_Clinica.Conexion.CadenaConexion.cadena();
NuevoSql.Conectar();
string Criterio_Empresa = "";
if (RdbTodas.Checked == false)
{
Criterio_Empresa = " WHERE dbo.InformacionOcupacionalProvi.InfOcu_CodEmpresa= " + CboEmpresa.SelectedValue;
}
string Query = "SELECT DISTINCT CONCAT(dbo.Paciente.Pac_Nombre1,' ',dbo.Paciente.Pac_Nombre2,' ', " +
"dbo.Paciente.Pac_Apellido1,' ',dbo.Paciente.Pac_Apellido2) AS nombres, " +
" dbo.Paciente.Pac_TipoIdentificacion, dbo.EntradaProvisional.Ent_Codigo, " +
"dbo.Paciente.Pac_Identificacion, dbo.Paciente.Pac_FechaNacimiento, " +
"dbo.EntradaProvisional.Entr_FechaEntrada, " +
"dbo.TipoExamen.TipoExam_Descripcion, dbo.InformacionOcupacionalProvi.InfOcu_CodEmpresa, " +
"dbo.Enfasis.Enfa_Descripcion, dbo.Paciente.Pac_CodGenero, " +
"dbo.EntradaProvisional.Ent_Estado, dbo.Genero.Gen_Codigo, dbo.Genero.Gen_Descripcion " +
"FROM dbo.TipoExamen INNER JOIN " +
"dbo.EntradaProvisional ON dbo.TipoExamen.TipoExam_Codigo = " +
"dbo.EntradaProvisional.Entr_TipoExamenCodigo INNER JOIN " +
"dbo.Enfasis ON dbo.EntradaProvisional.Ent_Enfasis = dbo.Enfasis.Enfa_Codigo INNER JOIN " +
"dbo.Paciente INNER JOIN " +
"dbo.Genero ON dbo.Paciente.Pac_CodGenero = dbo.Genero.Gen_Codigo ON " +
"dbo.EntradaProvisional.Entr_IdPaciente = dbo.Paciente.Pac_Identificacion INNER JOIN " +
"dbo.InformacionOcupacionalProvi ON dbo.EntradaProvisional.Entr_IdPaciente = dbo.InformacionOcupacionalProvi.InfOcu_paciente " + Criterio_Empresa +
" ORDER BY dbo.EntradaProvisional.Ent_Codigo, dbo.InformacionOcupacionalProvi.InfOcu_CodEmpresa DESC";
//"WHERE CONCAT(dbo.Paciente.Pac_Nombre1,dbo.Paciente.Pac_Nombre2,dbo.Paciente.Pac_Apellido1,dbo.Paciente.Pac_Apellido2,Pac_Identificacion,Entr_Numero) LIKE" + "'%" + TxtCriterio.Text + "%' And Entr_FechaEntrada between '" + DtDesde.Text + "'and'" + DtHasta.Text + "'";
await Task.Run(() => { TablaPaciente = NuevoSql.LlenarTabla(Query); });
//await Task.Run(() => { tablaPaciente = ObjServer.LlenarTabla(Query); });
//MessageBox.Show(TablaPaciente.Rows.Count.ToString());
if (TablaPaciente.Rows.Count > 0)
{
for (int i = 0; i < TablaPaciente.Rows.Count; i++)
{
DgvDatos.Rows.Add((i + 1).ToString(), "", TablaPaciente.Rows[i]["Pac_Identificacion"].ToString(), TablaPaciente.Rows[i]["nombres"].ToString(), DateTime.Now.Year - Convert.ToDateTime(TablaPaciente.Rows[i]["Pac_FechaNacimiento"]).Year + " años", TablaPaciente.Rows[i]["Gen_Descripcion"].ToString(), TablaPaciente.Rows[i]["Entr_FechaEntrada"], TablaPaciente.Rows[i]["TipoExam_Descripcion"].ToString(), TablaPaciente.Rows[i]["Enfa_Descripcion"].ToString());
}
DgvDatosColatendido.Visible = false;
DgvDatosColImprimir.Visible = false;
DgvDatosColNumeroHistoria.Visible = false;
TablaPaciente.Dispose();
}
EstilosDgv2(DgvDatos);
return(string.Empty);
}
private void FrmItenInforme_Load(object sender, EventArgs e)
{
ObjServer.CadenaCnn = CadenaConexion.cadena();
ObjServer.Conectar();
EstilosDgv(DgvItems);
Cargar();
}
private void FrmEnsayo_Load(object sender, EventArgs e)
{
DgvDatosColDocumento.HeaderText = "";
DgvDatosColNombres.HeaderText = "";
//Establecer conexión con el Gestor.
ObjServer.CadenaCnn = Conexion.CadenaConexion.cadena();
ObjServer.Conectar();
//----Fin Establecer conexión-----
//Cargo los datos que tendra el combobox de las empresas
CboEmpresa.DataSource = ObjServer.LlenarTabla("SELECT [Empr_Codigo] As Codigo,[Empre_Nit] As Nit,[Empre_RazonSocial] As Descripcion FROM [dbo].[Empresa] ORDER BY Descripcion");
CboEmpresa.DisplayMember = "Descripcion";
CboEmpresa.ValueMember = "Codigo";
//
EstilosDgv(DgvDatos);
}
public void BuscarHistoria()
{
if (TxtCriterio.Text != "")
{
DgvDatos.Rows.Clear();
NuevoSql.CadenaCnn = Historia_Clinica.Conexion.CadenaConexion.cadena();
NuevoSql.Conectar();
string Query = "SELECT CONCAT(dbo.Paciente.Pac_Nombre1,+' '+dbo.Paciente.Pac_Nombre2,+' '+dbo.Paciente.Pac_Apellido1,+' '+dbo.Paciente.Pac_Apellido2) As Nombres, " +
" dbo.Paciente.Pac_Identificacion, dbo.EntradaHistoria.Entr_Numero,Entr_FechaEntrada, 'Ver' As Ver, 'Imprimir' As Imprimir,(SELECT Enfasis.Enfa_Descripcion from Enfasis where Enfasis.Enfa_Codigo= dbo.EntradaHistoria.Ent_Enfasis) as Enfasis "+
"FROM dbo.EntradaHistoria INNER JOIN " +
" dbo.Paciente ON dbo.EntradaHistoria.Entr_IdPaciente = dbo.Paciente.Pac_Identificacion " +
"WHERE CONCAT(dbo.Paciente.Pac_Nombre1,dbo.Paciente.Pac_Nombre2,dbo.Paciente.Pac_Apellido1,dbo.Paciente.Pac_Apellido2,Pac_Identificacion,Entr_Numero) LIKE" + "'%" + TxtCriterio.Text + "%' And Entr_FechaEntrada between '" + DtDesde.Text + "'and'" + DtHasta.Text + "'";
DataTable Tabla = new DataTable();
Tabla = NuevoSql.LlenarTabla(Query);
if (Tabla.Rows.Count > 0)
{
for (int i = 0; i < Tabla.Rows.Count; i++)
{
DgvDatos.Rows.Add(Tabla.Rows[i]["Nombres"].ToString(), Tabla.Rows[i]["Pac_Identificacion"].ToString(), Tabla.Rows[i]["Entr_Numero"].ToString(), Tabla.Rows[i]["Entr_FechaEntrada"], Tabla.Rows[i]["Enfasis"], Tabla.Rows[i]["Ver"].ToString(), Tabla.Rows[i]["Imprimir"].ToString());
DgvDatos.Rows[i].DefaultCellStyle.BackColor = Color.WhiteSmoke;
}
Tabla = null;
}
else
{
MessageBox.Show("No se han encontrado resultados", "Sin resultados", MessageBoxButtons.OK, MessageBoxIcon.Warning);
}
EstilosDgv2(DgvDatos);
}
else
{
MessageBox.Show("No ha ingresado ningun caracter", "error", MessageBoxButtons.OK, MessageBoxIcon.Warning);
}
}
private void FrmMedicos_Load(object sender, EventArgs e)
{
//CARGAR COMBO DE TIPO DOCUMENTO
ObjServer.CadenaCnn = Historia_Clinica.Conexion.CadenaConexion.cadena();
ObjServer.Conectar();
CboTipoDocumento.DataSource = ObjServer.LlenarTabla("SELECT [TipoIde_Codigo] As Codigo ,[TipoIde_Descripcion] As Descripcion FROM [dbo].[TipoDocumento]");;
CboTipoDocumento.DisplayMember = "Descripcion";
CboTipoDocumento.ValueMember = "Codigo";
}
public async Task <string> BuscarHistoriaSinAtender()
{
DgvDatos.Rows.Clear();
NuevoSql.CadenaCnn = Historia_Clinica.Conexion.CadenaConexion.cadena();
NuevoSql.Conectar();
string Criterio_Empresa = "";
string Query = "SELECT DISTINCT CONCAT(dbo.Paciente.Pac_Nombre1,' ',dbo.Paciente.Pac_Nombre2,' ', " +
"dbo.Paciente.Pac_Apellido1,' ',dbo.Paciente.Pac_Apellido2) AS nombres, " +
" dbo.Paciente.Pac_TipoIdentificacion, dbo.EntradaProvisional.Ent_Codigo, " +
"dbo.Paciente.Pac_Identificacion, dbo.Paciente.Pac_FechaNacimiento, " +
"dbo.EntradaProvisional.Entr_FechaEntrada, " +
"dbo.TipoExamen.TipoExam_Descripcion, dbo.InformacionOcupacionalProvi.InfOcu_CodEmpresa, " +
"dbo.Enfasis.Enfa_Descripcion, dbo.Paciente.Pac_CodGenero, " +
"dbo.EntradaProvisional.Ent_Estado, dbo.Genero.Gen_Codigo, dbo.Genero.Gen_Descripcion " +
"FROM dbo.TipoExamen INNER JOIN " +
"dbo.EntradaProvisional ON dbo.TipoExamen.TipoExam_Codigo = " +
"dbo.EntradaProvisional.Entr_TipoExamenCodigo INNER JOIN " +
"dbo.Enfasis ON dbo.EntradaProvisional.Ent_Enfasis = dbo.Enfasis.Enfa_Codigo INNER JOIN " +
"dbo.Paciente INNER JOIN " +
"dbo.Genero ON dbo.Paciente.Pac_CodGenero = dbo.Genero.Gen_Codigo ON " +
"dbo.EntradaProvisional.Entr_IdPaciente = dbo.Paciente.Pac_Identificacion INNER JOIN " +
"dbo.InformacionOcupacionalProvi ON dbo.EntradaProvisional.Entr_IdPaciente = dbo.InformacionOcupacionalProvi.InfOcu_paciente " + Criterio_Empresa +
" ORDER BY dbo.EntradaProvisional.Ent_Codigo, dbo.InformacionOcupacionalProvi.InfOcu_CodEmpresa DESC";
//"WHERE CONCAT(dbo.Paciente.Pac_Nombre1,dbo.Paciente.Pac_Nombre2,dbo.Paciente.Pac_Apellido1,dbo.Paciente.Pac_Apellido2,Pac_Identificacion,Entr_Numero) LIKE" + "'%" + TxtCriterio.Text + "%' And Entr_FechaEntrada between '" + DtDesde.Text + "'and'" + DtHasta.Text + "'";
await Task.Run(() => { TablaPaciente = NuevoSql.LlenarTabla(Query); });
if (TablaPaciente.Rows.Count > 0)
{
for (int i = 0; i < TablaPaciente.Rows.Count; i++)
{
DgvDatos.Rows.Add((i + 1).ToString(), TablaPaciente.Rows[i]["Pac_Identificacion"].ToString(), TablaPaciente.Rows[i]["nombres"].ToString());
}
//DgvDatos.Visible = false;
//DgvDatosColImprimir.Visible = false;
//DgvDatosColNumeroHistoria.Visible = false;
TablaPaciente = null;
}
EstilosDgv2(DgvDatos);
return(string.Empty);
}
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 FrmVerExamenes_Load(object sender, EventArgs e)
{
TxtTitulo.Text = "TÍTULO POR DEFECTO";
ObjConexion.CadenaCnn = Conexion.CadenaConexion.cadena();
ObjConexion.Conectar();
DataTable tabla = new DataTable();
//WHERE Pac_Identificacion=" + Documento;
string query = "SELECT dbo.ExamenPracticado.ExaPrac_Examen_Codigo, "+
"dbo.ExamenPracticado.ExaPrac_Entrada_Numero, " +
"dbo.ExamenPracticado.ExaPrac_Resultado, " +
"dbo.ExamenPracticado.ExaPrac_Ajuntar, " +
"dbo.ExamenPracticado.ExaPrac_FechaExamen, " +
"dbo.ExamenPracticado.ExaPrac_Codigo, " +
"dbo.Examen.Exam_Descripcion, " +
"dbo.TipResultado.TipRes_Descripcion " +
"FROM dbo.ExamenPracticado INNER JOIN "+
"dbo.Examen ON dbo.ExamenPracticado.ExaPrac_Examen_Codigo = " +
"dbo.Examen.Exam_Codigo INNER JOIN " +
"dbo.TipResultado ON dbo.ExamenPracticado.ExaPrac_Resultado = " +
"dbo.TipResultado.TipRes_Codigo " +
"WHERE [ExaPrac_Entrada_Numero]=" + NumeroAtencion;
tabla = ObjConexion.LlenarTabla(query);
if (tabla.Rows.Count > 0)
{
for (int i = 0; i < tabla.Rows.Count; i++)
{
string des = tabla.Rows[i]["Exam_Descripcion"].ToString();
string Cod = tabla.Rows[i]["ExaPrac_Examen_Codigo"].ToString();
dataGridView1.Columns.Add(Cod, des);
}
}
else
{
MessageBox.Show("No hay examenes para mostrar", "", MessageBoxButtons.OK);
this.Dispose();
this.Close();
return;
}
EstilosDgv(dataGridView1);
//Creamos los parametros para la atenciòn
ReportParameter Titulo = new ReportParameter();
ReportParameter nombre = new ReportParameter();
//Establecemos el valor de los parámetros de la informacion personal
Titulo = new ReportParameter("Titulo", TxtTitulo.Text);
nombre = new ReportParameter("Nombre", NombreCompleto);
//--(DATOS ANTECEDENTES GINECOLOGICOS)
reportViewer1.LocalReport.EnableExternalImages = true;
this.reportViewer1.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Local;
ReportParameter paramImagen = new ReportParameter("rutaImagen", "");
reportViewer1.LocalReport.SetParameters(paramImagen);
this.reportViewer1.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Local;
this.reportViewer1.LocalReport.SetParameters(Titulo);
this.reportViewer1.LocalReport.SetParameters(nombre);
this.reportViewer1.RefreshReport();
reportViewer1.SetDisplayMode(DisplayMode.PrintLayout);
reportViewer1.ZoomMode = ZoomMode.Percent;
//Seleccionamos el zoom que deseamos utilizar. En este caso un 100%
// Dim reportViewer1 As New List(Of ReportParameter)
// parametros.Add(New ReportParameter("rutaImagen", "file:C:\Nueva carpeta\eneagrama.JPG"))
//Me.ReportViewer1.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Local
// ReportViewer1.LocalReport.ReportPath = "..\\..\\Report1.rdlc"
// Me.ReportViewer1.LocalReport.SetParameters(parametros)
reportViewer1.ZoomPercent = 100;
}
private void FrmVerInforme_Load(object sender, EventArgs e)
{
ObjConexion.CadenaCnn = Conexion.CadenaConexion.cadena();
ObjConexion.Conectar();
DataTable tablaItemDB = new DataTable();
string Query1 = "SELECT [Intem_Codigo] " +
",[Intem_Descripcion] " +
",[Intem_Activo] " +
"FROM [dbo].[ItemActivar]";
//WHERE Pac_Identificacion=" + Documento;
tablaItemDB = ObjConexion.LlenarTabla(Query1);
// TODO: esta línea de código carga datos en la tabla 'HistoriaClinicaDataSet.SP_AntecedentesPersonales' Puede moverla o quitarla según sea necesario.
//this.SP_AntecedentesPersonalesTableAdapter.
this.HistoriaClinicaDataSet.EnforceConstraints = false;
this.HistoriaClinicaData_Actualizado.EnforceConstraints = false;
HistoriaClinicaDataSet_FirmaMedico.EnforceConstraints = false;
//this.historiaClinicaDataSet_FirmaMedico1
SP_RecomendacionesTableAdapter.Connection = ObjConexion.conexion;
//var s =
DataTable tabla = new DataTable();
string sql = "SELECT dbo.EntradaHistoria.Entr_Numero, dbo.Recomendacion.Reco_Descripcion, "+
"dbo.RecomendacionDescripcion.RecDes_Descripcion, dbo.Paciente.Pac_Identificacion, dbo.Paciente.Pac_Foto, " +
"dbo.Paciente.Pac_Huella, dbo.Paciente.Pac_Firma,dbo.Medico.Medic_Huella, dbo.Medico.Medic_Firma " +
"FROM dbo.Paciente INNER JOIN " +
"dbo.EntradaHistoria ON dbo.Paciente.Pac_Identificacion = dbo.EntradaHistoria.Entr_IdPaciente LEFT OUTER JOIN " +
"dbo.Medico ON dbo.EntradaHistoria.Ent_Medico = dbo.Medico.Medic_Identificacion LEFT OUTER JOIN " +
"dbo.RecomendacionDescripcion INNER JOIN " +
"dbo.Recomendacion ON dbo.RecomendacionDescripcion.RecDes_Recomendacios_Codigo = dbo.Recomendacion.Reco_Codigo INNER JOIN " +
"dbo.RecomendacionPaciente ON dbo.RecomendacionDescripcion.RecDes_Codigo = dbo.RecomendacionPaciente.RecoPac_Recomendacion_Codigo ON " +
"dbo.EntradaHistoria.Entr_Numero = dbo.RecomendacionPaciente.RecoPac_Entrada_Numero " +
"WHERE Entr_Numero= " + NumeroAtencion;
tabla = ObjConexion.LlenarTabla(sql);
ReportDataSource r = new ReportDataSource("FirmaMedico", tabla);
//this.SP_RecomendacionesTableAdapter.Fill(HistoriaClinicaDataSet_FirmaMedico.SP_Recomendaciones,NumeroAtencion);
this.SP_AntecedentesPersonalesTableAdapter.Fill(this.HistoriaClinicaDataSet.SP_AntecedentesPersonales, NumeroAtencion);
this.SP_AntecedenteFamiliarTableAdapter.Fill(this.HistoriaClinicaData_Actualizado.SP_AntecedenteFamiliar, NumeroAtencion);
this.SP_HabitosTableAdapter.Fill(this.HistoriaClinicaData_Actualizado.SP_Habitos, NumeroAtencion);
this.SP_InmunizarTableAdapter.Fill(this.HistoriaClinicaData_Actualizado.SP_Inmunizar, NumeroAtencion);
this.SP_AccidenteLaboralTableAdapter.Fill(this.HistoriaClinicaData_Actualizado.SP_AccidenteLaboral, NumeroAtencion);
this.SP_EnfermedadProfesionalTableAdapter.Fill(this.HistoriaClinicaData_Actualizado.SP_EnfermedadProfesional, NumeroAtencion);
this.SP_RiesgosOcupacionalesTableAdapter.Fill(this.HistoriaClinicaData_Actualizado.SP_RiesgosOcupacionales, NumeroAtencion);
this.SP_ExamenPracticadosTableAdapter.Fill(this.HistoriaClinicaData_Actualizado.SP_ExamenPracticados, NumeroAtencion);
this.SP_ExamenFisicoTableAdapter.Fill(this.HistoriaClinicaData_Actualizado.SP_ExamenFisico, NumeroAtencion);
SP_PruebaEquilibrioTableAdapter.Connection = ObjConexion.conexion;
this.SP_PruebaEquilibrioTableAdapter.Fill(this.HistoriaClinicaData_Actualizado.SP_PruebaEquilibrio, NumeroAtencion);
this.SP_RevisionSistemaTableAdapter.Fill(this.HistoriaClinicaData_Actualizado.SP_RevisionSistema, NumeroAtencion);
this.SP_ReporteRecomendacionesTableAdapter.Fill(this.HistoriaClinicaData_Actualizado.SP_ReporteRecomendaciones, NumeroAtencion);
this.SP_ActivarItemsTableAdapter.Fill(this.HistoriaClinica_Activar.SP_ActivarItems);
//Creamos los parametros para la atenciòn
ReportParameter FechaAtencion = new ReportParameter();
ReportParameter TipoExamen = new ReportParameter();
ReportParameter Enfasis = new ReportParameter();
ReportParameter Concepto = new ReportParameter();
ReportParameter Reubicacion = new ReportParameter();
ReportParameter ConceptoAptitud = new ReportParameter();
ReportParameter Diagnostico = new ReportParameter();
ReportParameter Descripcion = new ReportParameter();
//Creamos los parametros para la informacion del paciente
ReportParameter NombreCompleto = new ReportParameter();
ReportParameter NumeroDocumento = new ReportParameter();
ReportParameter FechaNacimiento = new ReportParameter();
ReportParameter Sexo = new ReportParameter();
//Creamos los parametros para la informacion Ocupacional
ReportParameter Empresa = new ReportParameter();
ReportParameter Cargo = new ReportParameter();
ReportParameter Jornada = new ReportParameter();
ReportParameter Area = new ReportParameter();
ReportParameter Elementos = new ReportParameter();
ReportParameter Funciones = new ReportParameter();
ReportParameter Materia = new ReportParameter();
ReportParameter Herramientas = new ReportParameter();
ReportParameter Maquinaria = new ReportParameter();
ReportParameter FechaCargo = new ReportParameter();
//Creamos los parametros para los Antecedentes Ginecologícos
ReportParameter FechaRegla = new ReportParameter();
ReportParameter Hijos = new ReportParameter();
ReportParameter Partos = new ReportParameter();
ReportParameter Abortos = new ReportParameter();
ReportParameter Sanos = new ReportParameter();
ReportParameter Gestaciones = new ReportParameter();
ReportParameter Menopausia = new ReportParameter();
ReportParameter Menarca = new ReportParameter();
ReportParameter Citologia = new ReportParameter();
ReportParameter Planificacion = new ReportParameter();
//Creamos los parametros para los Signos Vitales
ReportParameter Talla = new ReportParameter();
ReportParameter Peso = new ReportParameter();
ReportParameter IMC = new ReportParameter();
ReportParameter Lateralidad = new ReportParameter();
ReportParameter Cardiaca = new ReportParameter();
ReportParameter Arterial = new ReportParameter();
ReportParameter Cintura = new ReportParameter();
ReportParameter Interpretacion = new ReportParameter();
//Creamos los parametros para prueba de equilibrio
ReportParameter Marcha = new ReportParameter();
ReportParameter Reflejo = new ReportParameter();
ReportParameter Piel = new ReportParameter();
//::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::://
//::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::://
// VISUALIZAR INFORMACIÓN //
//::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::://
//::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::://
ReportParameter INFORMACION_DEL_ASPIRANTE_O_TRABAJADOR = new ReportParameter();
ReportParameter INFORMACION_DE_LA_ATENCION_DEL_ASPIRANTE_O_TRABAJADOR = new ReportParameter();
ReportParameter ANTECEDENTES_PERSONALES = new ReportParameter();
ReportParameter ANTECEDENTES_FAMILIARES = new ReportParameter();
ReportParameter HABITOS = new ReportParameter();
ReportParameter INMUNIZACION = new ReportParameter();
ReportParameter ACCIDENTE_LABORAL = new ReportParameter();
ReportParameter ENFERMEDAD_PROFESIONAL = new ReportParameter();
ReportParameter RIESGOS_OCUPACIONALES = new ReportParameter();
ReportParameter INFORMACION_OCUPACIONAL = new ReportParameter();
ReportParameter EXAMENES_PRACTICADOS = new ReportParameter();
ReportParameter ANTECEDENTES_GINECOLOGICOS = new ReportParameter();
ReportParameter EXAMEN_FISICO = new ReportParameter();
ReportParameter SIGNOS_VITALES = new ReportParameter();
ReportParameter PRUEBA_DE_EQUILIBRIO = new ReportParameter();
ReportParameter REVISION_POR_SISTEMA = new ReportParameter();
ReportParameter RECOMENDACIONES = new ReportParameter();
INFORMACION_DEL_ASPIRANTE_O_TRABAJADOR = new ReportParameter("INFORMACION_DEL_ASPIRANTE_O_TRABAJADOR", TablaItem.Rows[0]["valor"].ToString());
INFORMACION_DE_LA_ATENCION_DEL_ASPIRANTE_O_TRABAJADOR = new ReportParameter("INFORMACION_DE_LA_ATENCION_DEL_ASPIRANTE_O_TRABAJADOR", TablaItem.Rows[1]["valor"].ToString());
ANTECEDENTES_PERSONALES = new ReportParameter("ANTECEDENTES_PERSONALES", TablaItem.Rows[2]["valor"].ToString());
ANTECEDENTES_FAMILIARES = new ReportParameter("ANTECEDENTES_FAMILIARES", TablaItem.Rows[3]["valor"].ToString());
HABITOS = new ReportParameter("HABITOS", TablaItem.Rows[4]["valor"].ToString());
INMUNIZACION = new ReportParameter("INMUNIZACION", TablaItem.Rows[5]["valor"].ToString());
ACCIDENTE_LABORAL = new ReportParameter("ACCIDENTE_LABORAL", TablaItem.Rows[6]["valor"].ToString());
ENFERMEDAD_PROFESIONAL = new ReportParameter("ENFERMEDAD_PROFESIONAL", TablaItem.Rows[7]["valor"].ToString());
RIESGOS_OCUPACIONALES = new ReportParameter("RIESGOS_OCUPACIONALES", TablaItem.Rows[8]["valor"].ToString());
INFORMACION_OCUPACIONAL = new ReportParameter("INFORMACION_OCUPACIONAL", TablaItem.Rows[9]["valor"].ToString());
EXAMENES_PRACTICADOS = new ReportParameter("EXAMENES_PRACTICADOS", TablaItem.Rows[10]["valor"].ToString());
ANTECEDENTES_GINECOLOGICOS = new ReportParameter("ANTECEDENTES_GINECOLOGICOS", TablaItem.Rows[11]["valor"].ToString());
SIGNOS_VITALES = new ReportParameter("SIGNOS_VITALES", TablaItem.Rows[12]["valor"].ToString());
EXAMEN_FISICO = new ReportParameter("EXAMEN_FISICO", TablaItem.Rows[13]["valor"].ToString());
PRUEBA_DE_EQUILIBRIO = new ReportParameter("PRUEBA_DE_EQUILIBRIO", TablaItem.Rows[14]["valor"].ToString());
REVISION_POR_SISTEMA = new ReportParameter("REVISION_POR_SISTEMA", TablaItem.Rows[15]["valor"].ToString());
RECOMENDACIONES = new ReportParameter("RECOMENDACIONES", TablaItem.Rows[16]["valor"].ToString());
DataTable nuevaTabla = new DataTable();
nuevaTabla.Columns.Add("descripcion", typeof(ReportParameter));
//::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::://
//::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::://
// LA ATENCIÓN DEL PACIENTE //
//::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::://
//::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::://
//Consultamos los datos de la atención del paciente
string Query = "SELECT dbo.EntradaHistoria.Entr_FechaEntrada, " +
"dbo.Concepto.Conc_Descripcion, " +
"dbo.EntradaHistoria.Entr_Recomendacion, " +
"dbo.EntradaHistoria.Entr_Reubicacion, " +
"dbo.TipoExamen.TipoExam_Descripcion, " +
"dbo.Enfasis.Enfa_Descripcion, " +
"EntradaHistoria.Entr_IdPaciente, " +
"dbo.EntradaHistoria.Ent_Estado, " +
"dbo.EntradaHistoria.Ent_conceptoAptitud " +
"FROM dbo.EntradaHistoria INNER JOIN " +
"dbo.TipoExamen ON dbo.EntradaHistoria." +
"Entr_TipoExamenCodigo = " +
"dbo.TipoExamen.TipoExam_Codigo AND " +
"dbo.EntradaHistoria.Entr_TipoExamenCodigo = " +
"dbo.TipoExamen.TipoExam_Codigo INNER JOIN " +
"dbo.Concepto ON dbo.EntradaHistoria.Entr_Concepto_Codigo " +
"= dbo.Concepto.Conc_Codigo INNER JOIN " +
"dbo.Enfasis ON dbo.EntradaHistoria.Ent_Enfasis " +
"= dbo.Enfasis.Enfa_Codigo " +
"where [Entr_Numero] = " + NumeroAtencion;
DataTable TablaDatos = new DataTable();
TablaDatos = ObjConexion.LlenarTabla(Query);
if (TablaDatos.Rows != null & TablaDatos.Rows.Count > 0)
{
string IdPaciente = TablaDatos.Rows[0]["Entr_IdPaciente"].ToString();
string Variable_FechaAtencion = TablaDatos.Rows[0]["Entr_FechaEntrada"].ToString().Substring(0, 10);
string Variable_TipoExamen = TablaDatos.Rows[0]["TipoExam_Descripcion"].ToString();
string Variable_Enfasis = TablaDatos.Rows[0]["Enfa_Descripcion"].ToString();
string Variable_Concepto = TablaDatos.Rows[0]["Conc_Descripcion"].ToString();
string Variable_Reubicacion = TablaDatos.Rows[0]["Entr_Reubicacion"].ToString();
string Variable_ConceptoAptitud = TablaDatos.Rows[0]["Ent_conceptoAptitud"].ToString();
if (Variable_ConceptoAptitud == "")
{
Variable_ConceptoAptitud = "No Aplica";
}
string Variable_Descripcion = TablaDatos.Rows[0]["Entr_Recomendacion"].ToString();
if (Variable_Reubicacion == "True")
{
Variable_Reubicacion = "SI";
}
else
{
Variable_Reubicacion = "NO";
}
//Consultar Diagnosticos
Query = "SELECT dbo.Diagnostico.Diag_Descripcion, " +
"dbo.DiagnosticoPaciente.DiagPaci_NumeroHistoria " +
"FROM dbo.DiagnosticoPaciente INNER JOIN "+
"dbo.Diagnostico ON dbo.DiagnosticoPaciente." +
"DiagPaci_CodDiagnostico = dbo.Diagnostico.Diag_Codigo " +
"where DiagPaci_NumeroHistoria = " + NumeroAtencion;
TablaDatos = new DataTable();
TablaDatos = ObjConexion.LlenarTabla(Query);
string Variable_Diagnostico = "Pendiente por definir";
for (int i = 0; i < TablaDatos.Rows.Count; i++)
{
string Valor = TablaDatos.Rows[i]["Diag_Descripcion"].ToString();
if (i == 0)
{
Variable_Diagnostico = Valor;
}
else
{
Variable_Diagnostico = Variable_Diagnostico + " - " + Valor;
}
}
if (TablaDatos.Rows.Count == 0)
{
Variable_Diagnostico = "SIN DIAGNOSTICO";
}
////Establecemos el valor de los parámetros de atenciòn
FechaAtencion = new ReportParameter("FechaAtencion", Variable_FechaAtencion);
TipoExamen = new ReportParameter("TipoExamen", Variable_TipoExamen);
Enfasis = new ReportParameter("Enfasis", Variable_Enfasis);
Reubicacion = new ReportParameter("Reubicacion", Variable_Reubicacion);
Concepto = new ReportParameter("Concepto", Variable_Concepto);
Diagnostico = new ReportParameter("Diagnostico", Variable_Diagnostico);
ConceptoAptitud = new ReportParameter("ConceptoAptitud", Variable_ConceptoAptitud);
Descripcion = new ReportParameter("Descripcion", Variable_Descripcion);
//Consultamos los datos personales del paciente
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_Identificacion, "+
" dbo.Paciente.Pac_FechaNacimiento, dbo.Genero.Gen_Descripcion,Pac_FechaNacimiento, "+
" dbo.Paciente.Pac_CodCiudad, dbo.Paciente.Pac_Direccion, "+
" dbo.Paciente.Pac_CodNivelEducativo, dbo.Paciente.Pac_CodProfesion, "+
" dbo.TipoSangre.TipSan_Descripcion, dbo.Paciente.Pac_EstadoCivil, "+
" dbo.EstadoCivil.EstCivil_Descripcion,Pac_Telefono,Pac_Foto "+
"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 "+
"WHERE Pac_Identificacion='"+ IdPaciente + "'";
TablaDatos = new DataTable();
TablaDatos = ObjConexion.LlenarTabla(Query);
string Variable_NombreCompleto = TablaDatos.Rows[0]["Nombres"].ToString();
string Variable_NumeroDocumento =
TablaDatos.Rows[0]["Pac_TipoIdentificacion"].ToString() + ". " +
TablaDatos.Rows[0]["Pac_Identificacion"].ToString();
string Variable_FechaNacimiento = "Fecha de Nacimiento: " + TablaDatos.Rows[0]["Pac_FechaNacimiento"].ToString().Substring(0, 10);
string Variable_Sexo = "Sexo: " + TablaDatos.Rows[0]["Gen_Descripcion"].ToString();
//Cargar Imagen
//HistoriaClinicaDataSet2.nul
this.SP_DatosPacienteTableAdapter.Fill(this.HistoriaClinicaDataSet2.SP_DatosPaciente, IdPaciente);
//Establecemos el valor de los parámetros de la informacion personal
NombreCompleto = new ReportParameter("NombreCompleto", Variable_NombreCompleto);
NumeroDocumento = new ReportParameter("NumeroDocumento", Variable_NumeroDocumento);
FechaNacimiento = new ReportParameter("FechaNacimiento", Variable_FechaNacimiento);
Sexo = new ReportParameter("Sexo", Variable_Sexo);
//::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::://
//::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::://
// INFORMACIÓN OCUPACIONAL //
//::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::://
//::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::://
//Se consultan la información ocupacional
Query = "SELECT dbo.Empresa.Empre_RazonSocial, " +
"dbo.Cargo.Carg_Descripcion, " +
"dbo.InformacionOcupacional.InfOcu_Jornada, " +
"dbo.InformacionOcupacional.InfOcu_Area, " +
"dbo.InformacionOcupacional.InfOcu_ElementoProte, " +
"dbo.InformacionOcupacional.InfOcu_DescripcionFunciones, " +
"dbo.InformacionOcupacional.InfOcu_MateriaPrima, " +
"dbo.InformacionOcupacional.InfOcu_Herramienta, " +
"dbo.InformacionOcupacional.InfOcu_Maquinaria, " +
"dbo.InformacionOcupacional.InfOcu_FechaIngreso, " +
"dbo.InformacionOcupacional.InfOcu_FechaCargoActual " +
"FROM dbo.InformacionOcupacional INNER JOIN " +
"dbo.Empresa ON dbo.InformacionOcupacional.InfOcu_CodEmpresa " +
"= dbo.Empresa.Empr_Codigo INNER JOIN " +
"dbo.Cargo ON dbo.InformacionOcupacional.InfOcu_CodOcupacion " +
"= dbo.Cargo.Carg_Codigo " +
"where dbo.InformacionOcupacional.InfOcu_Entrada_Numero = " + NumeroAtencion;
TablaDatos = new DataTable();
TablaDatos = ObjConexion.LlenarTabla(Query);
//Se asigna el valor a las variables
string Variable_Empresa = TablaDatos.Rows[0]["Empre_RazonSocial"].ToString();
string Variable_Cargo = TablaDatos.Rows[0]["Carg_Descripcion"].ToString();
string Variable_Jornada = TablaDatos.Rows[0]["InfOcu_Jornada"].ToString();
string Variable_Area = TablaDatos.Rows[0]["InfOcu_Area"].ToString();
string Variable_Elementos = TablaDatos.Rows[0]["InfOcu_ElementoProte"].ToString();
string Variable_Funciones = TablaDatos.Rows[0]["InfOcu_DescripcionFunciones"].ToString();
string Variable_Materia = TablaDatos.Rows[0]["InfOcu_MateriaPrima"].ToString();
string Variable_Herramientas = TablaDatos.Rows[0]["InfOcu_Herramienta"].ToString();
string Variable_Maquinaria = TablaDatos.Rows[0]["InfOcu_Maquinaria"].ToString();
string Variable_FechaCargo = TablaDatos.Rows[0]["InfOcu_FechaCargoActual"].ToString().Substring(0, 10);
//Establecemos el valor de los parámetros de la informacion personal
Empresa = new ReportParameter("Empresa", Variable_Empresa);
Cargo = new ReportParameter("Cargo", Variable_Cargo);
Jornada = new ReportParameter("Jornada", Variable_Jornada);
Area = new ReportParameter("Area", Variable_Area);
Elementos = new ReportParameter("Elementos", Variable_Elementos);
Funciones = new ReportParameter("Funciones", Variable_Funciones);
Materia = new ReportParameter("Materia", Variable_Materia);
Herramientas = new ReportParameter("Herramientas", Variable_Herramientas);
Maquinaria = new ReportParameter("Maquinaria", Variable_Maquinaria);
FechaCargo = new ReportParameter("FechaCargo", Variable_FechaCargo);
//::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::://
//::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::://
// ANTECEDENTES GINECOLOGICOS //
//::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::://
//::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::://
//Se consultan la información Ginecologica
Query = "SELECT [CicMens_Entrada_Numero] " +
",[CicMens_FechaUltimaRegla] " +
",[CicMens_HijosSanos] " +
",[CicMens_Gestaciones] " +
",[CicMens_Partos] " +
",[CicMens_Abortos] " +
",[CicMens_Hijos] " +
",[CicMens_ResultadoCitologia] " +
",[CicMens_Planificacion] " +
",[CicMens_Edadmenopausia] " +
",[CicMens_Edadmenarca] " +
",[CicMens_metodo] " +
"FROM [dbo].[CicloMenstrual] " +
"where CicMens_Entrada_Numero = " + NumeroAtencion;
TablaDatos = new DataTable();
TablaDatos = ObjConexion.LlenarTabla(Query);
//Variables
if (TablaDatos.Rows.Count > 0)
{
string Variable_FechaRegla = TablaDatos.Rows[0]["CicMens_FechaUltimaRegla"].ToString().Substring(0, 10);
string Variable_Hijos = TablaDatos.Rows[0]["CicMens_Hijos"].ToString();
string Variable_Partos = TablaDatos.Rows[0]["CicMens_Partos"].ToString();
string Variable_Abortos = TablaDatos.Rows[0]["CicMens_Abortos"].ToString();
string Variable_Sanos = TablaDatos.Rows[0]["CicMens_HijosSanos"].ToString();
string Variable_Gestaciones = TablaDatos.Rows[0]["CicMens_Gestaciones"].ToString();
string Variable_Menopausia = TablaDatos.Rows[0]["CicMens_Edadmenopausia"].ToString();
string Variable_Menarca = TablaDatos.Rows[0]["CicMens_Edadmenarca"].ToString();
string Variable_Citologia = TablaDatos.Rows[0]["CicMens_ResultadoCitologia"].ToString();
string Variable_Planificacion = TablaDatos.Rows[0]["CicMens_Planificacion"].ToString();
if (Variable_Planificacion == "False")
{
Variable_Planificacion = "NO";
}
else
{
Variable_Planificacion = TablaDatos.Rows[0]["CicMens_metodo"].ToString();
}
//Establecemos el valor de los parámetros de Gestaciones
if (Variable_Sexo == "Sexo: Hombre")
{
Variable_FechaRegla = "NO APLICA";
//Variable_Hijos = "NO APLICA";
Variable_Partos = "NO APLICA";
Variable_Abortos = "NO APLICA";
//Variable_Sanos = "NO APLICA";
Variable_Gestaciones = "NO APLICA";
Variable_Menopausia = "NO APLICA";
Variable_Menarca = "NO APLICA";
Variable_Citologia = "NO APLICA";
//Variable_Planificacion ="NO APLICA";
}
FechaRegla = new ReportParameter("FechaRegla", Variable_FechaRegla);
Hijos = new ReportParameter("Hijos", Variable_Hijos);
Partos = new ReportParameter("Partos", Variable_Partos);
Abortos = new ReportParameter("Abortos", Variable_Abortos);
Sanos = new ReportParameter("Sanos", Variable_Sanos);
Gestaciones = new ReportParameter("Gestaciones", Variable_Gestaciones);
Menopausia = new ReportParameter("Menopausia", Variable_Menopausia);
Menarca = new ReportParameter("Menarca", Variable_Menarca);
Citologia = new ReportParameter("Citologia", Variable_Citologia);
Planificacion = new ReportParameter("Planificacion", Variable_Planificacion);
}
//::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::://
//::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::://
// SIGNOS VITALES //
//::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::://
//::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::://
Query = "SELECT [ExaFisi_Entrada_Numero] " +
",[ExaFisi_PresionArterial] " +
",[ExaFisi_FrecuenciaCardiaca] " +
",[ExaFisi_Lateracidad] " +
",[ExaFisi_Peso] " +
",[ExaFisi_Talla] " +
",[ExaFisi_PerimetroCintura] " +
",[ExaFisi_IMC] " +
",[ExaFisi_Interpretacion] " +
"FROM [dbo].[ExamenFisico] " +
"where ExaFisi_Entrada_Numero = " + NumeroAtencion;
TablaDatos = new DataTable();
TablaDatos = ObjConexion.LlenarTabla(Query);
string Variable_Talla = TablaDatos.Rows[0]["ExaFisi_Talla"].ToString();
string Variable_Peso = TablaDatos.Rows[0]["ExaFisi_Peso"].ToString();
string Variable_IMC = TablaDatos.Rows[0]["ExaFisi_IMC"].ToString();
string Variable_Lateralidad = TablaDatos.Rows[0]["ExaFisi_Lateracidad"].ToString();
string Variable_Cardiaca = TablaDatos.Rows[0]["ExaFisi_FrecuenciaCardiaca"].ToString();
string Variable_Arterial = TablaDatos.Rows[0]["ExaFisi_PresionArterial"].ToString();
string Variable_Cintura = TablaDatos.Rows[0]["ExaFisi_PerimetroCintura"].ToString();
string Variable_Interpretacion = TablaDatos.Rows[0]["ExaFisi_Interpretacion"].ToString();
//Establecemos el valor de los parámetros de Gestaciones
Talla = new ReportParameter("Talla", Variable_Talla);
Peso = new ReportParameter("Peso", Variable_Peso);
IMC = new ReportParameter("IMC", Variable_IMC);
Lateralidad = new ReportParameter("Lateralidad", Variable_Lateralidad);
Cardiaca = new ReportParameter("Cardiaca", Variable_Cardiaca);
Arterial = new ReportParameter("Arterial", Variable_Arterial);
Cintura = new ReportParameter("Cintura", Variable_Cintura);
Interpretacion = new ReportParameter("Interpretacion", Variable_Interpretacion);
//::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::://
//::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::://
// PRUEBBA DE EQUILIBRIO (MARCHA, REFLEJO Y PIEL) //
//::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::://
//::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::://
Query = "SELECT [EqiPa_Cidigo] " +
",[EqiPa_Equilibro] " +
",[EqiPa_HistoriaNumero] " +
",[EqiPa_Estado] " +
",[EqiPa_Reflejos] " +
",[EqiPa_Marcha] " +
",[EqiPa_Piel] " +
"FROM [dbo].[EquilibroPaciente] " +
"where EqiPa_HistoriaNumero = " + NumeroAtencion;
TablaDatos = new DataTable();
TablaDatos = ObjConexion.LlenarTabla(Query);
string Variable_Marcha = TablaDatos.Rows[0]["EqiPa_Marcha"].ToString();
string Variable_Reflejo = TablaDatos.Rows[0]["EqiPa_Reflejos"].ToString();
string Variable_Piel = TablaDatos.Rows[0]["EqiPa_Piel"].ToString();
//Establecemos el valor de los parámetros de Gestaciones
Marcha = new ReportParameter("Marcha", Variable_Marcha);
Reflejo = new ReportParameter("Reflejo", Variable_Reflejo);
Piel = new ReportParameter("Piel", Variable_Piel);
//Se envian los parametros al reporte
//--(DATOS DE LA ATENCIÓN);
this.reportViewer1.LocalReport.SetParameters(FechaAtencion);
this.reportViewer1.LocalReport.SetParameters(Concepto);
this.reportViewer1.LocalReport.SetParameters(TipoExamen);
this.reportViewer1.LocalReport.SetParameters(Enfasis);
this.reportViewer1.LocalReport.SetParameters(ConceptoAptitud);
this.reportViewer1.LocalReport.SetParameters(Reubicacion);
this.reportViewer1.LocalReport.SetParameters(Diagnostico);
this.reportViewer1.LocalReport.SetParameters(Descripcion);
//--(DATOS PERSONALES)
this.reportViewer1.LocalReport.SetParameters(NombreCompleto);
this.reportViewer1.LocalReport.SetParameters(NumeroDocumento);
this.reportViewer1.LocalReport.SetParameters(FechaNacimiento);
this.reportViewer1.LocalReport.SetParameters(Sexo);
//--(DATOS INFORMACION OCUPACIONAL)
this.reportViewer1.LocalReport.SetParameters(Empresa);
this.reportViewer1.LocalReport.SetParameters(Cargo);
this.reportViewer1.LocalReport.SetParameters(Jornada);
this.reportViewer1.LocalReport.SetParameters(Area);
this.reportViewer1.LocalReport.SetParameters(Elementos);
this.reportViewer1.LocalReport.SetParameters(Funciones);
this.reportViewer1.LocalReport.SetParameters(Materia);
this.reportViewer1.LocalReport.SetParameters(Herramientas);
this.reportViewer1.LocalReport.SetParameters(Maquinaria);
this.reportViewer1.LocalReport.SetParameters(FechaCargo);
//--(DATOS ANTECEDENTES GINECOLOGICOS)
this.reportViewer1.LocalReport.SetParameters(FechaRegla);
this.reportViewer1.LocalReport.SetParameters(Hijos);
this.reportViewer1.LocalReport.SetParameters(Partos);
this.reportViewer1.LocalReport.SetParameters(Abortos);
this.reportViewer1.LocalReport.SetParameters(Sanos);
this.reportViewer1.LocalReport.SetParameters(Gestaciones);
this.reportViewer1.LocalReport.SetParameters(Menopausia);
this.reportViewer1.LocalReport.SetParameters(Menarca);
this.reportViewer1.LocalReport.SetParameters(Citologia);
this.reportViewer1.LocalReport.SetParameters(Planificacion);
//--(DATOS SIGNOS VITALES)
this.reportViewer1.LocalReport.SetParameters(Talla);
this.reportViewer1.LocalReport.SetParameters(Peso);
this.reportViewer1.LocalReport.SetParameters(IMC);
this.reportViewer1.LocalReport.SetParameters(Lateralidad);
this.reportViewer1.LocalReport.SetParameters(Cardiaca);
this.reportViewer1.LocalReport.SetParameters(Arterial);
this.reportViewer1.LocalReport.SetParameters(Cintura);
this.reportViewer1.LocalReport.SetParameters(Interpretacion);
//--(DATOS PRUEBA DE EQUILIBRIO)
this.reportViewer1.LocalReport.SetParameters(Marcha);
this.reportViewer1.LocalReport.SetParameters(Reflejo);
this.reportViewer1.LocalReport.SetParameters(Piel);
//--(DATOS PRUEBA DE EQUILIBRIO)
this.reportViewer1.LocalReport.SetParameters(INFORMACION_DEL_ASPIRANTE_O_TRABAJADOR);
this.reportViewer1.LocalReport.SetParameters(INFORMACION_DE_LA_ATENCION_DEL_ASPIRANTE_O_TRABAJADOR);
this.reportViewer1.LocalReport.SetParameters(ANTECEDENTES_PERSONALES);
this.reportViewer1.LocalReport.SetParameters(ANTECEDENTES_FAMILIARES);
this.reportViewer1.LocalReport.SetParameters(HABITOS);
this.reportViewer1.LocalReport.SetParameters(INMUNIZACION);
this.reportViewer1.LocalReport.SetParameters(ACCIDENTE_LABORAL);
this.reportViewer1.LocalReport.SetParameters(ENFERMEDAD_PROFESIONAL);
this.reportViewer1.LocalReport.SetParameters(RIESGOS_OCUPACIONALES);
this.reportViewer1.LocalReport.SetParameters(INFORMACION_OCUPACIONAL);
this.reportViewer1.LocalReport.SetParameters(EXAMENES_PRACTICADOS);
this.reportViewer1.LocalReport.SetParameters(ANTECEDENTES_GINECOLOGICOS);
this.reportViewer1.LocalReport.SetParameters(EXAMEN_FISICO);
this.reportViewer1.LocalReport.SetParameters(SIGNOS_VITALES);
this.reportViewer1.LocalReport.SetParameters(PRUEBA_DE_EQUILIBRIO);
this.reportViewer1.LocalReport.SetParameters(REVISION_POR_SISTEMA);
this.reportViewer1.LocalReport.SetParameters(RECOMENDACIONES);
this.reportViewer1.LocalReport.DataSources.Add(r);
this.reportViewer1.RefreshReport();
reportViewer1.SetDisplayMode(DisplayMode.PrintLayout);
reportViewer1.ZoomMode = ZoomMode.Percent;
//Seleccionamos el zoom que deseamos utilizar. En este caso un 100%
reportViewer1.ZoomPercent = 100;
}
else
{
MessageBox.Show("No hay resoltados para la informacion de la atencion");
}
}