FiveTech Software tech support forums

Hola a todos!

Estoy haciendo una rutina para refrescar de forma generica los gets de una ventana... esto es porque hay pantallas con _ 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 _ 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.

Laura:

Nada mas por curiosidad, cada GET tiene la clausula UPDATE ?

Si es así con oDlg:Update() te debe funcionar sin necesidad de la ruitna que mencionas.

Saludos

Gracias Armando!!!

Funciono perfecto!!

No tenia el UPDATE....

Mil gracias de nuevo!!

Laurel