by Julio Cepeda » Fri Oct 19, 2007 9:08 am
Ventana principal:
DEFINE WINDOW oWnd MDI FROM 04, 10 TO 30, 90;
TITLE "Gestión de Obras" ;
MENU Menu() ;
ICON oIcon ;
BRUSH oBrush
SET FONT OF oWnd TO oFont
SET MESSAGE OF oWnd TO ;
"Gestión de Obras Usuario = " + WNetGetUser();
TIME DATE KEYBOARD
...
ACTIVATE WINDOW oWnd MAXIMIZED ;
ON INIT ( oWnd:cTitle := VERSION + COMPILADO, ;
VerifFiles(), ;
AbreFicher(), ;
Set( _SET_DECIMALS, 2 ) ) ;
VALID IF( MsgYesNo( "¿ Realmente desea salir ?", "Elija una opción" ), CierraDbfs(), .F. )
Desde esta ventana llamo a los dialogos y desde los dialogos a las funciones de imprimir:
DEFINE DIALOG oDlg TITLE "Listado Clientes";
FROM 0, 0 TO 140, 374 ; //Alto y Ancho
OF oWnd ;
PIXEL STYLE { WS_SYSMENU, WS_CHILD, WS_VISIBLE, WS_TABSTOP }
...
Static Function Listado_01( cDbf, nRadio, xIni, xFin )
local oPrn
PRINTER oPrn PREVIEW
¿ Cómo lo tengo que llamar para que aparezca independiente y me permita actuar soble la ventana de previsualización ?
Saludos