diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index a9ca68b14..570e317ec 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -5801,11 +5801,12 @@
                                          CssClass="table GvPS table-striped table-hover table-advance Widthall ScrollAD mysmallbtn">
                                          <Columns>                                             
                                              <asp:BoundField DataField="SubProyecto" HeaderText="SubProyecto" />
-                                             <asp:BoundField DataField="Subtotal" HeaderText="Subtotal" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.####}" />
-                                             <asp:BoundField DataField="IVA" HeaderText="IVA" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.######}" />
-                                             <asp:BoundField DataField="RetIVA" HeaderText="Ret. IVA" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.####}" />
-                                             <asp:BoundField DataField="RetISR" HeaderText="RetISR" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.####}" />
+                                             <asp:BoundField DataField="Subtotal" HeaderText="Subtotal" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.####}" Visible="false" />
+                                             <asp:BoundField DataField="IVA" HeaderText="IVA" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.######}" Visible="false" />
+                                             <asp:BoundField DataField="RetIVA" HeaderText="Ret. IVA" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.####}"  Visible="false" />
+                                             <asp:BoundField DataField="RetISR" HeaderText="RetISR" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.####}"  Visible="false" />
                                              <asp:BoundField DataField="Total" DataFormatString="{0:#,##0.00##}" HeaderText="Total" ItemStyle-HorizontalAlign="Right" />
+                                             <asp:BoundField DataField="Porcentaje" DataFormatString="{0:#,##0.00##}" HeaderText="%" ItemStyle-HorizontalAlign="Right" />
                                              <asp:TemplateField HeaderText="Eliminar">
                                                 <ItemTemplate>
                                                     <asp:LinkButton ID="LnkEliminarProrrateoGasolina" runat="server" 
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 7ac1e7df7..9d8c6e07e 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -22331,8 +22331,6 @@ Partial Class Compras_Compras
 
 
 #Region "PRORRATEO GASOLINA"
-
-
     Property DTProrrateoGasolina As DataTable
         Get
             If ViewState("DTProrrateoGasolina") Is Nothing Then
@@ -22362,6 +22360,7 @@ Partial Class Compras_Compras
         TmpDTProrrateoGasolina.Columns.Add("UM", GetType(String))
         TmpDTProrrateoGasolina.Columns.Add("Clasificacion", GetType(String))
         TmpDTProrrateoGasolina.Columns.Add("PS", GetType(String))
+        TmpDTProrrateoGasolina.Columns.Add("Porcentaje", GetType(Decimal))
 
 
         DTProrrateoGasolina = TmpDTProrrateoGasolina
@@ -22517,20 +22516,23 @@ Partial Class Compras_Compras
         nRow("CvePS") = DdlPSProrrateoGasolina.SelectedValue.ToEntero
         nRow("CveSubProyecto") = CveSubProyecto
         nRow("SubProyecto") = SubProyecto
-        nRow("SubTotal") = subtotalParcial
 
         If CveFactura > 0 Then
-            nRow("IVA") = ivaParcial
-            nRow("RetIVA") = retIvaParcial
-            nRow("RetISR") = retIsrParcial
+            nRow("IVA") = ivaParcial.RoundSQL(4)
+            nRow("RetIVA") = retIvaParcial.RoundSQL(4)
+            nRow("RetISR") = retIsrParcial.RoundSQL(4)
         Else
-            nRow("IVA") = (ivaParcial / subtotalParcial)
-            nRow("RetIVA") = (retIvaParcial / subtotalParcial)
-            nRow("RetISR") = (retIsrParcial / subtotalParcial)
+            nRow("IVA") = (ivaParcial / subtotalParcial).RoundSQL(4)
+            nRow("RetIVA") = (retIvaParcial / subtotalParcial).RoundSQL(4)
+            nRow("RetISR") = (retIsrParcial / subtotalParcial).RoundSQL(4)
         End If
 
-        nRow("Total") = totalParcialDeseado
-        nRow("PorcentajeIVA") = (ivaParcial / subtotalParcial)
+        nRow("SubTotal") = subtotalParcial.RoundSQL(4)
+
+        nRow("Total") = totalParcialDeseado.RoundSQL(4)
+        nRow("PorcentajeIVA") = (ivaParcial / subtotalParcial).RoundSQL(4)
+        nRow("Porcentaje") = ((totalParcialDeseado.RoundSQL(4) * 100) / TotalOriginal).RoundSQL(2)
+
 
         nRow("CveUM") = CveUM
         nRow("UM") = UM
@@ -22547,8 +22549,8 @@ Partial Class Compras_Compras
 
     Function ProrateoCalculaRestante(Optional MostrarMensaje As Boolean = False) As Boolean
 
-        Dim Acumulado As Decimal = DTProrrateoGasolina.SUM("Total")
-        Dim Total As Decimal = TxtTotal.Text.ToDecimal
+        Dim Acumulado As Decimal = DTProrrateoGasolina.SUM("Total").RoundSQL(2)
+        Dim Total As Decimal = TxtTotal.Text.ToDecimal.RoundSQL(2)
         Dim Respuesta As Boolean = False
 
         LblRestoProrrateoGasolina.Text = (Total - Acumulado).ToString("###,###,###.00")
@@ -22560,7 +22562,7 @@ Partial Class Compras_Compras
             If MostrarMensaje Then
 
                 If Acumulado <> Total Then
-                    Alert($"El importe prorrateado es diferenque del total, Total:{Total.ToString("###,###,###.00")}, Prorrateado:{Acumulado.ToString("###,###,###.00")}", TipoMensaje.MsgAdvertencia)
+                    Alert($"El importe prorrateado es diferente del total, Diferencia: {(Acumulado - Total).Abs()},  Total:{Total.ToString("###,###,###.00")}, Prorrateado:{Acumulado.ToString("###,###,###.00")}", TipoMensaje.MsgAdvertencia)
                 End If
 
             End If