* 
DO UTI0.PRG
SET PROC TO PROCEDUR
DO INIT_SET
SET DELET ON               
SOCIETE="DOMAINE A. F. GROS"
if file ("COULEUR.MEM")
restor from couleur addi
endi
PRN="LPT1"
DIMENSION TVA[3]
if file ("tva.mem")
restore from tva.mem addi           
endi           
IF FILE ("NUMFAC.MEM")   
RESTORE FROM NUMFAC.MEM ADDI
ENDI            
cldb="c:\dbxl\datacom\pgclient" PUBLIC
clndx1="c:\dbxl\datacom\pgclinom" PUBLIC
clndx2="c:\dbxl\datacom\pgclicod" PUBLIC
repdb="c:\dbxl\datacom\pgrep"PUBLIC
repndx2="c:\dbxl\datacom\pgrepcd"PUBLIC
repndx1="c:\dbxl\datacom\pgrepnm" PUBLIC
RESTORE FROM CAPS.MEM ADDI
DO WHILE .T.
NIVEAU=1
CAR=INKEY()
IF CAR=0
TITRE="Menu g‚n‚ral"
TOUCHE1="Sous menu"
TOUCHE2="Saisie ARTICLES"
TOUCHE3="Saisie FOURNISSEURS"
TOUCHE4="Saisie CLIENTS"
TOUCHE5="Saisie FACTURES"
TOUCHE6="M … J REGLEMENTS"
TOUCHE7="Modification date facture"
TOUCHE8="date"
TOUCHE9="LISTE DES VENTES  "
TOUCHE10="Utilitaires"
TOUCHE11=""
TOUCHE12=""
DO TITRE
DO FKEY
DO UNCAR
ENDI
DO CASE
CASE CAR=KEYESC
@6,0CLEA
DO OUI_NON
SET COLO TO &C5
@8,10 SAY "Voulez vous r‚ellement quitter"
DO UNCAR
IF CAR=111.OR.CAR=79
CLOS DATA
SET COLO TO W/N
@6,0 CLEA
DO FIN_SET
CLOS PROC
@6,0SAY "Ex‚cution termin‚e"
EXIT
ENDI
CASE CAR=KEYF1
DO SOUSMENU.PRG
CASE CAR=KEYF10
DO UTI.PRG
CASE CAR=KEYF2
do sdSART0.PRG
CASE CAR = KEYF3
do sdSFOUR0.PRG
CASE CAR=KEYF4
do BGSCLI0.PRG
case car = keyf5
do bgsfac0.prg
case car=keyf6
do sdRGT0.PRG
case car = keyf7
do bgdatfac.prg
CASE CAR=KEYF8
clear
! date
case car = keyf9
do BGJV0.prg
OTHE
?? CHR(7)
ENDC
ENDD
RETU