*MENURESERVATION ACCES PAR LOGICIEL COMPLET
*
DO WHILE .T.
NIVEAU=1
CAR=INKEY()
IF CAR=0
TITRE="Menu g‚n‚ral"
TOUCHE1="Sous menu"
TOUCHE2="Saisie RESERVATIONS"
TOUCHE3="ANNULATION RESERVATION "
TOUCHE4="EDITION DES RESERVATIONS"
TOUCHE5="liste des r‚servations par produit"
TOUCHE6=""
TOUCHE7=""
TOUCHE8=""
TOUCHE9=""
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
EXIT
ENDI
CASE CAR=KEYF1
DO SOUSMENU.PRG
CASE CAR=KEYF10
DO UTI.PRG
CASE CAR=KEYF2
do AFRES1.PRG
CASE CAR = KEYF3
DO AFRES2
CASE CAR=KEYF4
do afedres.PRG
case car = keyf5
use reserv alias reserv
set safe off
index on codearti to temp
report form reserv to print
close data
set safe on
case car=keyf6
*o sdRGT0.PRG
case car = keyf7
*o bgdatfac.prg
CASE CAR=KEYF8
clear
! date
case car = keyf9
*o BGJV0.prg
OTHE
?? CHR(7)
ENDC
ENDD
cd C:\DBXL\saAFjp
RETU