diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 60aa183be..438ad97d9 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -5103,7 +5103,7 @@
                                             <asp:RangeValidator ID="RVR" Display="Dynamic" ControlToValidate="TxtCant" runat="server" MinimumValue="0" Type="Double" ErrorMessage="Supera el total disponible"></asp:RangeValidator>
                                         </ItemTemplate>
                                     </asp:TemplateField>
-                                    <asp:BoundField DataField="Cantidad" HeaderText="Total" />
+                                    <asp:BoundField DataField="Cantidad" HeaderText="Total" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.######}" />
                                     <asp:BoundField DataField="UM" HeaderText="UM" />
                                     <asp:BoundField DataField="CodigoPS" HeaderText="Producto" />
                                     <asp:BoundField DataField="Total" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" />
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 8485f0651..dbd4e0133 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -14807,8 +14807,6 @@ Partial Class Compras_Compras
                     Vinculacion()
                 End If
 
-
-
             Else
                 LbSubTotalDif.Visible = True
                 LbSubTotalDif.Text = (SubTotalCompra - SubTotalGV).FormatoNumero
@@ -18395,7 +18393,9 @@ Partial Class Compras_Compras
 
 #Region "  DEVOLUCION DE ALMACEN - DEVOLUCION AL PROVEEDOR  "
     Private Sub InicializaDevolucionAlmacen()
-        If Not GvInv.Rows.Count > 0 Or LblCompraEstatus.Text = "CANCELADA" Then
+        Dim numpsalmacen As Integer = 1 'TmpDT.COUNT("CveTipoPS", "CveTipoPS = 2")
+
+        If LblCompraEstatus.Text = "CANCELADA" Or numpsalmacen = 0 Then 'Not GvInv.Rows.Count > 0
             Exit Sub
         End If
 
@@ -18420,7 +18420,7 @@ Partial Class Compras_Compras
     End Sub
 
     Protected Sub LBDevolucionAlmacen_Click(sender As Object, e As EventArgs)
-        GvSolDev.DataSource = TmpDT
+        GvSolDev.DataSource = TmpDT.FiltraParametros("CveTipoPS = 2")
         GvSolDev.DataBind()
         RegistraScript("$('#DivDevolucion').modal('show');", "DivDevolucion")
         UPPSolDev.Update()