AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- cambio en dropdownlost

Browse Source
This commit is contained in:
rrene
2020-03-03 11:47:06 -07:00
parent 9fdfbcdd72
commit 91b0b7772f
2 changed files with 7 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
CxC/RepCxC.aspx.vb
View File

@@ -114,13 +114,11 @@ Partial Class RepCxC
#Region "CARGAS"
Private Sub CargaCombos()
'CargaClientes
If UsuarioActual.CveEmpresa = 119 Then
If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
DdlClientesWS.setEsWebService(True)
Else
DdlClientesWS.setEsWebService(False)
DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
DdlClientesWS.DataBind()
DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
CargaClientes()
End If
'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
'DdlClientes.DataBind()
@@ -1433,7 +1431,7 @@ Partial Class RepCxC
End Sub
Private Sub CargaClientes()
If UsuarioActual.CveEmpresa <> 119 Then
If Not UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
DdlClientesWS.ddl.Items.Clear()
DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveClienteClasificacion = {DdlClienteClasificacion.SelectedValue.ToEntero} OR {DdlClienteClasificacion.SelectedValue.ToEntero} = -1")
DdlClientesWS.DataBind()

10
CxC/RepCxCDetalle.aspx.vb
View File

@@ -205,13 +205,11 @@ Partial Class RepCxCDetalle
'CargaClientes
'CargaClientes
If UsuarioActual.CveEmpresa = 119 Then
If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
DdlClientesWS.setEsWebService(True)
Else
DdlClientesWS.setEsWebService(False)
DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
DdlClientesWS.DataBind()
DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
DdlClientesWS.setEsWebService(False)
CargaClientes()
End If
'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
'DdlClientes.DataBind()
@@ -983,7 +981,7 @@ Partial Class RepCxCDetalle
End Sub
Private Sub CargaClientes()
If UsuarioActual.CveEmpresa <> 119 Then
If Not UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
DdlClientesWS.ddl.Items.Clear()
DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveClienteClasificacion = {DdlClienteClasificacion.SelectedValue.ToEntero} OR {DdlClienteClasificacion.SelectedValue.ToEntero} = -1")
DdlClientesWS.DataBind()