FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour C贸mo cambio una linea de encabezado en TREPORT (SOLUCIONADO)
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
C贸mo cambio una linea de encabezado en TREPORT (SOLUCIONADO)
Posted: Sun Jul 26, 2015 03:17 AM
Amigos:

Tengo la necesidad de cambiar una l铆nea de los encabezados de un reporte hecho con TREPORT
en tiempo de ejecuci贸n, tengo el siguiente c贸digo:

Code (fw): Select all Collapse
REPORT oReporte CAPTION "Gu铆as por cobrar a clientes" PREVIEW;
聽 聽 HEADER ALLTRIM((cEmpresa)->EMP_RAZ),;
聽 聽 "",;
聽 聽 "Gu铆as por cobrar a clientes",;
聽 聽 aMes[nMes]+"/"+STR(nAmo,4,0) CENTER;
聽 聽 TITLE "Fecha: "+Date2Txt(DATE(),,,,,,),;
聽 聽 "Hoja No:"+STR(oReporte:nPage,3);
聽 聽 FONT aFnt[1],aFnt[2],aFnt[3];
聽 聽 PEN aPen[1],aPen[2]


En cierto momento del proceso necesito cambiar el texto del tercer rengl贸n de encabezados,
en lugar de que siga imprimiendo "Gu铆as por cobrar a clientes" ahora diga "Nuevo texto".

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
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: C贸mo cambio una linea de encabezado en TREPORT
Posted: Sun Jul 26, 2015 04:16 PM
Armando, prueba asi:
Code (fw): Select all Collapse
          oReport:oTitle:aLine[3] := {|| "CAMBIANDO LINEA 3 DEL HEADER" }
Francisco J. Alegr铆a P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: C贸mo cambio una linea de encabezado en TREPORT
Posted: Sun Jul 26, 2015 04:33 PM
Que tal si ese texto lo colocas en una VAR y lo condicionas antes de imprimir..? asi podria decir lo que quieras cuando quieras..nose..es una idea.gracias..saludos.. :-)

Code (fw): Select all Collapse
cTit := IIF( xValor = x, "titulo 1", "titulo 2")

REPORT oReporte CAPTION "Gu铆as por cobrar a clientes" PREVIEW;
聽 聽 HEADER ALLTRIM((cEmpresa)->EMP_RAZ),;
聽 聽 "",;
聽 聽 cTit ,;
聽 聽 aMes[nMes]+"/"+STR(nAmo,4,0) CENTER;
聽 聽 TITLE "Fecha: "+Date2Txt(DATE(),,,,,,),;
聽 聽 "Hoja No:"+STR(oReporte:nPage,3);
聽 聽 FONT aFnt[1],aFnt[2],aFnt[3];
聽 聽 PEN aPen[1],aPen[2]
Dios no est谩 muerto...



Gracias a mi Dios ante todo!
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: C贸mo cambio una linea de encabezado en TREPORT
Posted: Sun Jul 26, 2015 06:43 PM
Amigos:

Jos茅 Luis, tu idea me parece excelente, aunque no la prob茅, creo que funcionar谩 de 100.

Francisco, tu sugerencia funcion贸 con un peque帽o cambio
Code (fw): Select all Collapse
//oReporte:aLine[3] := {|| "CAMBIANDO LINEA 3 DEL HEADER" }  // Esto mandaba error porque solo tengo 1 l铆nea de t铆tulo
oReporte:oHeader:aLine[3] := {|| "CAMBIANDO LINEA 3 DEL HEADER" }  // Esto funcion贸 al 100


Gracias a ambos

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

Continue the discussion