Concatenar una variable.

[Yessica]

Buen día amigos:

Acudo a ustedes para su colaboración trataré de explicarme, poniendo el código.

Local Var1:= "CARTERA"
Local Var2:= "VENCIDA"
Local num_Var := "0"

Antes yo podía concatenar de la siguiente manera:

num_Var := Alltrim(Str( val(num_Var)+1 )) // Incremento ahora num_Var es 1

? Var&num_Var // Resultado CARTERA, esto es como decir: muestra lo que tiene la variable Var1.
num_Var := Alltrim(Str( val(num_Var)+1 )) // Incremento ahora num_Var es 2
? Var&num_Var // Resultado VENCIDA

Actualmente estoy usando Sistema Operativo Windows 8.1, FWH 14.12, Harbour 3.2 y al compilar me muestra el siguiente error:

Error E00042 Macro of declared symbol 'Var&num_var'

Podrían ayudarme en como hacerlo ahora, para poder concatenar ?, muchas gracias esto me és muy urgente.

Atte.
Yessica

[Antonio Linares]

Yessica,

No es mucho más sencillo que hagas esto ?

? { "CARTERA", "VENCIDA" }[ Val( num_var ) ]

Cuanto menos uses las macros mejor

[Yessica]

Yessica,

No es mucho más sencillo que hagas esto ?

? { "CARTERA", "VENCIDA" }[ Val( num_var ) ]

Cuanto menos uses las macros mejor

Ok si es buena la idea, pero resulta que actualmente el sistema tiene un sin fin de variables publicas (mal hecho no debió haber sido así), entonces tengo que ajustarme a la programación que se tiene en el sistema, para ponerte un ejemplo usaron lo siguiente:

Public E1,E2,E3,E4,E5.......etc, hasta llegar a E200

Ahora cada variable le asignan diferente información. Se valida desde la variable E17 de la siguiente manera:

num_Var := "17"
While m->E&num_Var != "FIN"

Aquí van haciendo el recorrido de las variables desde la E17, hasta que encuentre una que tenga el contenido "FIN"
y a la vez van validando el contenido de las variables, ejemplo:

If m->E&num_Var == "CONTRATO"
Realiza ciertos calculos
EndIf

Asi sucesivamente dependiendo del contenido de la variable.
num_Var := Alltrim(Str( val(num_Var)+1 ))
EndDo

Cómo te digo, no puedo cambiar la forma en que lo hacen, puesto que sería pegarle a todo el código, donde usan asi las variables.
Por ello me es necesario saber ahora de que manera puedo concatenar.

Gracias Master ojalá y pueda ayudarme.

[acuellar]

Jessica

Quizas esto te ayude. El & sólo funciona al comienzo de la variable

Code: Select all  Expand view  RUN

 Var1:= "CARTERA"
   Var2:= "VENCIDA"
   num_Var := "0"


num_Var := Alltrim(Str( val(num_Var)+1 ))
cCad:="Var"+num_Var
?&cCad
num_Var := Alltrim(Str( val(num_Var)+1 ))
cCad:="Var"+num_Var
?&cCad
 

Saludos,

Adhemar

[acuellar]

También se puede

Code: Select all  Expand view  RUN

 ?&("Var"+num_Var)
 

Saludos,

Adhemar

[Yessica]

Jessica

Quizas esto te ayude. El & sólo funciona al comienzo de la variable

Code: Select all  Expand view  RUN

 Var1:= "CARTERA"
   Var2:= "VENCIDA"
   num_Var := "0"


num_Var := Alltrim(Str( val(num_Var)+1 ))
cCad:="Var"+num_Var
?&cCad
num_Var := Alltrim(Str( val(num_Var)+1 ))
cCad:="Var"+num_Var
?&cCad
 

Saludos,

Adhemar

Gracias por tu pronta contestación Adhemar:

Mira probé de las dos formas que me dijiste y aun no logro concatenar el nombre de la variable.

Me marca que no Existe la Variable Var1.

[acuellar]

Jessica

Quítale el Local ó declararla como Private

Saludos,

Adhemar

[Yessica]

Jessica

Quítale el Local ó declararla como Private

Saludos,

Adhemar

Pues nada sigue igual el problema

[Armando]

Jessica:

Prueba así

Code: Select all  Expand view  RUN

cVar := "BIT_A"+STRZERO(nVez,2,0)
 

Saludos

[cnavarro]

Asi, me funciona a mi

Code: Select all  Expand view  RUN

MEMVAR cVar1
MEMVAR cVar2
MEMVAR nG


.../...

cVar1  := "CARTERA"
cVar2  := "VENCIDA"
nG     := 1
? &("cVar"+AllTrim( Str(nG) ))

 

[Yessica]

Asi, me funciona a mi

Code: Select all  Expand view  RUN

MEMVAR cVar1
MEMVAR cVar2
MEMVAR nG


.../...

cVar1  := "CARTERA"
cVar2  := "VENCIDA"
nG     := 1
? &("cVar"+AllTrim( Str(nG) ))

 

Muuuchas gracias al parecer esta fue la buena. Ahora a probar lo demás. Este foro es buenísimo y las personas aquí son bellas e irrepetibles, venga gracias a todos.

Compañero es usted muy amable. Aquí nos estaremos leyendo.

[Yessica]

Asi, me funciona a mi

Code: Select all  Expand view  RUN

MEMVAR cVar1
MEMVAR cVar2
MEMVAR nG


.../...

cVar1  := "CARTERA"
cVar2  := "VENCIDA"
nG     := 1
? &("cVar"+AllTrim( Str(nG) ))

 

Sera lo mismo para campos de tablas?

[horacio]

Si, es lo mismo

Saludos