Puedes agregar el codigo tradicional de siempre ... y aunque no fuese asi , seria lo de siempre pero cambiando el nombre de las cosas ... cuando antes pepe era solo pepe , ahora pepe es thisform.grid.column1.text1.pepe ( por ejemplo ) y el que sea el value o el controlsource o lo que sea es cuestion de aconstumbrarse ...
este codigo esta en un grids de una aplicacion mia... creo que es un codigo de toda la vida :
if lastkey()=13
if !used('clientes')
use clientes in 12 shared
endif
select clientes
set order to codigo
seek padl(alltrim(lineasf.codclif),8)
scatter memvar
if !used('acuerdo')
use acuerdo in 14 shared
endif
select acuerdo
set order to codigo
seek padl(alltrim(lineasf.codclif),8)+padl(alltrim(lineasf.tiposer),3)
if found()
if !empty(acuerdo.aporseg)
m.por_seg=acuerdo.aporseg
else
m.por_seg=clientes.seguro_c
endif
else
m.por_seg=clientes.seguro_c
m.por_iva=clientes.iva_c
endif
if clientes.acuerdos='N'
m.por_seg=defecto.psegdef
m.por_iva=defecto.pivadef
endif
replace lineasf.segurol with round(lineasf.portesl*(m.por_seg/100),monedas.dmoneda)
if !used('servicio')
use servicio in 8 shared
endif
select servicio
set order to codigo
seek padl(alltrim(lineasf.tiposer),3)
if !empty(servicio.minsegse)
if lineasf.segurol<servicio.minsegse and !empty(m.por_seg) and acuerdo.aporseg<1
replace l