Page 1 of 1

TBUSCADOR. Update a FWH 7.12

Posted: Tue Jan 08, 2008 4:54 pm
by 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

       @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

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

Re: TBUSCADOR. Update a FWH 7.12

Posted: Tue Jan 08, 2008 7:26 pm
by jose_murugosa
thefull wrote: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

       @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

//----------------------------------------------------------------------------//
// 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?
:(

Re: TBUSCADOR. Update a FWH 7.12

Posted: Wed Jan 09, 2008 8:29 am
by thefull
jose_murugosa wrote: 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.

Re: TBUSCADOR. Update a FWH 7.12

Posted: Wed Jan 09, 2008 9:29 am
by jose_murugosa
thefull wrote:
jose_murugosa wrote: 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.

Posted: Fri Jan 11, 2008 2:59 am
by jose_murugosa
Gracias por enviarme la clase Rafa, ya la he puesto en el foro de utilidades