*AFRESLI0
*RESERVATION EN LISTE
*SDARTI EST LE FICHIER UTILISE L'INDEX EST LE CODE ARTICLE
*L'INDEX VTPRD2 EST LE CODE NORDIVET
TITRE ="CHOIX DES PRODUITS"
NIVEAU=3
DO TITRE
SELE 2
USE c:\dbxl\AF\SDARTI INDEX c:\dbxl\AF\SDARTI alias AR
SELE 1
USE AFRESLIGNE INDEX AFRESLIGNE ALIAS LG
WSET WINDOW liste TO 7,1,17,78 color &c1,+R/G,&c6
WSET window RESER TO 19,1,23,78 color &c1,&c2,&c3
WSELE 2
WUSE RESER
WSEL 1
WUSE liste
DO WHILE .T.
WSELE 1
SET color TO &c1,+R/G,&c6
SELE 1
nc=3
wl=11
ws=4
col=1             
WSET FRAME ON
WDISPLAY
CLEAR
SKIP -4
LIST off next 10 field code,design,famille,pha,c,pv
SKIP -5
SET color TO &c2
@ ws,COL SAY code
?? "",CODEART,DESIGNART,QUANTITE-RES
DO WHILE .T.
DO uncar
DO CASE
CASE car =keyup.AND.ws-1>0 .AND. .NOT.BOF()
SET color TO &c1
@ ws,COL SAY code
?? "",CODEART,DESIGNART,QUANTITE-RES
ws=ws-1
SKIP-1
SET color TO &c2
@ ws,COL SAY code
?? "",CODEART,DESIGNART,QUANTITE-RES
wsele 2
do vtprpd
wsele 1
CASE car =keyup.AND.ws-1<=0 .AND. .NOT.BOF()
SET color TO &c1
@ ws,COL SAY code
?? "",CODEART,DESIGNART,QUANTITE-RES
DOWNSCROLL 1
SKIP-1
SET color TO &c2
@ ws,COL SAY code
?? "",CODEART,DESIGNART,QUANTITE-RES
CLEAR KEY
wsele 2
do vtprpd
wsele 1
CASE car =keydn.AND.ws+1<wl.AND..NOT.EOF()
SET color TO &c1
@ ws,COL SAY code
?? "",CODEART,DESIGNART,QUANTITE-RES
ws=ws+1
SKIP+1
SET color TO &c2
@ ws,COL SAY code
?? "",CODEART,DESIGNART,QUANTITE-RES
wsele 2
do vtprpd
wsele 1
CASE car=keydn.AND.ws+1>=wl.AND..NOT.EOF()
SET color TO &c1
@ ws,COL SAY code
?? "",CODEART,DESIGNART,QUANTITE-RES
UPSCROLL 1
SKIP+1
SET color TO &c2
@ ws,COL SAY code
?? "",CODEART,DESIGNART,QUANTITE-RES
wsele 2
do vtprpd
wsele 1
CLEAR KEY
CASE car=keyesc
WSELE 0
EXIT
case car = keycr       
wsele 2       
exit
case car = keyf10
wsele 2
clear
vdes=space(15)
vrec=recno()                                                    
@ 2,10 say "debut designation" get vdes picture "@!"
read
if vdes#space(15)
set exac off
find &vdes
if eof()
@ 3,10 say "introuvable"
go vrec    
else
wsele 1
clear
SET color TO &c1,+R/G,&c6
wdisp
ws = 4
SKIP -4
LIST off next 10 field code,design,famille,pha,c,pv
SKIP -5
SET color TO &c2
@ ws,COL SAY code
?? "",CODEART,DESIGNART,QUANTITE-RES
endi
else
wsele 1
endi
ENDCASE
ENDDO
DO CASE
CASE car = keycr
clear key
*rep = "Q"
*@ 3,2 say "Modif Quit Supression Ajout" get rep picture"!"
*read
*do case
*case rep ="S"
*delete
*case rep = "A"
*append blank
*replace code with "999999999",marge with 45
*do vtsprdw.prg
*case rep ="M"
*do vtsprdw.prg
*case rep="Q"
*loop
*endcase
*CASE car = keyesc
*EXIT
*ENDCASE
ENDD
WSELE 0
CLOSE DATA
RETU