...
IF ExistBlock( "CTSETBUT" ) aCTBA130 := ExecBlock( "CTSETBUT",.F.,.F.,aRotina)User function CTSETBUT( aRotina )Return ( {{ "BOTÃO" , 'Alert("HIZO CLIC AQUÍ")', 0 , 1}} )
...
...
O ponto de entrada CTSETBUT permite a inclusão de botões no cadastro Set Of Books.
CTBA130.PRW
CTSETBUT - Botões ( ) --> aRotina
IF ExistBlock( "CTSETBUT" ) aCTBA130 := ExecBlock( "CTSETBUT",.F.,.F.,aRotina)User function CTSETBUT( aRotina )Return ( {{ "BOTÃO" , 'Alert("CLICOU AQUI")', 0 , 1}} )