*pgsacli0 saisie des clients pour suivi des commandes
v_codecli=1
v_retour=.f.
Set Escap Off
SELECT 3 
use c:\dbxl\datacom\cp.dbf ORDER 1

Select 1
Use frz!pgclient  Alias CL ORDER nomcli
CURSORSETPROP("Buffering",3)

SELECT 2
USE frz!pgrep alias pgrep ORDER cdrep
CURSORSETPROP("Buffering",3)

SELECT 1
SET RELATION TO coderep INTO pgrep
*TITRE = "SAISIE DES CLIENTS"
*rep="N"



Do While .T.
	SELECT cl
	Ajout=0
	v_nom_fact=Space(35)
*	Do TITRE
	Set Order to codecli
	Go Bott
	vcode =codecli
	Set Order To nomcli
	*présaisie du nom client
	do Form f_nom_client 
	V_rech=TRIM(v_nom_cli)
	SET EXACT off
	*recherche d'un nom identique ressemblant
	SEEK v_rech
	* si il y a des noms ressemblants on choisi dans une grille
	IF FOUND()
	v_filtre="%"+V_rech+"%"
SELECT  entete,nomcli,prenomcli,ad1,ad2,ville,cp,tel,codecli,datefic from cl WHERE cl.nomcli LIKE(v_filtre) inTO CURSOR cli2
	v_chx=.f.
	DO FORM c:\dbxl\saafjp\f_s_cli_grid.scx
	 IF v_retour=.T.
	SELECT 3
    USE
    SELECT 1
    USE
    SELECT 2
    USE
    Close Data
    Retu
	endif
	 IF v_rech <> TRIM(v_nom_cli)
	 v_rech=TRIM(v_nom_cli)
	 ENDIF
	exit
	else
	SELECT cl
	*SET EXACT OFF
	*SEEK v_rech
	*IF EOF()
	 V_reponse= MESSAGEBOX("CLIENT INEXISTANT Création",35,"NOM CLIENT",10000)
	 DO case 
	  CASE v_reponse = 7	 
	  LOOP
	  CASE v_reponse =	6
	  v_nom_cli=TRIM(v_nom_cli)
	  SELECT cl
	  APPEND BLANK
	  replace cl.nomcli WITH v_nom_cli,cl.codecli WITH vcode,cl.codecli WITH vcode+1
	  flush
	  SET ORDER to codecli
	  GO bott
	  v_crea=.t.
	  v_chx=.t.
	  *DO FORM f_s_client2
	  v_crea =.f.
	  v_codecli=cl.codecli
	  EXIT
	  CASE v_reponse =	2
	  RETURN
	 ENDCASE
     EXIT
    endif
enddo
SELECT cl
IF v_chx =.t.
IF v_codecli # cl.codecli
SET ORDER TO codecli
SEEK v_codecli
SET ORDER TO nomcli
endi
endi
DO FORM f_s_client2
SELECT 3
USE
SELECT 1
USE
SELECT 2
USE
Close Data
Retu