public virtual CrystalDecisions.CrystalReports.Engine.ReportDocument CreateReport() { CR007 rpt = new CR007(); rpt.Site = this.Site; return(rpt); }
private void Report_Factura_code_Load(object sender, EventArgs e) { string gIdent = this.GetType().FullName + " " + System.Reflection.MethodBase.GetCurrentMethod().Name; GloblaVar.gUTIL.CartelTraza("ENTRADA a " + this.GetType().FullName); CrystalDecisions.CrystalReports.Engine.ReportDocument myReport; myReport = new Report_Factura_Carabal(); GloblaVar.gUTIL.ATraza(" Usuario " + frmPpal.USUARIO); switch (frmPpal.USUARIO) { case "1": myReport = new Report_Factura_Llorens(); break; case "2": if (SubSerie == "ASG") { myReport = new CR007(); } else { myReport = new Report_Factura_Carabal(); } SubSerie = ""; break; case "5": myReport = new Report_Factura_Dialpesca(); break; case "8": myReport = new Report_Factura_Valpeix(); break; default: break; } CrystalDecisions.Shared.TableLogOnInfo tliActual; //leer cadena de conexión string server = GloblaVar.gREMOTO_SERVER; string database = GloblaVar.gREMOTO_BD; //string userid = "reports"; //string paswd = "crystal"; foreach (CrystalDecisions.CrystalReports.Engine.Table tbA in myReport.Database.Tables) { tliActual = tbA.LogOnInfo; tliActual.ConnectionInfo.ServerName = server; //"localhost\\SQLEXPRESS"; tliActual.ConnectionInfo.DatabaseName = database; //"OREMAPEREMdb"; tliActual.ConnectionInfo.UserID = ""; tliActual.ConnectionInfo.Password = ""; tliActual.ConnectionInfo.IntegratedSecurity = true; tbA.ApplyLogOnInfo(tliActual); GloblaVar.gUTIL.ATraza(gIdent + " Conectando a servidor " + server + " Base de datos " + database); } myReport.DataDefinition.RecordSelectionFormula = "{command.Factura}=" + factura.Factura + " and {command.Serie}='" + factura.Serie + "' and {command.Anyo}=" + factura.Anyo; myReport.SetParameterValue("idfactura", factura.Anyo + "/" + factura.Factura); myReport.SetParameterValue("serie", serie); myReport.SetParameterValue("base_imponible", base_imponible); myReport.SetParameterValue("iva", iva); myReport.SetParameterValue("recargo", recargo); myReport.SetParameterValue("importe_total", total_importe); myReport.SetParameterValue("datos_mayorista", datos_mayorista); myReport.SetParameterValue("detnom", detnom); myReport.SetParameterValue("detcod", detcod); myReport.SetParameterValue("detvia", detvia); myReport.SetParameterValue("detmun", detmun); myReport.SetParameterValue("detnif", detnif); myReport.SetParameterValue("fecha", factura.FechaEmision); myReport.SetParameterValue("texto_cabecera", texto_cabecera); myReport.SetParameterValue("observaciones", observaciones); myReport.SetParameterValue("texto_pie", texto_pie); //myReport.SetParameterValue("total_pagina", "1"); crystalReportViewer1.ReportSource = myReport; crystalReportViewer1.SelectionFormula = "{command.Factura}=" + factura.Factura + " and {command.Serie}='" + factura.Serie + "' and {command.Anyo}=" + factura.Anyo; //crystalReportViewer1.ShowLastPage(); //string TotalPage = crystalReportViewer1.GetCurrentPageNumber().ToString(); //crystalReportViewer1.ShowFirstPage(); //recargar el total páginas //myReport.SetParameterValue("total_pagina", "/" + TotalPage); //crystalReportViewer1.ReportSource = myReport; crystalReportViewer1.Zoom(75); }
private void Imprimir_Factura(clase_factcom factura) { string gIdent = this.GetType().FullName + " " + System.Reflection.MethodBase.GetCurrentMethod().Name; GloblaVar.gUTIL.ATraza("Ejecutando " + this.GetType().FullName); string base_imponible = ""; string iva = ""; string recargo = ""; string total_importe = ""; string detcod = "", detnom = "", detvia = "", detmun = "", detnif = "", detEMail = ""; string texto_cabecera = ""; string observaciones = ""; string texto_pie = ""; string strQ = "SELECT * FROM FACTC_CABE WHERE Factura=" + factura.Factura + " AND Anyo=" + factura.Anyo + " AND Serie='" + factura.Serie + "'"; GloblaVar.gUTIL.ATraza("Se va a imprimir la factura " + factura.Factura + "-" + factura.Serie + "/" + factura.Anyo); SqlDataReader myReader = null; try { //SqlDataReader myReader = null; SqlCommand myCommand = new SqlCommand(strQ, CnO); myReader = myCommand.ExecuteReader(); while (myReader.Read()) { base_imponible = myReader["BI1"].ToString(); iva = myReader["IVA1"].ToString(); recargo = myReader["RE1"].ToString(); total_importe = myReader["ImpteFactura"].ToString(); texto_cabecera = myReader["TextoCabe"].ToString(); observaciones = myReader["Observaciones"].ToString(); texto_pie = myReader["TextoPie"].ToString(); if (myReader["SubSerie"] != DBNull.Value) { SubSerie = myReader["SubSerie"].ToString(); } } //myReader.Close(); } catch (Exception ex) { MessageBox.Show(ex.ToString()); return; } finally { myReader.Close(); } //datos del detallista strQ = "SELECT DetCod, DetNom, detvia, DetCop, DetMun, DetNif, DetEMail FROM DETALLISTAS WHERE DetCod=" + factura.ProCod; try { SqlCommand myCommand = new SqlCommand(strQ, CnO); myReader = myCommand.ExecuteReader(); while (myReader.Read()) { detcod = myReader["DetCod"].ToString(); detnom = myReader["DetNom"].ToString(); detvia = myReader["detvia"].ToString(); detmun = myReader["DetCop"].ToString() + " " + myReader["DetMun"].ToString(); detnif = myReader["DetNif"].ToString(); detEMail = myReader["DetEMail"].ToString(); } } catch (Exception ex) { MessageBox.Show(ex.ToString()); return; } finally { myReader.Close(); } /////// GloblaVar.gUTIL.ATraza("Leidos datos de cabecera y detallista"); CrystalDecisions.CrystalReports.Engine.ReportDocument myReport; if (SubSerie == "ASG") { myReport = new CR007(); } else { myReport = new Report_Factura_Carabal(); } GloblaVar.gUTIL.ATraza(" Usuario " + frmPpal.USUARIO); switch (frmPpal.USUARIO) { case "1": myReport = new Report_Factura_Llorens(); break; case "2": if (SubSerie == "ASG") { myReport = new CR007(); } else { myReport = new Report_Factura_Carabal(); } break; case "5": myReport = new Report_Factura_Dialpesca(); break; case "8": myReport = new Report_Factura_Valpeix(); break; default: break; } CrystalDecisions.Shared.TableLogOnInfo tliActual; //leer cadena de conexión string server = GloblaVar.gREMOTO_SERVER; string database = GloblaVar.gREMOTO_BD; foreach (CrystalDecisions.CrystalReports.Engine.Table tbA in myReport.Database.Tables) { GloblaVar.gUTIL.ATraza("El report se conecta al server " + server + " Base datos " + database); tliActual = tbA.LogOnInfo; tliActual.ConnectionInfo.ServerName = server; //"localhost\\SQLEXPRESS"; tliActual.ConnectionInfo.DatabaseName = database; //"OREMAPEREMdb"; tliActual.ConnectionInfo.UserID = ""; tliActual.ConnectionInfo.Password = ""; tliActual.ConnectionInfo.IntegratedSecurity = true; tbA.ApplyLogOnInfo(tliActual); } myReport.DataDefinition.RecordSelectionFormula = "{command.Factura}=" + factura.Factura + " and {command.Serie}='" + factura.Serie + "' and {command.Anyo}=" + factura.Anyo; myReport.SetParameterValue("idfactura", factura.Anyo + "/" + factura.Factura); myReport.SetParameterValue("serie", factura.Serie); myReport.SetParameterValue("base_imponible", Funciones.Formatea(base_imponible)); myReport.SetParameterValue("iva", Funciones.Formatea(iva)); myReport.SetParameterValue("recargo", Funciones.Formatea(recargo)); myReport.SetParameterValue("importe_total", Funciones.Formatea(total_importe)); myReport.SetParameterValue("datos_mayorista", frmPpal.DATOS_MAYORISTA); myReport.SetParameterValue("detcod", detcod); myReport.SetParameterValue("detnom", detnom); myReport.SetParameterValue("detvia", detvia); myReport.SetParameterValue("detmun", detmun); myReport.SetParameterValue("detnif", detnif); myReport.SetParameterValue("fecha", factura.FechaEmision); myReport.SetParameterValue("texto_cabecera", texto_cabecera); myReport.SetParameterValue("observaciones", observaciones); myReport.SetParameterValue("texto_pie", texto_pie); myReport.PrintToPrinter(1, false, 0, 0); //primera copia }
private void CrearPDF(object sender, EventArgs e) { //función que crea el PDF de la factura clase_factcom factura = (clase_factcom)((ToolStripMenuItem)sender).Tag; this.Cursor = Cursors.WaitCursor; string base_imponible = ""; string iva = ""; string recargo = ""; string total_importe = ""; string detcod = "", detnom = "", detvia = "", detmun = "", detnif = "", detEMail = ""; string texto_cabecera = ""; string observaciones = ""; string texto_pie = ""; string serie = ""; string strQ = "SELECT * FROM FACTV_CABE WHERE Factura=" + factura.Factura + " AND Anyo=" + factura.Anyo + " AND Serie='" + factura.Serie + "'"; SqlDataReader myReader = null; try { //SqlDataReader myReader = null; SqlCommand myCommand = new SqlCommand(strQ, CnO); myReader = myCommand.ExecuteReader(); while (myReader.Read()) { serie = myReader["Serie"].ToString(); base_imponible = myReader["BI1"].ToString(); iva = myReader["IVA1"].ToString(); recargo = myReader["RE1"].ToString(); total_importe = myReader["ImpteFactura"].ToString(); texto_cabecera = myReader["TextoCabe"].ToString(); observaciones = myReader["Observaciones"].ToString(); texto_pie = myReader["TextoPie"].ToString(); if (myReader["SubSerie"] != DBNull.Value) { SubSerie = myReader["SubSerie"].ToString(); } } //myReader.Close(); } catch (Exception ex) { MessageBox.Show(ex.ToString()); return; } finally { myReader.Close(); } //datos del detallista strQ = "SELECT ProCod, ProNom, ProDom, ProPob, ProCop, ProCif, ProEMail FROM PROVEEDORES WHERE ProCod=" + factura.ProCod; try { SqlCommand myCommand = new SqlCommand(strQ, CnO); myReader = myCommand.ExecuteReader(); while (myReader.Read()) { detcod = myReader["ProCod"].ToString(); detnom = myReader["ProNom"].ToString(); detvia = myReader["ProDom"].ToString(); detmun = myReader["ProCop"].ToString() + " " + myReader["ProPob"].ToString(); detnif = myReader["ProCif"].ToString(); detEMail = myReader["ProEMail"].ToString(); } } catch (Exception ex) { MessageBox.Show(ex.ToString()); return; } finally { myReader.Close(); } /////// string gIdent = this.GetType().FullName + " " + System.Reflection.MethodBase.GetCurrentMethod().Name; GloblaVar.gUTIL.CartelTraza("ENTRADA a " + this.GetType().FullName); CrystalDecisions.CrystalReports.Engine.ReportDocument myReport; myReport = new Report_Factura_Carabal(); GloblaVar.gUTIL.ATraza(" Usuario " + frmPpal.USUARIO); switch (frmPpal.USUARIO) { case "1": myReport = new Report_Factura_Llorens(); break; case "2": if (SubSerie == "ASG") { myReport = new CR007(); } else { myReport = new Report_Factura_Carabal(); } break; case "5": myReport = new Report_Factura_Dialpesca(); break; case "8": myReport = new Report_Factura_Valpeix(); break; default: break; } CrystalDecisions.Shared.TableLogOnInfo tliActual; //leer cadena de conexión string server = GloblaVar.gREMOTO_SERVER; string database = GloblaVar.gREMOTO_BD; foreach (CrystalDecisions.CrystalReports.Engine.Table tbA in myReport.Database.Tables) { tliActual = tbA.LogOnInfo; tliActual.ConnectionInfo.ServerName = server; //"localhost\\SQLEXPRESS"; tliActual.ConnectionInfo.DatabaseName = database; //"OREMAPEREMdb"; tliActual.ConnectionInfo.UserID = ""; tliActual.ConnectionInfo.Password = ""; tliActual.ConnectionInfo.IntegratedSecurity = true; tbA.ApplyLogOnInfo(tliActual); } myReport.DataDefinition.RecordSelectionFormula = "{command.Factura}=" + factura.Factura + " and {command.Serie}='" + factura.Serie + "' and {command.Anyo}=" + factura.Anyo; myReport.SetParameterValue("idfactura", factura.Anyo + "/" + factura.Factura); myReport.SetParameterValue("serie", serie); myReport.SetParameterValue("base_imponible", Funciones.Formatea(base_imponible)); myReport.SetParameterValue("iva", Funciones.Formatea(iva)); myReport.SetParameterValue("recargo", Funciones.Formatea(recargo)); myReport.SetParameterValue("importe_total", Funciones.Formatea(total_importe)); myReport.SetParameterValue("datos_mayorista", frmPpal.DATOS_MAYORISTA); myReport.SetParameterValue("detnom", detnom); myReport.SetParameterValue("detcod", detcod); myReport.SetParameterValue("detvia", detvia); myReport.SetParameterValue("detmun", detmun); myReport.SetParameterValue("detnif", detnif); myReport.SetParameterValue("fecha", factura.FechaEmision); myReport.SetParameterValue("texto_cabecera", texto_cabecera); myReport.SetParameterValue("observaciones", observaciones); myReport.SetParameterValue("texto_pie", texto_pie); //crear factura en PDF string nomFactura = "", directorio = "", diskFileName = "", fecha = "", directorioFacturasPDF = ""; DateTime fechaEmision = Convert.ToDateTime(factura.FechaEmision); try { //damos formato a la fecha de emision de la factura fecha = fechaEmision.Year.ToString() + fechaEmision.Month.ToString().PadLeft(2, '0') + fechaEmision.Day.ToString().PadLeft(2, '0'); nomFactura = "Factura_" + fecha + "_" + factura.Factura.PadLeft(5, '0') + "_" + factura.Serie + ".pdf"; //comprueba si existe el directorio y si no lo crea directorioFacturasPDF = GloblaVar.gCERCLE_103; directorio = CrearDirectorio(@directorioFacturasPDF, detcod.PadLeft(5, '0')); diskFileName = directorio + "\\" + nomFactura; myReport.ExportToDisk(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, diskFileName); } catch (Exception ex) { MessageBox.Show("Error al crear la factura en PDF:\n\n" + ex.ToString()); return; } if (((ToolStripMenuItem)sender).Name == "Crear") { MessageBox.Show(nomFactura + " ha sido creada correctamente"); } else { //enviar factura por email if (!detEMail.Contains('@')) { MessageBox.Show("El detallista " + detnom + " con el código " + detcod + " no tiene un correo válido."); } else { if (CnO != null) { ConEDNSSMTP = ""; ConEMail = ""; ConAutPwd = ""; CargarDatosControlMayorista(); } if (!string.IsNullOrEmpty(ConEDNSSMTP) && !string.IsNullOrEmpty(ConEMail) && !string.IsNullOrEmpty(ConAutPwd)) { SmtpClient clienteCorreo = new SmtpClient(ConEDNSSMTP, 587); clienteCorreo.EnableSsl = true; clienteCorreo.DeliveryMethod = SmtpDeliveryMethod.Network; clienteCorreo.UseDefaultCredentials = false; clienteCorreo.Credentials = new NetworkCredential(ConEMail, ConAutPwd); try { MailMessage mensaje = new MailMessage(); mensaje.From = new MailAddress(ConEMail); mensaje.To.Add(detEMail.Trim()); mensaje.Subject = nomFactura; mensaje.SubjectEncoding = System.Text.Encoding.UTF8; mensaje.Body = "Factura adjunta"; mensaje.BodyEncoding = System.Text.Encoding.UTF8; using (Attachment adjunto = new Attachment(diskFileName)) { ContentDisposition contentDisposition = adjunto.ContentDisposition; contentDisposition.CreationDate = File.GetCreationTime(diskFileName); contentDisposition.ModificationDate = File.GetLastWriteTime(diskFileName); contentDisposition.ReadDate = File.GetLastAccessTime(diskFileName); mensaje.Attachments.Add(adjunto); clienteCorreo.Send(mensaje); mensaje = null; } MessageBox.Show(nomFactura + " enviada correctamente"); } catch (Exception ex) { MessageBox.Show("Error al enviar la factura:\n\n" + ex.ToString()); } } else { MessageBox.Show("El mayorista no tiene configurados los datos para enviar correos"); } } } this.Cursor = Cursors.Default; }