Cuando exporto desde el Reporte para Excel, el texto de cGrandTotal no aparece, pero si lo exporto para Word, aparece.
También tengo un problema en el reporte conforme las fotos abajo. Espero que alguien me pueda dar una luz. Desde ya muchas gracias
https://drive.google.com/file/d/1erqL76GwMTt05RnRbKlFc0KQO9fjvKmc/view?usp=sharing
https://drive.google.com/file/d/16nzJa5uMsnULOoO2XCI6eDyWLbP-e3oY/view?usp=sharing
El código fuente es este:
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