From 653bd8f635eaa6faac0ca137ac39fcf66c60f7ee Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sun, 9 Jan 2022 21:01:10 -0700
Subject: [PATCH] =?UTF-8?q?--=20dev.=20almacenes=20que=20puedan=20ser=20ot?=
 =?UTF-8?q?ros=20no=20solo=20de=20donde=20sali=C3=B3?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Inventarios/EntregaAlmacen.aspx.vb | 22 ++++++++++------------
 1 file changed, 10 insertions(+), 12 deletions(-)

diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 6d146dde9..5e13576bb 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -321,12 +321,9 @@ Partial Class Inventarios_EntregaAlmacen
             DdlClientes.ddl.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
             DdlClientes.ddl.DataBind()
             DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
-        End If
-
-        If UsuarioActual.CveSubProyecto = 8804 Then
-            StrAlmacenes = "CveTipoAlmacen IN (1,2,12)"
-        End If
-
+        End If
+
+
         DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros(StrAlmacenes) 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
         DdlAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
         DdlAlmacen.SelectedValue = "-1"
@@ -744,12 +741,13 @@ Partial Class Inventarios_EntregaAlmacen
                         If TipoDocto.Contiene("Ing") AndAlso TipoMovimiento = 2 Then
                             Dim DtMov As DataTable = DtExistencias.FiltraParametros("CveConcepto = 40", "", {"CveAlmacen"})
                             If DtMov.Rows.Count > 0 AndAlso CveAlmacen <= 0 Then
-                                Dim CveAlmacenDev As Integer = DtMov.Rows(0)("CveAlmacen").ToString().ToEntero()
-                                DdlAlmacen.Items.Clear()
-                                DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveAlmacen = {CveAlmacenDev}")
-                                DdlAlmacen.DataBind()
-
-                                DdlAlmacen.SelectedValueExist(CveAlmacenDev)
+                                Dim CveAlmacenDev As Integer = DtMov.Rows(0)("CveAlmacen").ToString().ToEntero()
+
+                                'DdlAlmacen.Items.Clear()
+                                'DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveAlmacen = {CveAlmacenDev}")
+                                'DdlAlmacen.DataBind()
+
+                                DdlAlmacen.SelectedValueExist(CveAlmacenDev) ' se va a poder regresar en algun almacen diferente
                                 EsDevolucionDirecta = True
                             End If
                         End If