* UTI
DO WHIL .T.
NIVEAU=2
CAR=INKEY()
IF CAR=0
TITRE="Menu des utilitaires"
TOUCHE1="SAUVEGARDER"
TOUCHE2="DEMANDE DE DAA"
TOUCHE3="Remise à jour des réservations"
TOUCHE4="saisie modif banques"
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="DIVERS REGIE"
DO TITRE
DO FKEY
DO UNCAR
ENDI
DO CASE
CASE CAR=KEYESC
RETU
CASE CAR=KEYF1
DO BGEXPO
CASE CAR=KEYF2
DO bgdaa.PRG
CASE CAR=KEYF3
titre ="remise … jour des reservations"
do titre
@ 10,0 say ""
set talk on
sele 1
use sdarti index sdarti alias ar
replace all res with 0
sele 2
use c:\dbxl\sarlfrz\res\reserv alias rv
set safe off
replace all codeart with codearti
index on codeart to temp
set safe on
sele 1
update on codeart from rv replace ar->res with ar->res+rv->q2
wait
set talk off
close data
*DO UTI3.PRG
CASE CAR=KEYF4
DO bgsabq.PRG
CASE CAR=KEYF5
DO BGETSTO
CASE CAR=KEYF6
*DO UTI6.PRG
DO BGEDCAPS.PRG
CASE CAR=KEYF7
DO BGEDBTL
CASE CAR=KEYF8
DO BGCHFAC.PRG
CASE CAR=KEYF9
DO BGClotu.PRG
CASE CAR=KEYF10
DO BGRDX.PRG
*o uti6.prg
CASE CAR=KEYF11
CD RES
DO MENUres
case car=keyF12
do regie
OTHE
?? CHR(7)
ENDCase
ENDD
RETU