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

EXECUTE 'COMO ON VerifContrats'

EXECUTE 'SELECT CIVILAIDANT AVEC 36 >= "12420" OR = ""'
EXECUTE 'SAUVE-LISTE W_ReqAidants'
EXECUTE 'LISTE W_ReqAidants' RETURNING MsgCode

IF MsgCode<1> = "209" THEN
	PRINT "Big probleme"
	STOP
END

SELECT F.CIVILAIDANT TO W_ReqAidants

W_FinReqAidants = "F"
LOOP
	READNEXT W_CleAidant FROM W_ReqAidants ELSE W_FinReqAidants = "V"
WHILE W_FinReqAidants = "F"
	READ ENR_CIVILAIDANT FROM F.CIVILAIDANT, W_CleAidant THEN
		GOSUB 1000
	END ELSE
		
	END
REPEAT

EXECUTE 'COMO OFF'

STOP

1000
EXECUTE 'SELECT CONTRAT AVEC @ID = "':W_CleAidant:']" PAR @ID'
W_Fin = "F"
W_NbCont = 0
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
	
WHILE W_Fin = "F"
	W_NbCont = W_NbCont + 1
	IF W_Cle # W_CleAidant:W_NbCont"R%3" THEN
		PRINT "Aidant ":W_CleAidant:" : Les contrats ne se suivent pas..."
	END
REPEAT
IF ENR_CIVILAIDANT<41> # W_NbCont"R%3" THEN
	IF ENR_CIVILAIDANT<41> = "" THEN
		ENR_CIVILAIDANT<41> = "[VIDE]"
	END
	PRINT  "Aidant ":W_CleAidant:" : Dernier contrat : ":W_NbCont:", contrat attendu : ":ENR_CIVILAIDANT<41>
END
RETURN
