cambio en PAC 3, al timbrado sin impuestos

App_Code/Timbrado.vb

@@ -2981,9 +2981,11 @@ Public Class Timbrado
                 comprobante.Conceptos(i).ClaveProdServ = concep.ClaveProdServ
 
                 If ObjCFDITimbre.Comprobante.TipoComprobante <> "P" Then
+                    If concep.Descuento > 0 Then
                         comprobante.Conceptos(i).Descuento = concep.Descuento
                         comprobante.Conceptos(i).DescuentoSpecified = True
                     End If
+                End If
 
                 If concep.Noidentificacion <> "" Then comprobante.Conceptos(i).NoIdentificacion = concep.Noidentificacion
                 If concep.CuentaPredial <> "" Then comprobante.Conceptos(i).CuentaPredial = New Profact.TimbraCFDI33.ComprobanteConceptoCuentaPredial() With {.Numero = concep.CuentaPredial}
@@ -2996,12 +2998,15 @@ Public Class Timbrado
                 k = 0
                 'SI NO ES FACTURA EN 0 AGREGA LOS IMPUESTOS
                 If Not ObjCFDITimbre.Comprobante.TipoComprobante.Contiene("P", "N") AndAlso (Ventas.Total <> 0 OrElse (ObjCFDITimbre.TotalImpuestosRetenidos > 0 OrElse ObjCFDITimbre.TotalImpuestosTrasladados > 0)) Then
+
+                    If concep.Impuestos.Count > 0 Then
+
                         comprobante.Conceptos(i).Impuestos = New Profact.TimbraCFDI33.ComprobanteConceptoImpuestos()
                         comprobante.Conceptos(i).Impuestos.Traslados = New Profact.TimbraCFDI33.ComprobanteConceptoImpuestosTraslado(concep.Impuestos.FindAll(Function(p As CFDIConceptosImpuestos) p.TrasladooRetencion = "T").Count - 1) {}
                         If concep.Impuestos.FindAll(Function(p As CFDIConceptosImpuestos) p.TrasladooRetencion <> "T").Count > 0 Then
                             comprobante.Conceptos(i).Impuestos.Retenciones = New Profact.TimbraCFDI33.ComprobanteConceptoImpuestosRetencion(concep.Impuestos.FindAll(Function(p As CFDIConceptosImpuestos) p.TrasladooRetencion <> "T").Count - 1) {}
-
                         End If
+
                         For Each imp As CFDIConceptosImpuestos In concep.Impuestos
                             If imp.TrasladooRetencion = "T" Then
                                 comprobante.Conceptos(i).Impuestos.Traslados(j) = New Profact.TimbraCFDI33.ComprobanteConceptoImpuestosTraslado()
@@ -3023,6 +3028,9 @@ Public Class Timbrado
                                 k += 1
                             End If
                         Next
+
+                    End If
+
                 End If
                 i += 1
             Next