FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour MyRpt - Diseñador de Reportings - En desarrollo :-)
Posts: 654
Joined: Fri Oct 21, 2005 05:54 AM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Sun Jun 12, 2011 03:50 AM

Hi Carles...,

Congratulations.

Your work is simply superb. Specially the designer.

Regards,

  • Ramesh Babu
Posts: 632
Joined: Thu Jan 19, 2006 10:45 AM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Sun Jun 12, 2011 09:44 AM

Carles un bon treball...

Como todo lo tuyo muy bueno voy a terminar de mirarlo y te comento cosas.

Saludos



Andrés González desde Mallorca
Posts: 1283
Joined: Fri Feb 10, 2006 02:34 PM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Mon Jun 13, 2011 06:51 AM
Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix
Posts: 401
Joined: Tue Jan 05, 2010 02:33 PM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Mon Jun 13, 2011 09:40 AM

hay un error al compilar
Error: Unresolved external '_HB_FUNCLSUNLOCKDEF'
Error: Unresolved external '
HB_FUN_FW_GT'
Error: Unresolved external '_HB_FUN
_CLSLOCKDEF'

Que tengas un buen dĂ­a,
Domenico

FWH .. BC582.. xharbour
Posts: 632
Joined: Thu Jan 19, 2006 10:45 AM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Tue Jun 14, 2011 06:18 AM

Cosas que echo en falta:

1) La posibilidad de incorporar lineas, solo hay la posibilidad de poner un box.
2) La posibilidad de incorporar reglas tanto vertical como horizontal, si no tienes la clase la busco y te la mando pero está publicada en el foro.

Bueno Carles voy a ver lo que has incorporado en la nueva versiĂłn y te comento.

Saludos



Andrés González desde Mallorca
Posts: 1283
Joined: Fri Feb 10, 2006 02:34 PM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Tue Jun 14, 2011 06:36 AM
Andres,

1) La posibilidad de incorporar lineas, solo hay la posibilidad de poner un box.


Pueba la v.0353...

2) La posibilidad de incorporar reglas tanto vertical como horizontal, si no tienes la clase la busco y te la mando pero está publicada en el foro


A mi entender, esto forma parte mas de la estética. En la parte inferior ya te marca la posicion en pantalla. Todo estos puntos, lo haremos en la segunda fase :-)
Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix
Posts: 632
Joined: Thu Jan 19, 2006 10:45 AM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Tue Jun 14, 2011 08:08 AM
Ok Carles, tengo un error que no se como resolver, ademas es algo raro:

Operacion: TMENU:L2010.
Description: Message not found.


Supongo que esto es con las nuevas versiones. Pero lo bueno es que el programa no se rompe, pero no me deja seguir. El diseñador si me lo deja abrir. El error sale cuando le das a ejecutar el reporte. Lo raro es que no veo en ninguna parte que utilices nada con 2010 todo está en 2007.
Saludos



Andrés González desde Mallorca
Posts: 422
Joined: Mon Aug 17, 2009 12:18 PM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Tue Jun 14, 2011 08:09 AM

Enhorabuena por el trabajo !!!!!!!!!

Saludos,



Eduardo
Posts: 1283
Joined: Fri Feb 10, 2006 02:34 PM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Tue Jun 14, 2011 08:38 AM

Andres,

Son las datas nuevas q estan en la nueva version 11.05. Son usadas en el RPreview. Se me ocurre q quizas podrias enlazar tu preview.prg antes de la libreria...

Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix
Posts: 632
Joined: Thu Jan 19, 2006 10:45 AM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Tue Jun 14, 2011 10:26 AM

Ok, luego lo miro que estoy un poco liado. Una cosa más, la idea es ponerlo incorporado junto a mis programas como diseñador de reportes. La cosa es que el diseñador está en inglés, hay posibilidad de cambiarlo a castellano, catalan o cualquier otro idioma. Creo que esa parte del código no lo vas a liberar, pero hay posibilidad que elijamos el idioma.

Otra cosa, es compatible con xharbour, te lo digo porque de momento solo lo he enlazado con harbour?

Saludos



Andrés González desde Mallorca
Posts: 1283
Joined: Fri Feb 10, 2006 02:34 PM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Tue Jun 14, 2011 10:41 AM
Andres,

