*pgsacli0 saisie des clients pour suivi des commandes
*
SET ESCAP OFF
SELECT 1
USE &cldb INDEX &clndx1,&clndx2 ALIAS CL
TITRE = "SAISIE DES CLIENTS"
rep="N"            
DO WHILE .T.
ajout=0              
vnom=space(30)
DO titre
set order to 2       
go bott
vcode =codecli                                       
set order to 1                                       
@ 7,12 SAY "NOM " GET VNOM PICTURE "@!"
READ
IF Vnom  =SPACE(30)
EXIT
ENDI
SET EXACT OFF
vnom=trim(vnom)
seek VNOM
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"
set format TO bgfSCLI
APPEN BLANK
read
CLOSE FORMAT
vcode =vcode+1
REPLACE CODECLI WITH  VCODE
replace cl-> nomcli with vnom,cl->datefic with date()
WAIT
@ 6,0 CLEAR
ELSE
LOOP
ENDI
DO bgPRcli.PRG
@ 23,0 SAY " "
WAIT
LOOP
ENDI
PRG="bgPRcli.PRG"
DO bgFICAR.PRG
if ajout=1
APPEN BLANK
*CLEAR AUTOMEM
set format TO bgfSCLI
READ
*REPLACE  AUTOMEM
CLOSE FORMAT
vcode =vcode+1
REPLACE CODECLI WITH  VCODE
replace cl-> nomcli with vnom,cl->datefic with date()
WAIT
@ 6,0 CLEAR
loop
endif
REP="N"
@ 23,0 SAY "MODIF O/N Suppression" GET REP
READ
IF UPPER(REP)="O"
*STORE AUTOMEM
vnom=cl->nomcli
SET FORMAT TO bgfscli.FMT
READ
CLOSE FORMAT
*REPLACE AUTOMEM
@ 19,19 GET cl->comment
READ
replace cl-> nomcli with vnom,cl->datefic with date()
WAIT
ENDI
IF UPPER(REP)="S"
@ 20,5 SAY"vous allez supprimer cette fiche O/N"GET rep PICTURE "!"
READ
IF rep = "O"
DELETE
ENDI
ENDI
ENDDO
CLOSE DATA
RETU