From e9eab4466a0b00efd9131239baf615b0285801f4 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 8 Jan 2022 12:01:03 -0700 Subject: [PATCH] mejoras visuales --- Ventas/CatAutorizacionLimites.aspx | 18 +++++++-------- Ventas/CatAutorizacionLimites.aspx.vb | 32 +++++++++++++++------------ 2 files changed, 27 insertions(+), 23 deletions(-) diff --git a/Ventas/CatAutorizacionLimites.aspx b/Ventas/CatAutorizacionLimites.aspx index ea70c8c36..a83041256 100644 --- a/Ventas/CatAutorizacionLimites.aspx +++ b/Ventas/CatAutorizacionLimites.aspx @@ -64,20 +64,20 @@ - - - - - + + + + + - - + + - + diff --git a/Ventas/CatAutorizacionLimites.aspx.vb b/Ventas/CatAutorizacionLimites.aspx.vb index b191a76fb..d96767709 100644 --- a/Ventas/CatAutorizacionLimites.aspx.vb +++ b/Ventas/CatAutorizacionLimites.aspx.vb @@ -24,21 +24,25 @@ Partial Class Ventas_CatAutorizacionLimites #Region "CARGAS" Private Sub CargaCombos() - Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False) - If EsWS Then - DdlCliente.setEsWebService(True) - DdlClienteFiltro.setEsWebService(True) - Else - DdlCliente.setEsWebService(False) - DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) - DdlCliente.DataBind() - DdlCliente.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) + + DdlCliente.setEsWebService(True) + DdlClienteFiltro.setEsWebService(True) + + 'Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False) + 'If EsWS Then + ' DdlCliente.setEsWebService(True) + ' DdlClienteFiltro.setEsWebService(True) + 'Else + ' DdlCliente.setEsWebService(False) + ' DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) + ' DdlCliente.DataBind() + ' DdlCliente.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlClienteFiltro.setEsWebService(False) - DdlClienteFiltro.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) - DdlClienteFiltro.DataBind() - DdlClienteFiltro.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) - End If + ' DdlClienteFiltro.setEsWebService(False) + ' DdlClienteFiltro.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) + ' DdlClienteFiltro.DataBind() + ' DdlClienteFiltro.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) + 'End If DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) DdlVendedor.DataBind()