* MOULINETTE DE MAJ ATT 39 40 41 DE CONVENTIONCOL

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

EXECUTE 'SELECT CONTRAT AVEC 65 = "" AND AVEC 7 <= "13636" AND AVEC 8 => "13636" OR = "" PAR 1'

W_FINI="FAUX"
W_COL = ""
W_COLANC = ""

LOOP
   	READNEXT W_CLE ELSE W_FINI="VRAI"
WHILE W_FINI="FAUX" DO
	READ ENR_CONTRAT FROM F.CONTRAT,W_CLE ELSE ENR_CONTRAT = ""
	W_COL = ENR_CONTRAT<1>
	IF W_COL # W_COLANC THEN
		IF W_COLANC # "" THEN
			READ ENR_CONVCOL FROM F.CONVENTIONCOL,W_COLANC ELSE ENR_CONVCOL = ""

			ENR_CONVCOL<39> = "2000"
			ENR_CONVCOL<40> = "12000"
			ENR_CONVCOL<41> = "0"
	
			WRITE ENR_CONVCOL ON F.CONVENTIONCOL,W_COLANC
		END
		W_COLANC = W_COL
	END 
REPEAT

IF W_COLANC # "" THEN
	READ ENR_CONVCOL FROM F.CONVENTIONCOL,W_COLANC ELSE ENR_CONVCOL = ""
	ENR_CONVCOL<39> = "2000"
	ENR_CONVCOL<40> = "12000"
	ENR_CONVCOL<41> = "0"
	WRITE ENR_CONVCOL ON F.CONVENTIONCOL,W_COLANC
END

STOP
