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