objeto Rowset

[jose_murugosa]

Mi consulta es la siguiente:

He hecho mi propia ficha de productos con una ventana a mi gusto y demás, inspirada en xedit.

puedo navegar por el rowset puedo modificar registros....

mi pregunta es como hago para poner todos los gets del formulario en blanco a fin de rellenar los datos y como los inserto en un nuevo registro

[MarioG]

Hola josé
El maestro Navarro me enseño algo espectacular
supongamos

Code: Select all

oQry:= oConn:Rowset("clientes")
oCode:= TDataRow( oQry, .T.)
TuDialog( oCode )
...
function TuDialog( oCode )

@... GET oCode:Apellidos ...
@... GET oCode:Nomres...

@... BUTTON "Guardar" ACTION oCode:Save()

Si fuera edición: oCode:= TDataRow( oQry, .f.)
Y como dice un amigo/colega: "sale con fritas!"

http://www.fivetechsoft.com/wiki/doku.p ... ]=tdatarow
Abrazo Jose!

[MarioG]

Mejoro el post
El maestro Navarro me enseño algo espectacular
supongamos

Code: Select all

oQry:= oConn:Rowset("clientes")
oCode:= TDataRow( oQry, .T.)
TuDialog( oCode )
...
function TuDialog( oCode )

@... GET oCode:Apellidos ...
@... GET oCode:Nomres...

@... BUTTON "Guardar" ACTION lGuado:= oCode:Save()

return( lGuardo )
Si fuera edición: oCode:= TDataRow( oQry, .f.)

Y como dice un amigo/colega: "sale con fritas!"
http://www.fivetechsoft.com/wiki/doku.p ... ]=tdatarow

Abrazo Jose!