diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 55b31a532..d8c2d3080 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -22354,6 +22354,8 @@ Partial Class Compras_Compras
         TmpDTProrrateoGasolina.Columns.Add("RetISR", GetType(Decimal))
         TmpDTProrrateoGasolina.Columns.Add("Total", GetType(Decimal))
         TmpDTProrrateoGasolina.Columns.Add("PorcentajeIVA", GetType(Decimal))
+        TmpDTProrrateoGasolina.Columns.Add("RetISRPorcentaje", GetType(Decimal))
+        TmpDTProrrateoGasolina.Columns.Add("RetIVAPorcentaje", GetType(Decimal))
 
         TmpDTProrrateoGasolina.Columns.Add("CveUM", GetType(Integer))
         TmpDTProrrateoGasolina.Columns.Add("CveClasificacion", GetType(Integer))
@@ -22518,13 +22520,13 @@ Partial Class Compras_Compras
         nRow("SubProyecto") = SubProyecto
 
         'If CveFactura > 0 Then
-        '    nRow("IVA") = ivaParcial.RoundSQL(4)
-        '    nRow("RetIVA") = retIvaParcial.RoundSQL(4)
-        '    nRow("RetISR") = retIsrParcial.RoundSQL(4)
+        nRow("IVA") = ivaParcial.RoundSQL(4)
+        nRow("RetIVA") = retIvaParcial.RoundSQL(4)
+        nRow("RetISR") = retIsrParcial.RoundSQL(4)
         'Else
-        nRow("IVA") = (ivaParcial / subtotalParcial).RoundSQL(4)
-        nRow("RetIVA") = (retIvaParcial / subtotalParcial).RoundSQL(4)
-        nRow("RetISR") = (retIsrParcial / subtotalParcial).RoundSQL(4)
+        'nRow("IVA") = (ivaParcial / subtotalParcial).RoundSQL(4)
+        'nRow("RetIVA") = (retIvaParcial / subtotalParcial).RoundSQL(4)
+        'nRow("RetISR") = (retIsrParcial / subtotalParcial).RoundSQL(4)
         'End If
 
         nRow("SubTotal") = subtotalParcial.RoundSQL(4)
@@ -22533,6 +22535,8 @@ Partial Class Compras_Compras
         nRow("PorcentajeIVA") = (ivaParcial / subtotalParcial).RoundSQL(4)
         nRow("Porcentaje") = ((totalParcialDeseado.RoundSQL(4) * 100) / TotalOriginal).RoundSQL(2)
 
+        nRow("RetIVAPorcentaje") = (retIvaParcial / subtotalParcial).RoundSQL(4)
+        nRow("RetISRPorcentaje") = (retIsrParcial / subtotalParcial).RoundSQL(4)
 
         nRow("CveUM") = CveUM
         nRow("UM") = UM
@@ -22584,7 +22588,8 @@ Partial Class Compras_Compras
             TmpDT.Rows.Clear()
             For Each dRow As DataRow In DTProrrateoGasolina.Rows
                 AddPS(1, dRow("CveUM").ToString.ToEntero, dRow("UM").ToString, dRow("CveClasificacion").ToString.ToEntero, dRow("Clasificacion").ToString, dRow("CvePS").ToString.ToEntero, dRow("PS").ToString, 1, dRow("CveSubProyecto").ToString, dRow("SubProyecto").ToString, "",
-                      "-1", "", dRow("SubTotal").ToString.ToDecimal, dRow("Total").ToString.ToDecimal, dRow("PorcentajeIVA").ToString.ToDecimal, dRow("RetIVA").ToString.ToDecimal, dRow("RetISR").ToString.ToDecimal, 0, 0, 0, PorcentajeIVA:=dRow("PorcentajeIVA").ToString.ToDecimal)
+                      "-1", "", dRow("SubTotal").ToString.ToDecimal, dRow("Total").ToString.ToDecimal, dRow("IVA").ToString.ToDecimal, dRow("RetIVA").ToString.ToDecimal, dRow("RetISR").ToString.ToDecimal, 0, 0, 0, PorcentajeIVA:=dRow("PorcentajeIVA").ToString.ToDecimal,
+                      CargaXml:=True, PorcentajeRetIVA:=dRow("RetIVAPorcentaje").ToString.ToDecimal, PorcentajeRetISR:=dRow("RetISRPorcentaje").ToString.ToDecimal)
             Next
 
             AddPS2()