Consulta de PREVIEW

Consulta de PREVIEW

Postby colthop » Fri Nov 30, 2007 2:46 pm

Hola otra vez:

Estoy haciendo un reporte con PREVIEW y cuando entra en el PREVIEW quita el menu que esta en este momento y pone en la primera linea el menu principal, hay alguna manera de quitar este menu.

Gracias
colthop
 
Posts: 505
Joined: Sat Apr 22, 2006 9:09 am
Location: Madrid - España

Postby colthop » Fri Nov 30, 2007 5:25 pm

Hola de nuevo:
Sigo investigando y lo que hace al crearme el PREVIEW es crear una nueva ventana maximizada y le incorpora el menu principal y la barra de botones, me podrias indicar si sabeis como se puede quitar el codigo es:

DEFINE FONT oFont1 NAME "LUCIDA CONSOLE" SIZE 0, -12 BOLD
DEFINE FONT oFont2 NAME "LUCIDA CONSOLE" SIZE 0, -9
PrinterSetup()
if opci14 = 2
REPORT oReporte TITLE "L I S T A D O D E E M P R E S A S" CENTER ;
HEADER "Empresa : " + empr, "Nombre : " + trim(momb), " " LEFT ;
FOOTER " ", "Fecha : " + dtoc( datita ), "Página: " + STR( oReporte:nPage,10) RIGHT ;
FONT oFont1, oFont2 FROM USER
else
REPORT oReporte TITLE "L I S T A D O D E E M P R E S A S" CENTER ;
HEADER "Empresa : " + empr, "Nombre : " + trim(momb), " " LEFT ;
FOOTER " ", "Fecha : " + dtoc( datita ), "Página: " + STR( oReporte:nPage,10) RIGHT ;
FONT oFont1, oFont2 ;
PREVIEW MODAL CAPTION "Listado Empresas" FROM USER
endif
COLUMN TITLE "Número" DATA numero SIZE 6 FONT 2
COLUMN TITLE "Apellidos, Nombre" DATA apellidos+ ","+ nombre SIZE 53 FONT 2
COLUMN TITLE "N.I.F." DATA cif SIZE 9 FONT 2
COLUMN TITLE "Dirección" DATA cladir + " " + direccion + " " + numdir SIZE 34 FONT 2
COLUMN TITLE "Teléfono" DATA Telefono SIZE 9 FONT 2
COLUMN TITLE "Teléfono" DATA Telefono2 SIZE 9 FONT 2
COLUMN TITLE "Fax" DATA fax SIZE 9 FONT 2
COLUMN TITLE "" DATA "" SIZE 0 FONT 1
END REPORT
ACTIVATE REPORT oReporte while !eof()
oFont1:End()
oFont2:End()

opci14 determina si desea vista previa o no.
un saludo
colthop
 
Posts: 505
Joined: Sat Apr 22, 2006 9:09 am
Location: Madrid - España

Postby Antonio Linares » Fri Nov 30, 2007 5:29 pm

Carlos,

Puedes quitarle el menu y la barra de botones, modificando el código de source\classes\rpreview.prg
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41332
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 15 guests