Trecho do ponto de entrada que faz a chamada para o Ponto de Entrada que o cliente renomeia para XMA140BUT

O fonte MA140BUT.prx (pasta 0-Pontos Entrada Protheus) apenas chama a função U_MLA140BT() (fonte MLA140BT.prw, pasta Pontos Entrada do projeto Central XML), que contém a regra:

	If lUsaCXml
		// Força atualização Refresh do GetDados
		Eval(bGDRefresh)
	Endif

	// Executa Ponto de Entrada do Cliente que adiciona botões na EnchoiceBar
	If ExistBlock( "XMA140BUT" )
		aUsButtons := ExecBlock( "XMA140BUT", .F., .F. )
		If ValType(aUsButtons) == 'A'
			Return aUsButtons
		Endif
	EndIf

Return Nil

Uso na Central XML

• A Central XML não adiciona botões: usa o ponto de entrada para forçar o refresh do GetDados ao abrir a tela da Pré-nota, corrigindo o erro de visualização do item 2 duplicado na linha 1.
• Parâmetro XM_USACXML indica se a Central XML está em uso (padrão .T.).
• O ponto de entrada ZEXPEXML, se compilado, recebe {"MA140BUT", PARAMIXB}; retornando .F., a rotina sai sem executar a regra.
• Compatibilização: o cliente que já tem o MA140BUT renomeia sua User Function para XMA140BUT. Os botões retornados por ela são devolvidos ao padrão.

Documentação oficial no TDN

MA140BUT - Inclusão de botões no recebimento

Ponto de entrada MA140BUT

Ponto de Entrada

Exemplo:

User Function MA140BUT()

Local aBotao := {}

aAdd(aBotao, {"BUDGET", {|| U_MinhaFuncao() }, "Minha Função"})

Return aBotao