Database Fwh

[Gabri]

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

[Antonio Linares]

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.

[Gabri]

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

[Antonio Linares]

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.