Boa noite.
Eu fiz uma rotina para gerar um relatório com opção de saída em PDF. Acho que usei uma rotina exemplo ou algo assim. Sinceramente não lembro como fiz, mas funcionou e abre com o Adobe certinho...
Código: Selecionar todos
// ProtCon - Lista LCs de Rainbow e Cral protestados em formato PDF.
#include "hmg.ch"
Function Main
Private xTotCon := 0
Set Date Brit //Ansi
Set Century Off //On
Use ProtCon
Zap
Append From Titulos for (Val(Codbanco) = 996 .or. Val(Codbanco) = 980) .and. ("PROT" $ Situacao .and. year(dtentrada)>2006) .and. "LC" $ TipoDoc
//Sele ProtCon
//dbgotop()
DEFINE WINDOW Win_1 ;
ROW 0 ;
COL 0 ;
WIDTH 500 ;
HEIGHT 400 ;
TITLE 'Relação de Protestos CRAL/RAINBOW' ;
WINDOWTYPE MAIN ;
ONINIT CreateReport()
DEFINE MAIN MENU
POPUP 'Relatórios'
ITEM 'Gerar Rainbow' ACTION Fil_R() .and. ( ExecuteReport('Report1',.t.,.t.,'Rainbow.pdf' ) , MsgInfo('Gerado (Rainbow.pdf) ') )
ITEM 'Gerar Cral ' ACTION Fil_C() .and. ( ExecuteReport('Report1',.t.,.t.,'Cral.pdf' ) , MsgInfo('Gerado (Cral.pdf) ') )
END POPUP
END MENU
END WINDOW
Win_1.Center
Win_1.Activate
Return
////
Function Fil_R() // Filtro titulos Rainbow
sele ProtCon
set filter to CodBanco = "0000980"
dbgotop()
xTotCon := 0
while ! eof()
++xTotCon
dbskip()
end
dbgotop()
////
Function Fil_C() // Filtro titulos Cral
sele ProtCon
set filter to CodBanco = "0000996"
dbgotop()
xTotCon := 0
while ! eof()
++xTotCon
dbskip()
end
dbgotop()
////
Function CreateReport
DEFINE REPORT Report1
* Report Layout ***********************************************
BEGIN LAYOUT
PAPERSIZE PRINTER_PAPER_A4
ORIENTATION PRINTER_ORIENT_PORTRAIT
END LAYOUT
* Header Band *************************************************
BEGIN HEADER
BANDHEIGHT 25
BEGIN LINE
FROMROW 23
FROMCOL 05
TOROW 23
TOCOL 200
PENWIDTH 0.1
PENCOLOR { 0,0,0 }
END LINE
BEGIN TEXT
EXPRESSION 'Serviço Registral'
ROW 05
COL 05
WIDTH 100
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 14
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0,0,0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION 'Relação de Títulos Protestados - Período de 01/01/2007 a 31/12/2010'
ROW 10
COL 05
WIDTH 100
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 12
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION iif(Codbanco="0000980",'Rainbow Holdings','Cral')
ROW 15
COL 05
WIDTH 100
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 12
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION 'Sacado'
ROW 22
COL 33
WIDTH 100
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 7
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0,0,0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION 'CPF/CNPJ'
ROW 22
COL 69
WIDTH 100
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 7
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0,0,0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION 'Titulo'
ROW 22
COL 95
WIDTH 102
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 7
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0,0,0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION 'Dt.Apontam.'
ROW 22
COL 110
WIDTH 100
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 7
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0,0,0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION 'Protocolo'
ROW 22
COL 127
WIDTH 100
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 7
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0,0,0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION 'Dt.Protesto'
ROW 22
COL 140
WIDTH 100
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 7
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0,0,0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION 'Vencimento'
ROW 22
COL 155
WIDTH 100
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 7
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0,0,0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION 'Livro/Folha'
ROW 22
COL 172
WIDTH 100
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 7
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0,0,0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION 'Valor Doc.'
ROW 22
COL 190
WIDTH 100
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 7
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0,0,0 }
ALIGNMENT Left
END TEXT
/*
BEGIN PICTURE
VALUE 'hmg.jpg'
ROW 10
COL 189
WIDTH 11
HEIGHT 11
STRETCH .F.
END PICTURE
*/
END HEADER
* Detail Band *************************************************
BEGIN DETAIL
BANDHEIGHT 4 //6
BEGIN TEXT
EXPRESSION ProtCon->Sacado //subs(ProtCon->Sacado,1,35)
ROW 2
COL 5
WIDTH 40
HEIGHT 5 //10
FONTNAME 'Helvetica'
FONTSIZE 7
FONTBOLD .T.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION iif(!empt(ProtCon->Cgc),ProtCon->Cgc,ProtCon->Cpf)
ROW 2
COL 65
WIDTH 11
HEIGHT 5 //10
FONTNAME 'Helvetica'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION (alltrim(ProtCon->TipoDoc)+" "+ALLTRIM(ProtCon->NumDoc))
ROW 2
COL 92
WIDTH 10
HEIGHT 5 //10
FONTNAME 'Helvetica'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION ProtCon->DtEntrada
ROW 2
COL 110
WIDTH 5 //10
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION ProtCon->Protocolo
ROW 2
COL 125
WIDTH 7
HEIGHT 5 //10
FONTNAME 'Helvetica'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION ProtCon->DtProtesto
ROW 2
COL 140
WIDTH 10
HEIGHT 5 //10
FONTNAME 'Helvetica'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION ProtCon->Vencimento
ROW 2
COL 155
WIDTH 70
HEIGHT 5 //10
FONTNAME 'Helvetica'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION (alltrim(ProtCon->Livro)+ "/" + ALLTRIM(str(ProtCon->Folhas,5,0)))
ROW 2
COL 170
WIDTH 5
HEIGHT 5 //10
FONTNAME 'Helvetica'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION transf(ProtCon->ValorDoc, "@e 9,999,999.99")
ROW 2
COL 185
WIDTH 5
HEIGHT 5 //10
FONTNAME 'Helvetica'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
END DETAIL
* Footer Band *************************************************
BEGIN FOOTER
BANDHEIGHT 27
BEGIN LINE
FROMROW 4
FROMCOL 10
TOROW 4
TOCOL 200
PENWIDTH 0.1
PENCOLOR { 0 , 0 , 0 }
END LINE
BEGIN TEXT
EXPRESSION 'Pagina No:' + Str(_PageNo)
ROW 7
COL 11
WIDTH 100
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 12
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION Date()
ROW 7
COL 177
WIDTH 30
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 12
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
END FOOTER
* Summary Band ************************************************
BEGIN SUMMARY
BANDHEIGHT 50
BEGIN TEXT
EXPRESSION 'Total de Titulos: ' + Str(xTotCon) //Str(RecCount())
ROW 10
COL 20
WIDTH 100
HEIGHT 30
FONTNAME 'Helvetica'
FONTSIZE 12
FONTBOLD .T.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
END SUMMARY
END REPORT
Return
******