Bienvenido al foro del Compilador de C3.

Este foro es abierto para todos, aquí podrás indicar los errores, bug's y defectos que encuentres en tus pruebas con C3, así como consultar todo lo que precises.

En este grupo podrás tambien compartir con el resto de compañeros tus experiencias con C3.

_________________
Un saludo,
Bruno Cantero
www.c3compiler.com

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 ungran 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

Gracias,

Ya me he registrado

Saludos
Jorge Mason