From defc05c3171299f3370515571f2353b190b48585 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 23 Jul 2024 09:11:44 -0700
Subject: [PATCH] =?UTF-8?q?--=20correcci=C3=B3n=20dev=20de=20almacenes?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/Compras.aspx    | 2 +-
 Compras/Compras.aspx.vb | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

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()