FiveTech Software tech support forums

I resolved with cargo

hi Silvo, as Detlef say : detached Locals when build in a "Loop" and use "Counter" you must call a Function to build a String for Codeblock so your "Counter" Number will be a STR() in a String      FOR ii := 1 TO 26              // A-Z         @ 40, ( ii - 1 ) *...

Sorry I explain I making a multiple invoice for beach management in managing the beach, in addition to individual customers, there are associations or hotels that can book an x number of umbrellas, instead of placing an order for each umbrella at the hotel, I thought of making a multiple order and a...

Because ACTION clause generates an "internal" codeblock, so run ok: nRow:=30For n= 1 to 9   #Define PARAMS1_ oDlg, aBtnCalc, nRow, n, oInvoice, aItems, @nRowItems, fromdate, Todate   #Define PARAMS2_ oDlg, aBtnCalc, nRow, n, oInvoice, aItems,  nRowItems, fromdate, Todate   GenButton(PA...

dear Silvio,

search the forum for detached locals.
Or have a look here http://forums.fivetechsupport.com/viewtopic.php?f=3&t=41373&hilit=detached+local

Regards, Detlef

I have 9 button when I press a button return allway 9 nRow:=30 For n= 1 to 9 @ nRow,2 BTNBMP aBtnCalc[n] PROMPT ltrim(str(n+1)) FLAT SIZE 20,30 PIXEL of oDlg ; ACTION AddItems(oInvoice,aItems, GenBlock_(n) ,@nRowItems,fromdate,Todate) nRow+=32 NEXt fUNCTION GenBlock_(n) RETURN n and I Wish insert o...

Silvio.Falconi wrote:ty to insert the action before of the BLOCK


baction := GenBlock_Faiz(hh)
MENUITEM hhh1 BLOCK bAction

FUNCTION GenBlock_Faiz(nhh)
LOCAL cProc := "Faiz"+ALLTRIM(STR(nhh))
RETURN {|| &(cProc)() }

on a my menu I make this

Thank you Silvio, Tried and same error.

ty to insert the action before of the BLOCK


baction := GenBlock_Faiz(hh)
MENUITEM hhh1 BLOCK bAction

FUNCTION GenBlock_Faiz(nhh)
LOCAL cProc := "Faiz"+ALLTRIM(STR(nhh))
RETURN {|| &(cProc)() }

on a my menu I make this

... oCategory4=oCategory3-12 for oCategory2 = 1 to oCategory1 go oCategory2 oNomCat=category->categoria oNumeroCt=category->numero bAction := genblock(oNumeroCt) if oCategory2 <= 12 @ (0.5-1.5)+(oCategory2*1.5), 46 BUTTON alltrim(oNomCat) OF oDlg SIZE 80, 20 ACTION eval(bAction) elseif ...

... for oCategory2 = 1 to oCategory1 go oCategory2 oNumeroCt=category->numero bAction := GenBlock( oNumeroCt ) if oCategory2 <= 12 @ (0.5-1.5)+(oCategory2*1.5), 46 BUTTON alltrim(oNomCat) OF oDlg SIZE 80, 20 ACTION EVAL (bAction) elseif ...

Please substitute bEditValue in place of bStrData in the GenBlock function and try again. It should work

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) ) }

VC pode experimentar

function GenBlock( v, c )
RETURN { |u| If( u == Nil, v[c], v[c] := u ) }

... CODE 0006:F832 000EFH BRWGOTO CODE 0006:F922 00137H _RECCOUNT CODE 0006:FA5A 00145H _RECCOUNT CODE 0006:FBA0 00046H GENLOCAL CODE 0006:FBE6 00039H GENBLOCK CODE 0006:FC20 00039H GENBLOCK CODE 0007:0000 004BCH REPORT CODE 0007:04BC 00197H UPSTABLE CODE 0007:0654 00997H SETFILTER CODE 0007:0FEC 00134H ...

... CODE 0006:FA4E 000EFH BRWGOTO CODE 0006:FB3E 00137H _RECCOUNT CODE 0006:FC76 00145H _RECCOUNT CODE 0006:FDBC 00046H GENLOCAL CODE 0006:FE02 00039H GENBLOCK CODE 0006:FE3C 00039H GENBLOCK CODE 0007:0000 004BCH REPORT CODE 0007:04BC 00197H UPSTABLE CODE 0007:0654 00997H SETFILTER CODE 0007:0FEC 00134H ...