...
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#include "rwmake.ch"
#include "Topconn.ch"
#include "protheus.ch"
#INCLUDE "FWMVCDEF.CH"
User Function MA080MNU()
Local aRotina := ParamIxb[1]
ADD OPTION aRotina TITLE "opção adicionada 01" ACTION 'A080Manut' OPERATION 2 ACCESS 0 //"Visualizar"
ADD OPTION aRotina TITLE "opção adicionada 02" ACTION 'A080Manut' OPERATION 2 ACCESS 0 //"Visualizar"
ADD OPTION aRotina TITLE "opção adicionada 03" ACTION 'A080Manut' OPERATION 2 ACCESS 0 //"Visualizar"
ADD OPTION aRotina TITLE "opção adicionada 04" ACTION 'A080Manut' OPERATION 2 ACCESS 0 //"Visualizar"
ADD OPTION aRotina TITLE "opção adicionada 05" ACTION 'Alert("PE MA080MNU")' OPERATION 4 ACCESS 0 //"Executa Função"
Return aRotina
|
...
