FJURREC - Ponto de Entrada recalculo de juros a recebe

#INCLUDE 'Protheus.ch'
 
User Function FJURREC()

    Local aArea     := GetArea()
    Local dBaixa    := PARAMIXB[1] //Data da baixa
    Local dVencto   := PARAMIXB[2] //Data de vencimento do título
    Local nAtraso   := PARAMIXB[3] // Numero de dias em atraso
    Local nValJur   := PARAMIXB[4] //Valor de Juros cobrados por dia
    Local nPerJur   := PARAMIXB[5] //Percentual de Juros cobrados por dia
    Local nJuros    := PARAMIXB[6] // Juros calculado pela rotina
    Local cAliasSE1 := PARAMIXB[7] // Alias temporário utilizado pela rotina de calculo.


    CONOUT("Recalculo de Juros" ,"Execução do Ponto de Entrada: FJURREC")

    If cAliasSE1 == "SE1" .AND.(cAliasSE1)->E1_ORIGEM = 'LOJA701' .AND. (cAliasSE1)->E1_TIPO $ "CD |CC "
        nJuros := 0
    Endif

    RestArea(aArea)

Return nJuros