FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour MyRpt - Diseñador de Reportings - En desarrollo :-)
Silvio.Falconi
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Tue Feb 18, 2014 07:46 AM
Dear Sebastián Almirón

Do you have tried with a image on the background ?

When we use a EMF file as background the say and the fields are not printed right but they are moved

ONLY ON WINDOWS SEVEN while ON WINDOWS XP RUN GOOD






I can send you a test sample to try, where i can send it ?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Sebastián Almirón
Posts: 166
Joined: Mon Dec 12, 2005 09:56 AM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Tue Feb 18, 2014 08:58 AM

Hello Silvio, you can send the example

sebas@caseinformatica.com
I will devote a few days to debug the class
regards

Silvio.Falconi
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Tue Feb 18, 2014 04:02 PM

sent

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Sebastián Almirón
Posts: 166
Joined: Mon Dec 12, 2005 09:56 AM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Thu Feb 20, 2014 05:38 PM

He dejado una nueva copia de MyRpt (todo en un único fichero prg), con algunos problemas corregidos:

-El efecto que dice Silvio, yo lo he notado no al cambiar de XP a Win7, sino al cambiar de una impresora a otra, por ejemplo de mi impresora local a PdfCreator. He modificado una línea del método Activate() y unas pocas del método PrintSay, de RptRun. Tras estas modificaciones he hecho pruebas con un fichero emf de fondo y ya no hay diferencias de una impresora a otra ni de XP a Win7. Sin fichero emf, antes había diferencias de tamaño del documento entre la salida impresa directamente a la impresora o a través de PdfCreator, tras estas modificaciones ahora son exactamente iguales.

-En el método PrintSay() he añadido que pinte el color de fondo del recuadro de texto del item si lo tiene, antes no lo pintaba.

-He añadido una variable static cimpresora que se puede pasar a la llamada MyRpt():New() para asignarla. Así podremos utilizar la misma impresora que tengamos declarada en nuestro programa y no la impresora activa como hasta ahora.

-He modificado de nuevo los métodos PosTop() y PosBottom() porque la modificación anterior daba un problema al seleccionar items de una section.

-Yo no he notado cuelgues por mover los items, como me ha apuntado Lucas. No obstante lo tengo pendiente de revisar porque no se pueden colocar en el sitio exacto con el ratón (si modificando el valor nTop y nLeft en sus propiedades). Estoy utilizando FWH 13.08

Sigo dándole vueltas...

elvira
Posts: 518
Joined: Fri Jun 29, 2012 12:49 PM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Thu Feb 20, 2014 07:26 PM

Sebastián;

Muchas gracias por tu interés :D :roll: :roll:

He bajado el exe de tu web, por cierto el antivirus me lo bloquea, y el prg es del día 17, no de hoy.

¿Serías tan amable de indicarme dónde bajar la última versión con un ejemplo para testearlo por favor?.

Muy agradecida. Saluditos

Sebastián Almirón
Posts: 166
Joined: Mon Dec 12, 2005 09:56 AM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Fri Feb 21, 2014 10:12 AM
Hola elvira.
Ayer dejé el fichero en:
http://www.caseinformatica.com/MyRpt
La versión es del día 20, lo he comprobado bajándolo hace un momento.Lo del antivirus supongo que será porque es un Exe autoextraible.
Saludos

elvira wrote:Sebastián;

Muchas gracias por tu interés :-) :-) :-)

He bajado el exe de tu web, por cierto el antivirus me lo bloquea, y el prg es del día 17, no de hoy.

¿Serías tan amable de indicarme dónde bajar la última versión con un ejemplo para testearlo por favor?.

Muy agradecida. Saluditos
elvira
Posts: 518
Joined: Fri Jun 29, 2012 12:49 PM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Fri Feb 21, 2014 11:43 AM
Sebastián!,

Lo acabo de bajar y la fecha es del día 17. Te pego una capturita:


Quizás sea más fácil subir un .zip mondo y lirondo.

Otra cosa, ¿hay un ejemplo completo para testearlo y compartir resultados???.

Muy agradecida :-))
Sebastián Almirón
Posts: 166
Joined: Mon Dec 12, 2005 09:56 AM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Fri Feb 21, 2014 12:20 PM

Elvira,

no entiendo el porqué de ese problema, de todos modos también lo he dejado en zip en la misma página

Saludos

elvira
Posts: 518
Joined: Fri Jun 29, 2012 12:49 PM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Fri Feb 21, 2014 03:02 PM

Ahora si!!!.

Falta un ejemplo main() para testearlo todo y que te podamos compartir los resultados!! :D

Silvio.Falconi
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Sat Feb 22, 2014 10:05 AM
Seba,
You're Fantastic !!!

MyRpt now run also on Windows Seven 32 and 64 bit with Emf

