Verificar estatus de devolucion

Ventas/Ventas.aspx.vb

@@ -16526,18 +16526,24 @@ Partial Class Ventas
     End Sub
     Protected Sub LBDevolucionAlmacen_Click(sender As Object, e As EventArgs)
         Dim ObjVentas As New ClsVentas
+        If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then
+            If ObjVentas.DtResultados.Rows.Count > 0 Then
+                Dim DbRowVenta As DataRow = ObjVentas.DtResultados.Rows(0)
+                Me.DevolucionAlmacen = DbRowVenta("EsDevolucionVenta").ToString.ToEntero
+            End If
+        End If
 
-        Dim EstatusDevolucion = If(DevolucionAlmacen = 0, 1, 0)
+        Dim EstatusDevolucion = If(Me.DevolucionAlmacen = 0, 1, 0)
 
         If ObjVentas.UpdateVentasDevolucionAlmacen(EstatusDevolucion, CveVenta) Then
             Alert("La solicitud de Devolución de Almacén se guardó correctamente")
         End If
+        ObjVentas.Dispose()
 
-        DevolucionAlmacen = EstatusDevolucion
+        Me.DevolucionAlmacen = EstatusDevolucion
         InicializaDevolucionAlmacen()
         UpnTools.Update()
 
-        ObjVentas.Dispose()
     End Sub
 
 #End Region