combo proveedores a dropdonwlost
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user