* initialisation générale et menu
** Le Main.PRG. commencera avec la ligne suivante.
* à mettre en COMMENTAIRE pour les TESTS !!!
*=myInstance("nom_executable")		&& Indiquer le nom du programme exécutable (évite le double lancement de l'application)

SET DEBUG on
SET ECHO OFF
*
SET BELL OFF
SET CENTURY ON
SET CENTURY TO 19 ROLLOVER 30
SET CONFIRM ON
SET DATE FRENCH
SET DECIMAL TO 2
SET DELETED ON
SET DEVELOPMENT ON
SET DOHISTORY on
SET ESCAPE OFF
SET FIXED ON
*SET HISTORY on
SET HOURS TO 24
*SET RESOURCE ON
SET SAFETY OFF
*SET SCOREBOARD OFF
SET STATUS OFF
*SET STATUS BAR OFF
SET STEP OFF
SET SYSFORMATS off
SET SYSMENU OFF
SET TALK OFF
SET FUNCTION 2  TO ""
SET FUNCTION 3  TO ""
SET FUNCTION 4  TO ""
SET FUNCTION 5  TO ""
SET FUNCTION 6  TO ""
SET FUNCTION 7  TO ""
SET FUNCTION 8  TO ""
SET FUNCTION 9  TO ""
SET FUNCTION 10 TO ""
SET REFRESH TO 1,10
IF WVISIBLE("command")
HIDE WINDOW ("command")
ENDIF
IF WVISIBLE("properties")
HIDE WINDOW ("properties")
ENDIF 
_SCREEN.AUTOCENTER=.T.
_SCREEN.CLOSABLE=.T.
*_SCREEN.WINDOWSTATE=2
HIDE WINDOW all 
*SET PATH TO c:\copost\ 	&& Définit le chemin d'accès à la base de données
*SET PATH TO (CURDIR( ))  	
SET PATH TO c:\dbxl\datacom
SET PROCEDURE TO procedures.prg
CLOSE DATABASES
OPEN DATABASE c:\dbxl\sarlfrz\frz SHARED NOUPDATE
OPEN DATABASE c:\dbxl\saafjp\afg SHARED NOUPDATE
OPEN DATABASE c:\dbxl\datacom\caves SHARED
SET MULTILOCKS ON
SET TALK off
DO FORM f_menu_g
*DO WHILE TXNLEVEL() > 0
*	WAIT WINDOW "Nested Transaction ="+STR(TXNLEVEL(),3)+" Pressez une touche quelconque."
*	END TRANSACTION
*ENDDO
CLOSE DATABASES

ON SHUTDOWN
ON ERROR
PUSH KEY CLEAR
SET SYSMENU TO DEFAULT
SET BELL ON
SET DELETED OFF
SET ESCAPE ON
*SET HISTORY ON
SET FIXED OFF
SET SCOREBOARD ON
SET STATUS ON
SET TALK ON

QUIT
RETURN