Histórico da Página
Ponto de Entrada
Descrição: | Este Ponto de Entrada será executado na rotina de Transferência de Peças (OFIOM430) e permite a inclusão de botões no Ações Relacionadas do Browse. Será permitido a inclusão de mais de um botão, ou seja, a quantidade necessária para a empresa. |
Localização: | Atualizações / Mov. Peças / Transferência de Peças |
Eventos: | Static Function MenuDef()
Local aRecebe Local aRotina := {}
AADD(aRotina, { STR0004,"axPesqui" , 0 , 1 }) // Pesquisar AADD(aRotina, { STR0005,"OM430VIS" , 0 , 2 }) // Visualizar AADD(aRotina, { STR0006,"OM430INCL" , 0 , 3 }) // Incluir AADD(aRotina, { STR0007,"OM430ALT" , 0 , 4 }) // Alterar AADD(aRotina, { STR0008,"OM430CANC" , 0 , 5 }) // Cancelar AADD(aRotina, { STR0009,"OM430GeraNF", 0 , 6 }) // Gera NF AADD(aRotina, { STR0010,"OM430LibFec", 0 , 7 }) // Conferir AADD(aRotina, { STR0011,"OM430IMPORD", 0 , 8 }) // Impressao da Ordem de Busca AADD(aRotina, { STR0012,"OM430LEG" , 0 , 9 }) // Legenda
If ExistBlock("O430AROT") aRecebe := ExecBlock("O430AROT",.f.,.f.,{aRotina} ) Endif If Valtype(aRecebe) == "A" aRotina := aClone(aRecebe) Endif
Return aRotina
|
Programa Fonte: | OFIOM430.PRW |
Função: | MENUDEF |
Retorno: | aRotina |
Exemplo:
User Function O430AROT()
Aadd(aRet, { "PONTO DE ENTRADA", "U_FS_TESTE()", 0, 2 } )
Return aClone(aRet)
User Function FS_TESTE()
MsgInfo("Ponto de entrada O430AROT executado com sucesso.")
Return(.t.)