Something (imaginary) like
Code: Select all
nIDGet:= 64
nID := 108
FOR nIDVar := 23 TO 30
REDEFINE GET oGet GetSUBSCRIPT nIDGet VAR aPedg VarSUBSCRIPT nIDVar,2 MEMO ID IDSubstript nId OF oFld:aDialogs[4] UPDATE READONLY FONT oFuente[2]
nID++
nIDGet++
NEXT