From 2de059a6e4ab04b87e48e8721af78229dd25fbf5 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 9 Dec 2023 09:03:23 -0700 Subject: [PATCH] =?UTF-8?q?--=20que=20funcione=20la=20FNC=20141=20=C3=B3?= =?UTF-8?q?=20105?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/TraspasoAlmacen.aspx.vb | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index fb530b8b3..d9e7eb460 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -518,12 +518,6 @@ Partial Class Inventarios_TraspasoAlmacen DdlAlmacenOrigen.SelectedValueExist(UsuarioActual.CveAlmacen) End Sub Private Sub CargaPS() - 'DdlProducto2.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") - - 'If Not DdlProducto2.UsaWebService AndAlso CType(DdlProducto2.DataSource, DataTable) Is Nothing Then - ' DdlProducto2.DataSource = GlobalDTProductosServicios(UsuarioActual.CveEmpresa) - ' DdlProducto2.DataBind() - 'End If Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False) DdlProducto2.setEsWebService(EsWS) @@ -536,9 +530,9 @@ Partial Class Inventarios_TraspasoAlmacen CargaExistenciasSucursal() DdlAlmacenOrigen.AutoPostBack = True End If - 'ElseIf Not DdlProducto2.UsaWebService AndAlso CType(DdlProducto2.DataSource, DataTable) Is Nothing Then - ' DdlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero).FiltraParametros("CveTipoPS = 2") - ' DdlProducto2.DataBind() + Else + DdlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) + DdlProducto2.DataBind() End If End Sub