* MOULINETTE DE MAJ ATT 43 DE CONVENTIONCOL

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

W_RESULTAT = ""

EXECUTE 'SELECT CONVENTIONCOL'
EXECUTE 'SAUVE-LISTE W_RESULTAT'
EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE

W_FINI="FAUX"

SELECT F.CONVENTIONCOL TO W_RESULTAT

LOOP
   	READNEXT W_CLE FROM W_RESULTAT ELSE W_FINI="VRAI"
WHILE W_FINI="FAUX" DO
	READ ENR_CONVCOL FROM F.CONVENTIONCOL,W_CLE ELSE ENR_CONVCOL = ""
	IF ENR_CONVCOL<39> # "" AND ENR_CONVCOL<40> # "" THEN
		IF ENR_CONVCOL<39> # "0" AND ENR_CONVCOL<40> # "0" THEN
			ENR_CONVCOL<43> = "1"
		END ELSE
			ENR_CONVCOL<43> = "0"
		END
	END ELSE
		ENR_CONVCOL<43> = "0"
	END
	WRITE ENR_CONVCOL ON F.CONVENTIONCOL,W_CLE
REPEAT

STOP
