Histórico da Página

#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