* MOULINETTE DE MAJ ATT 11 12 13 DE ACCORD

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

PRINT "DATE JJ/MM/AAAA"
INPUT W_DATE
W_DATE=ICONV(W_DATE,"/D4")


EXECUTE 'SELECT ACCORD AVEC PartB="%"'

W_FINI="FAUX"

LOOP

   	READNEXT W_CLE ELSE W_FINI="VRAI"

WHILE W_FINI="FAUX" DO

	READ ENR_ACCORD FROM F.ACCORD,W_CLE THEN

		I=1
		LOOP
   		WHILE ENR_ACCORD<10,I>="" DO
			I=I+1
		REPEAT

		ENR_ACCORD<11>=W_DATE
		ENR_ACCORD<12>=""
		ENR_ACCORD<13>=INT((7920*ENR_ACCORD<10,I>)/10000)

		WRITE ENR_ACCORD ON F.ACCORD,W_CLE
	END
REPEAT

EXECUTE 'SELECT ACCORD AVEC TypeOrgAccord="M"'
W_FINI="FAUX"

LOOP

   	READNEXT W_CLE ELSE W_FINI="VRAI"

WHILE W_FINI="FAUX" DO

	READ ENR_ACCORD FROM F.ACCORD,W_CLE THEN
		W_NB11=COUNT(ENR_ACCORD<11>,CHAR(254))
		W_NB13=COUNT(ENR_ACCORD<13>,CHAR(254))

		IF W_NB11 # W_NB13 THEN
			W_VALEUR=ENR_ACCORD<13,1>
			ENR_ACCORD=INSERT(ENR_ACCORD,13,1;W_VALEUR)
			WRITE ENR_ACCORD ON F.ACCORD,W_CLE
		END
	END
REPEAT
STOP

