RESUELTO ---> arreglo en BTN_ACTION

[Male]

Estoy trabajando con PANEL, he creado los botones con datos de la base de datos productos.
me podrán ayudar o indicarme como se puede hacer para que BTN_ACTION tome o se coloque el código del producto.


SELECT 3
PRODUCTOS->(DBSETORDER(1))
nProc := 1
cBcod:=1
SET FILTER TO ITEM13 = "BEBIDA"
PRODUCTOS->(DBGOTOP())
IF ! PRODUCTOS->(EOF())
WHILE ! PRODUCTOS->(EOF())
SysRefresh()
nCodPr =nProc
cBebida:= PRODUCTOS->NOME
cBcod := PRODUCTOS->CODIGO

PRODUCTOS->(DBSKIP(1))
*====================================================
Aadd(aBtns, { cBebida + CRLF + "REFRESCO" + CRLF + cBcod,LoadBitmap( GetResources(), "COTROS" ), { || BTN_ACTION(oPdd, @cBcod ) } } )
*====================================================

END

ENDIF
PRODUCTOS->(DBCLEARFIL(NIL)) //LoadBitmap( GetResources(), cPdia )
PRODUTCOS->(DBGOTOP())

con esta linea creo los botones y coloca descripción y código

Aadd(aBtns, { cBebida + CRLF + "REFRESCO" + CRLF + cBcod,LoadBitmap( GetResources(), "COTROS" ), { || BTN_ACTION(oPdd, @cBcod ) } } )

pero cuando hago clic en BTN_ACTION me arrastra el mismo codigo para todos los botones y no codigo por boton

[Male]

ya quedo resuelto y dejo la solución por si alguien la necesita. la solución fue con codeblock

Code: Select all  Expand view

function GenBlock( x )

return { || BTN_ACTIONP(x) }