Page 1 of 1
objeto Rowset
Posted: Thu Apr 15, 2021 1:24 pm
by 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
Re: objeto Rowset
Posted: Fri Apr 16, 2021 7:04 pm
by 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!"
Abrazo Jose!
Re: objeto Rowset
Posted: Fri Apr 16, 2021 7:08 pm
by 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!