Abrangências: | Microsiga Protheus 10 , Microsiga Protheus 11 |
Versões: | Microsiga Protheus 10 , Microsiga Protheus 11 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Idiomas: | Português (Brasil) |
Adiciona novos botões na EnchoiceBar, da consulta padrão _EM, utilizada no campo "PARA" ao optar pelo envio de relatório por email.
ADDBOOK.PRW
Ap5WABbtn - Adiciona botões na consulta padrão _EM ( [ oFolder ] ) --> aButtons
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
oFolder | Objeto | Objeto Folder da tela. |
#include "rwmake.ch"#include "protheus.ch"User Function Ap5WABbtn()Local aButton := {}Local oFolder := ParamIxb[1]/*aButton[n][1] - Imagem do botãoaButton[n][2] - Bloco de código contendo a ação do botãoaButton[n][3] - Nome do botãoaButton[n][4] - Tooltip*/aadd(aButton, {"EDIT", {|| clicou(oFolder) }, "Editar", "Editar" })aadd(aButton, {"MAIS", {|| MsgAlert("Clicou") }, "Teste", "Teste" })Return aButtonStatic function clicou(oFolder)Local nOption := oFolder:nOptionIf nOption == 1 // Folder Usuario MsgAlert("Clicou na folder Usuario " ) ElseIf nOption == 2 // Folder Cliente MsgAlert("Clicou na folder Cliente registro " + str(SA1->(Recno()))) ElseIf nOption == 3 // Folder Fornecedor MsgAlert("Clicou na folder Fornecedor registro " + str(SA2->(Recno()))) ElseIf nOption == 4 // Folder Vendedor MsgAlert("Clicou na folder Vendedor registro " + str(SA3->(Recno()))) ElseIf nOption == 5 // Folder Contatos MsgAlert("Clicou na folder Contatos registro " + str(SU5->(Recno()))) EndIfReturn
Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
Array of Record | Global | Não |