FiveTech Support Forums

Estimados colegas del foro:

Tengo una duda acerca del generador de reportes de Fivewin, necesito saber si es posible crear sombras a los titulos de las columnas y tambien si se puede poner una caja con sombra al usar totales, esto lo hacia en 16bits con un archivo .obj que alguien modifico y que solo se agregaba para compilarlo con Clipper, dichos reportes tenias esta apariencia:

http://img528.imageshack.us/my.php?image=kardex2cu9.jpg

Actualmente no encuentro como solucionarlo a 32bits y esta es la forma en que me ha quedado:

http://img65.imageshack.us/my.php?image=kardexdd3.jpg

Ojala y alguien tenga una solucion efectiva

Agradecimientos de antemano

Tiene pinta de ser la clase TImprime de Rafa (TheFull).

La tenemos disponble con código fuente en el CD de utilidades de FiveWin que puedes descargar sin costo desde nuestra pagina.

Hola,

tienes el codigo fuente de como generas ese reporte con sonbras y cajones redondeados,
es te digo para saber si tengo el codigo fuente de la clase report que hace eso

saludos

Marcelo

RF: Gracias por contestar mi post, ya tengo los 2 cds de fivewin con clases y ejemplos, en ella encontre la clase TImprime y TUtil de Rafa Carmona (THE FULL), pase a compilarlas con xHarbour pero da un buen de errores al generar la lib, voy a ver si la encuentro en algun lugar para 32bits, yo pensaba que talvez se podia realizar sobras y cajas sin librerias de terceros, el problema es que mi sistema maneja muchos reportes y tendre que volver a modificarlos, pero haber como le hago de todas maneras muchas gracias..


Marcelo Via Giglio: Te comento que el archivo .obj (del cual no se cuenta con codigo fuente) que hacia la funcion de poner sobras y cajas a los reportes solo funciona con clipper y fivewin, y no con harbour o xharbour, si gustas puedo darte el archivo obj para que lo pruebes en tus aplicaciones.
Si cuentas con alguna modificacion de la clase Treport para hacer sombras y cajas te agradeceria si fueras tan amable de pasarme el fuente para agregarlo a mi aplicación..

Gracias a los dos por sus respuetas y seguire intentando..

Saludos desde Chiapas, Mexico

Marcelo Via Giglio: Te comento que el archivo .obj (del cual no se cuenta con codigo fuente) que hacia la funcion de poner sobras y cajas a los reportes solo funciona con clipper y fivewin, y no con harbour o xharbour, si gustas puedo darte el archivo obj para que lo pruebes en tus aplicaciones.
Si cuentas con alguna modificacion de la clase Treport para hacer sombras y cajas te agradeceria si fueras tan amable de pasarme el fuente para agregarlo a mi aplicación..

Te entendi bien, lo que te pedi es como haces para utilizar el obj, como defines para las cabeceras sean con sombra, te pregunto esto para saber si yo fui el quien dejo el obj y es el que estas utilizando, si es asi te doy el fuente, pero quiero saber si lo que utilizas es las modificaciones que alguna vez hice al treport.

saludos

Marcelo

cuatecatl,
adjunto imagen, yo lo hago con la tprinter, es muy facil

http://img233.imageshack.us/my.php?image=sombrasmv7.jpg

http://img233.imageshack.us/my.php?imag ... as2sh9.jpg

salu2
paco

Marcelo Via Giglio:

Mil Disculpas Marcelo, te dejo parte del código el cual hacia que se vieran las sombras y las cajas en los tútulos de las columnas y los totales del Reporte, de hecho el archivo obj, y el codigo de ejemplo lo daje de la difunta página de Prometheus (www.dbwide.com.ar)

El Archivo obj se incluia en el script para crear la aplicación y se agregaban las siguientes lineas al reporte:

STATIC FUNCTION Kardex()

LOCAL oReport

lCellView := .F.
lSeparator := .T.
lJoin := .T.
lGrid := .T.
nTitleUpLine := 2 /*"Sombra","RoundRect","Box"*/
nTitleDnLine := 2 /*"Sombra","RoundRect","Box"*/
nTotalLine := 2 /*"Sombra","RoundRect","Box"*/
lTitleShadow := .T.
lTitleJoin := .F.
lTotalShadow := .T.
lTotalJoin := .F.
lShdwTtEmpty := .F.
nTotalShadow := 2 /*"Sombra","RoundRect","Box"*/
nTitleShadow := 2 /*"Sombra","RoundRect","Box"*/


USE Kardex

REPORT oReporte TITLE "Reporte del Kardex del Inventario "
PREVIEW;
CAPTION "SISA® 2007 Kardex."


