Árvore de páginas

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.)