v_chx=" "
v_codecli=1
v_nom_cli="  "
v_numrec=1
v_num_tmp=0.0
numrec=0
v_capt_command11_1 = "Filtre sur NOM"
v_capt_command11_2 = "Sans FILTRE"
SET TALK off
Set Escap Off
SELECT 6
use c:\dbxl\datacom\cp.dbf ORDER 1
Select 1
Use frz!pgclient  Alias CL 
SET ORDER TO codecli
SELECT 2
USE frz!pgrep alias pgrep ORDER cdrep
SELECT 5
USE frz!sdarti ORDER  codeart ALIAS ar
SELECT 4
USE frz!reslignes ORDER numfact ALIAS lg
GO bott
v_der_ligne=numfact
SET RELATION TO codearti INTO ar
SELECT 7
USE frz!BGBANQUE ORDER cdbq ALIAS bq 
SELECT 3
USE frz!reservation order numero ALIAS fc
GO bott
*skip-1
vnum_der_fac=fc.numero

IF vnum_der_fac>v_der_ligne
vnum_der_fac=v_der_ligne
ENDIF

SET RELATION TO numero INTO lg
SET RELATION TO banque INTO bq
SET ORDER TO codecli


SELECT cl
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_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
	* fin copie
	


SELECT fc
SET ORDER TO codecli
V_rech= v_codecli
*? v_rech
SEEK v_rech
*SEEK v_codecli
IF NOT FOUND()

 V_creat_fact =MESSAGEBOX("Ce client n'a pas de réservation création ?",3+32,"CREATION RESERVATION")
* ? V_creat_fact
 IF V_creat_fact=6
  v_crea= .t.
  SELECT fc
  APPEND BLANK
  replace fc.numero WITH vnum_der_fac +1, codecli WITH cl.codecli,nomcli WITH cl.nomcli,fc.prenomcli WITH cl.prenomcli, fc.datefact WITH DATE()
  replace fc.ad1cli WITH cl.ad1, fc.ad2cli WITH cl.ad2, fc.ad3cli WITH cl.ad3, fc.cpcli WITH cl.cp, fc.villecli WITH cl.ville, fc.payscli WITH cl.pays
  replace fc.acciscli WITH cl.accisecli, fc.idtvacli WITH cl.tvacli, fc.entete WITH cl.entete
 
  v_numfact=vnum_der_fac + 1
*  ? vnum_der_fac
*  ? fc.numero
  flush
*  ? fc.numero
  SELECT lg
  APPEND BLANK
  replace numfact WITH vnum_der_fac+1, codecli WITH cl.codecli, lg.nomcli with cl.nomcli
  
  SELECT fc
 ELSE
  RETURN
 ENDIF
ELSE
v_crea= .f.
v_numfact=fc.numero
v_filtre=fc.nomcli
endi
SELECT lg
SET RELATION TO codearti INTO ar
SEEK v_numfact
SCATTER TO lignes
lignes[3]=fc.codecli
vnumtmp=v_numfact
v_mod_dat=.f.
DO FORM f_s_debres.scx

SELECT 1
USE
SELECT 2
USE
SELECT 3
USE
SELECT 4
USE
SELECT 5
USE
SELECT 6
USE
SELECT 7
USE

 *DO FORM f_menu_g_frz
 
Retu