FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Report con varias lineas de título
Posts: 564
Joined: Thu Oct 13, 2005 09:23 AM
Report con varias lineas de título
Posted: Thu Mar 03, 2011 11:11 AM
Hola,
Quiero generar un informe con varias lineas de título. El contenido de estas lineas son códigos y descripción de artículos pues se trata de un programa de almacén. Esta información está metida en un array llamado aArLista que recorro y lo paso a otro llamado aRptTile que contiene las lineas de cabecera.
El código que uso es el siguiente:
Code (fw): Select all Collapse
Aadd(aRptTitle, { || "Cuadrante anual de salidas de artículos" })
for j:=1 to len(aArLista)
   cTitle := aArLista[j,1]+' '+Rtrim(aArLista[j,2])
   aadd(aRptTitle, { || cTitle })
next
REPORT oReport TITLE ' ' ;
HEADER ' ', oApp():cVersion,  "Ejercicio "+oApp():cEjercicio ;
FOOTER ' ', "Fecha: "+dtoc(date())+ "   Página.: "+str(oReport:nPage,3) PREVIEW
oReport:oTitle := TrLine():New( aRptTitle, oReport, 3 )
COLUMN TITLE "Cód."        DATA aCuadrante[i][01] SIZE 4

El problemas es que cuando ejecuto el Report las linesa de artículos me aparecen pero muestra siempre la ultima linea de aArLista. Si tengo 5 artículos me aparece 5 veces el último.
¿ Que estoy haciendo mal ?

Saludos,
Posts: 1088
Joined: Fri Oct 07, 2005 03:33 PM
Re: Report con varias lineas de título
Posted: Thu Mar 03, 2011 11:31 AM

Jose Luis,

busca en el foro "detached local" alli podras encontrar informacion a tu problema

algo como

aadd( aRptTitle, setTitle( j, aArLista ) )

FUNCTION setTitle( j, a )
RETURN {|| a[j,1]+' '+Rtrim(a[j,2]}

creo que seria algo asi

Posts: 564
Joined: Thu Oct 13, 2005 09:23 AM
Re: Report con varias lineas de título
Posted: Thu Mar 03, 2011 11:52 AM

Muchas gracias, me ha funcionado perfectamente.
Saludos,

Continue the discussion