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

[RAMESHBABU]

Hi Carles...,

Congratulations.

Your work is simply superb. Specially the designer.

Regards,

- Ramesh Babu

[Andrés González]

Carles un bon treball...

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

[Carles]

Hola,

Version v.0353 - Box & Lines
https://code.google.com/p/fivewin-contr ... akechanges

[MdaSolution]

hay un error al compilar
Error: Unresolved external '_HB_FUN___CLSUNLOCKDEF'
Error: Unresolved external '_HB_FUN_FW_GT'
Error: Unresolved external '_HB_FUN___CLSLOCKDEF'

Que tengas un buen día,
Domenico

[Andrés González]

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.

[Carles]

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

[Andrés González]

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.

[mgsoft]

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

[Carles]

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

[Andrés González]

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?

[Carles]

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.

[Andrés González]

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

[Carles]

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

[Andrés González]

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

[MdaSolution]

por favor llamar la cuadrícula en el informe utiliza este

Code: Select all  Expand view

//----------------------------------------------------------------------------//
#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    */