**************************************************
* MOULINETTE POUR LE PASSAGE A L'EURO DE LA DADS *
**************************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ASSOCIATION" TO F.ASSOCIATION ELSE STOP ;* en lecture criture
OPEN "","HISTORCUMUL" TO F.HISTORCUMUL ELSE STOP ;* en lecture criture
OPEN "","CONSTANTESPAIE" TO F.CONSTANTESPAIE ELSE STOP ;* en lecture criture

   REQ = ""

   READ ENR_CONSTANTESPAIE FROM F.CONSTANTESPAIE ,"1" ELSE STOP

   EURO = ENR_CONSTANTESPAIE<7> / 100000

   EXECUTE 'SSELECT ASSOCIATION PAR 0'

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

   IF MSGCODE<1> # 209 THEN
	SELECT F.ASSOCIATION TO W_RESULTAT
   END ELSE
	STOP
   END

   W_End="FAUX"

   LOOP
	READNEXT W_Cle FROM W_RESULTAT ELSE W_End = "VRAI"
   WHILE W_End = "FAUX" DO
	READ ENR_ASSOCIATION FROM F.ASSOCIATION ,W_Cle ELSE W_End = "VRAI"
	
	REQ = REQ:' AND AVEC EmployeurHistCum # "':W_Cle:'"'

	IF ENR_ASSOCIATION<25> = "1" THEN
		ANNEE = "2001"
	END ELSE
		ANNEE = "2001"
	END

	EXECUTE 'SSELECT HISTORCUMUL AVEC EmployeurHistCum = "':W_Cle:'" AND AVEC PeriodeHistCum = "':ANNEE:'"'
	
	W_Hist = "FAUX"
	
	LOOP
		READNEXT W_CleHist ELSE W_Hist ="VRAI"
	WHILE W_Hist = "FAUX" DO
		READ ENR_HISTORCUMUL FROM F.HISTORCUMUL ,W_CleHist ELSE W_Hist = "VRAI"
		
		ENR_HISTORCUMUL<4> = (ENR_HISTORCUMUL<4>/100) / EURO
		ENR_HISTORCUMUL<4> = (ENR_HISTORCUMUL<4> * 100) + 0.5
		ENR_HISTORCUMUL<4> = INT(ENR_HISTORCUMUL<4>)

		ENR_HISTORCUMUL<5> = (ENR_HISTORCUMUL<5>/100) / EURO
		ENR_HISTORCUMUL<5> = (ENR_HISTORCUMUL<5> * 100) + 0.5
		ENR_HISTORCUMUL<5> = INT(ENR_HISTORCUMUL<5>)

		ENR_HISTORCUMUL<6> = (ENR_HISTORCUMUL<6>/100) / EURO
		ENR_HISTORCUMUL<6> = (ENR_HISTORCUMUL<6> * 100) + 0.5
		ENR_HISTORCUMUL<6> = INT(ENR_HISTORCUMUL<6>)

		ENR_HISTORCUMUL<7> = (ENR_HISTORCUMUL<7>/100) / EURO
		ENR_HISTORCUMUL<7> = (ENR_HISTORCUMUL<7> * 100) + 0.5
		ENR_HISTORCUMUL<7> = INT(ENR_HISTORCUMUL<7>)

		ENR_HISTORCUMUL<8> = (ENR_HISTORCUMUL<8>/100) / EURO
		ENR_HISTORCUMUL<8> = (ENR_HISTORCUMUL<8> * 100) + 0.5
		ENR_HISTORCUMUL<8> = INT(ENR_HISTORCUMUL<8>)

		ENR_HISTORCUMUL<10> = (ENR_HISTORCUMUL<10>/100) / EURO
		ENR_HISTORCUMUL<10> = (ENR_HISTORCUMUL<10> * 100) + 0.5
		ENR_HISTORCUMUL<10> = INT(ENR_HISTORCUMUL<10>)

		I = 1

		LOOP
		WHILE ENR_HISTORCUMUL<16,I> # "" DO
		   ENR_HISTORCUMUL<16,I> = (ENR_HISTORCUMUL<16,I>/100) / EURO
		   ENR_HISTORCUMUL<16,I> = (ENR_HISTORCUMUL<16,I> * 100) + 0.5
		   ENR_HISTORCUMUL<16,I> = INT(ENR_HISTORCUMUL<16,I>)
		   I = I + 1
		REPEAT

		I = 1

		LOOP
		WHILE ENR_HISTORCUMUL<17,I> # "" DO
		   ENR_HISTORCUMUL<17,I> = (ENR_HISTORCUMUL<17,I>/100) / EURO
		   ENR_HISTORCUMUL<17,I> = (ENR_HISTORCUMUL<17,I> * 100) + 0.5
		   ENR_HISTORCUMUL<17,I> = INT(ENR_HISTORCUMUL<17,I>)
		   I = I + 1
		REPEAT

		I = 1

		LOOP
		WHILE ENR_HISTORCUMUL<18,I> # "" DO
		   ENR_HISTORCUMUL<18,I> = (ENR_HISTORCUMUL<18,I>/100) / EURO
		   IF ENR_HISTORCUMUL<18,I> >= 0 THEN
			ENR_HISTORCUMUL<18,I> = (ENR_HISTORCUMUL<18,I> * 100) + 0.5
		   END ELSE
			ENR_HISTORCUMUL<18,I> = (ENR_HISTORCUMUL<18,I> * 100) - 0.5
		   END
		   ENR_HISTORCUMUL<18,I> = INT(ENR_HISTORCUMUL<18,I>)
		   I = I + 1
		REPEAT

		I = 1

		LOOP
		WHILE ENR_HISTORCUMUL<19,I> # "" DO
		   ENR_HISTORCUMUL<19,I> = (ENR_HISTORCUMUL<19,I>/100) / EURO
		   ENR_HISTORCUMUL<19,I> = (ENR_HISTORCUMUL<19,I> * 100) + 0.5
		   ENR_HISTORCUMUL<19,I> = INT(ENR_HISTORCUMUL<19,I>)
		   I = I + 1
		REPEAT
	
		WRITE ENR_HISTORCUMUL ON F.HISTORCUMUL,W_CleHist

	REPEAT
	
   REPEAT

STOP
