Rotina para conversao de valores entre Moedas

Sintaxe:

nValor:= xMoeda(nExp1,nExp2,nExp3,dExp1)

Onde:
//
nExp1:= Valor da Moeda de Partida
nExp2:= Numero da Moeda de Partida
nExp3:= Numero da Moeda de Destino
nExp4:= Valor na Moeda de Destino
dExp1:= Data base da Conversão


Exemplo:

//
nValLiq := nValRec-nMulta-nJuros+nDescont+nOtrga-nAcresc+nDecresc+Round(NoRound(xMoeda(nTotAbat,SE1->E1_MOEDA,nMoedaBx,dBaixa,3,nTxMoeda),3),2)