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:oDevice: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..
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:
.
mil gracias Marcelo, excelente modificación a la clase TReport y 100% funcional para xharbour.
estara tambien disponible mi portal electronico:
