OPEN "","TPSLETTREINFOAIDE" TO F.TPSLETTREINFOAIDE ELSE PRINT "OUVERTURE TPSLETTREINFOAIDE" ;* en lecture criture
OPEN "","ASSOCIATION" TO F.ASSOCIATION ELSE PRINT "OUVERTURE ASSOCIATION" ;* en lecture criture

READ ENR_TPSLETTREINFOAIDE FROM F.TPSLETTREINFOAIDE,"001" ELSE ENR_TPSLETTREINFOAIDE=""

	EXECUTE 'SELECT ASSOCIATION AVEC 0 # "001"'
 
	W_End="FAUX"

	LOOP
		READNEXT W_Cle ELSE W_End = "VRAI"
	WHILE W_End = "FAUX" DO
		READ ENR_ASSOCIATION FROM F.ASSOCIATION,W_Cle ELSE ENR_ASSOCIATION=""
 		READ ENR_TPS FROM F.TPSLETTREINFOAIDE,W_Cle ELSE ENR_TPS=""    
		
		ENR_TPS=ENR_TPSLETTREINFOAIDE
		
		WRITE ENR_TPS ON F.TPSLETTREINFOAIDE,W_Cle
		
		
	REPEAT


STOP