#Include "PROTHEUS.CH"
User Function PCOA0501()
Private aUsrRotinas := {}
aAdd(aUsrRotinas,{"Titulo", 'Processa({|| CTBR080() })', 0, 2}) //Exemplo de uma barra com processa para progresso visual chamando por exemplo um relatório.
aAdd(aUsrRotinas,{"Titulo 4", "U_Teste", 0, 2}) //Exemplo chamando uma função de usuário que exibe um help.
Return aUsrRotinas
User Function Teste()
Help(" ",1,"Teste",,"teste ´PE passou",1,0)
Return |