COLUMN TITLE "Entrada x","Compras" DATA Kardex->Compra
COLUMN TITLE "Cant." DATA Kardex->Pzs
COLUMN TITLE "Entradas x Traspasos" DATA ALLTRIM(Kardex->OrigenE)
COLUMN TITLE "Factura" DATA Kardex->FolioE
COLUMN TITLE "Cant." DATA Kardex->CantidadE
COLUMN TITLE "Salidas x Traspasos" DATA ALLTRIM(Kardex->OrigenS)
COLUMN TITLE "Folio" DATA Kardex->FolioS
COLUMN TITLE "Cant." DATA Kardex->CantidadS
COLUMN TITLE "Salida x Ventas","Factura" DATA Kardex->Facturas
COLUMN TITLE "Cant." DATA Kardex->Vendido
COLUMN TITLE "Entradas","x Ajuste" DATA Kardex->DevoCli
COLUMN TITLE "Cant." DATA Kardex->CantidadC
COLUMN TITLE "Salidas","x Ajuste" DATA Kardex->DevoPro
COLUMN TITLE "Cant." DATA Kardex->CantidadP

END REPORT

oReporte:lSeparator := lSeparator
oReporte:lJoin := lJoin

IF lGrid
AEVAL ( oReporte:aColumns, {|c| c:lGrid := .T. } )
ENDIF

oReporte:nTotalLine := nTotalLine - 1
oReporte:nTitleUpLine := nTitleUpLine - 1
oReporte:nTitleDnLine := nTitleDnLine - 1
oReporte:lTitleShadow := lTitleShadow
oReporte:lTitleJoin := lTitleJoin
oReporte:nTitleShadow := nTitleShadow
oReporte:nTotalShadow := nTotalShadow
oReporte:lTotalShadow := lTotalShadow
oReporte:lTotalJoin := lTotalJoin
oReporte:lShdwTtEmpty := lShdwTtEmpty
oReporte:cGrandTotal := "Total:"
oReporte:lPrvModal := .T.

IF lCellView = .T.
oReporte:CellView()
ENDIF

ACTIVATE REPORT oReporte

RETURN NIL

De todas maneras en cuanto llege a casa reviso el cd en el que descargue todo el sitio web de DBWIDE y busco el nombre del autor al cual pertenece dicho archivo.

Saludos..

Hola,

creo que yo hice eso, aqui va mas un ejemlo, es de muchos años atras, haber si lo continuo

<!-- m --><a class="postlink" href="http://rapidshare.com/files/43996871/Report.zip.html">http://rapidshare.com/files/43996871/Report.zip.html</a><!-- m -->

nos cuentas si era lo que necesitabas

saludos

Marcelo

Marcelo Via Giglio:
Es correcto, ayer verifique el archivo y correstponde a una donacion que realizaste, gracias por el fuente, lo reviso y te cuento. .

Marcelo Via Giglio:

Te confirmo que esta misma es la funcion que necesitaba, mil gracias Marcelo, excelente modificación a la clase TReport y 100% funcional para xharbour.

Uff, si que me ahorraste un buen de trabajo cuate , te devo una, ya estas en el area de creditos y agradecimientos de mi Sistema...

Muy pronto estara tambien disponible mi portal electronico:

www.sisa.unlugar.com

Saludos desde Mexico...

de Regreso en el foro-

Funciona bien solo que tiene un problema, en reportes en donde no hay columnas numericas para hacer totales genera el siguiente error:

Descripción del Error:

---

Error BASE/1004
Message not found: TREPORT:LTOTALDASH

Llamadas al Stack:

---

Llamado desde TREPORT:ERROR(172)
Llamado desde TREPORT:MSGNOTFOUND(205)
Llamado desde TREPORT:LTOTALDASH(0)
Llamado desde TREPORT:PAGETOTAL(1613)
Llamado desde TREPORT:ENDPAGE(1436)
Llamado desde TREPORT:END(1348)
Llamado desde TREPORT:PLAY(1044)
Llamado desde (b)TREPORT:ACTIVATE(861)

¿Cual será el origen del error..?

Muy pronto estara tambien disponible mi portal electronico:

   <!-- w --><a class="postlink" href="http://www.sisa.unlugar.com">www.sisa.unlugar.com</a><!-- w -->

Saludos desde Mexico...

Hola,

te cuento que LTOTALDASH no es parte las modificaciones que hice, te sugiero que modifiques el ejemplo que te envie y pruebes alli los atributos y ver las combinaciones de ellos para que obtengas lo que necesitas.

Sobre el error puede que sea una error antiguo de la clase report, podrias pasar todo lo que esta marcado MVG a un fuente mas actual de la clase report, espero darme tiempo y retomar esto que deje tiempo atras

saludos

Marcelo

Que tal Marcelo:

Correcto, probare a probar tus modificaciones en la clase TReport de la version que tengo trabajando pa hecharla a volar bien , y si, seria bueno que retomaras estas fabulosas modificaciones ya que no solo lucen bien los reportes sino que podrías darle más potencia y robustes a esta clase que buena falta le hace.

Abrazos y gracias de nuevo..

I.S.C. Víctor Daniel Cuatécatl León

Marcelo Via Giglio wrote:Hola,

creo que yo hice eso, aqui va mas un ejemlo, es de muchos años atras, haber si lo continuo

http://rapidshare.com/files/43996871/Report.zip.html

nos cuentas si era lo que necesitabas

saludos

Marcelo

Marcelo, ¿podrias subir de nuevo este archivo?.- Gracias