*SAISIE DU FICHIER des CLIENTS
SET ESCAP OFF
SELECT 1
USE CLdb INDEX clndx1,clndx2 automem ALIAS CL
TITRE = "SAISIE DES CLIENTS"
rep="N"            
DO WHILE .T.
vcode=space(6)
do titre
@ 7,12 SAY "CODE " GET VCODE PICTURE "!!!!!!"
READ
IF VCODE  =SPACE(6)
 exit
endi
SET EXACT OFF
vrech =VCODE
FIND &Vrech
SET EXACT ON
IF EOF()
rep="N"
@ 10,12 SAY "Ce CLIENT  est inexistant "
@ 12,12 SAY "VOULEZ VOUS LE CREER O/N " GET REP
READ
IF UPPER(REP)="O"
clear automem                         
set format to sdSCLIEN
read           
appen blank                
replace  automem
close format                           
REPLACE CODECLI WITH  VCODE
WAIT           
@ 6,0 CLEAR
ELSE
LOOP
ENDI
DO SDPRESC.PRG
@ 23,0 SAY " "    
WAIT    
LOOP    
ENDI
PRG="SDPRESC.PRG"
DO SDFICAVA.PRG     
REP="N"                               
@ 23,0 SAY "MODIF O/N " GET REP
READ     
IF UPPER(REP)="O"
STORE AUTOMEM
SET FORMAT TO SDSCLIEN.FMT
READ    
CLOSE FORMAT
REPLACE AUTOMEM     
WAIT
ENDI
ENDDO
CLOSE DATA
RETU