EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "DETAILECRITURERELANCE" TO F.DETAIL ELSE STOP
OPEN "", "DETAILECRITUREAUX" TO F.DETAILECRITUREAUX ELSE STOP
OPEN "", "FUSION" TO F.FUSION ELSE STOP
OPEN "", "CIVILAIDE" TO F.CIVILAIDE ELSE STOP
PRINT "Code asso (3N) ?"
INPUT W_CodeAsso
EXECUTE 'SELECT DETAILECRITURERELANCE = "':W_CodeAsso:']" PAR NumCpte PAR 1'
W_Fin = "F"
Result = ""
Result<1> = "Compte;Nom prenom;Niveau derniere relance editee"
W_DernAide = "F"
W_DernNiv = 0
LOOP
READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
READ ENR FROM F.DETAIL, W_Cle THEN
READ ENR2 FROM F.DETAILECRITUREAUX, W_Cle THEN
   IF ENR2<3> # W_DernAide THEN
	GOSUB 100
	W_DernAide = ENR2<3>
	W_DernNiv = 0
   END	
   IF ENR<1> > W_DernNiv THEN
	W_DernNiv = ENR<1>
   END
END
END
REPEAT
GOSUB 100
WRITE Result ON F.FUSION, "ListeNiveauxRelance":W_CodeAsso:".csv"
STOP
100
READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_DernAide THEN
	Result<-1> = W_DernAide:";":TRIM(ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>):";":W_DernNiv
END
RETURN
