FiveTech Support Forums

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

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