OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

W_DateDeb = ""
LOOP
PRINT "Date de dbut (JJ/MM/AAAA) ?"
INPUT W_DateDeb
IF W_DateDeb = "" THEN
	PRINT "Traitement abandonn."
	STOP
END
W_DateDeb = ICONV(W_DateDeb,"D4/")
WHILE W_DateDeb = ""
REPEAT

W_DateFin = ""
LOOP
PRINT "Date de fin (JJ/MM/AAAA) ?"
INPUT W_DateFin
IF W_DateFin = "" THEN
	PRINT "Traitement abandonn."
	STOP
END
W_DateFin = ICONV(W_DateFin,"D4/")
WHILE W_DateFin = ""
REPEAT

EXECUTE 'SELECT CONTRAT AVEC 65 # "O" AND AVEC 1 #"02" AND AVEC 8 >= ":W_DateDeb:" OR = "" AND AVEC 7 <= ":W_DateFin:" PAR @ID'
EXECUTE 'COMO ON ListeAnomaliesAdresse.txt'
W_Fin = "F"
W_Aidant = ""
LOOP
READNEXT W_Cle ELSE W_Fin = "V"
IF W_Cle[1,5] # W_Aidant AND W_Fin = "F" THEN
	GOSUB 100
END
W_Aidant = W_Cle[1,5]
WHILE W_Fin = "F"
REPEAT
EXECUTE 'COMO OFF'
STOP
100
READ ENR FROM F.CIVILAIDANT, W_Cle[1,5] THEN
W_Num = ENR<5>
FOR i = 1 TO LEN(W_Num)
	IF SEQ(W_Num[i,1]) > 57 OR SEQ(W_Num[i,1]) < 48 THEN
		PRINT W_Cle[1,5]:" ":ENR<2>:" ":ENR<3>
		PRINT W_Num
		PRINT
	END
NEXT i
END
RETURN

