Código: Selecionar todos
Static Function SortColumn(nColumnNo)
Asort( aItems, , , { | x, y | x[ nColumnNo ] < y[ nColumnNo ] })
Form_Clientes.Grid_Clientes.DisableUpdate
Form_Clientes.Grid_Clientes.DeleteAllItems
Aeval( aItems, { | x | Form_Clientes.Grid_Clientes.AddItem( x ) } )
Form_Clientes.Grid_Clientes.Value:={1,nColumnNo} // Posiciona no primeiro registro
Form_Clientes.Grid_Clientes.EnableUpdate
//Form_Clientes.Txt_Pesquisa.Value:=Space(50) // <----AQUI
Return Nil
Código: Selecionar todos
*________________________________________________________________________________________________
Static Function SortColumn(nColumnNo)
Asort( aItems, , , { | x, y | x[ nColumnNo ] < y[ nColumnNo ] })
Form_Clientes.Grid_Clientes.DisableUpdate
Form_Clientes.Grid_Clientes.DeleteAllItems
Aeval( aItems, { | x | Form_Clientes.Grid_Clientes.AddItem( x ) } )
Form_Clientes.Grid_Clientes.Value:={1,nColumnNo} // Posiciona no primeiro registro
Form_Clientes.Txt_Pesquisa.Value:=Space(50)
Form_Clientes.Grid_Clientes.EnableUpdate
Return Nil
*________________________________________________________________________________________________
Static Function Pesquisa_Clientes()
Local cTxt, nLen, nCol, i
Form_Clientes.Grid_Clientes.DisableUpdate
cTxt := GetProperty( 'Form_Clientes' , 'Txt_Pesquisa' , 'Value' )
nLen := Len( cTxt )
nCol:= Form_Clientes.Grid_Clientes.Value[2] // Número da coluna
Form_Clientes.Grid_Clientes.DeleteAllItems
For i := 1 To Len( aItems )
If Upper( cTxt ) = Upper( Left( aItems [i] [nCol], nLen) )
Form_Clientes.Grid_Clientes.AddItem ( aItems [ i ] )
Endif
Next
Form_Clientes.Grid_Clientes.Value:={1,nCol} // Posiciona no primeiro registro
Form_Clientes.Grid_Clientes.EnableUpdate
Return ( NIL )