From a76c3c33f6f0e9da1dce98a8fc11e70d919e7a15 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 23 Dec 2024 11:10:00 -0700 Subject: [PATCH] =?UTF-8?q?--=20activaci=C3=B3n=20de=20SMS,=20para=20trasp?= =?UTF-8?q?aso=20de=20mercanc=C3=ADa=20a=20almacen=20tipo=204=20-=20consig?= =?UTF-8?q?naci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/TraspasoAlmacen.aspx.vb | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index cefa814b5..c23d2a236 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -3199,19 +3199,18 @@ Partial Class Inventarios_TraspasoAlmacen DdlAlmacenDestino.DataBind() DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1")) Else - Dim Str As String If ChkTransitorio.Checked Then Str = "" ' String.Format(" AND CveSubProyecto <> {0} ", DrAlmO("CveSubProyecto")) 'RMF. pueden haber almacen que esten dentro de lamisma sucursal, pero que requeiren transitorio DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" CveTipoAlmacen NOT IN (3,4,9,10,11,24,25,28) {0} AND Estatus = 'Activo' ", Str)) Else - Str = String.Format(" AND CveSubProyecto = {0} ", DrAlmO("CveSubProyecto")) - DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros(String.Format(" CveTipoAlmacen NOT IN (3,4,9,10,11,24,25,28) {0} ", Str)) + Str = String.Format(" CveTipoAlmacen NOT IN (3,4,9,10,11,24,25,28) AND CveSubProyecto = {0} ", DrAlmO("CveSubProyecto")) + If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then Str = Str.Replace("4,", "") ' permtir los tipo 4, consignación + DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros(Str) End If DdlAlmacenDestino.DataBind() DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1")) - End If End Sub