Creo que esa parte del cĂłdigo no lo vas a liberar


Todo el codigo estara disponible dentro de poco

pero hay posibilidad que elijamos el idioma.


Los literales son strings dentro del fichero rc. Se podra tener en los idiomas q se vayan poniendo en el rc

es compatible con xharbour


Estoy fijando el concepto en harbour. Una vez estabilizado, miraremos q sea tambien compatible con xH.
Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix
Posts: 632
Joined: Thu Jan 19, 2006 10:45 AM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Tue Jun 14, 2011 12:36 PM

Moltes gracies Carles, ets un geni. Con aportes como este mejoramos mucho el desarrollo.

Saludos



Andrés González desde Mallorca
Posts: 1283
Joined: Fri Feb 10, 2006 02:34 PM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Wed Jun 15, 2011 03:12 PM
Hola,

Nueva version v.0355 - Control dinamico de imagenes en seccion [EDITED]

https://code.google.com/p/fivewin-contr ... akechanges

Podemos facilmente controlar las imagenes en el listado siguiendo siempre la misma pauta -> ::Data( ID, Valor ). En Este caso <Valor> sera la imagen q queramos imprimir

Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix
Posts: 632
Joined: Thu Jan 19, 2006 10:45 AM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Fri Jun 17, 2011 05:45 AM
Carles, un parell de cosetes més. Se puede emplear el reporter para diseñar etiquetas. En caso afirmativo puedes incluir un ejemplo para ver como se hace. Y, también se puede poner de fondo un grid de líneas para que nos sirvan de referencia.


Uploaded with ImageShack.us
Saludos



Andrés González desde Mallorca
Posts: 401
Joined: Tue Jan 05, 2010 02:33 PM
Re: MyRpt - Diseñador de Reportings - En desarrollo :-)
Posted: Fri Jun 17, 2011 11:54 AM
por favor llamar la cuadrĂ­cula en el informe utiliza este

Code (fw): Select all Collapse
//----------------------------------------------------------------------------//
#pragma BEGINDUMP
#include <Windows.h>
#include <HbApi.h>

//----------------------------------------------------------------------------//


HB_FUNC( DRAWGRID ) // hWnd, hDC, @cPS, wGridX, wGridY
{
   WORD wRow, wCol;
   HDC hDC = ( HDC ) hb_parnl( 2 );
   PAINTSTRUCT * ps = ( PAINTSTRUCT * ) hb_parc( 3 );
   WORD wGridX = hb_parni( 4 );
   WORD wGridY = hb_parni( 5 );
   RECT rc;
   WORD wWidth, wHeight;

   HPEN hOldPen;
   HPEN hGray   = CreatePen( PS_SOLID, 0, RGB( 210, 210, 210 ) );
   HPEN hGray2  = CreatePen( PS_SOLID, 0, RGB( 230, 230, 230 ) );

   hOldPen = ( HPEN ) SelectObject( hDC, hGray );

   GetWindowRect( ( HWND ) hb_parnl( 1 ), &rc );
   wWidth  = rc.right - rc.left + 1;
   wHeight = rc.bottom - rc.top + 1;

   for( wRow = 0; wRow <= wHeight; wRow += wGridX )
    {
        MoveTo( hDC, 0, wRow );
        LineTo( hDC, wWidth, wRow ) ;
    }

   for( wCol = 0; wCol <= wWidth; wCol += wGridY )
    {
        MoveTo( hDC, wCol, 0 );
        LineTo( hDC, wCol, wHeight ) ;
    }

   SelectObject( hDC, hGray2 );

   for( wRow = wGridX/2; wRow <= wHeight; wRow += wGridX )
    {
        MoveTo( hDC, 0, wRow );
        LineTo( hDC, wWidth, wRow ) ;
    }

   for( wCol = wGridY/2; wCol <= wWidth; wCol += wGridY )
    {
        MoveTo( hDC, wCol, 0 );
        LineTo( hDC, wCol, wHeight ) ;
    }

   SelectObject( hDC, hOldPen );
   DeleteObject( hGray );
   DeleteObject( hGray2);

         //SetPixel( hDC, wCol, wRow, 0 );
}


//----------------------------------------------------------------------------//

#pragma ENDDUMP    */
FWH .. BC582.. xharbour