Tempo aproximado para leitura:00:02:00 min
Dúvida
Como utilizar o ponto de entrada FI040ROT para inclusão de novos itens no menu aRotina?
Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) – ADVPL – A partir da versão 11.80
Solução
Para solucionar essa dúvida, realize os seguintes passos:
User Function FI040ROT()
Local aRotina := AClone(PARAMIXB)
AAdd(aRotina, {"TESTE 1", "U_MyFunction", 0, 3})
Return (aRotina)
Retorno
Retorna um array aRotina com o(s) novo(s) itens do menu que foram adicionados.
Eventos de chamada do Ponto de Entrada
If ExistBlock("FI040ROT")
aRotinaNew := ExecBlock("FI040ROT",.F.,.F.,aRotina)
If (ValType(aRotinaNew) == "A")
aRotina := aClone(aRotinaNew)
EndIf
EndIf
Programa Fonte FINA040.PRX
Observações
Está presente na função MenuDef()
Parâmetros
(ParamIxb) = Recebe um array aRotina com o menu padrão e adiciona novos itens ao menu
0 Comentários