* UTI
DO WHIL .T.
NIVEAU=2
CAR=INKEY()
IF CAR=0
TITRE="Menu des utilitaires"
TOUCHE1="SAUVEGARDE"
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 uti3sp
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 ar->res with 0
sele 2
use c:\dbxl\sa\res\reserv alias rv
replace all codeart with codearti
set safe off
index on codeart to tempres
set safe on
sele 1
update on codeart from rv replace ar->res with ar->res + rv->q2
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