From c3fc1a24dac9e177a1650f9b0e100bc63104d6e9 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 10 Aug 2020 17:21:22 -0700 Subject: [PATCH] Cambios PDF API-Sali --- Ashx/GenerarPDFFactura.ashx | 31 ++++++++++++++++++++++++++++++- 1 file changed, 30 insertions(+), 1 deletion(-) diff --git a/Ashx/GenerarPDFFactura.ashx b/Ashx/GenerarPDFFactura.ashx index b6a4e841c..e1b597879 100644 --- a/Ashx/GenerarPDFFactura.ashx +++ b/Ashx/GenerarPDFFactura.ashx @@ -44,7 +44,13 @@ Public Class GenerarPDFFactura : Implements IHttpHandler Dim ListaDS = New List(Of ReportDataSource) Dim Parametros As New List(Of ReportParameter) - Dim Formato = ModExtensiones.DirectorioBaseEmpresas + "Empresas/Grales/ReporteAPI.rdlc" + Dim Formato As String = "" + + If datos.API_SALI Then + Formato = ModExtensiones.DirectorioBaseEmpresas + "Empresas/Grales/ReporteAPISali.rdlc" + Else + Formato = ModExtensiones.DirectorioBaseEmpresas + "Empresas/Grales/ReporteAPI.rdlc" + End If Parametros.Add(New ReportParameter("Empresa", datos.Empresa.Empresa)) Parametros.Add(New ReportParameter("RFC", datos.Empresa.RFC)) @@ -69,6 +75,7 @@ Public Class GenerarPDFFactura : Implements IHttpHandler Parametros.Add(New ReportParameter("UsoCFDI", datos.Factura.UsoCFDI)) Parametros.Add(New ReportParameter("Vencimiento", datos.Factura.FechaVencimiento)) Parametros.Add(New ReportParameter("SubTotal", datos.Factura.SubTotal)) + Parametros.Add(New ReportParameter("Descuentos", datos.Factura.Descuentos)) Parametros.Add(New ReportParameter("IVA", datos.Factura.IVA)) Parametros.Add(New ReportParameter("IEPS", datos.Factura.IEPS)) Parametros.Add(New ReportParameter("Total", datos.Factura.Total)) @@ -81,8 +88,17 @@ Public Class GenerarPDFFactura : Implements IHttpHandler DtDatos.Columns.Add(New DataColumn("PU", GetType(Decimal))) DtDatos.Columns.Add(New DataColumn("IVA", GetType(Decimal))) DtDatos.Columns.Add(New DataColumn("IEPS", GetType(Decimal))) + DtDatos.Columns.Add(New DataColumn("Descuento", GetType(Decimal))) DtDatos.Columns.Add(New DataColumn("Total", GetType(Decimal))) + Dim DtImpuestos As New DataTable + DtImpuestos.Columns.Add(New DataColumn("Impuesto", GetType(String))) + DtImpuestos.Columns.Add(New DataColumn("Tipo", GetType(String))) + DtImpuestos.Columns.Add(New DataColumn("Base", GetType(Decimal))) + DtImpuestos.Columns.Add(New DataColumn("TipoFactor", GetType(String))) + DtImpuestos.Columns.Add(New DataColumn("TasaOCuota", GetType(String))) + DtImpuestos.Columns.Add(New DataColumn("Importe", GetType(Decimal))) + For Each PS In datos.Factura.ListaProductos Dim Row = DtDatos.NewRow() Row("Cantidad") = PS.Cantidad @@ -91,12 +107,24 @@ Public Class GenerarPDFFactura : Implements IHttpHandler Row("PU") = PS.PU Row("IVA") = PS.IVA Row("IEPS") = PS.IEPS + Row("Descuento") = PS.Descuento Row("Total") = (PS.Cantidad * PS.PU) + PS.IVA + PS.IEPS DtDatos.Rows.Add(Row) Next + Dim RowImpuesto = DtImpuestos.NewRow() + RowImpuesto("Impuesto") = "IVA" + RowImpuesto("Tipo") = "Traslado" + RowImpuesto("Base") = datos.Factura.SubTotal + RowImpuesto("TipoFactor") = "Tasa" + RowImpuesto("TasaOCuota") = "16%" + RowImpuesto("Importe") = datos.Factura.IVA + + DtImpuestos.Rows.Add(RowImpuesto) + ListaDS.Add(New ReportDataSource("DsProductos", DtDatos)) + ListaDS.Add(New ReportDataSource("DsImpuestos", DtImpuestos)) ImprimirbytesPDF(context, StreamPDF(context, Formato, ListaDS, Parametros), "Factura") End If @@ -337,6 +365,7 @@ Public Class GenerarPDFFactura : Implements IHttpHandler Public Property Cliente As ClienteWS Public Property Empresa As EmpresaWS Public Property Timbrado As DatosSATWS + Public Property API_SALI As Boolean End Class