Problema em Report e exportação Excel

[Daniel Halon]

Boa noite pessoal, estou de novo aqui pedindo um HELP.

No Reporte, aparece separado o dado do mesmo entregador, sendo que pertence a ele mesmo.

Quando exporto para Excel, sai junto, como deveria ser, porem o texto do total geral, no aparece no excel,

e tampouco a quantidade de entregas.

Alguem sabe me dizer o que estou fazendo errado?

https://drive.google.com/file/d/1erqL76GwMTt05RnRbKlFc0KQO9fjvKmc/view?usp=sharing

https://drive.google.com/file/d/16nzJa5uMsnULOoO2XCI6eDyWLbP-e3oY/view?usp=sharing

 

Func Reporte_Entrega_mot_Datas(vDataIni, vDataFin, vTurno, vEntregador, vDetalhado)
  Static oReport

  #define BLANCO     1
  #define ROJO       2
  #define AMARILLO   3
  #define AZUL       4
  #define VERDE      5

  LOCAL NOME := SPACE(25)
  LOCAL oFont1, oFont2, oFont3, oPen1, oPen2, cTit

  cTit := ALLTRIM(NEWPAR->EMPRESA1)

  DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-10
  DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,-12 BOLD
  DEFINE FONT oFont3 NAME "ARIAL" SIZE 0,-12 BOLD
  DEFINE FONT oFont4 NAME "ARIAL" SIZE 0,-9  BOLD
  DEFINE PEN oPen1 WIDTH 1  
  DEFINE PEN oPen2 WIDTH 1  

  IF TELE0060->(Reccount()) == 0
    MsgStop(OemToAnsi('Nao tem registros para editar'))
    Return NIL
  ENDIF

  SELECT TELE0060
  DATABASE oTele0060
  oTele0060:Load()                                                                  
  oTele0060:SetOrder( 5 )
  oTele0060:SetBuffer( .T. )
                                                            
  REPORT oReport;
         TITLE cTit , "*** RELACAO DE ENTREGAS ***" , "Referente a " + Dtoc(vDataIni) + space(1) + "ate" + space(1) + Dtoc(vDataFin) + Space(1) + "Turno: " + vTurno,;
               IF(!Empty(vEntregador),"Entregador ==> " + Alltrim(vEntregador),"Todos os Entregadores") CENTERED;
         FONT oFont1, oFont2, oFont3;
         FOOTER OemToAnsi("Pagina: ")+str(oReport:nPage,3) CENTERED;
         PREVIEW


    IF vDetalhado == .T.
      oReport:lSummary := .F.
    ELSE
      oReport:lSummary := .T.
    ENDIF
    
    COLUMN TITLE "Entregador" ;
           DATA oTELE0060:a_entre_60;
           SIZE 12;
           LEFT
    
    COLUMN TITLE "Sobre Taxa" ;
           DATA oTELE0060:a_comie_60;
           SIZE 12;
           RIGHT;
           TOTAL
   
    COLUMN TITLE "Pedido" ;
           DATA oTELE0060:a_numped60;
           SIZE 10;
           CENTER
    
    COLUMN TITLE "Data e Turno" ;
           DATA Dtoc(oTELE0060:a_dtped_60) + Space(1) + "T: " + oTELE0060:a_turno_60;
           SIZE 12;
           CENTER
    
    COLUMN TITLE "Hora Ent." ;
           DATA oTELE0060:a_Horae_60;
           SIZE 8;
           CENTER
    
    COLUMN TITLE "Hora Saida" ;
           DATA oTELE0060:a_Horas_60;
           SIZE 8;
           CENTER
    
    GROUP ON oTELE0060:A_ENTRE_60;
           FOOTER SUBSTR(oReport:aGroups[1]:cValue,1,8) + '=>' + Alltrim(str(oReport:aGroups[1]:nCounter));
           FONT 2
    
    oReport:lGrid := .T.
    oReport:cGrandTotal := "Total Geral ==>"   
    
  END REPORT

  IF !oReport:lCreated
     RETU NIL
  ENDIF

  oReport:oTitle:aFont[1] := {|| 2 }          //1ra linha do titulo, cor e fonte 2
  oReport:nTopMargin     := 600               //Espacio superior
  oReport:nDnMargin      := 300
  oReport:aColumns[2]:bTotalFont := {|| 3 }   //Tamanho de fonte e color dos totais da columna 5
  oReport:bStdFont := {|| 3 }                 //Tamanho de fonte e color do texto de oReport:cGrandTotal := "Total Geral ==>" 
  oReport:lBoxOnTotal := .T.
  oReport:SetTxtColor(CLR_BLACK,1)    
  oReport:SetTxtColor(CLR_HBLUE,2)
  oReport:SetTxtColor(CLR_HRED,3)
  oReport:SetTxtColor(CLR_GREEN,4)
  oReport:SetPenColor(CLR_HBLUE)
  oReport:SetShdColor(CLR_YELLOW)

  oReport:bInit := {|| oTELE0060:GoTop() }
  oReport:bSkip := {|| oTELE0060:Skip()  }  
  
  If EMPTY(vEntregador)
    ACTIVATE REPORT oReport ;
      ON STARTPAGE StartPage(oReport);
      FOR oTELE0060:A_STATUS60 # 'C' .AND. oTELE0060:a_dtped_60 >= vDataini .and. oTELE0060:a_dtped_60 <= vDataFin;
      WHILE !oTELE0060:Eof()
  Else
    ACTIVATE REPORT oReport ;
      ON STARTPAGE StartPage(oReport);
      FOR oTELE0060:A_STATUS60 # 'C' .AND. oTELE0060:a_dtped_60 >= vDataini .and. oTELE0060:a_dtped_60 <= vDataFin .AND. oTELE0060:A_ENTRE_60 == vEntregador;
      WHILE !oTELE0060:Eof()
  Endif
  
  oFont1:End() 
  oFont2:End()
  oFont3:End()
Return NIL