TBUSCADOR. Update a FWH 7.12
Posted: Tue Jan 08, 2008 4:54 pm
Bueno, a los fivewiseros que tenemos por aqui , si alguien esta usando la clase TBUSCADOR, la actualizacion a Fivewin 7.12;
Donde este el GET , debe de quedar de esta manera;
Y el method FastSeek(), deberá quedar;
Con esto se consigue que funcione en las últimas versiones de Fivewin.
Antonio, ¿ cual seria el foro adecuado ?, yo creo que este pero bueno....
Donde este el GET , debe de quedar de esta manera;
Code: Select all
@0.5,5 GET ::oGet VAR ::cBusca SIZE 250,10 OF ::oDlg
// En la version FWH 7.12 cambian con respecto a la 2.7 bChange no se usa.
::oGet:bPostKey := {| This, cBuffer | ::FastSeek( This, cBuffer ) }
::oGet:bKeyDown := {| nKey, nFlags | iif( nKey == VK_F3, ::NextTabOption(),;
iif( nKey == VK_F2, ::PrevTabOption(), ) ), 1 }
Code: Select all
//----------------------------------------------------------------------------//
// Busqueda rapida
//METHOD FastSeek( nKey, nFlags ) CLASS TBUSCADOR
METHOD FastSeek( oGet, xCadena ) CLASS TBUSCADOR
local cType
local nRecNo
local nOrd
// local oGet := ::oGet
Local cKey := ( ::oDbf:cAlias() )->( &(IndexKey() )) // Tipo de expresion en el indice
::oDbf:Seek( if( Valtype(cKey) != "N",xCadena, VAL( xCadena ) ) , .T. )
::oBrw:refresh()
::cBusca := xCadena
return .t.
Antonio, ¿ cual seria el foro adecuado ?, yo creo que este pero bueno....