No me actualiza la Variable

[dobfivewin]

Estimados

Tengo variables que quiero actualizar con informacion de una base de datos, lo estaoy haciendo de esta forma.
el tema NO me actualiza la variable, que puede estar faltando?

este es un ejemplo.

Code: Select all

local Q 
local NomVariResu
local NomCampResu

local mRESUL01:=0 
local mRESUL02:=0 
local mRESUL03:=0 

For Q = 1 to 3
  NomVariResu := 'mRESUL'+STRZERO(Q,2)
  NomCampResu := 'RESUL'+STRZERO(Q,2)
  &(NomVariResu) := (MUESRESU)->&(NomCampResu)
NEXT Q

muchas gracias

David
argentina

[ADBLANCO]

prueba con


&NomVariResu. := (MUESRESU)->&NomCampResu

[Biel EA6DD]

Seguramente como te comenta Angel te funcione, pero te quedaria un código más obtimizado y sin macrosustitución de la siguiente manera:

Code: Select all

LOCAL q,aVar[3]

FOR q:=1 TO Len(aVar)
   aVar[q]:=MuesResu->(FieldGet(FieldName('resul'+STRZERO(Q,2))))
NEXT

[dobfivewin]

Muchas gracias por sus respuestas

Se solucionó declarando la variables como PRIVADAS, ya que me dijeron solo las variables Private se pueden actualizar.

muchas gracias

David