*MENURESERVATION ACCES PAR LOGICIEL COMPLET
*
pol1=CHR(27)+"&l0O"+chr(27)+"(s12U"+chr(27)+"(s0P"+chr(27)+"(s12H"+chr(27)+"(s12V"+chr(27)+"(s0S"+chr(27)+"(s0B"+chr(27)+"(s3T"
pol2=CHR(27)+"&l0O"+chr(27)+"(s12U"+chr(27)+"(s0P"+chr(27)+"(s16H"+chr(27)+"(s12V"+chr(27)+"(s0S"+chr(27)+"(s0B"+chr(27)+"(s3T"
pol3=CHR(27)+"&l0O"+chr(27)+"(s12U"+chr(27)+"(s1P"+chr(27)+"(s5H"+chr(27)+"(s24V"+chr(27)+"(s0S"+chr(27)+"(s0B"+chr(27)+"(s6T"

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="CONSULTATION PAR PRODUIT"
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 réservation"
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
set print on
?? pol1
set print off
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
do rescspro.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\sarlfrz
RETU