* anulation des resevations / jour ou / client
titre ="ANULATIONS RESERVATIONS AF"
niveau =2
************
*BASES SDARTI FICHIER ARTICLES INDEX CODEARTI
*BASES reserv LIGNES DE RESERVATION
*FENETRE POUR FAIRE DEFILER LES ARTICES L7 0 L17
CLEAR
SET DELET ON
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\SAafjp\SDARTI INDEX c:\dbxl\SAafjp\SDARTI ALIAS AR
SELE 1
SET relation TO codearti into ar
*WSET window clients TO 7,40,17,79
*WSET window articles TO 7,0,17,39
*WSET window saisie TO 19,1,24,78
*WSELE 3
*WUSE SAISIE
define window clients from 7,40 to 17,79
define window articles from 7,0 to 17,39
define window saisie from 19,1 to 24,78
*WSELE 2
*WUSE articles
*WSELE 1
*WUSE clients
dO WHILE .T.
VCODE = SPACE(34)
SELE 1
GO TOP
activate screen
rep=" "
DO titre
@ 7,12 SAY "ANULATION PAR CLIENT OU PAR DATE C/D"GET REP PICTURE "@!" 
READ
IF REP =" "
EXIT
ENDI
IF rep ="D"
SET EXACT OFF
date1 =CTOD("  /  /  ")
@ 10,2 SAY "date d'anulation " GET date1 VALID (date1 <date()+1)
READ
vrech =date1
*SET order TO 2
FIND &Vrech
SET EXACT ON
*WSELE 1
activate window clients
champs ="QUANTITE,codearti,SUBSTR(  NOMCLI,1,18),date"
ligne = "quantite,codearti,substr(nomcli,1,18),date"
WL=11
DO afpresw1
IF  CAR =KEYCR
DO WHILE date=date1
*WSELE 3
deactivate window clients
activate window saisie
DO AFPRESF3
rep="R"                                                                                     
@ 5,2 SAY "Anuler reserv  Rien Fin" GET rep
READ
rep =upper(rep)
DO CASE
CASE rep="A"
chx="N"
@ 5,30 SAY "Etes vous s–r O/N" GET chx PICTURE "!"
READ
IF chx="O"
DO afcalcm
DELETE
ENDI
CASE REP="F"
EXIT
endc
*IF .NOT. EOF()
SKIP
*ENDI
endd
endi    
ELSE
rep="N"
@ 10,12 SAY "CLIENT " GET VCODE PICTURE "@!"
READ
IF VCODE  =SPACE(34)
EXIT
ENDI
SET EXACT OFF
vrech =VCODE
SET order TO 2
FIND &Vrech
SET EXACT ON
activate window clients
champs ="QUANTITE,codearti,SUBSTR(NOMCLI,1,18),date"
ligne = "quantite,codearti,substr(nomcli,1,18),date"
WL=11
DO afpresw1
IF  CAR =KEYCR
vcode=nomcli
DO WHILE nomcli=vcode
activate window saisie
DO AFPRESF3
rep="R"                                                                                     
@ 5,2 SAY "Anuler reserv Rien Fin " GET rep
READ
rep =upper(rep)
DO CASE
CASE rep="A"
chx="N"
@ 5,30 SAY "Etes vous s–r O/N" GET chx PICTURE "!"
READ
IF chx="O"
DO afcalcm
DELETE
ENDI
CASE REP="F"
EXIT
ENDC
*IF .NOT. EOF()
SKIP
*ENDI
enddo
endi
ENDI
activate screen
ENDD
CLOSE DATA
RELEASE window ALL
RETU