Cross Segmentos - TOTVS Backoffice (Linha Protheus) - Financeiro - Inclusão de botão customizado no FINA100

Tempo aproximado para leitura: 00:05:00 min

Dúvida
Como incluir um botão com uma rotina customizada na EnchoiceBar da rotina Posição de Clientes (FINA100)?

Ambiente
Cross Segmentos - TOTVS Backoffice (Linha Protheus) - Protheus Financeiro - Todas as versões

Solução
Para adicionar um botão customizado na interface da rotina FINA100, é necessário utilizar o Ponto de Entrada FA100ROT. Este ponto de entrada recebe o array original de botões e permite a inclusão de novas opções que farão chamadas para funções de usuário (User Functions) específicas.

Passos

1. Crie um novo código-fonte em seu editor AdvPL.

2. Declare a User Function FA100ROT().

3. Clone o array recebido via PARAMIXB[1], que contém os botões originais da rotina.

4. Utilize a função AAdd para adicionar a sua rotina customizada no array de botões.

5. Retorne o array modificado na função.

6. Compile o código-fonte no seu ambiente.

Abaixo, segue o exemplo de implementação em AdvPL:

#include "protheus.ch"
#include "rwmake.ch"

User Function FA100ROT()
    Local aBotao := aClone(PARAMIXB[1]) //Adiciona Rotina Customizada a EnchoiceBar
    Local aArea := GetArea()

    AAdd(aBotao, {"BotaoCustom", "U_FA100USER()", 0 , 7 })

    RestArea(aArea)
Return aBotao

//Rotina chamada pelo botão criado na EnchoiceBar
Function U_FA100USER()
    MsgAlert("Teste de Ponto de Entrada")
Return .T.

Saiba Mais 

FA100ROT - Adiciona rotina a EnchoiceBar