MMLibera

Liberar o objeto para tratamento das rotinas de multimoeda.

Sintaxe: MMLibera();

Exemplo:

Definir Alfa vMoeEmp;

Definir Alfa vRetAlf;

MMCria;

MMBuscaDados("MOEEMP",VMoeEmp,VRetNum);

Se (E301Tcr.CodMoe <> VMoeEmp)

Inicio

MMParametrosCarga("CODMOE",E301Tcr.CodMoe,0);

MMParametrosCarga("DATBAS","",EDatBas);

MMParametrosCarga("DATEMI","",E301Tcr.DatEmi);

MMParametrosCarga("DATPGT","",EDatBas);

MMParametrosCarga("VLRBAS","",E301Tcr.VlrAbe);

MMExecuta();

MMBuscaDados("VlrCor",VRetAlf,FVlrCor);

MMBuscaDados("VlrOde",VRetAlf,FVlrOde);

Fim;

MMLibera;

Utilização da Função (dependentes): Nenhum dependente.

Este artigo ajudou você?