diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index e9235b586..130b13970 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -8768,8 +8768,7 @@ Partial Class Ventas
         Dim totIVA As Decimal = Obj.IVA
         Dim totRetIVA As Decimal = Obj.RetIVA
         Dim totRetISR As Decimal = Obj.RetISR
-        Dim TasaRetIVA As Decimal = LblRetIVA.Text.ToDecimal / 100
-        Dim TasaRetISR As Decimal = LblRetISR.Text.ToDecimal / 100
+
         Dim i As Integer = 1
 
         'detalles
@@ -8818,11 +8817,11 @@ Partial Class Ventas
             End If
 
             If drr("ImporteRetIVA").ToString.ToDouble > 0 Then 'si hay retenciones
-                concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = TasaRetIVA, .Impuesto = "002", .Importe = drr("ImporteRetIVA").ToString.ToDecimal})
+                concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeRetIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteRetIVA").ToString.ToDecimal})
             End If
 
             If drr("ImporteRetISR").ToString.ToDouble > 0 Then 'retención de ISR
-                concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = TasaRetISR, .Impuesto = "001", .Importe = drr("ImporteRetISR").ToString.ToDecimal})
+                concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeRetISR").ToString.ToDecimal, .Impuesto = "001", .Importe = drr("ImporteRetISR").ToString.ToDecimal})
             End If
 
             Timbre.Conceptos.Add(concepto)