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
