FiveTech Software tech support forums

... ) {|x| IF(Pcount()>0, oBrow:aArray[oBrow:nAt, &(nSize) ] :=x, ; oBrow:aArray[oBrow:nAt, &(nSize) ])} )) NEXT nSize You need to use the detached locals technique, because nSize is called from ithin a code block, the value of nSize at run time will be Len(aSize) + 1 for all columns, certanly ...

... oLbx:ACOLUMNS[I]:CHEADING := aTmp[1][i] oLbx:SetData(I, FieldWBlock( aTmp[2][i], Select() ) ) ....bla bla bla NEXT aTmp:={} return You need to use detached locals. Also it's better to pass the alias name to Select(), or the progam might end up looking for the field in the wrong table! > FOR ...

Tienes que usar lo que se denomina "detached locals":

Local x=1
Do while .not. eof()
obtnF[x]:cCaption:=( familia->texto_tecl )
obtnF[x]:bAction := GenBlock( x )
x++
skip
if x>12
exit
endif
enddo

function GenBlock( x )

return { || msginfo( str (x) ) }

Asi no lo puedes hacer. Tienes que usar "detached locals": for i:=1 to len(PoBtc) @ lin,col say PoBtc[i] OF oWndp DESIGN PIXEL SIZE 100,20 BORDER PoBtc[i]:bLButtonUp = GenBlock( PoBtc, i ) next ... ...

Caballero,,, a los años,,, revisa este hilo
http://fivetechsoft.com/forums/viewtopi ... t=detached

Salu2

Jose Luis, Usa "detached locals": local bAction ... For i=1 to Len(aActividad) bAction = GenCodeBlock( aActividad, i ) MENUITEM i18n(aActividad[i]) ACTION Eval( bAction ) Next ... ...

Rafa,

En realidad lo que hace Clipper es crear automaticamente las "detached locals", pero eso tiene su punto de riesgo de no saber exactamente lo que está ocurriendo

Resulta que hay que usar los detached local.... ummm.... eso
pasa por querer seguir usando codigo viejo de clipper....

Porque esto funciona perfectamente en clipper DOS:
@ n,1 get aHurdle[g] picture "9999.99"

pero no con Fivewin/Harbour.

Saludos
Rafa Carmona

Silvio, You may have to use "detached locals" for your counters. Because the counter has already been completely through the loop before the dialog gets initialized, the counter is at the maximum value so it is as if it only went through ...

Joel,

El codeblock te está manteniendo el último valor de i. Tienes que usar lo que se denomina "detached locals":

oDlg:aControls[i]:bAction:= GenBlock( oDlg, i, Self )

...

function GenBlock( oDlg, i, Self )

return {|nId| ::PutVal(oDlg:aControls[i]:cTitle) }

Willi,

Prueba así, usando "detached locals":

COLUMN oCol TITLE "" DATA SubStr(Almmas->codcta,1,15)

oCol:aTitle = GetTitle( aCabe, nCont )

...

function GetTitle( aCabe, nCont )

return { || aCabe[ nCont ] }

ó prueba a devolver esto:

return { { || aCabe[ nCont ] } }

... prueba con: SetRClicked( oMesa, nCount ) oMesa[ nCount ]:bRClicked = { | nRow, nCol | OpcionMesa( 2, nCount - 200 ) } Esto es a lo que se llama "detached locals" (variables locales que quedan "atrapadas" dentro de un codeblock :)

Here's a way with the detached local method... for i := 1 to Len( aGets ) @i,0 GET oGets[i] VAR aGets[i] oGets[i]:bSetGet := oGets[i]:oGet:Block := ArrayGetBlock(aGets,i) next function ArrayGetBlock(aGets,i) return { | u | If( PCount()==0, ...

Here's a way with the detached local method...

for i := 1 to Len( aGets )
@i,0 GET oGets[i] VAR aGets[i]
oGets[i]:bSetGet := oGets[i]:oGet:Block := ArrayGetBlock(aGets,i)
next


function ArrayGetBlock(aGets,i)

return { | u | If( PCount()==0, aGets[i], aGets[i]:= u ) }