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

Dispose en clases

Browse Source
This commit is contained in:
rakcsle
2021-09-22 15:04:23 -07:00
parent 92f213c14f
commit 0ebfd8302a
80 changed files with 583 additions and 447 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Ventas/CatClientes.aspx.vb
View File

@@ -85,11 +85,22 @@ Partial Class CatClientes
DdlClasificaciones.Items.Insert(0, New ListItem("Todas", "-1"))
End Sub
Private Sub CargaNombreClientes()
DdlClienteAUnificar.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
DdlClienteAUnificar.DataBind()
DdlClienteOriginal.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
DdlClienteOriginal.DataBind()
DdlClienteAUnificar.setEsWebService(True)
DdlClienteAUnificar.SelectedValue = "-1"
DdlClienteAUnificar.SelectedText = "Todos"
DdlClienteOriginal.setEsWebService(True)
DdlClienteOriginal.SelectedValue = "-1"
DdlClienteOriginal.SelectedText = "Todos"
'DdlClienteAUnificar.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
'DdlClienteAUnificar.DataBind()
'DdlClienteOriginal.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
'DdlClienteOriginal.DataBind()
UpBodyUnificar.Update()
End Sub