FiveTech 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 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.

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