the solution was :
1. PrnSetSize( 202 * 10, 289* 10 ) on METHOD Activate() CLASS RptRun

do you hve the same values for A3 paper ?

2. apos := ::mmtr2pix(oItem:nTop,oItem:nleft)
nTop := Max( 0, apos[1] + ::nXOffset )
nLeft := Max( 0, apos[2] + ::nYOffset )
nWidth := oItem:nWidth
nHeight := Max( 0, ( oItem:nHeight * ::nVertRes() / ::nVertSize() ) ) on METHOD PrintSay( oItem ) CLASS RptRun

Why I not thinked it about before ?

Seba,....Do You have a solution to create labels with MyRpt ?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Silvio.Falconi
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Sat Feb 22, 2014 10:32 AM

Seba,
on misc.prg there was the right coordinates

Aadd( aDef, { 9 , 202 , 289 , "A4 210 x 297 mm" } ) // #define DMPAPER_A4 9

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
elvira
Posts: 518
Joined: Fri Jun 29, 2012 12:49 PM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Sat Feb 22, 2014 11:42 AM
Hola,

Lo siento, pero no funciona. No salen los datos de la dbf ni se centra bien las áreas:


Y en el method New de RptRun falla zImpresora:
METHOD New( oReport ) CLASS RptRun

::cDir := diruta()
::cDirDll := diruta()
::cDllFile := IF( ! IsWin64(), "Rpt.dll", "Rpt64.dll" )
::nPage := 0
::oReport := oReport
::cTitle := oReport:cName
//cimpresora := zzimpresora //oReport:cPrinter

cimpresora := nil


Este es el código:
Code (fw): Select all Collapse
#include "myrpt.prg"


REQUEST DBFCDX

*-----------------
FUNCTION main()
*-----------------
   LOCAL o   := MyRpt():New()
   LOCAL oRpt, oList
   LOCAL nId := 1


   //o:cDirDll := DirPrg() + '\Dll'

   o:cFile   := DirPrg() + '\rpt\alblist.rpt'


   DbOpenAll()


   //MsgGet( 'Albaran', 'Id', @nId )



   oRpt := o:Run()

   oRpt:cDirDat := DirPrg() + '\Pool'

   oRpt:Activate()

   ALB_CAB->( DbSeek( nId ) )

   CLIENT->( DbSeek( ALB_CAB->ID ) )

   oRpt:Data( 'id'         , ALB_CAB->ID   )
   oRpt:Data( 'data'       , ALB_CAB->data )
   oRpt:Data( 'client'     , CLIENT->NAME  )
   oRpt:Data( 'nif'        , CLIENT->NIF   )

   oList := oRpt:GetSection( 'LIST' )

   ALB_POS->( DbSeek( nId ) )

   WHILE ALB_POS->ALB_ID == nId .AND. PRODUCT->( ! Eof() )

    oList:Data( 'pos'      , ALB_POS->ALB_POS  )
    oList:Data( 'prod_id'  , ALB_POS->PROD_ID  )
    oList:Data( 'qty'      , ALB_POS->QTY      )

    PRODUCT->( DbSeek( ALB_POS->PROD_ID ) )

    oList:Data( 'prod_text', PRODUCT->TEXT     )

    ALB_POS->( DbSkip() )

    oList:Skip()

   END

   oList:End()

   oRpt:End()

   DbClose()

RETU NIL

*--------------------------
STATIC FUNCTION DbOpenAll()
*--------------------------

   USE .\DAT\PRODUCT.DBF INDEX .\DAT\PRODUCT.CDX VIA 'DBFCDX' NEW
   USE .\DAT\ALB_CAB.DBF INDEX .\DAT\ALB_CAB.CDX VIA 'DBFCDX' NEW
   USE .\DAT\ALB_POS.DBF INDEX .\DAT\ALB_POS.CDX VIA 'DBFCDX' NEW
   USE .\DAT\CLIENT.DBF  INDEX .\DAT\CLIENT.CDX  VIA 'DBFCDX' NEW

RETU NIL

*------------------------
STATIC FUNCTION DbClose()
*------------------------

   PRODUCT->( DbCloseArea() )
   ALB_CAB->( DbCloseArea() )
   ALB_POS->( DbCloseArea() )
   CLIENT->( DbCloseArea() )

RETU NIL
Silvio.Falconi
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Sun Feb 23, 2014 03:22 PM

Perhaps there is something bad there , here run ok!!!

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Silvio.Falconi
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Sun Feb 23, 2014 03:22 PM

Seba,
do you have a solution to create labels ?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
elvira
Posts: 518
Joined: Fri Jun 29, 2012 12:49 PM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Sun Feb 23, 2014 03:26 PM

SIlvio,

Can you post your screen capture and sample?.

Static archive · New replies & topics via GitHub Discussions