*SAISIE DU FICHIER des FOURNISSEURS
SET ESCAP OFF
SELECT 1
USE SDFOURN INDEX SDFOURN ALIAS FO
TITRE = "SAISIE DES FOURNISSEURS"
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 =trim(VCODE)
seek Vrech
SET EXACT ON
IF EOF()
rep="N"
@ 10,12 SAY "Ce fournisseur  est inexistant "
@ 12,12 SAY "VOULEZ VOUS LE CREER O/N " GET REP
READ
IF UPPER(REP)="O"
append blank                         
set format to sdfourn
read           
       
close format                           
REPLACE CODEfourn WITH  VCODE
WAIT           
@ 6,0 CLEAR
ELSE
LOOP
ENDI
DO SDPRESF.PRG    
@ 23,0 SAY " "    
WAIT    
LOOP    
ENDI
PRG="SDPRESF.PRG"     
DO SDFICAVA.PRG     
REP="N"                               
@ 23,0 SAY "MODIF O/N " GET REP
READ     
IF UPPER(REP)="O"

SET FORMAT TO SDFOURN.FMT
READ    
CLOSE FORMAT

WAIT
ENDI
ENDDO
CLOSE DATA
RETU