Ultimo condigo fuente rpreview

[Marcelo Via Giglio]

Holas,

olvide publicar las fuentes del la ultima version del preview que contempla la orientacion de pagina

http://www.box.net/shared/8lhxyymtga

saludos

Marcelo

[Silvio]

mARCELO,
DO YOU SAW MINE MODIFIES ?

[mgsoft]

Hola:

¿Estos cambios se incluyen en la última versión de FWH?.

Gracias

[ruben Dario]

HIce una prueba, y me denera el Siguiente error al compilar.

k:\proy_harb\obj\report.hrb:
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_CREATECOMPATIBLEBITMAP' referenced from
K:\PROY_HARB\LIB\LIBSISTM.LIB|RPREVIEW

Uso la version FWH/FWHX 8.03 March/2008

[Silvio]

HB_FUNC( CREATECOMPATIBLEBITMAP )
{
hb_retnl( (LONG) CreateCompatibleBitmap( ( HDC ) hb_parnl( 1 ), hb_parni( 2 ), hb_parni( 3 ) ));
}

[ruben Dario]

LIsto compilacion completa.

Te pregunto cuando genero el reporte me lo muestra atraz de formulario donde lo ejecute. Implica cerrarlo el formulario para poder ver el reporte. Como corrigo esto.
Lo otro La opcion Dos Paginas. Lo que entiendo es que muestra las dos paginas en la pantalla, si es asi no me esta funcionando.

Saludos

[sysctrl2]

usas treport ? debes colocar esta linea de codigo,

oReport:oDevice:lPrvModal := .T.

ACTIVE REPORT .......

con tprinter:

PRINT oPrn NAME "Impresion ..." PREVIEW
oPrn:lPrvModal := .t.

bueno es solo una sugerencia quizas se otro tu problema,

saludos..

[ruben Dario]

HB_FUNC( CREATECOMPATIBLEBITMAP )
{
hb_retnl( (LONG) CreateCompatibleBitmap( ( HDC ) hb_parnl( 1 ), hb_parni( 2 ), hb_parni( 3 ) ));
}

Marcelo YA me funciona.

Lo que veo el muestra a lado izquierda la paginas pequeñitas, Lo que veo es que cuando voy a la primer pagina, esta ventana queda negra, desaparecen las paginas pequeñas.

[ruben Dario]

usas treport ? debes colocar esta linea de codigo,

oReport:oDevice:lPrvModal := .T.

ACTIVE REPORT .......

con tprinter:

PRINT oPrn NAME "Impresion ..." PREVIEW
oPrn:lPrvModal := .t.

bueno es solo una sugerencia quizas se otro tu problema,

saludos..

Perfecto ya me funciona.

Oye tu por casualidad sabes como puedo colocar en la linea de detalle del reporte una trama intercalada,
Una con fondo nomrmal, y otra con fondo gris.

[sysctrl2]

tienes alguna imagen para entender lo que deseas hacer?

yo uso mas tprinter,

saludos..

[Marcelo Via Giglio]

Ruben,

te contesto de memoria, ya que no tengo a mano FW, los objetos columnas del report tienen una propiedad lShadow si no me equivoco, puedes hacer algo
asi

ind := 1
oReport:bStartLine := {|| IF( ind % 2 = 0, AEVAL( oReport:aColumns, {|e,i| e:lShadow := .T. } ), AEVAL( oReport:aColumns, {|e,i| e:lShadow := .F. } ) ) }
// puede ser si no funciona oReport:aColumns[i]:lShadow := .T.

oReport:bskip := {|| ind++, dbf -> ( DBSKIP() ) }

esta es la idea

saludos

Marcelo

[Armando]

Rubén:

A ver si esto es lo que necesitas

Code: Select all  Expand view

IF oReporte:lCreated
     oReporte:bStartLine := {|o|IF((oReporte:nCounter % 2 == 0),SHADOWROW(o),)}
