*RESERVATION DES PRODUITS PAR LES CLIENTS
*BASES SDARTI FICHIER ARTICLES INDEX CODEARTI
*BASES reserv LIGNES DE RESERVATION
*FENETRE POUR FAIRE DEFILER LES ARTICES L7 0 L17
*VARIABLE VNUMRES NUMERO DE RESERVATION AUTOINCREMENTE
CLEAR
SET DELET ON                           
TITRE="RESERVATION CLIENTS AF"
niveau =2
DO titre
NLFAC=40
NLPG=66
NLET=5
SET ESCAP OFF
SELECT 1
USE RESERV INDEX RESERV ,RESERVN ALIAS res
SELE 2
USE c:\dbxl\sA\SDARTI INDEX c:\dbxl\sa\SDARTI ALIAS AR
sele 1                                        
set relation to codearti into ar                                        
TITRE = "SAISIE DES RESERVATIONS CLIENT"
define window clients from 7,39 to 18,80
define window articles from 7,0 to 18,40
define window saisie from 19,0 to 25,78
*activate window articles
*activate window clients
DO WHILE .T.
VCODE = SPACE(34)
SELE 1
GO TOP
*wsele 0       
activate screen
rep="N"
DO titre
@ 7,12 SAY "CLIENT " GET VCODE PICTURE "@!"
READ
 IF VCODE  =SPACE(34)
 EXIT
 ENDI
SET EXACT OFF
vrech =trim(VCODE)
set order to 2
seek Vrech
SET EXACT ON
***************************
activate window clients                                                     
champ1="nomcli"
champs ="quantite,codearti,SUBSTR(NOMCLI,1,16),date"
ligne = "str(quantite,5,0)+"+chr(34)+" "+chr(34)+"+codearti+"+chr(34)+" "+chr(34)+"+substr(nomcli,1,16)+"+chr(34)+" "+chr(34)+"+dtoc(date)"
WL=11
do afpresw1
 IF  CAR =KEYCR
  DO WHILE .T.       
*WSELE 3
  activate window saisie
  *wset frame on
  DO AFPRESF3
  rep="R"                                                                                     
  @ 4,2 SAY "Ajouter reserv Cr‚er reserv Modifier reserv Supprimer reserv Rien" get rep
  read
  rep =upper(rep)
  do case
  case rep="C"
  prod = codearti
  append blank
* vnumres=vnumres+1
  replace nomcli with vcode,date with date()+2,codearti with prod,colisage with 0.75
  *set safe off
  *save all like vnum??? to numfac.mem
  *set safe on
  do afress1
  do afcalcp
   do while .T.
   do afpresF3
   rep="R"                                                                                     
   @ 4,2 SAY "Ajouter reserv Modifier reserv Supprimer reserv Rien" get rep picture "!"
   read       
    do case
    case rep="A"
    prod = codearti
    dater=date
    VNOM=NOMCLI
    vcp=cpcli            
    vville=villecli            
    vpays=payscli            
    vtype=type
    append blank
    replace nomcli with VNOM,date with dateR,codearti with prod,colisage with 0.75
    REPLaCE Cpcli WITH VCP,villecli with vville,payscli with vpays,type with vtype
    do afress1
    do afcalcp
    do afpresF3
    case  rep="M"
    do afcalcm
    do afress1
    do afcalcp
    DO AFPRESF3
    case rep="S"
    chx="N"
    @ 4,2 say "                                                            "
    @ 4,2 say "Etes vous s–r O/N" get chx picture "!"
    read
     if chx="O"
     do afcalcm
     DELETE
     endi
    case rep="R"
    exit
    endc
   enddo
  rep ="R"            
  case rep="A"
  prod = codearti
  dater=date
  VNOM=NOMCLI
  vcp=cpcli            
  vville=villecli            
  vpays=payscli            
  vtype=type
  append blank
  replace nomcli with vNOM,date with dateR,codearti with prod,colisage with 0.75
  REPLaCE Cpcli WITH VCP,villecli with vville,payscli with vpays,type with vtype
  do afress1
  do afcalcp
  case rep="M"
  do afcalcm
  do afress1
  do afcalcp
  case rep="S"
  chx="N"
  @ 4,2 say "                                                            "
  @ 4,2 say "Etes vous s–r O/N" get chx picture "!"
  read
   if chx="O"
   do afcalcm
   DELETE     
   endi
  CASE REP="R"    
  EXIT    
  endc
  ENDDO       
  activate screen
  endi
 endd
 close data
 RELEASE window all
 hide wind all
 activate screen
 set century on
 retu