FiveTech Software tech support forums

compañeros, buenas tardes

tengo un report que intento escribir al finalizar el listado una texto
donde se indique
el resposable para que firme

lo tengo asi

REPORT oReport ;
TITLE cTit1 ......
..........

GROUP ON Te_Acti->Num_recibo ;
FOOTER Alltrim(str(oReport:aGroups[1]:nCounter))+"
Item"+If(oReport:aGroups[1]:nCounter>1,'s','') ;
FONT 2 //EJECT ojo esto para que salte en cada grupo de hoja
END REPORT

ACTIVATE REPORT oReport WHILE Te_Acti->Num_Recibo == Num ;
ON ENDPAGE( FinPagina_Recibo( oReport ) )


STATIC FUNCTION FinPagina_Recibo( oReport )

oReport:oDevice:cmSay(17.8 ,05,"----------------",oReport:aFont[01],,)
oReport:oDevice:cmSay(18.0 ,05,"RECIBIDO" ,oReport:aFont[01],,)

oReport:oDevice:cmSay(17.8 ,10,"----------------",oReport:aFont[01],,)
oReport:oDevice:cmSay(18.0 ,10,"AUTORIZADO" ,oReport:aFont[01],,)

RETURN NIL

La pregunta es como imprimo al final del listado como se en que posicion
queda la impresora, ya que a veces cuando es mas grande el listados que los 17.8 cmst me queda mal esta impresion

Gracias x Todo
Att

Wilson 'W' Gamboa A
SoftWare Writer
swrite@uio.satnet.net

Wilson:

Con la clase treport podes hacer cosas como esta:

ACTIVATE REPORT oReport ON CHANGE (SayMemoMIO(), oReport:NewLine()) ;
ON STARTPAGE StartRep() ;
ON INIT oReport:nStdLineHeight:=6.98 ;
ON POSTEND TotLst1Movi(tAceite,tOtro,tPrepuesto,tDrepuesto);
FOR !ANULADOMIO(@tAceite,@tOtro,@tPrepuesto,@tDrepuesto)


Static Funct TotLst1Movi(tAceite,tOtro,tPrepuesto,tDrepuesto)

Local cfila
Local wComiPesos:=0
Local wComiDolares:=0

cfila:=oReport:nRow*1.12
nuevalinea(oReport,4)
nuevalinea(oReport,4)
oReport:Say(1," Aceites $ "+TRANS(tAceite,"@ez 99,999.99")+;
" Otros $ "+TRANS(tOtro,"@ez 99,999.99")+;
" Repuestos $ "+TRANS(tPrepuesto,"@ez 99,999.99")+;
" U$S "+TRANS(tDRepuesto,"@ez 99,999.99"),4,,oReport:nRow)

Return nil

Function nuevalinea(oReport,n)

local i
for i:= 1 to n
oReport:NewLine()
next

Return nil

Saludos,

Daniel gracias x responder

Precisamente necesito saber cual es la variable (Data) del report
donde esta en ultimo numero de fila donde termino el reporte y poder escribir debajo de el

Y claro si existe una funcion para poder expresarle en centimetros ese valor

Perdon por la ignorancia, no me llevo bien ni con la clase report ni con la printer

Saludos

wilsongamboa wrote:Precisamente necesito saber cual es la variable (Data) del report
donde esta en ultimo numero de fila donde termino el reporte y poder escribir debajo de el

Esa variable de instancia seria oReport:nRow, pone un ? oReport:nRow en el codigo del reporte para ver que contiene, no recuerdo si eso tiene la cantidad de filas del reporte hasta ese momento o si es en pixeles. En cualquiera de los _ vos podes saber si corresponde o no hacer corte de hoja haciendo _ pertinentes (segun la cantidad de filas que entran en la hoja que usas o en pixeles)

Saludos,