Histórico da Página

#INCLUDE "PROTHEUS.CH"
 
User Function FBXL9816()
 
Local cChave    := ParamIXB[1]
Local dDtBaixa  := ParamIXB[2]
Local dDtDebito := ParamIXB[3]
Local dDtTaxa   := dDataBase
Local aAreacAlias     := GetArea()""
Local aAreaSEDaArea     := NILGetArea()
Local nTaxa     := 0
 
dDtTaxa:=dDtBaixa-2
 
If SE2->E2_MOEDA > 1 
    dbSelectArea('SED')
	aAreaSED := SED->(GetArea())
    SED->(dbSetOrder(1))
    SED->(dbSeek(xFilial('SED')+SE2->E2_NATUREZ))
    If SED->ED_CALCIRF=='S'
        //-- Retorna taxa na data solicitada
         
		nTaxa:=RecMoeda(dDtTaxa,SE2->E2_MOEDA)     
	EndIF
	RestArea(aAreaSED)
EndIF
 5
EndIF
 
RestArea(aArea)

Return(nTaxa)