combo proveedores a dropdonwlost

This commit is contained in:
2021-09-28 07:36:13 -07:00
parent ddb344462a
commit 2b2cd2127d
2 changed files with 6 additions and 6 deletions

View File

@@ -31,9 +31,9 @@ Partial Class Compras_PopUpBuscarFolioC
End Sub
Protected Sub CargaProveedor()
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlProveedor.DataBind()
DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
'DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
'DdlProveedor.DataBind()
'DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
@@ -57,7 +57,7 @@ Partial Class Compras_PopUpBuscarFolioC
If ValidarUnFiltroSeleccionado() Then
Dim ObjCompras As New ClsCompras()
If ObjCompras.GetCompras(UsuarioActual.CveEmpresa, DdlTipoDocto.SelectedValue, Folio, FolioFiscal, Codigo, Proveedor, FechaI, FechaF, Descripcion, Obs,
CveProveedor:=DdlProveedor.SelectedValue.ToEntero, TopSelect:=100) Then
CveProveedor:=DdlProveedores.SelectedValue.ToEntero, TopSelect:=100) Then
If ObjCompras.DtResultados.Rows.Count > 0 Then
LtlTotalRegistros.Text = ObjCompras.DtResultados.Rows.Count.ToString.FormatoNumero(0)
GV.DataSource = ObjCompras.DtResultados
@@ -112,7 +112,7 @@ Partial Class Compras_PopUpBuscarFolioC
If TxtDescripcion.Text.Trim.Length > 0 Then Return True
If TxtObservaciones.Text.Trim.Length > 0 Then Return True
If DdlTipoDocto.SelectedValue <> "-1" Then Return True
If DdlProveedor.SelectedValue.ToEntero <> 0 Then Return True
If DdlProveedores.SelectedValue.ToEntero <> 0 Then Return True
Return False
End Function
End Class