FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Ultimo condigo fuente rpreview
Marcelo Via Giglio
Posts: 1088
Joined: Fri Oct 07, 2005 03:33 PM
Ultimo condigo fuente rpreview
Posted: Mon Mar 01, 2010 12:14 AM
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
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
Re: Ultimo condigo fuente rpreview
Posted: Mon Mar 01, 2010 05:04 PM

mARCELO,
DO YOU SAW MINE MODIFIES ?

Best Regards, Saludos



Falconi Silvio
mgsoft
Posts: 422
Joined: Mon Aug 17, 2009 12:18 PM
Re: Ultimo condigo fuente rpreview
Posted: Tue Mar 02, 2010 10:08 AM

Hola:

驴Estos cambios se incluyen en la 煤ltima versi贸n de FWH?.

Gracias :D

Saludos,



Eduardo
ruben Dario
Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM
Re: Ultimo condigo fuente rpreview
Posted: Tue Mar 09, 2010 08:34 PM

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

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
Re: Ultimo condigo fuente rpreview
Posted: Tue Mar 09, 2010 08:46 PM

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

Best Regards, Saludos



Falconi Silvio
ruben Dario
Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM
Re: Ultimo condigo fuente rpreview
Posted: Wed Mar 10, 2010 04:46 PM

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

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: Ultimo condigo fuente rpreview
Posted: Wed Mar 10, 2010 10:35 PM

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..

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
ruben Dario
Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM
Re: Ultimo condigo fuente rpreview
Posted: Thu Mar 11, 2010 03:58 PM
Silvio wrote: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 Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
ruben Dario
Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM
Re: Ultimo condigo fuente rpreview
Posted: Thu Mar 11, 2010 04:30 PM
sysctrl2 wrote:usas treport ? debes colocar esta linea de codigo,

oReport: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.
Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: Ultimo condigo fuente rpreview
Posted: Thu Mar 11, 2010 04:57 PM

tienes alguna imagen para entender lo que deseas hacer?

yo uso mas tprinter,

saludos..

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
Marcelo Via Giglio
Posts: 1088
Joined: Fri Oct 07, 2005 03:33 PM
Re: Ultimo condigo fuente rpreview
Posted: Thu Mar 11, 2010 06:15 PM
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
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Ultimo condigo fuente rpreview
Posted: Thu Mar 11, 2010 11:07 PM
Rub茅n:

A ver si esto es lo que necesitas

Code (fw): Select all Collapse
IF oReporte:lCreated
聽 聽 聽oReporte:bStartLine := {|o|IF((oReporte:nCounter % 2 == 0),SHADOWROW(o),)}
ENDIF


Y esta es la funci贸n ShadowRow()

Code (fw): Select all Collapse
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
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
ruben Dario
Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM
Re: Ultimo condigo fuente rpreview
Posted: Fri Mar 12, 2010 03:50 PM
Armando wrote:Rub茅n:

A ver si esto es lo que necesitas

Code (fw): Select all Collapse
IF oReporte:lCreated
聽 聽 聽oReporte:bStartLine := {|o|IF((oReporte:nCounter % 2 == 0),SHADOWROW(o),)}
ENDIF


Y esta es la funci贸n ShadowRow()

Code (fw): Select all Collapse
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 Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
ruben Dario
Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM
Re: Ultimo condigo fuente rpreview
Posted: Fri Mar 12, 2010 08:12 PM
Marcelo Via Giglio wrote: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
Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
mgsoft
Posts: 422
Joined: Mon Aug 17, 2009 12:18 PM
Re: Ultimo condigo fuente rpreview
Posted: Fri Dec 31, 2010 07:32 PM

Hola,

Por favor, 驴d贸nde se puede descargar la 煤ltima versi贸n disponible?.

Muchas gracias ;)

Saludos,



Eduardo

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions