Função RecMoeda

Rotina de verIficacao de valor da moeda em detrminada data nExp1:= RecMoeda(dExp1,cExp1) nExp1:= Retorna valor da moeda solicitada dExp1:= Data recebida para posicionamento no Arq. de Moeda cExp1:= Moeda a qual deseja-se verIficar o valor

Local dData := dDatabase
Local cMoeda := "02"

RecMoeda(dData,cMoeda)