Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

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