From cc2b146f6cf8c916b98d5771543eed6ef11228ad Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 2 May 2025 19:41:35 -0700
Subject: [PATCH] -

---
 Inventarios/TraspasoAlmacen.aspx.vb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 460fe98e8..112423916 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -539,7 +539,9 @@ Partial Class Inventarios_TraspasoAlmacen
     Private Sub CargaAlmacenOrigen()
         DdlAlmacenOrigen.Enabled = True
         DdlAlmacenOrigen.Items.Clear()
-        DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11,24)")
+        Dim Str As String = " CveTipoAlmacen NOT IN (3,4,9,10,11,24) "
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then Str = Str.Replace("4,", "") ' permtir los tipo 4, consignación
+        DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros(Str)
         DdlAlmacenOrigen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
         DdlAlmacenOrigen.SelectedValue = "-1"
         DdlAlmacenOrigen.DataBind()