MyRpt - Diseñador de Reportings - En desarrollo :-)

[Silvio.Falconi]

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 ?

[Sebastián Almirón]

Hello Silvio, you can send the example
sebas@caseinformatica.com
I will devote a few days to debug the class
regards

[Silvio.Falconi]

sent

[Sebastián Almirón]

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]

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

[Sebastián Almirón]

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

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]

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]

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]

Ahora si!!!.

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

[Silvio.Falconi]

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 := ::oprn:mmtr2pix(oItem:nTop,oItem:nleft)
nTop := Max( 0, apos[1] + ::oPrn:nXOffset )
nLeft := Max( 0, apos[2] + ::oprn:nYOffset )
nWidth := oItem:nWidth
nHeight := Max( 0, ( oItem:nHeight * ::oPrn:nVertRes() / ::oPrn: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 ?

[Silvio.Falconi]

Seba,
on misc.prg there was the right coordinates

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

[elvira]

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: Select all | Expand

#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]

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

[Silvio.Falconi]

Seba,
do you have a solution to create labels ?

[elvira]

SIlvio,

Can you post your screen capture and sample?.