ENDIF
 

Y esta es la función ShadowRow()

Code: Select all  Expand view

FUNCTION ShadowRow(oRep)
LOCAL nCols := LEN(oRep:aCols)
LOCAL nLine := IF(EMPTY(oRep:nDataLine),1,oRep:nDataLine)

IF oRep:oShdBrush == NIL
     DEFINE BRUSH oRep:oShdBrush COLOR oRep:nClrShadow
ENDIF

SetBkMode(oRep:oDevice:hDCOut,1)

oRep:oDevice:FillRect( {oRep:nRow + 1,;
     oRep:aCols[1],;
     oRep:nRow + 1 + oRep:aDataHeight[nLine],;
     oRep:aCols[nCols] + oRep:aColumns[nCols]:nWidth},;
     oRep:oShdBrush)
RETURN (NIL)
 

Saludos

[ruben Dario]

Rubén:

A ver si esto es lo que necesitas

Code: Select all  Expand view

IF oReporte:lCreated
     oReporte:bStartLine := {|o|IF((oReporte:nCounter % 2 == 0),SHADOWROW(o),)}
ENDIF
 

Y esta es la función ShadowRow()

Code: Select all  Expand view

FUNCTION ShadowRow(oRep)
LOCAL nCols := LEN(oRep:aCols)
LOCAL nLine := IF(EMPTY(oRep:nDataLine),1,oRep:nDataLine)

IF oRep:oShdBrush == NIL
     DEFINE BRUSH oRep:oShdBrush COLOR oRep:nClrShadow
ENDIF

SetBkMode(oRep:oDevice:hDCOut,1)

oRep:oDevice:FillRect( {oRep:nRow + 1,;
     oRep:aCols[1],;
     oRep:nRow + 1 + oRep:aDataHeight[nLine],;
     oRep:aCols[nCols] + oRep:aColumns[nCols]:nWidth},;
     oRep:oShdBrush)
RETURN (NIL)
 

Saludos

Muchas Gracias esto es lo que necesito y Funciono.

Tambien Funciono el Ejemplo de Compañero Cesar Cortes Cruz

Gracias

[ruben Dario]

Holas,

olvide publicar las fuentes del la ultima version del preview que contempla la orientacion de pagina

http://www.box.net/shared/8lhxyymtga

saludos

Marcelo

Marcel Probe el Programas.
Cuando Uso GROUP ON CODPROV no gener report ni CON DBF ni con ADO (Usando mysql)


SELECT C
USE c:\temp\product.dbf NEW SHARED
INDEX ON codprov+codprod TAG MIINDICE

REPORT oReport TITLE " ","EMPRESA X S.A. ","ESTADO DE SALDOS Y ABONOS", "HISTORICO X CLIENTE ";
PREVIEW
COLUMN TITLE "Item" DATA consec,codprod FONT 1 SIZE 12
COLUMN TITLE "Referencia" DATA simbolo,referencia FONT 1 SIZE 20
COLUMN TITLE "Ancho.B.Menor" DATA largo,ancho FONT 1 SIZE 8
COLUMN TITLE "Codprod" DATA consec,codprod FONT 1 SIZE 12
COLUMN TITLE "Simbolo" DATA simbolo,referencia FONT 1 SIZE 20
COLUMN TITLE "Largo/Alt" DATA largo,ancho FONT 1 SIZE 8
GROUP ON CODPROV
END REPORT

ACTIVATE REPORT oReport ON ENDPAGE oReport:lPageTotal:= .f. ;
ON STARTGROUP( oReport:NewLine(),;
oReport:EndLine(),;
oReport:Say(0,"CLIENTE : " +codprov+"-"+ALLTRIM(codprov),4,,oReport:nRow),;
oReport:NewLine(),;
oReport:EndLine() ) ;

CLOSE product

[mgsoft]

Hola,

Por favor, ¿dónde se puede descargar la última versión disponible?.

Muchas gracias