Buenas otra vez.
No consigo que coja las variables detached locals. Este es el codigo, y siempre coge el valor de la ultima variable oCategory1 pulsando cualquiera de los botones generaldos. Lo que quiero es que cuando pulse el boton, se ejecute la funcion categorias(x), donde x es la variable que en teoria debe haber cogido como detached locals.
Gracias por todo.
use category
oCategory1=reccount()
oCategory3=oCategory1-12
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 oCategory2 > 12 .and. oCategory2 <= 24
@ (0.5-1.5)+((oCategory2-12)*1.5), 61 BUTTON alltrim(oNomCat) OF oDlg SIZE 80, 20 ACTION eval(bAction)
elseif oCategory2 > 24
@ (0.5-1.5)+((oCategory2-24)*1.5), 76 BUTTON alltrim(oNomCat) OF oDlg SIZE 80, 20 ACTION eval(bAction)
endif
next
close category
ACTIVATE DIALOG oDlg CENTERED
return nil
=================================================================
function GenBlock( oNumeroCt )
return { || categorias(oNumeroCt) }
=================================================================