@=========================================================================================@
@ Monta a  data do relatório        - Celso - 23/02/2016                                  @
@=========================================================================================@
aDia = E900COP.RelPrd; 
aMes = E900COP.RelPrd; 
aAno = E900COP.RelPrd;

CopiarAlfa(aDia,1,2);   
CopiarAlfa(aMes,3,2);    
CopiarAlfa(aAno,6,2); 
aAno = "20" + aAno;
AlfaParaInt(aDia,nDia); 
AlfaParaInt(aMes,nMes); 
AlfaParaInt(aAno,nAno);
MontaData(NDia, NMes, NAno, NDatMon);

@===============================================================================================================================@
@ Retroage N dia(s) da data do relatório  a partir dos dias informados na tela  - itens que não são C e D  -Celso - 23/02/2016  @
@===============================================================================================================================@
Definir data vdatax;
Definir data vdataAnt;
Definir data vdataPos;
Definir numero vcep;
vDatax = NdatMon;   
 
nx = edias;
Se ((E075DER.CurAb2 <> "C") e  (E075DER.CurAb2 <> "D"))
      Inicio
          Para (i = 1; i <= nx; i++)  
              Inicio
                  RetDiaUtilAntPos(vDatax, vCEP, vDataAnt, vDataPos);
                  Se ((vDatax = vDataAnt) ou (vDatax > vDataAnt))
                      Inicio
                          VDatax = VDataAnt-1;
                      Fim;
                
                        RetDiaUtilAntPos(vDatax, vCEP, vDataAnt, vDataPos);
                        VDatax = VDataAnt;
              Fim;
  
          vdatpro  = VDatax;
     Fim;