Este codigo en Harbour si me funciona pero en xHarbour No
Local acObjF1[5], acObjF2[10]
FOR x := 1 TO LEN(aModulos)
xx := ALLTRIM(STR(x))
cVar := aModulos[x,3]
FOR y := 1 TO LEN(cVar)
acObjF&xx[y] := IF(VAL(SUBSTR(cVar,y,1))==1,.T.,) // me dice que la variable acObjF1 no existe
NEXT
NEXT
pero la declaro en Local
cual es el equivalente de esta operacion en xHarbour
gracias
saludos
paco
Local acObjF1[5], acObjF2[10]
FOR x := 1 TO LEN(aModulos)
xx := ALLTRIM(STR(x))
cVar := aModulos[x,3]
FOR y := 1 TO LEN(cVar)
acObjF&xx[y] := IF(VAL(SUBSTR(cVar,y,1))==1,.T.,) // me dice que la variable acObjF1 no existe
NEXT
NEXT
pero la declaro en Local
cual es el equivalente de esta operacion en xHarbour
gracias
saludos
paco
____________________
Paco
Paco