*modification dates facture
numrec=0
Set Escap Off
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!sdlignes ORDER numfact ALIAS lg
SET RELATION TO codearti INTO ar
SELECT 7
USE frz!BGBANQUE ORDER cdbq ALIAS bq 
SELECT 3
USE frz!sdfactur order numero ALIAS fc
GO bott
*skip-1
vnum_der_fac=fc.numero
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
	@1,0 Clear
	ajout=0
	v_nom_fact=Space(35)
*	Do TITRE
	Set Order to codecli
*	Go Bott
	vcode =codecli
	Set Order To nomcli
	
	Do Form f_nom_fact
	V_rech=TRIM(v_nom_fact)
	*Wait
	SET TALK on
	? v_rech
	
	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_fact)
	  DO FORM f_s_client
	  EXIT
	  CASE v_reponse =	2
	  RETURN
	 ENDCASE
    ELSE
     v_codecli=cl.codecli
     v_numrec=RECNO()
    
     EXIT
    endif
enddo
SELECT fc
SET ORDER TO nomcli
V_rech=TRIM(v_nom_fact)
? v_rech
SEEK v_rech
*SEEK v_codecli
IF NOT FOUND()

 V_creat_fact =MESSAGEBOX("Ce client n'a pas de facture ",0+32,"CREATION FACTURE")
 *? V_creat_fact
 
  RETURN
 ENDIF
v_crea= .f.
v_numfact=fc.numero

SELECT lg
SET RELATION TO codearti INTO ar
SEEK v_numfact
SCATTER TO lignes
vnumtmp=v_numfact

v_mod_dat=.t.
DO FORM f_s_debfac.scx



*Enddo

SELECT 1
USE
SELECT 2
USE
SELECT 3
USE
SELECT 4
USE
SELECT 5
USE
 *DO FORM f_menu_g_frz
 
Retu