Exemplo do Ponto de Entrada MA650BUT.
Exemplo do Ponto de Entrada:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | //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;