Versão atual:

TReport/TRSection geração de abas em planilhas excel

Olá. Gostaria de gerar uma aba para cada TRSection quando a impressão é modo planilha. Quando a impressão é modo PDF, não estou conseguindo mostrar o título da sessão. No caso do excel, hoje é gerada uma aba com o nome "99-01 - Parâmetros WMS" por causa da definição

oReport:= TReport():New("WMSXR000","Parâmetros WMS","WMSXR000", {|oReport| ReportPrint(oReport)},"Parâmetros WMS")

Segue um trecho do ReportDef e do ReportPrint:

Static Function ReportDef()

oSection := TRSection():New(oReport,"WMS Geral",{"SX6"})

TRCell():New(oSection,'X6_VAR' ,MPSysSqlName("SX6"),"Parâmetro",,10)

TRCell():New(oSection,'X6_TIPO' ,MPSysSqlName("SX6"),"Tipo" ,,1)

oSection2 := TRSection():New(oReport,"Radio Frequencia",{MPSysSqlName("SX6")})

TRCell():New(oSection2,'X6_VAR' ,MPSysSqlName("SX6"),"Parâmetro" ,,10)

TRCell():New(oSection2,'X6_TIPO' ,MPSysSqlName("SX6"),"Tipo" ,,1)

//----------------------------------------------

Static Function ReportPrint(oReport)

oSection:BeginQuery()

BeginSQL Alias cAliasQry1

SELECT X6_VAR,X6_TIPO, X6_DESCRIC,X6_DESC1,X6_CONTEUD

FROM %temp-table:cTabela%

WHERE X6_VAR IN ('MV_INTDL')

EndSQL

oSection:EndQuery()

oSection:Print()

oSection:Finish()

oSection2:BeginQuery()

BeginSQL Alias cAliasQry2

SELECT X6_VAR,X6_TIPO, X6_DESCRIC,X6_DESC1,X6_CONTEUD

FROM %temp-table:cTabela%

WHERE X6_VAR IN ('MV_WMSRDST')

EndSQL

oSection2:EndQuery()

oSection2:Print()

oSection2:Finish()

//----------------------------------------------

Se puderem ajudar, por favor Obrigado

Versão (1):

Ver a versão formatada

TReport/TRSection geração de abas em planilhas excel

Comentário

new question