AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cambios PDF API-Sali

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-08-10 17:21:22 -07:00
parent d6ab951325
commit c3fc1a24da
1 changed files with 30 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
Ashx/GenerarPDFFactura.ashx
View File

@@ -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