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; } }