diff --git a/Ventas/RepPS.aspx.vb b/Ventas/RepPS.aspx.vb
index 5777ccdf8..95092920d 100644
--- a/Ventas/RepPS.aspx.vb
+++ b/Ventas/RepPS.aspx.vb
@@ -149,7 +149,12 @@ Partial Class Ventas_RepPS
                 params.Add(New ReportParameter("LogoPath", ""))
             End If
             params.Add(New ReportParameter("Parametros", SbParametros.ToString()))
-            ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/RepPS.rdlc", DtReporte, params, "ReportePS")
+
+            If System.IO.File.Exists($"{Server.MapPath("/")}/Empresas/{UsuarioActual.CveEmpresa}/Formatos/RepPS.rdlc") Then
+                ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/RepPS.rdlc", DtReporte, params, "ReportePS")
+            Else
+                ImprimirPDF($"Empresas/Grales/Formatos/RepPS.rdlc", DtReporte, params, "ReportePS")
+            End If
         Else
             Alert("No hay información para mostrar.", TipoMensaje.MsgAdvertencia)
         End If
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)