private void btnImprimir_Click(object sender, EventArgs e)
{
//clsConexion a la base de datos
MySqlConnection myclsConexion = new MySqlConnection(DispensarioMedico.clsConexion.ConectionString);
// Creando el command que ejecutare
MySqlCommand myCommand = new MySqlCommand();
// Creando el Data Adapter
MySqlDataAdapter myAdapter = new MySqlDataAdapter();
// Creando el String Builder
StringBuilder sbQuery = new StringBuilder();
// Otras variables del entorno
string cWhere = " WHERE 1 = 1";
string cUsuario = frmLogin.cUsuarioActual;
string cTitulo = "";
try
{
// Abro clsConexion
myclsConexion.Open();
// Creo comando
myCommand = myclsConexion.CreateCommand();
// Adhiero el comando a la clsConexion
myCommand.Connection = myclsConexion;
// Filtros de la busqueda
string fechadesde = fechaDesde.Value.ToString("yyyy-MM-dd");
string fechahasta = fechaHasta.Value.ToString("yyyy-MM-dd");
cWhere = cWhere + " AND fecha >= " + "'" + fechadesde + "'" + " AND fecha <= " + "'" + fechahasta + "'" + "";
sbQuery.Clear();
sbQuery.Append("SELECT casomedico.idcasomedico, casomedico.cedula_paciente, casomedico.problema_descripcion, ");
sbQuery.Append(" casomedico.fecha, paciente.nombre, paciente.apellido, rangos.rangoabrev as rango ");
//sbQuery.Append(" SUM(licenciasmedicas.idlicencia) as cantidadtotal");
sbQuery.Append(" FROM casomedico ");
sbQuery.Append(" INNER JOIN paciente ON casomedico.cedula_paciente = paciente.cedula ");
sbQuery.Append(" INNER JOIN rangos ON casomedico.rango = rangos.rango_id ");
sbQuery.Append(cWhere);
//sbQuery.Append(" GROUP BY licenciasmedicas.rango");
// Paso los valores de sbQuery al CommandText
myCommand.CommandText = sbQuery.ToString();
// Creo el objeto Data Adapter y ejecuto el command en el
myAdapter = new MySqlDataAdapter(myCommand);
// Creo el objeto Data Table
DataTable dtConsultasMedicas = new DataTable();
// Lleno el data adapter
myAdapter.Fill(dtConsultasMedicas);
// Cierro el objeto clsConexion
myclsConexion.Close();
// Verifico cantidad de datos encontrados
int nRegistro = dtConsultasMedicas.Rows.Count;
if (nRegistro == 0)
{
MessageBox.Show("No Hay Datos Para Mostrar, Favor Verificar", "Sistema Dispensario Medico", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
else
{
//1ero.HACEMOS LA COLECCION DE PARAMETROS
//los campos de parametros contiene un objeto para cada campo de parametro en el informe
ParameterFields oParametrosCR = new ParameterFields();
//Proporciona propiedades para la recuperacion y configuracion del tipo de los parametros
ParameterValues oParametrosValuesCR = new ParameterValues();
//2do.CREAMOS LOS PARAMETROS
ParameterField oUsuario = new ParameterField();
//parametervaluetype especifica el TIPO de valor de parametro
//ParameterValueKind especifica el tipo de valor de parametro en la PARAMETERVALUETYPE de la Clase PARAMETERFIELD
oUsuario.ParameterValueType = ParameterValueKind.StringParameter;
//3ero.VALORES PARA LOS PARAMETROS
//ParameterDiscreteValue proporciona propiedades para la recuperacion y configuracion de
//parametros de valores discretos
ParameterDiscreteValue oUsuarioDValue = new ParameterDiscreteValue();
oUsuarioDValue.Value = cUsuario;
//4to. AGREGAMOS LOS VALORES A LOS PARAMETROS
oUsuario.CurrentValues.Add(oUsuarioDValue);
//5to. AGREGAMOS LOS PARAMETROS A LA COLECCION
oParametrosCR.Add(oUsuario);
//nombre del parametro en CR (Crystal Reports)
oParametrosCR[0].Name = "cUsuario";
//nombre del TITULO DEL INFORME
cTitulo = "LISTADO DE PACIENTES ATENDIDOS";
//6to Instanciamos nuestro REPORTE
//Reportes.ListadoDoctores oListado = new Reportes.ListadoDoctores();
//rptEstadisticasLicenciasMedicas orptEstadisticasLM = new rptEstadisticasLicenciasMedicas();
Reportes.rptConsultasMedicas orptConsultasMedicas = new Reportes.rptConsultasMedicas();
//pasamos el nombre del TITULO del Listado
//SumaryInfo es un objeto que se utiliza para leer,crear y actualizar las propiedades del reporte
// oListado.SummaryInfo.ReportTitle = cTitulo;
orptConsultasMedicas.SummaryInfo.ReportTitle = cTitulo;
//7mo. instanciamos nuestro el FORMULARIO donde esta nuestro ReportViewer
frmPrinter ofrmPrinter = new frmPrinter(dtConsultasMedicas, orptConsultasMedicas, cTitulo);
//ParameterFieldInfo Obtiene o establece la colección de campos de parámetros.
ofrmPrinter.CrystalReportViewer1.ParameterFieldInfo = oParametrosCR;
ofrmPrinter.ShowDialog();
}
}
catch (Exception myEx)
{
MessageBox.Show("Error : " + myEx.Message, "Mostrando Reporte", MessageBoxButtons.OK,
MessageBoxIcon.Information);
clsExceptionLog.LogError(myEx, false);
return;
}
}
private void cmdAceptar_Click(object sender, EventArgs e)
{
string FechaInicial = dtpDesFecha.Value.ToString("yyyy-MM-dd");
string FechaFinal = dtpHasFecha.Value.ToString("yyyy-MM-dd");
StringBuilder sbQuery = new StringBuilder();
string miTitulo = "";
if (rdbTodo.Checked)
{
miTitulo = "Listado General de Errores";
sbQuery.Clear();
sbQuery.Append("select secuencia,linea,usuario,cia,time(fecha) as hora,date_format(fecha,'%d/%m/%Y') as fecha,");
sbQuery.Append("message,programa");
sbQuery.Append(" from errors");
sbQuery.Append(" order by secuencia");
}
if (rdbSeleccionar.Checked)
{
if (rdbUsuario.Checked)
{
miTitulo = "Listado General de Errores Usuario " + cboUsuario.SelectedText + "";
sbQuery.Clear();
sbQuery.Append("select secuencia,linea,usuario,cia,time(fecha) as hora,date_format(fecha,'%d/%m/%Y') as fecha,");
sbQuery.Append("message,programa");
sbQuery.Append(" from errors");
sbQuery.Append(" where usuario = '" + cboUsuario.SelectedText + "'");
sbQuery.Append(" order by secuencia");
}
if (rdbFecha.Checked)
{
miTitulo = "Listado General de Errores de Fecha " + dtpDesFecha.Value.ToString("dd-MM-yyyy") + " Hasta " + dtpHasFecha.Value.ToString("dd-MM-yyyy") + "";
sbQuery.Clear();
sbQuery.Append("select secuencia,linea,usuario,cia,time(fecha) as hora,date_format(fecha,'%d/%m/%Y') as fecha,");
sbQuery.Append("message,programa");
sbQuery.Append(" from errors");
sbQuery.Append(" where fecha between '" + FechaInicial + "' and '" + FechaFinal + "'");
sbQuery.Append(" order by secuencia");
}
if (rdbUsuaFecha.Checked)
{
miTitulo = "Listado General de Errores Usuario " + cboUsuario.SelectedText + "desde la fecha " + dtpDesFecha.Value.ToString("dd-MM-yyyy") + " Hasta " + dtpHasFecha.Value.ToString("dd-MM-yyyy") + "";;
sbQuery.Clear();
sbQuery.Append("select secuencia,linea,usuario,cia,time(fecha) as hora,date_format(fecha,'%d/%m/%Y') as fecha,");
sbQuery.Append("message,programa");
sbQuery.Append(" from errors");
sbQuery.Append(" where fecha between '" + FechaInicial + "'and '" + FechaFinal + "'");
sbQuery.Append(" and usuario = '" + cboUsuario.SelectedText + "'");
sbQuery.Append(" order by secuencia");
}
}
MySqlConnection oCnn = new MySqlConnection(this.cCadenaConexion);
oCnn.Open();
MySqlCommand oCmd = new MySqlCommand();
oCmd = oCnn.CreateCommand();
oCmd.Connection = oCnn;
oCmd.CommandText = sbQuery.ToString();
MySqlDataAdapter da = new MySqlDataAdapter(oCmd);
DataTable dt = new DataTable();
da.Fill(dt);
oCnn.Close();
int nResultado = dt.Rows.Count;
string cTitulo = miTitulo;
if (nResultado > 0)
{
Reportes.rptErrores oRptErrores = new Reportes.rptErrores();
oRptErrores.SummaryInfo.ReportTitle = cTitulo;
frmPrinter ofrmPrinter = new frmPrinter(dt, oRptErrores, cTitulo);
ofrmPrinter.ShowDialog();
}
else
{
MessageBox.Show("No Hay Datos Para Mostrar, Favor Verificar", "Sistema Medico", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
}
private void btnImprimir_Click(object sender, EventArgs e)
{
string cTitulo = "";
string cUsuario = frmLogin.cUsuarioActual;;
if (txtCedula.Text == "" || txtID.Text == "")
{
MessageBox.Show("El Campo Cedulo o ID no Debe Estar en Blanco, Favor Verificar", "Sistema Medico", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
else
{
try
{
StringBuilder sbQuery = new StringBuilder();
MySqlConnection oMiclsConexion = new MySqlConnection(cclsConexion);
MySqlCommand oComando = new MySqlCommand();
MySqlDataAdapter oAdaptador = new MySqlDataAdapter();
DataTable dtPaciente = new DataTable();
oMiclsConexion.Open();
oComando = oMiclsConexion.CreateCommand();
oComando.Connection = oMiclsConexion;
sbQuery.Clear();
sbQuery.Append("SELECT paciente.id_paciente,paciente.cedula,paciente.nombre,");
sbQuery.Append("paciente.apellido,paciente.edad,paciente.sexo,paciente.dato_nacimiento,");
sbQuery.Append("paciente.dato_alimentacion, paciente.dato_condicionespsicologicas, ");
sbQuery.Append("paciente.dato_sexualidad, paciente.dato_operaciones, ");
sbQuery.Append("paciente.dato_intoleranciamedicinal, paciente.dato_saludpadres, ");
sbQuery.Append("paciente.dato_saludhermanos, paciente.dato_saludesposahijos,");
sbQuery.Append("paciente.dato_saludfamiliargeneral, paciente.fecharegistro, paciente.fechaupdate,");
sbQuery.Append("rangos.rango_descripcion");
sbQuery.Append(" from paciente");
sbQuery.Append(" inner join rangos on rangos.rango_id = paciente.rango");
sbQuery.Append(" where paciente.id_paciente = " + txtID.Text + "");
//sbQuery.Append("");
//sbQuery.Append("");
//sbQuery.Append("");
oComando.CommandText = sbQuery.ToString();
oAdaptador = new MySqlDataAdapter(oComando);
oAdaptador.Fill(dtPaciente);
//oComando.Dispose();
//oMiclsConexion.Close();
int nRegistros = dtPaciente.Rows.Count;
if (nRegistros == 0)
{
MessageBox.Show("No Hay Datos Para Mostrar, Favor Verificar", "Sistema Medico", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
else
{
//1ero.HACEMOS LA COLECCION DE PARAMETROS
//los campos de parametros contiene un objeto para cada campo de parametro en el informe
ParameterFields oParametrosCR = new ParameterFields();
//Proporciona propiedades para la recuperacion y configuracion del tipo de los parametros
ParameterValues oParametrosValuesCR = new ParameterValues();
//2do.CREAMOS LOS PARAMETROS
ParameterField oUsuario = new ParameterField();
//parametervaluetype especifica el TIPO de valor de parametro
//ParameterValueKind especifica el tipo de valor de parametro en la PARAMETERVALUETYPE de la Clase PARAMETERFIELD
oUsuario.ParameterValueType = ParameterValueKind.StringParameter;
//3ero.VALORES PARA LOS PARAMETROS
//ParameterDiscreteValue proporciona propiedades para la recuperacion y configuracion de
//parametros de valores discretos
ParameterDiscreteValue oUsuarioDValue = new ParameterDiscreteValue();
oUsuarioDValue.Value = cUsuario;
//4to. AGREGAMOS LOS VALORES A LOS PARAMETROS
oUsuario.CurrentValues.Add(oUsuarioDValue);
//5to. AGREGAMOS LOS PARAMETROS A LA COLECCION
oParametrosCR.Add(oUsuario);
//nombre del parametro en CR (Crystal Reports)
oParametrosCR[0].Name = "cUsuario";
//nombre del TITULO DEL INFORME
cTitulo = "ANTECEDENTES PERSONALES";
//6to Instanciamos nuestro REPORTE
Reportes.RepAntecedentes oRepAntecedente = new Reportes.RepAntecedentes();
//pasamos el nombre del TITULO del Listado
//SumaryInfo es un objeto que se utiliza para leer,crear y actualizar las propiedades del reporte
oRepAntecedente.SummaryInfo.ReportTitle = cTitulo;
frmPrinter oFrmPrinter = new frmPrinter(dtPaciente, oRepAntecedente, cTitulo);
oFrmPrinter.CrystalReportViewer1.ParameterFieldInfo = oParametrosCR;
oFrmPrinter.ShowDialog();
}
}
catch (Exception myEx)
{
//MessageBox.Show(myEx.Message);
//throw;
}
}
}
private void cmdImprimir_Click(object sender, EventArgs e)
{
string cCero = "0";
string cAno = dates.Year(dtpDesde.Value).ToString();
string cMes = VFPToolkit.strings.PadL(dates.Month(dtpDesde.Value).ToString(), 2, Convert.ToChar(cCero));
string cDia = VFPToolkit.strings.PadL(dates.Day(dtpDesde.Value).ToString(), 2, Convert.ToChar(cCero));
string cFechaInicial = "" + cAno + "/" + cMes + "/" + cDia + "";
cAno = dates.Year(dtpHasta.Value).ToString();
cMes = VFPToolkit.strings.PadL(dates.Month(dtpHasta.Value).ToString(), 2, Convert.ToChar(cCero));
cDia = VFPToolkit.strings.PadL(dates.Day(dtpHasta.Value).ToString(), 2, Convert.ToChar(cCero));
string cFechafinal = "" + cAno + "/" + cMes + "/" + cDia + "";
// Inicio clsConexion y transacccion
MySql.Data.MySqlClient.MySqlConnection oCnn = new MySql.Data.MySqlClient.MySqlConnection(); // Objeto de clsConexion a la base de datos
MySql.Data.MySqlClient.MySqlDataAdapter daDatos = new MySql.Data.MySqlClient.MySqlDataAdapter(); // Objeto Adaptador para leer datos de la Base de datos
MySql.Data.MySqlClient.MySqlCommand cmdExec = new MySql.Data.MySqlClient.MySqlCommand(); // objeto comando para ejecutar sentencias sql
DataTable dtDatos = new DataTable(); // datatable para recibir los datos de la base de datos
StringBuilder sbQuery = new StringBuilder(); //Iniciar el cuadro de diálogo de entretenimiento:
MySqlTransaction oTransaccion = null;
this.Cursor = Cursors.WaitCursor;
oCnn.ConnectionString = clsConexion.ConectionString;
try
{
string cWhere = " and date(invent.fecha) BETWEEN '" + cFechaInicial + "' and '" + cFechafinal + "'";
//Articulos
if (this.chkArticulos.Checked == false)
{
cWhere = cWhere + " AND trim(invent.cod_1) = '" + this.cboArticulos.SelectedValue.ToString().Trim() + "'";
}
//Tipo Doc
if (this.chkT_Mov.Checked == false)
{
cWhere = cWhere + " AND trim(invent.tipo_mo) = '" + cboT_mov.SelectedValue.ToString().Trim() + "'";
}
//Tipo Trasac
if (this.chkEntradaSalida.Checked == false)
{
if (this.cboEntradaSalida.SelectedItem == "Entrada")
{
cWhere = cWhere + " AND invent.cantidad > 0 ";
}
else
{
cWhere = cWhere + " AND invent.cantidad < 0 ";
}
}
//Miembros
if (this.chkMiembros.Checked == false)
{
cWhere = cWhere + " AND trim(invent.cedula) = '" + txtCedula.Text.Trim() + "'";
}
oCnn.Open();
cmdExec = oCnn.CreateCommand();
cmdExec.Connection = oCnn;
cmdExec.CommandTimeout = 0; // para consultas largas
sbQuery.Clear();
sbQuery.Append("select invent.*, T_mov.t_mov, mproduct.des_pro, ");
sbQuery.Append("paciente.id_paciente,paciente.nombre,paciente.apellido,paciente.rango,");
sbQuery.Append("rangos.RangoAbrev,");
sbQuery.Append("config.empresa, config.direccion, config.dependencia,config.telefono1,config.telefono2,config.fax,config.rnc, ");
sbQuery.Append("config.email, config.website, config.jefe,config.rango_jefe,config.rango_dir,config.director,config.logobmp ");
sbQuery.Append("FROM invent,paciente,config,T_mov, mproduct,rangos");
sbQuery.Append(" WHERE invent.tipo_mov = t_mov.codigo ");
sbQuery.Append(" and trim(invent.cod_1) = trim(mproduct.cod_pro) ");
sbQuery.Append(" and invent.cedula = paciente.cedula ");
sbQuery.Append(" and paciente.rango = rangos.rango_id ");
sbQuery.Append(cWhere);
sbQuery.Append(" group by invent.fecha,invent.secuencia ");
// temporal
VFPToolkit.strings.StrToFile(sbQuery.ToString(), @"consulta.sql", true);
cmdExec.CommandText = sbQuery.ToString();
daDatos = new MySqlDataAdapter(cmdExec);
DataSet dsMovBan2 = new DataSet();
daDatos.Fill(dsMovBan2);
int nRegistros = dsMovBan2.Tables[0].Rows.Count;
if (nRegistros == 0)
{
MessageBox.Show("No hay información para mostrar, favor verificar", "Mostrando Reporte de Movimientos Bancarios", MessageBoxButtons.OK,
MessageBoxIcon.Information);
CursorDefault();
return;
}
oCnn.Close();
// Parametros de Fecha para visualizar en el Reporte CR
DateTime dFechaInicial = Convert.ToDateTime(this.dtpDesde.Value);
DateTime dFechaFinal = Convert.ToDateTime(this.dtpHasta.Value);
String cUsuario = frmLogin.cUsuarioActual;
string cTitulo = "Listado de Transacciones desde " + VFPToolkit.dates.TTOD(dFechaInicial).ToString() + " hasta " + dates.TTOD(dFechaFinal).ToString();
// Colecciones
ParameterFields oParametrosCR = new ParameterFields();
ParameterValues oParametrosValuesCR = new ParameterValues();
// parametros
ParameterField oFechaInicial = new ParameterField();
ParameterField oFechaFinal = new ParameterField();
ParameterField oUsuario = new ParameterField();
ParameterField oTitulo = new ParameterField();
oFechaInicial.ParameterValueType = ParameterValueKind.DateParameter;
oFechaFinal.ParameterValueType = ParameterValueKind.DateParameter;
oUsuario.ParameterValueType = ParameterValueKind.StringParameter;
oTitulo.ParameterValueType = ParameterValueKind.StringParameter;
// Valores para los prametros
ParameterDiscreteValue oFechaInicialDValue = new ParameterDiscreteValue();
ParameterDiscreteValue oFechaFinalDValue = new ParameterDiscreteValue();
ParameterDiscreteValue oUsuarioDValue = new ParameterDiscreteValue();
ParameterDiscreteValue oTituloDValue = new ParameterDiscreteValue();
oFechaInicialDValue.Value = dFechaInicial;
oFechaFinalDValue.Value = dFechaFinal;
oUsuarioDValue.Value = cUsuario;
oTituloDValue.Value = cTitulo;
// Agrego los valores a los parametros
oFechaInicial.CurrentValues.Add(oFechaInicialDValue);
oFechaFinal.CurrentValues.Add(oFechaFinalDValue);
oUsuario.CurrentValues.Add(oUsuarioDValue);
oTitulo.CurrentValues.Add(oTituloDValue);
// Agrego los parametros a la coleccion
oParametrosCR.Clear();
oParametrosCR.Add(oTitulo);
oParametrosCR.Add(oUsuario);
oParametrosCR.Add(oFechaInicial);
oParametrosCR.Add(oFechaFinal);
// Nombre del Parametro en CR
oParametrosCR[0].Name = "cTitulo";
oParametrosCR[1].Name = "cUsuario";
oParametrosCR[2].Name = "dFechaInicial";
oParametrosCR[3].Name = "dFechaFinal";
// oReporte.DataDefinition.ParameterFields("@dFechaInicial").ApplyCurrentValues(oParametrosCR[0]);
// oReporte.DataDefinition.ParameterFields("@dFechaFinal").ApplyCurrentValues(oParametrosCR[1]);
Reportes.rptMovInventario oReporte = new Reportes.rptMovInventario();
frmPrinter ofrmPrinter = new frmPrinter(dsMovBan2.Tables[0], oReporte, cTitulo);
ofrmPrinter.CrystalReportViewer1.ParameterFieldInfo = oParametrosCR;
ofrmPrinter.ShowDialog();
CursorDefault();
}
catch (Exception ex)
{
MessageBox.Show("Error : " + ex.Message, "Mostrando Reporte", MessageBoxButtons.OK,
MessageBoxIcon.Information);
clsExceptionLog.LogError(ex, false);
CursorDefault();
return;
}
}
private void cmdAceptar_Click(object sender, EventArgs e)
{
StringBuilder sbQuery = new StringBuilder();
string cTitulo = "";
sbQuery.Append("");
string cCero = "0";
string cAno = dates.Year(dtFechaInicial.Value).ToString();
string cMes = VFPToolkit.strings.PadL(dates.Month(dtFechaInicial.Value).ToString(), 2, Convert.ToChar(cCero));
string cDia = VFPToolkit.strings.PadL(dates.Day(dtFechaInicial.Value).ToString(), 2, Convert.ToChar(cCero));
string cFechaInicial = cAno + "-" + cMes + "-" + cDia;
string cFechaInicialFormato = cDia + "/" + cMes + "/" + cAno;
cAno = dates.Year(dtFechaFinal.Value).ToString();
cMes = VFPToolkit.strings.PadL(dates.Month(dtFechaFinal.Value).ToString(), 2, Convert.ToChar(cCero));
cDia = VFPToolkit.strings.PadL(dates.Day(dtFechaFinal.Value).ToString(), 2, Convert.ToChar(cCero));
string cFechaFinal = cAno + "-" + cMes + "-" + cDia;
string cFechaFinalFormato = cDia + "/" + cMes + "/" + cAno;
if (rdbTodo.Checked)
{
cTitulo = "Listado General de Historial de BackUps";
sbQuery.Clear();
sbQuery.Append("select secuencia,date_format(fecha,'%d/%m/%Y') as fecha,hora,destino,usuario");
sbQuery.Append(" from backup");
//sbQuery.Append(" where empre_mo.cod_empre = " + FrmAcceso.iempresa + "");
}
if (rdbSeleccionar.Checked)
{
if (rdbFecha.Checked)
{
cTitulo = "Listado General de Historial de BackUps desde Fecha " + cFechaInicialFormato + " Hasta " + cFechaFinalFormato + "";
sbQuery.Clear();
sbQuery.Append("select secuencia,date_format(fecha,'%d/%m/%Y') as fecha,hora,destino,usuario");
sbQuery.Append(" from backup");
sbQuery.Append(" where fecha between '" + cFechaInicial + "' and '" + cFechaFinal + "'");
}
}
MySqlConnection oCnn = new MySqlConnection(this.cCadenaclsConexion);
MySqlCommand oCmd = new MySqlCommand(sbQuery.ToString(), oCnn);
MySqlDataAdapter Adaptador = new MySqlDataAdapter(oCmd);
DataTable dt = new DataTable();
Adaptador.Fill(dt);
int nRegistros = dt.Rows.Count;
string Titulo = "Listado Historial BackUps";
if (nRegistros > 0)
{
//Reportes.rptBackUp2 orptBackUp = new Reportes.rptBackUp2();
//orptBackUp.SummaryInfo.ReportTitle = cTitulo;
//frmPrinter ofrmPrinter = new frmPrinter(dt, orptBackUp, Titulo);
//ofrmPrinter.ShowDialog();
Reportes.RptBackup orptBackup = new Reportes.RptBackup();
orptBackup.SummaryInfo.ReportTitle = cTitulo;
frmPrinter ofrmPrinter = new frmPrinter(dt, orptBackup, Titulo);
ofrmPrinter.ShowDialog();
}
else
{
MessageBox.Show("No Hay Datos Para Mostrar", "Sistema ReaSanto v1.0",
MessageBoxButtons.OK, MessageBoxIcon.Information);
}
oCnn.Close();
}
private void cmdImprimir_Click(object sender, EventArgs e)
{
try
{
if (this.txtNo_Docum.Text == "")
{
MessageBox.Show("Debe digitar el numero de la transaccion!!", "Reimpresion de Transacción", MessageBoxButtons.OK,
MessageBoxIcon.Information);
CursorDefault();
this.Limpiar();
return;
}
if (dsMovBan2.Tables[0].Rows.Count == 0)
{
MessageBox.Show("No hay información para mostrar, favor verificar", "Reimpresion de Transacción", MessageBoxButtons.OK,
MessageBoxIcon.Information);
CursorDefault();
this.Limpiar();
return;
}
// Parametros de Fecha para visualizar en el Reporte CR
DateTime dFechaInicial = DateTime.Now;
DateTime dFechaFinal = DateTime.Now;
String cUsuario = frmLogin.cUsuarioActual;
string cTitulo = "Reimpresion de la Transaccion Numero " + txtNo_Docum.Text.Trim() + ", del Tipo " + cboT_mov.SelectedText.Trim();
// Colecciones
ParameterFields oParametrosCR = new ParameterFields();
ParameterValues oParametrosValuesCR = new ParameterValues();
// parametros
ParameterField oFechaInicial = new ParameterField();
ParameterField oFechaFinal = new ParameterField();
ParameterField oUsuario = new ParameterField();
ParameterField oTitulo = new ParameterField();
oFechaInicial.ParameterValueType = ParameterValueKind.DateParameter;
oFechaFinal.ParameterValueType = ParameterValueKind.DateParameter;
oUsuario.ParameterValueType = ParameterValueKind.StringParameter;
oTitulo.ParameterValueType = ParameterValueKind.StringParameter;
// Valores para los prametros
ParameterDiscreteValue oFechaInicialDValue = new ParameterDiscreteValue();
ParameterDiscreteValue oFechaFinalDValue = new ParameterDiscreteValue();
ParameterDiscreteValue oUsuarioDValue = new ParameterDiscreteValue();
ParameterDiscreteValue oTituloDValue = new ParameterDiscreteValue();
oFechaInicialDValue.Value = dFechaInicial;
oFechaFinalDValue.Value = dFechaFinal;
oUsuarioDValue.Value = cUsuario;
oTituloDValue.Value = cTitulo;
// Agrego los valores a los parametros
oFechaInicial.CurrentValues.Add(oFechaInicialDValue);
oFechaFinal.CurrentValues.Add(oFechaFinalDValue);
oUsuario.CurrentValues.Add(oUsuarioDValue);
oTitulo.CurrentValues.Add(oTituloDValue);
// Agrego los parametros a la coleccion
oParametrosCR.Clear();
oParametrosCR.Add(oTitulo);
oParametrosCR.Add(oUsuario);
oParametrosCR.Add(oFechaInicial);
oParametrosCR.Add(oFechaFinal);
// Nombre del Parametro en CR
oParametrosCR[0].Name = "cTitulo";
oParametrosCR[1].Name = "cUsuario";
oParametrosCR[2].Name = "dFechaInicial";
oParametrosCR[3].Name = "dFechaFinal";
// oReporte.DataDefinition.ParameterFields("@dFechaInicial").ApplyCurrentValues(oParametrosCR[0]);
// oReporte.DataDefinition.ParameterFields("@dFechaFinal").ApplyCurrentValues(oParametrosCR[1]);
Reportes.rptReimprimeTR oReporte = new Reportes.rptReimprimeTR();
frmPrinter ofrmPrinter = new frmPrinter(dsMovBan2.Tables[0], oReporte, cTitulo);
ofrmPrinter.CrystalReportViewer1.ParameterFieldInfo = oParametrosCR;
ofrmPrinter.ShowDialog();
CursorDefault();
}
catch (MySqlException ex)
{
MessageBox.Show("Error : " + ex.Message, "Sistema SysHospitalARD v1.0", MessageBoxButtons.OK,
MessageBoxIcon.Information);
clsExceptionLog.LogError(ex, false);
this.CursorDefault();
return;
}
catch (Exception ex)
{
MessageBox.Show("Error : " + ex.Message, "Sistema SysHospitalARD v1.0", MessageBoxButtons.OK,
MessageBoxIcon.Information);
clsExceptionLog.LogError(ex, false);
// oTransaccion.Connection.State = ConnectionState.
this.CursorDefault();
return;
}
}
private void btnImprimir_Click(object sender, EventArgs e)
{
//clsConexion a la base de datos
MySqlConnection myclsConexion = new MySqlConnection(clsConexion.ConectionString);
// Creando el command que ejecutare
MySqlCommand myCommand = new MySqlCommand();
// Creando el Data Adapter
MySqlDataAdapter myAdapter = new MySqlDataAdapter();
// Creando el String Builder
StringBuilder sbQuery = new StringBuilder();
// Otras variables del entorno
string cWhere = " WHERE 1 = 1";
string cUsuario = frmLogin.cUsuarioActual;
string cTitulo = "";
try
{
// Abro clsConexion
myclsConexion.Open();
// Creo comando
myCommand = myclsConexion.CreateCommand();
// Adhiero el comando a la clsConexion
myCommand.Connection = myclsConexion;
// Filtros de la busqueda
// CREANDO EL QUERY DE CONSULTA
//string fechadesde = fechaDesde.Value.ToString("yyyy-MM-dd");
//string fechahasta = fechaHasta.Value.ToString("yyyy-MM-dd");
//cWhere = cWhere + " AND fechacita >= "+"'"+ fechadesde +"'" +" AND fechacita <= "+"'"+ fechahasta +"'"+"";
//cWhere = cWhere + " AND year = '" + txtYear.Text + "'";
sbQuery.Clear();
sbQuery.Append("SELECT id_tipoespecialidad as ID, descripcion_tipoespecialidad as Descripcion");
//sbQuery.Append(" doctores.doctores_cedula,upper(CONCAT(doctores.doctores_nombre,' ',doctores.doctores_apellido)) as doctor,departamentos.departamento_descripcion");
sbQuery.Append(" FROM especialidades_tipo");
//sbQuery.Append(" INNER JOIN departamentos ON departamentos.departamento_id = cita.referimiento");
sbQuery.Append(cWhere);
// Paso los valores de sbQuery al CommandText
myCommand.CommandText = sbQuery.ToString();
// Creo el objeto Data Adapter y ejecuto el command en el
myAdapter = new MySqlDataAdapter(myCommand);
// Creo el objeto Data Table
DataTable dtMTipoEpecialidad = new DataTable();
// Lleno el data adapter
myAdapter.Fill(dtMTipoEpecialidad);
// Cierro el objeto clsConexion
myclsConexion.Close();
// Verifico cantidad de datos encontrados
int nRegistro = dtMTipoEpecialidad.Rows.Count;
if (nRegistro == 0)
{
MessageBox.Show("No Hay Datos Para Mostrar, Favor Verificar", "Sistema Gestion Medica", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
else
{
//1ero.HACEMOS LA COLECCION DE PARAMETROS
//los campos de parametros contiene un objeto para cada campo de parametro en el informe
ParameterFields oParametrosCR = new ParameterFields();
//Proporciona propiedades para la recuperacion y configuracion del tipo de los parametros
ParameterValues oParametrosValuesCR = new ParameterValues();
//2do.CREAMOS LOS PARAMETROS
ParameterField oUsuario = new ParameterField();
//parametervaluetype especifica el TIPO de valor de parametro
//ParameterValueKind especifica el tipo de valor de parametro en la PARAMETERVALUETYPE de la Clase PARAMETERFIELD
oUsuario.ParameterValueType = ParameterValueKind.StringParameter;
//3ero.VALORES PARA LOS PARAMETROS
//ParameterDiscreteValue proporciona propiedades para la recuperacion y configuracion de
//parametros de valores discretos
ParameterDiscreteValue oUsuarioDValue = new ParameterDiscreteValue();
oUsuarioDValue.Value = cUsuario;
//4to. AGREGAMOS LOS VALORES A LOS PARAMETROS
oUsuario.CurrentValues.Add(oUsuarioDValue);
//5to. AGREGAMOS LOS PARAMETROS A LA COLECCION
oParametrosCR.Add(oUsuario);
//nombre del parametro en CR (Crystal Reports)
oParametrosCR[0].Name = "cUsuario";
//nombre del TITULO DEL INFORME
cTitulo = "LISTADO TIPO ESPECIALIDADES";
//6to Instanciamos nuestro REPORTE
//Reportes.ListadoDoctores oListado = new Reportes.ListadoDoctores();
Reportes.rptMTipoEspecialidades orptMTipoEspecialidades = new Reportes.rptMTipoEspecialidades();
//pasamos el nombre del TITULO del Listado
//SumaryInfo es un objeto que se utiliza para leer,crear y actualizar las propiedades del reporte
// oListado.SummaryInfo.ReportTitle = cTitulo;
orptMTipoEspecialidades.SummaryInfo.ReportTitle = cTitulo;
//7mo. instanciamos nuestro el FORMULARIO donde esta nuestro ReportViewer
frmPrinter ofrmPrinter = new frmPrinter(dtMTipoEpecialidad, orptMTipoEspecialidades, cTitulo);
//ParameterFieldInfo Obtiene o establece la colección de campos de parámetros.
ofrmPrinter.CrystalReportViewer1.ParameterFieldInfo = oParametrosCR;
ofrmPrinter.ShowDialog();
}
}
catch (Exception myEx)
{
MessageBox.Show("Error : " + myEx.Message, "Mostrando Reporte", MessageBoxButtons.OK,
MessageBoxIcon.Information);
// clsExceptionLog.LogError(myEx, false);
return;
}
}
private void cmdImprimir_Click(object sender, EventArgs e)
{
MySqlConnection oCnn = new MySqlConnection(cclsConexion);
MySqlCommand oComando = new MySqlCommand();
MySqlDataAdapter oAdaptador = new MySqlDataAdapter();
StringBuilder sbQuery = new StringBuilder();
string cWhere = " where 1 = 1";
string cUsuario = frmLogin.cUsuarioActual;
string cTitulo = "";
try
{
oCnn.Open();
oComando = oCnn.CreateCommand();
oComando.Connection = oCnn;
if (rdoSeleccionar.Checked)
{
if (chkM.Checked)
{
cWhere = cWhere + " and doctores.doctores_sexo = 'M'";
}
if (chkF.Checked)
{
cWhere = cWhere + " and doctores.doctores_sexo = 'F'";
}
if (chkRango.Checked)
{
cWhere = cWhere + " and doctores.doctores_rango = " + cmbRango.SelectedValue + "";
}
if (chkEspecialidad.Checked)
{
cWhere = cWhere + " and doctores.doctores_especialidad = " + cmbEspecialidad.SelectedValue + "";
}
sbQuery.Clear();
sbQuery.Append("select upper(doctores.doctores_rango) as doctores_rango,upper(doctores.doctores_cedula) as doctores_cedula,");
sbQuery.Append("upper(doctores.doctores_nombre) as doctores_nombre,upper(doctores.doctores_apellido) as doctores_apellido,");
sbQuery.Append("upper(rangos.rangoabrev) as rangoabrev,upper(especialidades.especialidades_descripcion) as especialidades_descripcion");
sbQuery.Append(" from doctores");
sbQuery.Append(" left join rangos on rangos.rango_id = doctores.doctores_rango");
sbQuery.Append(" left join especialidades on especialidades.especialidades_id = doctores.doctores_especialidad");
sbQuery.Append(cWhere);
//sbQuery.Append(" order by doctores.doctores_rango");
}
if (rdoTodos.Checked)
{
sbQuery.Clear();
sbQuery.Append("select upper(doctores.doctores_rango) as doctores_rango,upper(doctores.doctores_cedula) as doctores_cedula,");
sbQuery.Append("upper(doctores.doctores_nombre) as doctores_nombre,upper(doctores.doctores_apellido) as doctores_apellido,");
sbQuery.Append("upper(rangos.rangoabrev) as rangoabrev,upper(especialidades.especialidades_descripcion) as especialidades_descripcion");
sbQuery.Append(" from doctores");
sbQuery.Append(" left join rangos on rangos.rango_id = doctores.doctores_rango");
sbQuery.Append(" left join especialidades on especialidades.especialidades_id = doctores.doctores_especialidad");
sbQuery.Append(" order by rangos.orden");
}
oComando.CommandText = sbQuery.ToString();
oAdaptador = new MySqlDataAdapter(oComando);
DataTable dtDoctores = new DataTable();
oAdaptador.Fill(dtDoctores);
oCnn.Close();
int nRegistro = dtDoctores.Rows.Count;
if (nRegistro == 0)
{
MessageBox.Show("No Hay Datos Para Mostrar, Favor Verificar", "Sistema Medico", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
else
{
//1ero.HACEMOS LA COLECCION DE PARAMETROS
//los campos de parametros contiene un objeto para cada campo de parametro en el informe
ParameterFields oParametrosCR = new ParameterFields();
//Proporciona propiedades para la recuperacion y configuracion del tipo de los parametros
ParameterValues oParametrosValuesCR = new ParameterValues();
//2do.CREAMOS LOS PARAMETROS
ParameterField oUsuario = new ParameterField();
//parametervaluetype especifica el TIPO de valor de parametro
//ParameterValueKind especifica el tipo de valor de parametro en la PARAMETERVALUETYPE de la Clase PARAMETERFIELD
oUsuario.ParameterValueType = ParameterValueKind.StringParameter;
//3ero.VALORES PARA LOS PARAMETROS
//ParameterDiscreteValue proporciona propiedades para la recuperacion y configuracion de
//parametros de valores discretos
ParameterDiscreteValue oUsuarioDValue = new ParameterDiscreteValue();
oUsuarioDValue.Value = cUsuario;
//4to. AGREGAMOS LOS VALORES A LOS PARAMETROS
oUsuario.CurrentValues.Add(oUsuarioDValue);
//5to. AGREGAMOS LOS PARAMETROS A LA COLECCION
oParametrosCR.Add(oUsuario);
//nombre del parametro en CR (Crystal Reports)
oParametrosCR[0].Name = "cUsuario";
//nombre del TITULO DEL INFORME
cTitulo = "REPORTE ESTADISTICO DE MEDICOS";
//6to Instanciamos nuestro REPORTE
Reportes.ListadoDoctores oListado = new Reportes.ListadoDoctores();
//pasamos el nombre del TITULO del Listado
//SumaryInfo es un objeto que se utiliza para leer,crear y actualizar las propiedades del reporte
oListado.SummaryInfo.ReportTitle = cTitulo;
//7mo. instanciamos nuestro el FORMULARIO donde esta nuestro ReportViewer
frmPrinter ofrmPrinter = new frmPrinter(dtDoctores, oListado, cTitulo);
//ParameterFieldInfo Obtiene o establece la colección de campos de parámetros.
ofrmPrinter.CrystalReportViewer1.ParameterFieldInfo = oParametrosCR;
ofrmPrinter.ShowDialog();
}
}
catch (Exception ex)
{
MessageBox.Show("Error : " + ex.Message, "Mostrando Reporte", MessageBoxButtons.OK,
MessageBoxIcon.Information);
clsExceptionLog.LogError(ex, false);
return;
}
}
private void GenerarReporte()
{
if (txtCedulaDoctor.Text == "")
{
MessageBox.Show("No se permite generar una Licencia Medica sin cedula del Doctor...");
txtCedulaDoctor.Focus();
}
else if (txtCedulaPaciente.Text == "")
{
MessageBox.Show("No se permite generar una Licencia Medica sin cedula del Paciente...");
txtCedulaPaciente.Focus();
}
else if (txtRazonLicencia.Text == "")
{
MessageBox.Show("No se permite generar una Licencia Medica sin la Razon descrita...");
txtRazonLicencia.Focus();
}
else
{
//clsConexion a la base de datos
MySqlConnection myclsConexion = new MySqlConnection(clsConexion.ConectionString);
// Creando el command que ejecutare
MySqlCommand myCommand = new MySqlCommand();
// Creando el Data Adapter
MySqlDataAdapter myAdapter = new MySqlDataAdapter();
// Creando el String Builder
StringBuilder sbQuery = new StringBuilder();
// Otras variables del entorno
string cWhere = " WHERE 1 = 1";
string cUsuario = frmLogin.cUsuarioActual;
string cTitulo = "";
int cCodigo = Convert.ToInt32(txtIdLicencia.Text);
try
{
// Abro clsConexion
myclsConexion.Open();
// Creo comando
myCommand = myclsConexion.CreateCommand();
// Adhiero el comando a la clsConexion
myCommand.Connection = myclsConexion;
// Filtros de la busqueda
int cCodigoImprimir = Convert.ToInt32(txtIdLicencia.Text);
cWhere = cWhere + " AND idlicencia =" + cCodigoImprimir + "";
sbQuery.Clear();
sbQuery.Append("SELECT licenciasmedicas.cedulapaciente, upper(rangos.rango_descripcion) as rangopaciente,");
sbQuery.Append(" concat(paciente.nombre,' ', paciente.apellido) as nombrepaciente, licenciasmedicas.fecha, ");
sbQuery.Append(" licenciasmedicas.razonlicencia, dependencias.nomdepart, seccionaval.nomsec,");
sbQuery.Append(" concat(rtrim(doctores.doctores_nombre),' ', ltrim(doctores.doctores_apellido)) as nombredoctor,");
sbQuery.Append(" rangos.rangoabrev as rangodoctor, especialidades.especialidades_descripcion as doctorespecialidad,");
sbQuery.Append(" licenciasmedicas.idlicencia ");
sbQuery.Append(" FROM licenciasmedicas");
sbQuery.Append(" INNER JOIN paciente ON paciente.cedula = licenciasmedicas.cedulapaciente");
sbQuery.Append(" INNER JOIN dependencias ON dependencias.coddepart = licenciasmedicas.dependencia");
sbQuery.Append(" INNER JOIN seccionaval ON seccionaval.codsec = licenciasmedicas.seccionaval");
sbQuery.Append(" INNER JOIN doctores ON doctores.doctores_cedula = licenciasmedicas.ceduladoctor");
sbQuery.Append(" INNER JOIN rangos ON rangos.rango_id = doctores.doctores_rango");
sbQuery.Append(" INNER JOIN especialidades ON especialidades.especialidades_id = doctores.doctores_especialidad");
sbQuery.Append(cWhere);
// Paso los valores de sbQuery al CommandText
myCommand.CommandText = sbQuery.ToString();
// Creo el objeto Data Adapter y ejecuto el command en el
myAdapter = new MySqlDataAdapter(myCommand);
// Creo el objeto Data Table
DataTable dtLicenciasMedicas = new DataTable();
// Lleno el data adapter
myAdapter.Fill(dtLicenciasMedicas);
// Cierro el objeto clsConexion
myclsConexion.Close();
// Verifico cantidad de datos encontrados
int nRegistro = dtLicenciasMedicas.Rows.Count;
if (nRegistro == 0)
{
MessageBox.Show("No Hay Datos Para Mostrar, Favor Verificar", "Sistema Dispensario Medico", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
else
{
//1ero.HACEMOS LA COLECCION DE PARAMETROS
//los campos de parametros contiene un objeto para cada campo de parametro en el informe
ParameterFields oParametrosCR = new ParameterFields();
//Proporciona propiedades para la recuperacion y configuracion del tipo de los parametros
ParameterValues oParametrosValuesCR = new ParameterValues();
//2do.CREAMOS LOS PARAMETROS
ParameterField oUsuario = new ParameterField();
//parametervaluetype especifica el TIPO de valor de parametro
//ParameterValueKind especifica el tipo de valor de parametro en la PARAMETERVALUETYPE de la Clase PARAMETERFIELD
oUsuario.ParameterValueType = ParameterValueKind.StringParameter;
//3ero.VALORES PARA LOS PARAMETROS
//ParameterDiscreteValue proporciona propiedades para la recuperacion y configuracion de
//parametros de valores discretos
ParameterDiscreteValue oUsuarioDValue = new ParameterDiscreteValue();
oUsuarioDValue.Value = cUsuario;
//4to. AGREGAMOS LOS VALORES A LOS PARAMETROS
oUsuario.CurrentValues.Add(oUsuarioDValue);
//5to. AGREGAMOS LOS PARAMETROS A LA COLECCION
oParametrosCR.Add(oUsuario);
//nombre del parametro en CR (Crystal Reports)
oParametrosCR[0].Name = "cUsuario";
//nombre del TITULO DEL INFORME
cTitulo = "LICENCIA MEDICA";
//6to Instanciamos nuestro REPORTE
//Reportes.ListadoDoctores oListado = new Reportes.ListadoDoctores();
Reportes.rptLicenciaMedica orptLicenciaMedica = new Reportes.rptLicenciaMedica();
//pasamos el nombre del TITULO del Listado
//SumaryInfo es un objeto que se utiliza para leer,crear y actualizar las propiedades del reporte
// oListado.SummaryInfo.ReportTitle = cTitulo;
orptLicenciaMedica.SummaryInfo.ReportTitle = cTitulo;
//7mo. instanciamos nuestro el FORMULARIO donde esta nuestro ReportViewer
frmPrinter ofrmPrinter = new frmPrinter(dtLicenciasMedicas, orptLicenciaMedica, cTitulo);
//ParameterFieldInfo Obtiene o establece la colección de campos de parámetros.
ofrmPrinter.CrystalReportViewer1.ParameterFieldInfo = oParametrosCR;
ofrmPrinter.ShowDialog();
}
}
catch (Exception myEx)
{
MessageBox.Show("Error : " + myEx.Message, "Mostrando Reporte", MessageBoxButtons.OK,
MessageBoxIcon.Information);
clsExceptionLog.LogError(myEx, false);
return;
}
}
}
private void ImprimirCaso()
{
MySqlConnection oCnn = new MySqlConnection(cCadenaclsConexion);
MySqlCommand oComando = new MySqlCommand();
MySqlDataAdapter oAdaptador = new MySqlDataAdapter();
DataTable dtCasomedico = new DataTable();
StringBuilder sbQuery = new StringBuilder();
string cWhere = "";
string cUsuario = frmLogin.cUsuarioActual;
string cTitulo = "";
//1ero. Creo mi comando
// El metodo CreateCommand Crea y devuelve un SqlCommand objeto asociado al SqlConnection .
oComando = oCnn.CreateCommand();
//2do. paso la cadena de coneccion al Commando
//la propiedad Connecti Obtiene o establece el SqlConnection utiliza esta instancia del SqlCommand.
oComando.Connection = oCnn;
//abro la coneccion
oCnn.Open();
if (rdoImprimeCaso.Checked)
{
cWhere = " where casomedico.idcasomedico = " + txtNoCaso.Text + "";
}
//if (rdoPaciente.Checked)
//{
// cWhere = " where paciente.id_paciente = " + cboPaciente.SelectedValue + "";
//}
if (rdoCedula.Checked)
{
cWhere = " where paciente.cedula = '" + txtCed.Text + "'";
}
sbQuery.Clear();
sbQuery.Append("select casomedico.idcasomedico,casomedico.cedula_doctor,casomedico.cedula_paciente,");
sbQuery.Append("casomedico.problema_descripcion,casomedico.problema_objetivo,casomedico.problema_accion,");
sbQuery.Append("casomedico.problema_prescripcion,casomedico.fecha,");
sbQuery.Append("doctores.doctores_cedula,doctores.doctores_nombre,");
sbQuery.Append("doctores.doctores_apellido,doctores.doctores_rango,doctores.doctores_especialidad,");
sbQuery.Append("paciente.cedula,paciente.rango,paciente.nombre,paciente.apellido,paciente.edad,");
sbQuery.Append("rangos.rango_descripcion,rangos.rangoabrev,");
sbQuery.Append("especialidades.especialidades_descripcion");
sbQuery.Append(" from casomedico");
sbQuery.Append(" left join doctores on doctores.doctores_cedula = casomedico.cedula_doctor");
sbQuery.Append(" left join especialidades on especialidades.especialidades_id = doctores.doctores_especialidad");
sbQuery.Append(" left join paciente on paciente.cedula = casomedico.cedula_paciente");
sbQuery.Append(" left join rangos on rangos.rango_id = paciente.rango");
sbQuery.Append(cWhere);
sbQuery.Append("");
sbQuery.Append("");
sbQuery.Append("");
sbQuery.Append("");
sbQuery.Append("");
oComando.CommandText = sbQuery.ToString();
oAdaptador = new MySqlDataAdapter(oComando);
oAdaptador.Fill(dtCasomedico);
int nRegistro = dtCasomedico.Rows.Count;
if (nRegistro == 0)
{
MessageBox.Show("No Hay Datos Para Mostrar, Favor Verificar", "Sistema Medico", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
else
{
//1ero.HACEMOS LA COLECCION DE PARAMETROS
//los campos de parametros contiene un objeto para cada campo de parametro en el informe
ParameterFields oParametrosCR = new ParameterFields();
//Proporciona propiedades para la recuperacion y configuracion del tipo de los parametros
ParameterValues oParametrosValuesCR = new ParameterValues();
//2do.CREAMOS LOS PARAMETROS
ParameterField oUsuario = new ParameterField();
//parametervaluetype especifica el TIPO de valor de parametro
//ParameterValueKind especifica el tipo de valor de parametro en la PARAMETERVALUETYPE de la Clase PARAMETERFIELD
oUsuario.ParameterValueType = ParameterValueKind.StringParameter;
//3ero.VALORES PARA LOS PARAMETROS
//ParameterDiscreteValue proporciona propiedades para la recuperacion y configuracion de
//parametros de valores discretos
ParameterDiscreteValue oUsuarioDValue = new ParameterDiscreteValue();
oUsuarioDValue.Value = cUsuario;
//4to. AGREGAMOS LOS VALORES A LOS PARAMETROS
oUsuario.CurrentValues.Add(oUsuarioDValue);
//5to. AGREGAMOS LOS PARAMETROS A LA COLECCION
oParametrosCR.Add(oUsuario);
//nombre del parametro en CR (Crystal Reports)
oParametrosCR[0].Name = "cUsuario";
//nombre del TITULO DEL INFORME
cTitulo = "REPORTE PROBLEMAS MEDICO";
//6to Instanciamos nuestro REPORTE
Reportes.ListadoDoctores oListado = new Reportes.ListadoDoctores();
//pasamos el nombre del TITULO del Listado
//SumaryInfo es un objeto que se utiliza para leer,crear y actualizar las propiedades del reporte
oListado.SummaryInfo.ReportTitle = cTitulo;
Reportes.RepProblemaMedicoPaciente oReporte = new Reportes.RepProblemaMedicoPaciente();
oReporte.SummaryInfo.ReportTitle = cTitulo;
frmPrinter ofrmPrimter = new frmPrinter(dtCasomedico, oReporte, cTitulo);
ofrmPrimter.CrystalReportViewer1.ParameterFieldInfo = oParametrosCR;
ofrmPrimter.ShowDialog();
}
}
private void cmdImprimir_Click(object sender, EventArgs e)
{
string cCero = "0";
string cAno = dates.Year(DateTime.Now).ToString();
string cMes = VFPToolkit.strings.PadL(dates.Month(DateTime.Now).ToString(), 2, Convert.ToChar(cCero));
string cDia = VFPToolkit.strings.PadL(dates.Day(DateTime.Now).ToString(), 2, Convert.ToChar(cCero));
string cFechaInicial = "" + cAno + "/" + cMes + "/" + cDia + "";
cAno = dates.Year(DateTime.Now).ToString();
cMes = VFPToolkit.strings.PadL(dates.Month(DateTime.Now).ToString(), 2, Convert.ToChar(cCero));
cDia = VFPToolkit.strings.PadL(dates.Day(DateTime.Now).ToString(), 2, Convert.ToChar(cCero));
string cFechafinal = "" + cAno + "/" + cMes + "/" + cDia + "";
// Inicio clsConexion y transacccion
MySql.Data.MySqlClient.MySqlConnection oCnn = new MySql.Data.MySqlClient.MySqlConnection(); // Objeto de clsConexion a la base de datos
MySql.Data.MySqlClient.MySqlDataAdapter daDatos = new MySql.Data.MySqlClient.MySqlDataAdapter(); // Objeto Adaptador para leer datos de la Base de datos
MySql.Data.MySqlClient.MySqlCommand cmdExec = new MySql.Data.MySqlClient.MySqlCommand(); // objeto comando para ejecutar sentencias sql
DataTable dtDatos = new DataTable(); // datatable para recibir los datos de la base de datos
StringBuilder sbQuery = new StringBuilder(); //Iniciar el cuadro de diálogo de entretenimiento:
MySqlTransaction oTransaccion = null;
this.Cursor = Cursors.WaitCursor;
oCnn.ConnectionString = clsConexion.ConectionString;
try
{
string cWhere = " and 1=1 ";
//Articulos
if (this.chkArticulos.Checked == false)
{
cWhere = cWhere + " AND trim(mproduct.cod_pro) = '" + this.cboArticulos.SelectedValue.ToString().Trim() + "'";
}
// Exsitencia
if (this.chkExistencia.Checked == false)
{
cWhere = cWhere + " AND mproduct.cant_exist > 0 ";
}
// Inventariable
if (this.chkInventario.Checked == false)
{
cWhere = cWhere + " AND mproduct.inventario = 1 ";
}
// familia
if (this.chkFamilia.Checked == false)
{
cWhere = cWhere + " AND trim(mproduct.cod_cat) = '" + this.cboFamilia.SelectedValue.ToString().Trim() + "'";
}
// subfamilia
if (this.chkSubfamilia.Checked == false)
{
cWhere = cWhere + " AND trim(mproduct.tipo_pro) = '" + this.cboFamilia.SelectedValue.ToString().Trim() + "'";
}
oCnn.Open();
cmdExec = oCnn.CreateCommand();
cmdExec.Connection = oCnn;
cmdExec.CommandTimeout = 0; // para consultas largas
sbQuery.Clear();
sbQuery.Append("select mproduct.*, ");
sbQuery.Append("config.empresa, config.direccion, config.dependencia,config.telefono1,config.telefono2,config.fax,config.rnc, ");
sbQuery.Append("config.email, config.website, config.jefe,config.rango_jefe,config.rango_dir,config.director,config.logobmp ");
sbQuery.Append(" from mproduct, config ");
sbQuery.Append(" where 1=1 ");
sbQuery.Append(cWhere);
sbQuery.Append(" order by des_pro ");
// temporal
VFPToolkit.strings.StrToFile(sbQuery.ToString(), @"consulta.sql", true);
cmdExec.CommandText = sbQuery.ToString();
daDatos = new MySqlDataAdapter(cmdExec);
DataSet dsMovBan2 = new DataSet();
daDatos.Fill(dsMovBan2);
int nRegistros = dsMovBan2.Tables[0].Rows.Count;
if (nRegistros == 0)
{
MessageBox.Show("No hay información para mostrar, favor verificar", "Mostrando Reporte de Movimientos Bancarios", MessageBoxButtons.OK,
MessageBoxIcon.Information);
CursorDefault();
return;
}
oCnn.Close();
// Parametros de Fecha para visualizar en el Reporte CR
DateTime dFechaInicial = Convert.ToDateTime(DateTime.Now);
DateTime dFechaFinal = Convert.ToDateTime(DateTime.Now);
String cUsuario = frmLogin.cUsuarioActual;
string cTitulo = "Listado de Articulos y Existencia ";
// Colecciones
ParameterFields oParametrosCR = new ParameterFields();
ParameterValues oParametrosValuesCR = new ParameterValues();
// parametros
ParameterField oFechaInicial = new ParameterField();
ParameterField oFechaFinal = new ParameterField();
ParameterField oUsuario = new ParameterField();
ParameterField oTitulo = new ParameterField();
oFechaInicial.ParameterValueType = ParameterValueKind.DateParameter;
oFechaFinal.ParameterValueType = ParameterValueKind.DateParameter;
oUsuario.ParameterValueType = ParameterValueKind.StringParameter;
oTitulo.ParameterValueType = ParameterValueKind.StringParameter;
// Valores para los prametros
ParameterDiscreteValue oFechaInicialDValue = new ParameterDiscreteValue();
ParameterDiscreteValue oFechaFinalDValue = new ParameterDiscreteValue();
ParameterDiscreteValue oUsuarioDValue = new ParameterDiscreteValue();
ParameterDiscreteValue oTituloDValue = new ParameterDiscreteValue();
oFechaInicialDValue.Value = dFechaInicial;
oFechaFinalDValue.Value = dFechaFinal;
oUsuarioDValue.Value = cUsuario;
oTituloDValue.Value = cTitulo;
// Agrego los valores a los parametros
oFechaInicial.CurrentValues.Add(oFechaInicialDValue);
oFechaFinal.CurrentValues.Add(oFechaFinalDValue);
oUsuario.CurrentValues.Add(oUsuarioDValue);
oTitulo.CurrentValues.Add(oTituloDValue);
// Agrego los parametros a la coleccion
oParametrosCR.Clear();
oParametrosCR.Add(oTitulo);
oParametrosCR.Add(oUsuario);
oParametrosCR.Add(oFechaInicial);
oParametrosCR.Add(oFechaFinal);
// Nombre del Parametro en CR
oParametrosCR[0].Name = "cTitulo";
oParametrosCR[1].Name = "cUsuario";
oParametrosCR[2].Name = "dFechaInicial";
oParametrosCR[3].Name = "dFechaFinal";
// oReporte.DataDefinition.ParameterFields("@dFechaInicial").ApplyCurrentValues(oParametrosCR[0]);
// oReporte.DataDefinition.ParameterFields("@dFechaFinal").ApplyCurrentValues(oParametrosCR[1]);
Reportes.rptArticulos oReporte = new Reportes.rptArticulos();
frmPrinter ofrmPrinter = new frmPrinter(dsMovBan2.Tables[0], oReporte, cTitulo);
ofrmPrinter.CrystalReportViewer1.ParameterFieldInfo = oParametrosCR;
ofrmPrinter.ShowDialog();
CursorDefault();
}
catch (Exception ex)
{
MessageBox.Show("Error : " + ex.Message, "Mostrando Reporte", MessageBoxButtons.OK,
MessageBoxIcon.Information);
clsExceptionLog.LogError(ex, false);
CursorDefault();
return;
}
}
