MMLibera

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;