* MAJ att 37 de contacts

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTACTS" TO F.CONTACTS ELSE PRINT "OUVERTURE CONTACTS" ;* en lecture criture
OPEN "","TABLES" TO F.TABLES ELSE PRINT "OUVERTURE TABLES" ;* en lecture criture

	READ ENR_TABLES FROM F.TABLES,"FINCONTACT" ELSE ENR_TABLES=""

	EXECUTE 'SELECT CONTACTS AVEC 37 # ""'

	W_End="FAUX"
	i=1

	LOOP
		READNEXT W_Cle ELSE W_End = "VRAI"
	WHILE W_End = "FAUX" DO
		READ ENR_CONTACTS FROM F.CONTACTS,W_Cle ELSE ENR_CONTACTS=""
     
		ENR_CONTACTS<37>=ENR_TABLES<2,ENR_CONTACTS<37>>

		WRITE ENR_CONTACTS ON F.CONTACTS,W_Cle

	REPEAT

STOP
