* UTI
DO WHIL .T.
NIVEAU=2
CAR=INKEY()
IF CAR=0
TITRE="Menu des utilitaires"
TOUCHE1="EXPORTER PORTABLE"
TOUCHE2="DAA"
TOUCHE3=""
TOUCHE4=""
TOUCHE5="ETAT DU STOCK"
TOUCHE6="GESTION DES CAPSULES"
TOUCHE7="GESTION DES BOUTEILLES"
TOUCHE8="PERMUTER DEUX NUMEROS FACTURES"
TOUCHE9="CLOTURE EXERCICE"
TOUCHE10="REINDEXATION DES FICHIERS"
TOUCHE11="RESERVATIONS"
TOUCHE12=""
DO TITRE
DO FKEY
DO UNCAR
ENDI
DO CASE
CASE CAR=KEYESC
RETU
CASE CAR=KEYF1
DO bgexpo.prg
CASE CAR=KEYF2
DO bgdaa.prg
CASE CAR=KEYF3
DO UTI3.PRG
CASE CAR=KEYF4
DO UTI4.PRG
CASE CAR=KEYF5
DO BGETSTO
CASE CAR=KEYF6
*DO UTI6.PRG
DO BGEDCAPS.PRG
CASE CAR=KEYF7
DO BGEDBTL
*do uti7
CASE CAR=KEYF8
DO BGCHFAC.PRG
CASE CAR=KEYF9
DO BGClotu.PRG
CASE CAR=KEYF10
DO BGRDX.PRG
CASE CAR=KEYF11
CD RES
DO MENUres
OTHE
?? CHR(7)
ENDC
ENDD
RETU