Ponto de Entrada – MA650BUT

Exemplo do Ponto de Entrada MA650BUT.

Exemplo do Ponto de Entrada:

//Bibliotecas
#Include "Protheus.ch"

/*--------------------------------------------------------------------------------------------------------------*
 | P.E.:  MA650BUT                                                                                              |
 | Desc:  Adiciona ações relacionadas no cadastro de Ordem De Produção                                          |
 | Link:  http://tdn.totvs.com/display/public/mp/MA650BUT+-+Adiciona+itens+no+menu+principal+do+fonte+MATA650   |
 *--------------------------------------------------------------------------------------------------------------*/

User Function MA650BUT()
	Local aArea := GetArea()
	
	//Adicionando rotinas no ações relacionadas
	aAdd(aRotina, {'* Item Teste','Alert()', 0, 6 })
	
	RestArea(aArea)
Return aRotina

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;

Links:

Pesquisa no TDN