-- corrección dev de almacenes

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