From aba8cf8caa88a1d1bc6cae226472648dc5594b4c Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Mon, 4 Nov 2019 13:38:30 -0700 Subject: [PATCH] Dropdownlost de PS --- Inventarios/RepVentasXSurtir.aspx | 4 +--- Inventarios/RepVentasXSurtir.aspx.vb | 15 +++++++++++++-- 2 files changed, 14 insertions(+), 5 deletions(-) diff --git a/Inventarios/RepVentasXSurtir.aspx b/Inventarios/RepVentasXSurtir.aspx index 4bb6d9db8..0e8c227f9 100644 --- a/Inventarios/RepVentasXSurtir.aspx +++ b/Inventarios/RepVentasXSurtir.aspx @@ -28,9 +28,7 @@
- - - +
diff --git a/Inventarios/RepVentasXSurtir.aspx.vb b/Inventarios/RepVentasXSurtir.aspx.vb index f1e8ca704..158826a28 100644 --- a/Inventarios/RepVentasXSurtir.aspx.vb +++ b/Inventarios/RepVentasXSurtir.aspx.vb @@ -16,9 +16,20 @@ Partial Class Inventarios_RepVentasXSurtir #Region " INICIALIZA VALORES " Private Sub InicializaValores() - DdlPS.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) - DdlPS.DataBind() + 'Carga Productos + DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") + If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then + DdlPS.SelectedText = "Todos" + DdlPS.SelectedValue = "-1" + Else + DdlPS.ddl.Items.Clear() + DdlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) + DdlPS.ddl.DataBind() + DdlPS.ddl.Items.Insert(0, New ListItem("Todos", "-1")) + End If + + 'Carga Sucursales DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) DdlSubProyectos.DataBind()