* INICIO.PRG
* VENTANA DE INCICIO SISTEMA DE CONTABILIDAD.
* AUTOR: ESTALIN ORELLANA.
* FECHA DE CREACION: 13-10-2017
* ULTIMA MODIFICACION: 28-10-2017
IF WVISIBLE("standard")
HIDE WINDOW ("standard")
ENDIF
WITH _Screen
.BackColor=rgb(192,192,192) && Change the background to grey
.BorderStyle=2 && Change the border to double
.Closable=.T. && Remove window control buttons
.ControlBox=.T. && activa o desactiva los botones de control (minimizar, maximizar y cerrar)
.MaxButton=.T. && activa el boton maximizar
.MinButton=.T. && activa el boton minimizar
.Movable=.T. && Ventana movible
.Icon='conta.ico' && Icono del sistema
.Picture='fondo.jpg' && define el fondo de la ventana principal
.Caption="Sistema de Contabilidad 3.0 - Autor: Estalin Orellana - Teléfono 4908-5439" && Set a caption or title
.LockScreen=.F. && Disable screen redraw
.windowstate=2 && maximizado
ENDWITH
* CONFIGURACION DE LOS SET
SET STATUS BAR ON && Activa o desactiva la barra de estado inferior de Visual FoxPro.
SET SYSMENU OFF && Activa o desactiva la barra de menú de Visual FoxPro. (No desactiva la barra de herramientas)
SET CENTURY ON && Especifica 4 dígitos para el año.
SET HOURS TO 12 && Especifica formato de 12-houras o de 24-houras.
SET DECIMALS TO 2 && Especifica el número de decimales en las cantidades. SET DECIMALS TO regresa a 2 decimales. El número máximo de decimales son 18; el mínimo es cero.
SET FIXED OFF && Obliga o no al sistema a mostrar los decimales asignados con SET DECIMALS TO.
SET CLOCK OFF && Activa o desactiva la visualización del reloj en la pantalla.
SET DATE BRITISH && Define la forma en que se desea ingresar la fecha.
SET EXCLUSIVE OFF && Permite a los usuarios de una red poder abrir, compartir y modificar las bases de datos.
SET EXACT OFF && Desactiva la exactitud en la comparación de los datos con la máquina.
SET HELP ON && Activa o desactiva la visualización de la ayuda en pantalla.
SET ESCAPE OFF && Permite o no interrumpir la ejecución de un programa cuando se presiona la tecla ESC.
SET TALK OFF && Permite desplegar o no los resultados en la barra de estado.
SET SAFETY OFF && Pide confirmación para modificar ciertos archivos de un sistema.
SET STATUS OFF && Activa o desactiva ciertos mensajes en la barra de estado.
SET DELETED ON && Activa o desactiva el borrado definitivo de la información en una base de datos.
SET BELL OFF && Activa o desactiva los sonidos .WAV
SET INTENSITY ON && Regula la intensidad del fondo en la escritura.
SET DELIMITERS TO '[]' && Determina o fija los caracteres que deseamos como límites para introducir la información. Estos caracteres se activan con SET DELI ON
SET CURSOR ON && activa o desactiva el curson en la pantalla.
CLEAR ALL
CLOSE ALL
CLEAR
SET COLOR TO G+/N
SET DELI On
SET INTE OFF
@2.000,2.000 say 'logo1.bmp' bitmap STYLE 'T' CENTER
USE config
GO top
xcla=SPACE(7)
IF claveg<>' '
@00,00 SAY 'Ingrese clave de acceso para ingresar al Sistema:' GET XCLA
READ
IF XCLA<>CLAVEG
WAIT WINDOW 'Clave incorrecta' TIMEOUT 1
QUIT
ELSE
WAIT WINDOW 'Ingresando al Sistema..' TIMEOUT 1
DO FOXMENU
ENDIF
ELSE
WAIT WINDOW 'Ingresando al Sistema..' TIMEOUT 1
DO FOXMENU
ENDIF
* eof.