FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Report y MDI
Posts: 396
Joined: Tue Mar 18, 2008 09:41 PM
Report y MDI
Posted: Wed Jun 10, 2009 03:22 PM

Hola amigos,

Les escribo de nuevo porque tengo una duda con el Report.
Trabajo con una aplicaci贸n con ventanas MDICHILD.

Cargo el report desde un dialogo al pulsar un bot贸n.
Pero cuando el report se carga, lo que hace es mostrarse en una ventana nueva.

驴hay forma de hacer que el report se muestre en la misma ventana del dialogo?

Espero haberme explicado bien.
Un saludo.

:roll:

Javier,

FWH 8.04 2008
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: Report y MDI
Posted: Wed Jun 10, 2009 05:40 PM
si te refieres a que el reporte se muestra atras del dialogo,
edita el rpreview.prg y comenta MDICHILD

Code (fw): Select all Collapse
DEFINE WINDOW ::oWnd ;
         TITLE cTitle ;
         COLOR CLR_BLACK,CLR_LIGHTGRAY      ;
         ICON  oIcon                        ;
         VSCROLL HSCROLL //MDICHILD



SALUDOS..
Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
Posts: 396
Joined: Tue Mar 18, 2008 09:41 PM
Re: Report y MDI
Posted: Thu Jun 11, 2009 10:35 AM
Hola Carlos,

No es exactamente eso.
Lo que hago es llamar a report desde un dialogo tipo MDICHILD.
Este dialogo a su vez, est谩 contenido en una ventana MDI.

Lo que ocurre es que al llamar a report, por defecto lo muestra en una ventana nueva e independiente.
Y lo que quiero es que se muestre contenido en la ventana MDI ya existente.

Code (fw): Select all Collapse
function fOpenImpresion( oDlg, oWndChild, oCnnDb )

   local oCbxNacion, cNacion

   DEFINE DIALOG oDlg[7] RESOURCE "IMPRESION" ;
      OF oWndChild ;
      COLORS CLR_BLUE, CLR_SALMON ;
      STYLE nOR( WS_VISIBLE, WS_CHILD )

REDEFINE BUTTON ID ID_BTNIMP     OF oDlg[7] ;
   ACTION DoReport( oCnnDb, oDlg, oWndChild )

return nil

function DoReport( oCnnDb, oDlg, oWndChild )

  ......

   REPORT oRpt PREVIEW
      COLUMN TITLE "First" DATA oRs:Fields( "nombre" ):Value
      COLUMN TITLE "Last"  DATA oRs:Fields( "apellidos" ):Value
      COLUMN TITLE "State" DATA oRs:Fields( "nif" ):Value
   END REPORT

   ACTIVATE REPORT oRpt

return nil


Un saludo y gracias.
:-)
Javier,

FWH 8.04 2008
Posts: 396
Joined: Tue Mar 18, 2008 09:41 PM
Re: Report y MDI
Posted: Thu Jun 11, 2009 02:46 PM
Hola de nuevo!

Bueno, de momento lo he dejado trabajando en la ventana nueva.
Ya tengo mi report :-)

Peeero ahora veo que al pulsar bot贸n impresi贸n, imprime directamente a la impresora.
Mirando en el fuente, rpreview.prg encontr茅 como hacer que aparezca la caja de dialogo de opciones de impresi贸n.

solo tube que inhabilitar el c贸digo:

Code (fw): Select all Collapse
/* if nLast == 1
   ::PrintPrv( nil, nOption, nFirst, nLast )
   return nil
endif */


Ya lo iba a utilizar todo contecto.
Pero de rrepente, Horrorr!! :-)

Veo que la caja de dialogo es muy simple. Solo te permite decirle si quietres imprimir todas las paginas, desde hasta, o la p谩gina actual.

Y ahora mi pregunta.
驴donde est谩 la que te permite especificar en qu茅 impresora quieres volcar el listado?
O cambiar las propiedades de impresi贸n (calidad papel, etc )

驴alguien lo sabe?
:-)
Javier,

FWH 8.04 2008

Continue the discussion