Histórico da Página

#INCLUDE "PROTHEUS.CH"

User function MyFun()

	Help(" ",1,"TESTE PE",,"PONTO DE ENTRADA PARA TESTE DOS BOTOES NA PCOA500",1,0)//"Parâmetro MV_ATFMOED configurado incorretamente"

Return 

User Function PCOA500BTN()

//Exemplo de uma adição de botao, forma simples
// aButtons := {{  'PEDIDO', {|| u_MyFun() },"Exemplo de Botao" } }

//Exemplo de mais de um botao
aButtons := Array(2,3)
aButtons[1][1] := 'PEDIDO' //Identificador
aButtons[1][2] := {|| u_MyFun() } //Função ou bloco de codigo para ser executado ao clicar no botao
aButtons[1][3] := 'Exemplo 1' //Nome que será ao enxergar o botao na tela

//2
aButtons[2][1] := 'PEDIDO 2' //Identificador
aButtons[2][2] := {|| u_MyFun() } //Função ou bloco de codigo para ser executado ao clicar no botao
aButtons[2][3] := 'Exemplo 2' //Nome que será ao enxergar o botao na tela

Return(aButtons)

If ExistBlock( "PCOA500BTN" )

	If ValType( aUsButtons := ExecBlock( "PCOA500BTN", .F., .F. ) ) == "A"
		aButtons := {}
		AEval( aUsButtons, { |x| AAdd( aButtons, x ) } )
	EndIf
EndIf