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

W_RESULTAT = ""
W_RESULTATCONT = ""

EXECUTE 'SELECT ACCORD AVEC 1 = "135" AND AVEC 18 # "O" AND AVEC 6 >= "12905" OR = "" '

EXECUTE 'SAUVE-LISTE W_RESULTAT' 
EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE
	
IF MSGCODE<1> # 209 THEN

	SELECT F.ACCORD TO W_RESULTAT 
	W_Fini="FAUX"

	LOOP

	   READNEXT W_Cle FROM W_RESULTAT ELSE W_Fini="VRAI"

	WHILE W_Fini="FAUX" DO

	   READ ENR_ACCORD FROM F.ACCORD,W_Cle ELSE ENR_ACCORD = ""

	   EXECUTE 'SELECT CONTRAT AVEC 1 = "02" AND AVEC 3 = "':W_Cle[1,5]:'" AND AVEC 65 = "" AND AVEC 8 => "12905" OR = ""'
	   EXECUTE 'SAUVE-LISTE W_RESULTATCONT' 
	   EXECUTE "LISTE W_RESULTATCONT" RETURNING MSGCODE
	
	   IF MSGCODE<1> # 209 THEN
		SELECT F.CONTRAT TO W_RESULTATCONT
		W_FinCont = "FAUX"

		LOOP
		   READNEXT W_CleCont FROM W_RESULTATCONT ELSE W_FinCont="VRAI"
		WHILE W_FinCont="FAUX" DO
		   READ ENR_CONTRAT FROM F.CONTRAT,W_CleCont ELSE ENR_CONTRAT = ""
		   ENR_CONTRAT<28> = "0"
		   WRITE ENR_CONTRAT ON F.CONTRAT,W_CleCont
		REPEAT	
	   END

	   IF ENR_ACCORD<5> => "12905" THEN
		ENR_ACCORD<13,1> = "000"
	   END ELSE
		IF ENR_ACCORD<11,1> <= "12905" THEN
			ENR_ACCORD=INSERT(ENR_ACCORD,10,1;"")
			ENR_ACCORD=INSERT(ENR_ACCORD,11,1;"12905")
			ENR_ACCORD=INSERT(ENR_ACCORD,12,1;"")
			ENR_ACCORD=INSERT(ENR_ACCORD,13,1;"000")
		END ELSE
			ENR_ACCORD<10,1>=""
			ENR_ACCORD<11,1>="12905"
			ENR_ACCORD<12,1>=""
			ENR_ACCORD<13,1>="000"
		END
	   END

   	   WRITE ENR_ACCORD ON F.ACCORD,W_Cle 

	REPEAT
END

STOP
