--Correcion en devolucion de almacen

Ventas/Ventas.aspx.vb

@@ -24803,15 +24803,30 @@ Partial Class Ventas
 
             If SaldoVenta <> 0 Then
 
-                If UsuarioActual.TienePermisoProceso(269) AndAlso Not DevolucionAlmacen = 2 Then
+                If UsuarioActual.TienePermisoProceso(269) Then
+                    DivDevAlm.Visible = True
+                    TieneAlmacen = True
+                End If
+
+                If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then
                     DivDevAlm.Visible = True
                     TieneAlmacen = True
 
-                    If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then
-                        ChkDevAlm.Checked = True
-                        ChkDevAlm.Enabled = False
-                    End If
+                    ChkDevAlm.Checked = True
+                    ChkDevAlm.Enabled = False
                 End If
+
+                If (CveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue <> "Cot") AndAlso Not AplicaDevolucion Then
+                    Using ObjInv As New ClsInventarios
+                        If ObjInv.GetInv_Mov(Me.CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjInv.DtResultados.Rows.Count > 0 Then
+                            Dim RowInv As DataRow = ObjInv.DtResultados.FiltroPrimero("CveConcepto IN (3,40)")
+                            If RowInv IsNot Nothing Then
+                                CveAlmacenDevolucion = RowInv("CveAlmacen").ToString().ToEntero()
+                            End If
+                        End If
+                    End Using
+                End If
+
             End If
 
         End If