CLEAR ALL
* Ambiente
SET SYSMENU TO
SET ECHO OFF
SET TALK OFF
SET CENTURY ON
SET CLOCK STATUS
SET DATE brit
SET DELETE ON
SET PATH TO \costos;datos001;FORMS;GRAFICOS;LIBRERIAS;MENUS;REPORTES
SET EXCLUSIVE OFF
SET SAFETY OFF
SET REFRESH TO 5
SET REPROCESS TO AUTOMATIC
SET MULTILOCK ON
SET LOCK OFF
SET PROCEDURE TO libreria
SET EXACT ON
SET STATUS BAR OFF
* Variables Publicas
PUBLIC goApp, que, XSALVE, XCONCO, cUsuario, vPIva;
** Pantalla Principal
_Screen.Icon = ".\graficos\Art Fire Folder.ico" &&Esto tu consigues un icono
_SCREEN.Picture=".\fondos.bmp" &&Igual consigue un bmp
_SCREEN.WINDOWSTATE=2
_SCREEN.CLOSABLE=.F.
_SCREEN.CAPTION="Sistema de Costos"
* Definicion de Ventana para los Reportes
DEFINE WINDOW w_Output ;
FROM 0,0 TO SROWS(), SCOLS();
TITLE 'Informes - De Sistema de Costos' ;
CLOSE FLOAT GROW ZOOM SYSTEM
* Llamada al Menu
DO .\menus\costos.mpr
READ EVENT
CLEAR ALL
SET SYSMENU TO DEFAULT
Suerte..
