Error al pasar Variable ...

Post Reply
User avatar
Chantiel
Posts: 33
Joined: Mon Oct 10, 2005 12:49 pm
Location: En una piedra en medio del Atlantico (Tenerife)

Error al pasar Variable ...

Post by Chantiel »

Saludos gente,

llevo varias horas trabado con un error que no he podido solucionar. El caso es el siguiente.

En el cuerpo principal del programa declaro una variable y la inicializo:

local cCambiar:= space(9)


Luego la paso como parametro de una funcion:

pBuscarPeticionario(mnif_cif, @mpriorita, @mfechanace, @cCambiar, oGrabarExpediente)

Dentro de esa funcion utilizo esa variable para hacer una comparacion, pero me daba un error.

Para averiguar que valor estaba tomando use un MsgAlert:

MsgAlert("Contenido de cCambiar: "+cCambiar,"PACORR!!!")

Y este fue el Error.log que me genero:

Time from start: 0 hours 0 mins 18 secs
Error occurred at: 28/11/05, 13:08:37
Error description: Error BASE/1081 Error de argumento: +
Args:
[ 1] = U

.
.
.

Param 1: C "42170002P"
Param 2: C " "
Param 3: D / /
Param 4: U
Param 5: O Class: TMDICHILD


He intentado ponerle un valor:

local cCambiar

cCambiar:= "algo"

pBuscarPeticionario(mnif_cif, @mpriorita, @mfechanace, @cCambiar, oGrabarExpediente)
...

Y sigue dandome el mismo error. Esto a que se puede deber?


Gracias de antemano!



Nos leemos!!
FW 2.5 + Cl 5.3 + Blk 7.0

Sin mas ...
User avatar
cmsoft
Posts: 653
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Post by cmsoft »

Chantiel:
Si no le haces ninguna asignacion antes de la llamada a la funcion, proba inicializando dentro de la funcion pBuscarPeticionario() a ver si te tira el mismo error.
Si haces una asignacion antes fijate que valor le estas asignando porque seguro que el error esta ahí.
Suerte...
User avatar
MarioG
Posts: 1356
Joined: Fri Oct 14, 2005 1:28 pm
Location: Resistencia - Chaco - AR

Post by MarioG »

Chantiel
quizás no entienda bien tu problema, pero hice este simple ejemplo y funciona sin problemas

Code: Select all

#include "fivewin.ch"


procedure main()
local cCambiar:= Space( 9 )

	fPasarxRef( @cCambiar )

	MsgAlert("Contenido de cCambiar devuelto: "+cCambiar,"PACORR!!!") 

// Fin

procedure fPasarxRef( cCambiar )

	? "valor de entrada " +cCambiar, "espacios", Len( cCambiar)
 
	cCambiar:= "0123456789"

// Fin
Me parece que deberías hacer un seguimiento de cCambiar para ver si en algún lugar, antes de pasarlo a pBuscarPeticionario(...), no se le está asignando un valor nil

espero "alumbre" algo :-)
Resistencia - "Ciudad de las Esculturas"
Chaco - Argentina
Post Reply