PARAMETROS DE UNA FUNCION

[TOTOVIOTTI]

Estimados:
Necesito pasar unos parametros de una Función a otra, por ejemplo:

Aquí viene mi programa:

function main()
.
..
...
....
programa_1(var1,var2,var3)
....
...
..
return nil

function programa_1
parameters var1,var2,var3 //necesito recibirla así, porque estas variables siguen por varias funciones, (en el viejo clipper, me lo dejaba hacer así)
..
...
...
..
.
return nil

Pero cuando compilo, me da Ambiguous reference "var1","var2","var3"

Como puedo hacer para solucionar este tema?
Muchas gracias!
Roberto

[TOTOVIOTTI]

Pude encontrar que haciendo:

function main()
static var1,var2,var3

programa_1(var1,var2,var3)

return nil

function programa_1
parameters var1,var2,var3..

return nil

pero cuando no son variables las que tengo que pasar, por ejemplo:
programa_1(.t.,"titulo",0)
se me complica....

Gracias!
Roberto

[horacio]

Porqué no utilizas

Code: Select all | Expand

Function programa_1( Var1, Var2, Var3 )
 

[TOTOVIOTTI]

Horacio,
porque necesito pasarlo de funcion en funcion, y necesito para un caso especial dejarlo
de esa forma.
Gracias

[horacio]

Yo paso los parámetros de función en función utilizando esta notación, no sé cual es el impedimento.

[TOTOVIOTTI]

Horacio
no es impedimento, necesito reutilizar unas rutinas que ya tenía desarrolladas en clipper, y como
estoy probando convertir mis aplicaciones, quería tocar lo menos posible unas rutinas complicadas de cálculos
que ya tengo desarrolladas.
Roberto

[acuellar]

Roberto, que editor usas para enlazar tus programas?
Si es UEstudio debes colocar 0 en Warning level en Opciones de compilador.

o inicializar tus variables como PUBLIC en el primer programa.

Saludos,

Adhemar

[horacio]

Ok, no se entendía esa situación en tu post.

Saludos

[TOTOVIOTTI]

Adhemar,
disculpa la molestia, como sería un pequeño ejemplo en un par de líneas.
Roberto

[acuellar]

Si no usas UEstudio tenes que hacer asi:

Code: Select all | Expand

#include "FiveWin.ch"
*
memvar Var1,Var2,Var3
Function Main()
   Public Var1,Var2,Var3
...
Return
 

Saludos,

Adhemar

[TOTOVIOTTI]

Adhemar, eso está perfecto y entendido, el tema es cuando a la 2da funcion, no paso
las variables var1,var2,var3, sino, valores propiamente dicho:

#include "FiveWin.ch"
*
memvar Var1,Var2,Var3
Function Main()
Public Var1,Var2,Var3


progrma(.t.,"titulo",0) //no son las variables var1,var2,var3
...
Return

Se entiende?
Gracias!

[acuellar]

En tu funcion colocas las variables:

Code: Select all | Expand

Function progrma(Var1,Var2,Var3) 
?Var1 // .t.
?Var2 // titulo
?Var3 // 0
Return Nil
 

Saludos,

Adhemar

[interwin]

si pasas variables a una funcion de la forma:

function (VAR1,VAR2,VAR3)

Las variables VAR1,VAR2,VAR3 en la funcion se manejan como locales


Si pasas las variables de la forma

function
parameters VAR1,VAR2,VAR3

las variables VAR1,VAR2,VAR3 se manejan como privates y por eso el compilador te manda el warning con el mensaje de ambiguos reference, pero es solo un warning y tu funcion trabaja perfectamente

Saludos.