From a141aa2d183238d99b6f20d9c9e02673739c5d74 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 18 Oct 2022 12:56:09 -0700
Subject: [PATCH] -- codigo comentado

---
 Inventarios/TraspasoAlmacen.aspx.vb | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 5cdef0c56..cbccac8d7 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -2820,12 +2820,15 @@ Partial Class Inventarios_TraspasoAlmacen
     Private Sub CargaAlmacenDestino()
 
         Dim DrAlmO As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero).FiltroPrimero("")
-        If DrAlmO("CveTipoAlmacen").ToString.ToEntero = 26 Then 'costeados
-
+        If DrAlmO("CveTipoAlmacen").ToString = "26" Then 'costeados
+            Dim tTipoAlmacen As String = "26"
+            'If UsuarioActual.CveUsuario = 1703 Then ''1703, Jesus lópez,codigo tempora. RMF.2022.10.17
+            '    tTipoAlmacen = "1,16,26"
+            'End If
             If ChkTransitorio.Checked Then
-                DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("  CveTipoAlmacen IN (26) AND Estatus = 'Activo'  ")
+                DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"  CveTipoAlmacen IN ({tTipoAlmacen}) AND Estatus = 'Activo'  ")
             Else
-                DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen IN (26)  ")
+                DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveTipoAlmacen IN ({tTipoAlmacen})  ")
             End If
 
             DdlAlmacenDestino.DataBind()