| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Backoffice |
| Módulo: | Financeiro |
| Função: | Atualização de Pagamento de Comissões (MATA530) |
Este ponto de entrada permite que os campos: Gera Dirf (E2_DIRF) e Cód.Ret. (E2_CODRET) sejam preenchidos no momento da geração de pagamentos de comissões.
Comportamento e Regras de Negócio
O ponto de entrada M530DIRF tem como objetivo a manipulação e gravação dos campos referentes à DIRF. Ele é alimentado com os dados provenientes do registro de comissão (SE3) e, caso o parâmetro MV_CRF_SE3 esteja preenchido, seu valor será priorizado e repassado ao ponto de entrada.
A rotina de Atualização de Pagamento de Comissões (MATA530) passou por uma reestruturação em novembro de 2025.
Em decorrência dessa alteração, o título gerado no contas a pagar não estará mais disponível no momento em que o ponto de entrada for acionado.
Dessa forma, eventuais customizações que dependam desse comportamento poderão necessitar de ajustes. Adicionalmente, novos parâmetros foram disponibilizados para utilização, conforme detalhado nos tópicos a seguir.
Para utilizar o ponto de entrada M530DIRF é necessário que o fonte MATA530 esteja com a data igual ou superior a 28/04/2026. |
Os dados são enviados ao ponto de entrada através do array ParamIXB com a seguinte composição:
| Nome | Tipo | Descrição |
|---|---|---|
| PARAMIXB[1] | Caracter | Código de retenção (Conteúdo do parâmetro MV_CRF_SE3) |
| PARAMIXB[2,1] | Caracter | R_E_C_N_O_ do registro de comissão. |
| PARAMIXB[2,2] | Caracter | Filial do registro de comissão. |
| PARAMIXB[2,3] | Caracter | Prefixo do registro de comissão. |
| PARAMIXB[2,4] | Caracter | Número do registro de comissão. |
| PARAMIXB[2,5] | Caracter | Parcela do registro de comissão. |
| PARAMIXB[2,6] | Caracter | Sequência do registro de comissão. |
| PARAMIXB[2,7] | Caracter | Vendedor do registro de comissão. |
Nome | Tipo | Descrição |
cCodRet | Caracter | Variável com a informação do Código de Retenção que será gravado no respectivo campo. |
#include "protheus.ch"
/*/{Protheus.doc} M530DIRF
Este ponto de entrada permite que os campos: Gera Dirf (E2_DIRF) e Cód.Ret. (E2_CODRET)
sejam preenchidos no momento da geração de pagamentos de comissões.
@author
@since 28/04/2026
@version 12.1.2510
/*/
user function M530DIRF()
Local cCodRet := ""
Local aAreaSE3 := SE3->(GetArea())
// ParamIXB[1] Esta posição contém o código de retenção informado no PARAMETRO "MV_CRF_SE3"
// ParamIXB[2,1] R_E_C_N_O_ do registro de comissão
// ParamIXB[2,2] Filial do registro de comissão
// ParamIXB[2,3] Prefixo do registro de comissão
// ParamIXB[2,4] Número do registro de comissão
// ParamIXB[2,5] Parcela do registro de comissão
// ParamIXB[2,6] Sequencia do registro de comissão
// ParamIXB[2,7] Vendedor do registro de comissão
SE3->(DbSetOrder(1))
SE3->(DbGoTo(ParamIXB[2,1]))
// Tratamento dos dados da comissão para verificar se o título deve ou não ser enviado para a DIRF.
// O codigo de retenção 8045 abaixo, é somente um codigo exemplo.
If ParamIXB[2,7] $ "000001" .And. (Empty(ParamIXB[1]) .Or. ParamIXB[1] != "8045")
cCodRet := "8045"
Else
cCodRet := ParamIXB[1]
Endif
RestArea(aAreaSE3)
Return cCodRet |