* saisie des repr‚sentants
sele 1
use &repdb index &repndx1,&repndx2  alias rp
titre = "saisie des repr‚sentants"
niveau =2
do while .T.        
set order to 2
do titre
vnomrep=space(30)
crep="N"                                                       
@ 7,2 say"Nom du REPRESENTANT:"get vnomrep picture "@!"
read
if vnomrep=space(30)
exit
endi
set exac off
find &vnomrep
set exac on        
if eof()
@ 10,2 say"nom inconnu cr‚ation O/N" get crep picture "!"
read
if crep="O"
append blank
replace nomrep with vnomrep
vrec=recno()
else
loop
endi
else
prg="pgpresr"
do pgficar
if car =keyins
append blank
replace nomrep with vnomrep
vrec=recno()
endi
if car =keycr .or. car=keyesc
vrec=recno()   
endi
endi
set order to 1
if car =keyins .or. crep="O"
do while .T.
vnumrep=000
@ 12,20 say "                  "
@ 21,2 say "                                       "
@ 12,2 say" Num‚ro de code " get vnumrep picture "999"
read
seek vnumrep
if eof()
go vrec
replace cdrep with vnumrep
exit
else
@ 12,20 say "code existant "
@ 20,2 say ""
wait
loop
endi
exit     
enddo
endi     
do pgsrep1
enddo
close data
retu