* Ouverture d'un fichier
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "","FORMEXPAIDANT" TO F.FORMEXPAIDANT ELSE STOP

W_RESULTATFORM = ""

EXECUTE 'SELECT FORMEXPAIDANT'
EXECUTE 'SAUVE-LISTE W_RESULTATFORM' 
EXECUTE "LISTE W_RESULTATFORM" RETURNING MSGCODE
	
IF MSGCODE<1> # 209 THEN

	SELECT F.FORMEXPAIDANT TO W_RESULTATFORM

	W_FiniForm ="FAUX"

	LOOP
   		READNEXT W_Cle FROM W_RESULTATFORM ELSE W_FiniForm="VRAI"
	WHILE W_FiniForm ="FAUX" DO

   		READ ENR_FORMEXPAIDANT FROM F.FORMEXPAIDANT,W_Cle ELSE ENR_FORMEXPAIDANT = ""

		ENR_FORMEXPAIDANT<10> = ""

   		WRITE ENR_FORMEXPAIDANT ON F.FORMEXPAIDANT,W_Cle

	REPEAT

END

W_RESULTAT = ""

EXECUTE 'SELECT CONTRAT AVEC 65 # "O" AND AVEC 7 <= "':DATE():'" AND AVEC 8 => "':DATE():'" OR = "" PAR CodeAidant'
EXECUTE 'SAUVE-LISTE W_RESULTAT'
EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE
	
IF MSGCODE<1> # 209 THEN

	SELECT F.CONTRAT TO W_RESULTAT 

	W_Fini ="FAUX"
	W_AIDANT = ""
	W_ANCAIDANT = ""

	LOOP
   		READNEXT W_CleCont FROM W_RESULTAT ELSE W_Fini="VRAI"
	WHILE W_Fini ="FAUX" DO

		W_AIDANT = W_CleCont[1,5]
		IF W_AIDANT # W_ANCAIDANT THEN
			IF W_ANCAIDANT # "" THEN
   				WRITE ENR_FORMEXPAIDANT ON F.FORMEXPAIDANT,W_ANCAIDANT
			END
			W_ANCAIDANT = W_AIDANT
   			READ ENR_FORMEXPAIDANT FROM F.FORMEXPAIDANT,W_AIDANT ELSE ENR_FORMEXPAIDANT = ""
		END
		READ ENR_CONTRAT FROM F.CONTRAT,W_CleCont ELSE ENR_CONTRAT = ""
		I = 1
		LOOP
		WHILE ENR_CONTRAT<36,I> # "" DO
			J = 0
			W_EXIST = "FAUX"
			LOOP
				J = J + 1
			WHILE ENR_FORMEXPAIDANT<10,J> # "" AND W_EXIST = "FAUX" DO
				IF ENR_CONTRAT<36,I> = ENR_FORMEXPAIDANT<10,J> THEN
					W_EXIST = "VRAI"
				END
			REPEAT
			IF W_EXIST = "FAUX" THEN
				ENR_FORMEXPAIDANT<10,-1> = ENR_CONTRAT<36,I>
			END
			I = I + 1
		REPEAT

	REPEAT

	IF W_ANCAIDANT # "" THEN
   		WRITE ENR_FORMEXPAIDANT ON F.FORMEXPAIDANT,W_AIDANT
	END

END

STOP
