TBUSCADOR. Update a FWH 7.12

[thefull]

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;

Code: Select all  Expand view

       @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 }


Y el method FastSeek(), deberá quedar;

Code: Select all  Expand view

//----------------------------------------------------------------------------//
// 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.


Con esto se consigue que funcione en las últimas versiones de Fivewin.
Antonio, ¿ cual seria el foro adecuado ?, yo creo que este pero bueno....

[jose_murugosa]

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;

Code: Select all  Expand view

       @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 }


Y el method FastSeek(), deberá quedar;

Code: Select all  Expand view

//----------------------------------------------------------------------------//
// 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.


Con esto se consigue que funcione en las últimas versiones de Fivewin.
Antonio, ¿ cual seria el foro adecuado ?, yo creo que este pero bueno....

Esta clase está disponible?
De donde se puede descargar?

[thefull]

Esta clase está disponible?
De donde se puede descargar?

Pues estaba en un CVS de xBase que montemos entre usuarios de xBase,
y creo que estaba corriendo por las antiguas news.

Si quieres te la envio por correo, y ya la dejas tu por aqui, es que no tengo ni idea de como funciona el subir archivos aqui.

[jose_murugosa]

Esta clase está disponible?
De donde se puede descargar?

Pues estaba en un CVS de xBase que montemos entre usuarios de xBase,
y creo que estaba corriendo por las antiguas news.

Si quieres te la envio por correo, y ya la dejas tu por aqui, es que no tengo ni idea de como funciona el subir archivos aqui.

Por favor!!
Con gusto la pondré en utilidades a disposición de todos.

[jose_murugosa]

Gracias por enviarme la clase Rafa, ya la he puesto en el foro de utilidades