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;