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

[Silvio.Falconi]

Dear Jairo Barbosa,

you used Myrep on win xp or Seven ?

because I have problems to print say at right point on windows seven ...

[Jairo Barbosa]

Dear Silvio

Well... i´ve done the whole work on Windows 7 with Harbour and FWH 1204 as you could see the images on the forum, the document is pretty elegant as the EasyReport one as well.

what ever you need you can send me an E-mail and i´ll answer as soon as i can.

Cordialmente

Jairo Barbosa

[Sebastián Almirón]

Hola,

He dejado en http://www.caseinformatica.com/MyRpt/, una nueva versión de MyRpt.

Si queréis probarlo, se trata solo de dos ficheros, el prg y la dll (de momento solo en castellano).

En la página indico un poco por donde voy.

Saludos

[lucasdebeltran]

Hola Sebas,

Muchas gracias, pero creo que haría falta un ejemplo autocontenido para que la gente lo pueda probar y dar feedback.

Tal cual lo publicas nadie lo puede probar.

He probado lo siguiente sin éxito:

Code: Select all  Expand view  RUN

static ownd
#include "myrpt.prg"


REQUEST DBFCDX



//---------------------------------------------------------------------------
function Main()
//---------------------------------------------------------------------------

   local oBar, oCursorHand


   DEFINE WINDOW oWnd ;
      TITLE "Testing MyRept"




   DEFINE MESSAGE BAR OF oWnd TITLE FWCOPYRIGHT ;
      NOINSET DATE CLOCK KEYBOARD

   ACTIVATE WINDOW oWnd MAXIMIZED ;
            VALID MsgYesNo( "Want to exit ?" ) ;
            ON INIT DoReport()


return nil
//---------------------------------------------------------------------------



//---------------------------------------------------------------------------
function DoReport()
//---------------------------------------------------------------------------

 local o, oRpt, oList, n

 o := MyRpt():New('Fattura.rpt',"Factura",'MyApp', .T. )
 oRpt := o:Run()
 oRpt:lPreview := .t. //Si quereis Preview
 oRpt:Activate()

 //oRpt:bHeader := {|| Cabefact(oRpt) }
 // oRpt:bFooter := {|| Piefact(oRpt) }
 oRpt:Activate()

 //utilizar el método data para poner los datos en los Items:

        For nI = 1 to len(oRpt:oReport:aitems)
               oitem := oRpt:oReport:aitems[nI] //Item actual
               do case
                    case oitem:cID = 'NUMERO_FACTURA'
                           oRpt:Data('NUMERO_FACTURA', 100)
                    case oitem:cID = 'NOMBRE_CLIENTE'
                          oRpt:data('NOMBRE_CLIENTE', "cnombre")

            endcase
         Next nI

 oRpt:End()
 o := nil


return nil
//---------------------------------------------------------------------------

 

Muchas gracias.

[Jairo Barbosa]

Hola Sebastian Almiron

Gracias a ti y a Carles por el trabajo invertido en el proyecto, seguramente viste las dos imágenes que puse en el foro estoy impresionado por la sencillez de la aplicación y el resultado es prácticamente igual a uno tan profesional como dicen los ejemplos expuestos.
Sacare un tiempo para probar lo que expones y lo reportare debidamente.

Yo estoy trabajando con Harbour y la Ver de FWH 1204

En tu correo expondré algunas inquietudes por si te interesan

Un Abrazo

Jairo Barbosa Solano

[elvira]

Hola amigos,

He probado el ejemplo y saltan errores de ejecución al llamar a la clase de MyReport.

[Silvio.Falconi]

Dear Silvio

Well... i´ve done the whole work on Windows 7 with Harbour and FWH 1204 as you could see the images on the forum, the document is pretty elegant as the EasyReport one as well.

what ever you need you can send me an E-mail and i´ll answer as soon as i can.

Cordialmente

Jairo Barbosa

Dea Jairo,

On Windowx Xp My Rpt run ok
I tried it also with ppt file and it run ok

On Windows Seven I have some problems
I tried with ppt file and when I make the preview the says are moved, the say are not on the same point
as you can see here I asked also to Charles viewtopic.php?f=3&t=27538&start=0&hilit=My+Rpt



then I called with sebas and he send me a modified PrintSay
but then I not worked on this problem I prefered to make facturas with hand....( line..box)


my e-mail is silvio_dot_falconi_at_gmail_dot_com ..thanks to try your samples test

[Jairo Barbosa]

Dear Silvio
I really understand what the problem is and i think i can help you with that.
would you prefer an autorun sample made on Windows Seven?
By email i wanna tell you some of the things i made to have success on the Factura with Myrpt

Best wishes

Jairo Barbosa

[Silvio.Falconi]

someone have an ide ahow create and print Label with MyRpt ?

[elvira]

Hola amigos,

He probado el ejemplo y saltan errores de ejecución al llamar a la clase de MyReport

[Silvio.Falconi]

sebas your modifies make our models errors
I use powerpoint models
then why do you not re.make all files as before ? all in one file is too hard to found the error !!!!!!!!!!!

[Jairo Barbosa]

ELVIRA
Es posible que pueda ayudarte, yo he trabajado con Myrpt y me ha ido bien
Cuales son los herrores que manejas?

Mis condiciones de trabajo son;
FWH1204
Harbour correspondiente
xMate

Espero tus comentarios

[elvira]

Hola Jairo,

¿Has probado el código de Sebas?.

Yo no consigo hacerlo funcionar. Por favor, ¿cuál es tu email?.

Muy agradecida.

[Jairo Barbosa]

Hola Elvira Espero que este sea un buen dia para ti

administracion@servi-asia.com

hk3dqc@gmail.com

Lo que necesites MYrpt funciona al ciento

Un Abrazo

[Silvio.Falconi]

Hola,

He dejado en http://www.caseinformatica.com/MyRpt/, una nueva versión de MyRpt.

Si queréis probarlo, se trata solo de dos ficheros, el prg y la dll (de momento solo en castellano).

En la página indico un poco por donde voy.

Saludos

Sebas, can you contact me pls in private Silvio[dot]falconi[at]gmail[dot]com thanks