Estoy haciendo una rutina para refrescar de forma generica los gets de una ventana... esto es porque hay pantallas con muchos campos ya para no hacerlo uno a uno quiero hacerlo con una subrutina. El código es el siguiente:
FOR nArchdb = 1 to nFin
cArquiv:=cArchi[nArchdb][1]
oRsMISCPOS:Open("SELECT * FROM MISCPOS WHERE
TABLA='"+cArquiv+ "'")
IF oRsMISCPOS:RecordCount()>0
oRsMISCPOS:MoveFirst()
DO WHILE !oRsMISCPOS:EOF()
oBCampo:="o"+ALLTRIM(oRsMISCPOS:Fields('CAMPOS'):Value)
+ ":refresh()"
xx:={ ||oBCampo}
oRsMISCPOS:MoveNext()
ENDDO
ENDIF
oRsMISCPOS:Close()
NEXT nArchdb
Despues de esto hago un refresh del dialogo
el problema es que no refresca nada... no manda error pero los campos no quedan limpios en cuanto pongo mi cursor en cada campo entonces si se blanquea pero la idea es que al oprimir 'Nuevo' se limpie toda la pantalla.
Espero sus comentarios.
Gracias
Laura Hernández H.
