tReport

[ICO]

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

Code: Select all  Expand view  RUN

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..

[jrestojeda]

Hola...
Prueba lo siguiente:

Code: Select all  Expand view  RUN

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

[ICO]

Hola...
Prueba lo siguiente:

Code: Select all  Expand view  RUN

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

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

Code: Select all  Expand view  RUN

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

[Armando]

ICO

Intentalo con

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


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

Saludos

[FranciscoA]

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

[ICO]

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

Code: Select all  Expand view  RUN

 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()

[Loren]

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

Code: Select all  Expand view  RUN

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

Code: Select all  Expand view  RUN

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][IMG]http://img203.imageshack.us/img203/4442/resumenbalance.th.jpg[/img][/img]