* 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\afjp\SDARTI INDEX c:\dbxl\afjp\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
WSELE 2
WUSE articles
WSELE 1
WUSE clients
DO WHILE .T.
VCODE = SPACE(34)
SELE 1
GO TOP
WSELE 0
rep=" "
DO titre
@ 7,12 SAY "ANULATION PAR CLIENT OU PAR DATE C/D"GET REP PICTURE "@!" HELP "ATTENTION !!! toutes les reservations de la date vont d‚filer il ne sera pas possible de revenir en arriŠre"
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
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
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
WSELE 1
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
WSELE 3
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
WSELE 0
ENDD
CLOSE DATA
WRELEASE ALL
RETU