Ap5WABbtn - Adiciona botões na consulta padrão _EM

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

aButtons(array_of_record)
• Array contendo os botões a serem adicionados na EnchoiceBar.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

#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