topic-16931

Posts: 82

Joined: Fri Mar 13, 2009 06:51 PM

tReport
Posted: Sun Oct 04, 2009 11:58 PM

Boa noite..
como faço para inserir resumo no final do relatorio com a t/report ?

ACTIVATE REPORT oReport WHILE NN<=LEN(AARRAY);
      ON STARTPAGE StarPage();
      ON POSTEND FimRelatorio(oReport)

STATIC Function FimRelatorio(oReport)
   oReport:StartLine()
   oReport:say(0,"R E S U M O",1) 
   oReport:Endline()   
Return (nil)

Está ficando assim

Desde já obrigado..

Luiz Arruda [ ico.corumba@gmail.com ]
Corumba/MS - Brasil
FiveWin 9.04
[x]Harbour
xDev
WS

jrestojeda

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Re: tReport
Posted: Mon Oct 05, 2009 12:56 AM

Hola...
Prueba lo siguiente:

Code (fw): Select all Collapse

oReport:bEndPage:={||TuFuncion() }

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

ICO

Posts: 82

Joined: Fri Mar 13, 2009 06:51 PM

Re: tReport
Posted: Mon Oct 05, 2009 01:28 AM

jrestojeda wrote:Hola...
Prueba lo siguiente:
Code (fw): Select all Collapse
oReport:bEndPage:={||TuFuncion() }

amigo não deu certo, ficou do mesmo jeito... fiz assim;

Code (fw): Select all Collapse

oReport:CellView()
oReport:bSkip:={|| NN++}
oReport:bStartLine := {|o| If( ++nLines > 70 .and.!oReport:lFinish, (o:EndPage(), nLines := 1), ) }
oReport:bEndPage:={||FimRelatorio(oReport) }

ACTIVATE REPORT oReport WHILE NN<=LEN(AARRAY)

Eu quero o Resumo fora da grade do relatorio

Luiz Arruda [ ico.corumba@gmail.com ]
Corumba/MS - Brasil
FiveWin 9.04
[x]Harbour
xDev
WS

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: tReport
Posted: Mon Oct 05, 2009 02:06 AM

ICO

Intentalo con

oReporte:bPostEnd := { || TuFuncion(oReporte)}

STATIC FUNCTION TuFuncion(oReporte)
....
....
Aqui es donde pones las líneas del resumen
...
...
RETURN(NIL)

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: tReport
Posted: Mon Oct 05, 2009 02:09 AM

Hola ICO. Prueba con este ejemplo.
Saludos.

END REPORT
oReport:CellView()
oReport:bPostEnd:= {|| prueba(oReport) }

ACTIVATE REPORT oReport

oFont1:End()

dbSetOrder(1)

RETURN NIL

Function prueba(oReport)
oReport:lGrid:=.f. //quitar los divisores de columnas
oReport:NewLine()
oReport:NewLine()
oReport:Say(1,"RESUMO" )
oReport:NewLine()
oReport:Say(1,"Saldo de Transporte" ) //col 1
oReport:Say(3, Transform(100000.00,"999,999.99") ,,PAD_RIGHT,) //col 3
oReport:NewLine()
oReport:Say(1,"Lancamentos a Debito" )
oReport:Say(3, Transform(60000.00,"999,999.99") ,,PAD_RIGHT,)
oReport:NewLine()
oReport:Say(1,"Lancamentos a Credito" )
oReport:Say(3, Transform(40000.00,"999,999.99") ,,PAD_RIGHT,)
RETURN NIL

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

ICO

Posts: 82

Joined: Fri Mar 13, 2009 06:51 PM

Re: tReport
Posted: Mon Oct 05, 2009 12:19 PM

Obrigado(gracias) a todos mas foi
Resolvido com as dicas do FranciscoA e do Alessandro do Brasil

Code (fw): Select all Collapse

 oReport:bPostEnd:= {|| FimRelatorio(oReport) }
ACTIVATE REPORT oReport WHILE NN<=LEN(AARRAY) 
*
*
Function FimRelatorio(oReport)
   oReport:lGrid:=.f. 
   oReport:NewLine()
   oReport:NewLine()
   oReport:StartLine()
   oReport:say(2,"R E S U M O",2,3)
   oReport:Endline()
     oReport:say(2,"Saldo de Transporte........................&las",1)
     oReport:Endline()
     oReport:say(2,"Recebimentos...............................&xRec",1)
     oReport:Endline()
     oReport:say(2,"Pagamentos.................................&xPag",1)
     oReport:Endline()

Luiz Arruda [ ico.corumba@gmail.com ]
Corumba/MS - Brasil
FiveWin 9.04
[x]Harbour
xDev
WS

Loren

Posts: 479

Joined: Fri Feb 16, 2007 10:29 AM

Re: tReport
Posted: Mon Oct 05, 2009 12:40 PM

Esto es lo que hago yo.... y no tengo problemas:

Code (fw): Select all Collapse

...
...
  infor:oHeader:aFont[1]:= {|| 3 }
  infor:oHeader:aFont[2]:= {|| 3 }
 activate report infor on change balance3(.t.) ON POSTEND balance4()

Code (fw): Select all Collapse

funct balance4
 infor:lGrid:=.f.
 for x=1 to 4
  infor:NewLine()
 next
 infor:Say(2,'Total Ingresos por ventas:')
 infor:Say(4,transform(infor:aColumns[4]:nTotal,'9,999,999.99'),2,2) ; infor:NewLine() &&Penultimo 2=tipo letra ; ultimo 2=justificacion a la dcha, si fuese 1, a la izda.
 infor:Say(2,'Mov. Atípicos: Ingresos-Gastos')
 infor:Say(4,transform(ntatipico,'9,999,999.99'),2,2) ; infor:NewLine()
 infor:Say(2,'Total Costes de las ventas:')
 infor:Say(4,transform(infor:aColumns[5]:nTotal,'9,999,999.99'),2,2) ; infor:NewLine()
 infor:Say(2,'Total Beneficio Bruto:')
 infor:Say(4,transform(infor:aColumns[6]:nTotal+ntatipico,'9,999,999.99'),2,2) ; infor:NewLine()
 infor:Say(2,'Total Gastos en este periodo:')
 infor:Say(4,transform(ttgasto+ttbase,'9,999,999.99'),2,2) ; infor:NewLine() ; infor:NewLine()
 infor:Say(2,'TOTAL BENEFICOS NETOS:',3) && 3=tipo de letra
 infor:Say(4,transform(infor:aColumns[4]:nTotal-infor:aColumns[5]:nTotal+ntatipico-ttgasto-ttbase,'9,999,999.99'),3)
return

... y listo el pollo.
... y Así queda la cosa:

[IMG]http://img203.imageshack.us/img203/4442/resumenbalance.th.jpg" alt="" loading="lazy">[/img]

FiveTech Support Forums

Continue the discussion