Problemas con refresh

Problemas con refresh

Postby Laurel » Fri Feb 22, 2008 7:56 pm

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. :D
Laurel
Laurel
 
Posts: 65
Joined: Fri Oct 21, 2005 8:07 pm
Location: México

Postby Armando » Fri Feb 22, 2008 8:00 pm

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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3049
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Postby Laurel » Fri Feb 22, 2008 8:51 pm

Gracias Armando!!!

Funciono perfecto!!

No tenia el UPDATE....

Mil gracias de nuevo!!

Laurel
Laurel
Laurel
 
Posts: 65
Joined: Fri Oct 21, 2005 8:07 pm
Location: México


Return to FiveWin para CA-Clipper

Who is online

Users browsing this forum: No registered users and 3 guests