Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#INCLUDE 'PROTHEUS.CH' User Function GPE11ROTGPBWCORES() Local aButtonsaTemp := {} Local aSubMenuaCores := {} //Cria subMenu para um botão aSubMenu := { { "Teste 01" ,"u_subRot1" , 0 , 2, 0},; { "Teste 02" ,"u_subRot2" , 0 , 3, 0},; { "Teste 03" ,"u_subRot3" , 0 , 4, 0} } //Cria botao que chama a funcao diretamente aAdd( aButtons, { "Teste", "u_teste" ,0, 2,,.F. }) //Cria botao semelhante aos demais, com submenus aadd( aButtons, { "Teste Submenu", aSubMenu , 0 , 2} ) Return aButtons // Funções de usuário para apresentação de mensagens User Function Teste() Alert ("Teste PE GPE11ROT para criação de menu simples!" ) Return User Function subRot1() Alert ("Teste 01 do PE GPE11ROT para criação de subMenu!" ) Return User Function subRot2() Alert ("Teste 02 do PE GPE11ROT para criação de subMenu!" ) Return User Function subRot3() Alert ("Teste 03 do PE GPE11ROT para criação de subMenu!" ) ReturnaClone(PARAMIXB) Local i AADD(aTemp, {"SRA->RA_SITFOLH == ' ' .AND. Date() <= SRA->RA_DTVTEST", "BR_PRETO"}) For i := 1 to len(aCores) AADD(aTemp,aCores[i]) Next aCores := aClone(aTemp) Return(aCores) |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas