#INCLUDE #INCLUDE "PROTHEUS.CH" #INCLUDE #INCLUDE "PARMTYPE.CH" //--------------------------------------------------------------------------------------- /*/{Protheus.doc} F080TXIR Ponto de Enntrada executado pela rotina FINA080 nas operações de: - 4: Inclusão de Baixa; ou - 5: Cancelamento e/ou Exclusão de Baixa. Objetivo: Captar a taxa de conversão a ser usada exclusivamente no cálculo do IRRF. Critérios: Somente operações originadas por EXECAUTO e títulos cujo campo SE2->E2_ORIGEM contenha a sequência "ESS" no conteúdo.
@author Norberto M de Melo @since 22/04/2020 @version 12 /*/ //--------------------------------------------------------------------------------------- User FUNCTION F080TXIRUser FUNCTION F080TXIR() Local nRet Local nRet := 0 Local cChaveSE2 0 Local cChaveSE2 := ParamIXB ParamIXB[1] // E2_FILIAL + E2_PREFIXO + E2_NUM + E2_PARCELA + E2_TIPO + E2_FORNECE + E2_LOJA Local dDataOp Local dDataOp := ParamIXB ParamIXB[2] // Valor da Variável dDataBase qdo OP = 4 ou valor do campo SE2->E2_BAIXA qdo OP = 5 Local nOpc Local nOpc := ParamIXB ParamIXB[3] // 4 - Baixa Manual ; 5 - Cancelamento/Exclusão de Baixa If If !EMPTY(cChaveSE2) .and. !EMPTY(dDataOp) .and. !EMPTY(nOpc) Help Help("FINA080:F080TXIR",,"MESSAGE","PE: F080TXIR",; "Captação da Taxa de conversão para geração do título de IRRF.", 4 4, 0 0) EndIf nRet nRet := 4
RETURN nRet4 RETURN nRet //---------------------------------------------------------------------------------------
|