public m.ctrl
m.ctrl=0
*set step on
set century on
set safe off
Set hour to 24
set exclusive off
SET MULTILOCKS ON
set sysmenu off 
SET REPROCESS TO AUTOMATIC
*DO form entrada
Open database helpdesk share
Do inicilo
*set step on
*Do FORM login
if m.ctrl<>1 then
  do form c:\comware\frm_barrappal.scx
 * read events
endif
WAIT WINDOW "Hasta una próxima ocasión." noWAIT
*= TABLEUPDATE(.T.)
*clear events
Close data all

Procedure inicilo
WITH _Screen
**oldScreenLeft=.Left                 && Guardar el tamaño y la posición actuales
**   oldScreenTop=.Top
*    oldScreenHeight=300
*    oldScreenWidth=700
**   oldScreenColor = .Backcolor
**   .LockScreen=.F.                     && Desactiva el redibujado de pantalla
   .BackColor=rgb(192,192,192)         && Cambiar el color de fondo a gris
   .BorderStyle=3                      && Cambiar el borde a doble
*   .Closable=.T.                       && Quitar botones de control de ventana
*   .ControlBox=.T.
*   .MaxButton=.T.
*   .MinButton=.T.
*   .Movable=.T.
   .AutoCenter=.T.
   .WindowState=2
   *.Picture="M_presenta.BMP"
    ss1=sysmetric(1)
	ss2=sysmetric(2)
   if ss1=800 and ss2=600 then 
     .Picture=sys(5)+curdir()+"imagenes\COLSERVICE\imagen principal800.gif"
   endif
   if ss1=1024 and ss2=768 then 
     .Picture=sys(5)+curdir()+"imagenes\COLSERVICE\imagen principal1024.gif"
   endif
   if ss1=1152 and ss2=864 then 
     .Picture=sys(5)+curdir()+"imagenes\COLSERVICE\imagen principal1152.gif"
   endif
*   .Titlebar = 0
   .Minbutton=.T.
   .Autocenter = .T.
**   .Height=285
**   .Width=550
   .Caption="HELP DESK 2000"            && Establecer un título
   .LockScreen=.F.                     && Activa el redibujado de pantalla
ENDWITH