Bruno,
Perdona que te moleste, pero te agradeceria que le echases un
vistazo, al siguiente trozo de codigo y me dijeses que es lo que estoy
haciendo mal, ya que como veras lo que estoy intentando, es ahorrar un
gran numero de lineas de codigo.

//así funciona perfectamente.

Method FichaRecNue() Class TPrincipal
Local oTN,oNU,oVar
oVar:=Array(22)

// Entrada del Titulo Nacional.
oVar[2]:= TEdit():Create( Venta )
oVar[2]:SetBounds( 124, 28, 300, 0 )
oVar[2]:Font:Size:=11
oVar[2]:Caption:=oTN
oVar[2]:OnExit:={|oSender|oTN:=oVar[2]:Caption}

// Entrada del Titulo Original.
oVar[3]:= TEdit():Create( Venta )
oVar[3]:SetBounds( 124, 58, 300, 0 )
oVar[3]:Font:Size:=11
oVar[3]:Caption:=oTO
oVar[3]:OnExit:={|oSender|oTO:=oVar[3]:Caption}

Return nil

//************************************************************************//

// Así NO funciona ya que las variables no captan los datos de entrada.

Static Procedure EntraDatos(ar,ve,c1,c2,c3,c4,tf,al,va)

ar:= TEdit():Create(ve)
ar:SetBounds(c1,c2,c3,c4)
ar:Font:Size:=tf
ar:Alignment:=al
ar:Caption:=va
ar:OnExit:={|oSender|va:=ar:Caption}

Return(va)



Method FichaRecNue() Class TPrincipal
Local oTN,oNU,oVar
oVar:=Array(22)

EntraDatos(oVar[2],venta,124,28,300,0,11,,oTN)
EntraDatos(oVar[3],venta,124,58,300,0,11,,oTO)

Return

perdona por las molestias y gracias por adelantado, un cordial saludo:

Fraguibo

Francisco,

El código de las funciones está bien, creo que el problema lo tienes en la llamada, intentas cambiar el valor de los parámetros oTN y oTO sin pasarlos por referencia, prueba así:

EntraDatos(oVar[2],venta,124,28,300,0,11,,@oTN)
EntraDatos(oVar[3],venta,124,58,300,0,11,,@oTO)

_________________
Un saludo,
Bruno Cantero
www.c3compiler.com

Hola, Francisco (y grupo).

Perdona que te haga un comentario (':oops:') pero no me he podido resistir...

Es respecto a tu interes en utilizar los arrays con la intención de ahorrar (':cry:') creo que se va a liar más el código... y aprovechando la situación, ¿porque no te olvidas de la función que utilizas para hacer las llamadas a las distintas situaciones de edición...
Utiliza la OOP, que lo vas ha ver MUCHO más claro... bueno si quieres aondar en el tema lo cometas y seguimos....

Jesús

Bruno,
Perdona pero a lo mejor yo NO me explique bien en mi consulta, por que lo queria consultar es que cuando, la función de entrada de datos, devuelve el control a la función que la ha llamado, las variables oTN y oTO no cargan, los datos de la función de entrada de datos y al grabarlas en la base de datos estan vacias.
Tambien he probado hacerlo como me indicabas y tampoco funciona.

Tambien quiero comentarte que cuando intento registrarme con mi nonbre, mi e-mail y mi contraseña, me dice que ya estoy registrado y sin embargo en el foro a parecco como invitado y no como registrado y tampoco aparece mi e-mail, que hay que hacer para que aparecca correctamente.

Un Saludo
Fraguibo

Francisco,



Intenta mandar un ejemplo completo.



Haz Login en el menú de los foros, pones tu usuario y tu clave.

_________________
Un saludo,
Bruno Cantero
www.c3compiler.com

Bruno,
Aqui te adjunto el codigo tal como me pides.

Un Saludo.
Fraguibo

Bruno,
Perdona pero te he remitido un archibo que NO es, pero que puede servir para que el foro lo consulte, ya que funciona perfectamente.

Aqui te adjunto el que me pides para revisar.

Un Saludo.
Fraguibo

Francisco,

Mira estas líneas de tu ejemplo:
// Boton Para Archivar.
::CrearBoton(Venta,21,430,214,23,9,"Archivar Esta Ficha",;
{|oSender|::Archivar(oTN,oTO,Venta:Close(),Venta:Destroy()})

Llamas a Archivar desde un codeblock, pero le pasas 4 parámetros y los dos últimos son para cerrar y destruir el formulario, es decir, antes de ejecutar la función Archivar se ha cerrado y destruído el forumlario, ¿no te faltará un paréntesis después de oTO?

_________________
Un saludo,
Bruno Cantero
www.c3compiler.com

Bruno,
Tienes razón se me ha olvidado poner el Parentesis, en el archivo que te mandado, pero en el archivo original si que esta bien puesto y me grava las variables en la base de datos, antes de destruirse la ventana, ya que salen encima de la ficha unos mensages, de que la ficha se esta archivando etc., etc.
Pero las entradas de datos estan vacias y por lo tanto no queda nada gravado en la base de datos.

Un saludo y perdona por las molestias.

Fraguibo