************
***********************************************************
** variable que se usa para indicar que ocurrio
**el error 1184 duplicacion de claves en el Programa zerrtrap
PUBLIC m.claver
store .f. to m.claver
*************************************************************
PUBLIC tablla &&define que tabla se usara en imprimir y en formato(menu)
PUBLIC zerror &&define si ocurrio el error 1582
store .f. to zerror
*******************************************
**variable que no deja volver a formfactura si no se ha salido de 
**formclient
PUBLIC nosale
store .f. to nosale
***********************************************
** variable que devuelve el nivel de acceso
PUBLIC acceso
store 0 to acceso
***********************************************
** variable que indica si es visible algo del menu o no
PUBLIC menuvisibl
store .f. to menuvisibl
***********************************************
** variable que indica si se quiere usar un form de entrada
** cambie esta variable dependiendo de lo que la aplicacion
** que va a crear necesite o exija
PUBLIC si
store .t. to si
***********************************************
** variable que indica que formato se escogio para imprimr
PUBLIC geste
geste=0
***********************
PUBLIC m.Fin
STORE .F. TO m.Fin
*************************************************************
***SETEA PANTALLA
*DO LOGO

****
SET SYSMENU TO
set multilocks on

SET DELE ON
SET ECHO OFF
SET TALK OFF
SET BELL OFF
SET BORD TO SING
SET CENT ON
SET DATE dmy
SET DEBU OFF
SET DELE ON
SET ECHO OFF
SET ESCA OFF
SET EXCL OFF
SET REPROCESS TO AUTOMATIC
SET HOUR TO 24
SET NOTI OFF
SET REPR TO AUTO
SET SAFE OFF
SET SCOREBOARD OFF
SET STEP OFF
SET TALK OFF
SET TRBE OFF
SET DECI TO 6
SET UDFP TO VALUE
CLEAR
RELE WIND
CLEAR READ


*USE PARAMETR IN A EXCL
*use daplanil in D excl
*use pararep1 in E excl
*_SCREEN.CAPTION = "IMECTRO - HAP"  && Modifica las variables de la pantalla principal
select 0
use daplanil alias daplanil
DO medidor.MPR
READ EVENTS
READ VALID m.Fin
use in pararep1 
RETURN