FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Database Fwh
Posts: 14
Joined: Mon Oct 10, 2005 12:28 PM
Database Fwh
Posted: Mon Dec 26, 2005 01:00 PM

Hola Grupo

Estoy haciendo pruebas con la clase database de fwh y tengo una duda para crear un nuevo registro hago lo siguiente:

oDb:Blank()
Redefine Get ...

oDb:append()
oDb:Save()

Pero algo pasa que los get no me los muestra en blanco, me muestra los datos del registro donde apunta el puntero en el browse, que estoy haciendo mal ?

Un saludo y feliz navidad

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Database Fwh
Posted: Mon Dec 26, 2005 05:52 PM

Estás usando el objeto database también en el browse ? En tal caso, el browse al dibujarse, esta modificando el buffer de la clase TDatabase.

Si el browse va a estar visible mientras editas, la solución es hacer igual a "" la DATA cAlias del browse: <oBrw>:cAlias := ""

Y luego restaurarla una vez que termines de editar un registro.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 14
Joined: Mon Oct 10, 2005 12:28 PM
Database Fwh
Posted: Wed Dec 28, 2005 11:54 AM

Gracias Antonio ya me funciona perfectamente, aunque no acabo de entender muy bien lo que hace el metodo Blank() , no se por que tiene que ir al último registro, despues mover un registro ...

METHOD Blank( nRecNo ) INLINE ( ::nArea )->( nRecNo := RecNo(),;
DBGoBottom(), ;
DBSkip( 1 ), ;
::Load(),;
DBGoTo( nRecNo ) )

un saludo

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Database Fwh
Posted: Wed Dec 28, 2005 01:06 PM

Gabri,

Al mover un registro, pasado el último, se genera un registro vacio y se cargan sus valores en el buffer.

Se podría hacer lo mismo rellenando el buffer con valores vacios de los campos.

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion