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

EXECUTE 'SSELECT DETAILCALCUL AVEC 0 >= "[200110" AND <= "[200111"'

W_FIN=0
LOOP
	READNEXT CLE ELSE W_FIN=1
	UNTIL W_FIN=1 DO

	READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,CLE ELSE ENR_DETAILCALCUL=""

	* RUBRIQUE DE SAISIE
	I=1
	LOOP
		UNTIL ENR_DETAILCALCUL<2,I>="" DO

		IF ENR_DETAILCALCUL<3,I>#"" OR ENR_DETAILCALCUL<3,I>#0 THEN 
			ENR_DETAILCALCUL<4,I>=INT((ENR_DETAILCALCUL<4,I>/6.55957)+1/2)
			ENR_DETAILCALCUL<5,I>=INT(((ENR_DETAILCALCUL<3,I>*ENR_DETAILCALCUL<4,I>)/10000)+1/2)
		END ELSE
			ENR_DETAILCALCUL<5,I>=INT((ENR_DETAILCALCUL<5,I>/6.55957)+1/2)
		END

		I=I+1
	REPEAT

	* RUBRIQUE DE CHARGE
	I=1
	LOOP
		UNTIL ENR_DETAILCALCUL<8,I>="" DO

		IF ENR_DETAILCALCUL<10,I>#"" OR ENR_DETAILCALCUL<10,I>#0 THEN 
			ENR_DETAILCALCUL<9,I>=INT((ENR_DETAILCALCUL<9,I>/6.55957)+1/2)
			ENR_DETAILCALCUL<11,I>=-INT(((ENR_DETAILCALCUL<9,I>*ENR_DETAILCALCUL<10,I>)/100000)+1/2)
		END ELSE
			ENR_DETAILCALCUL<9,I>=INT((ENR_DETAILCALCUL<9,I>/6.55957)+1/2)
			ENR_DETAILCALCUL<11,I>=-INT((ENR_DETAILCALCUL<11,I>/6.55957)+1/2)
		END
		IF ENR_DETAILCALCUL<13,I>#"" OR ENR_DETAILCALCUL<13,I>#0 THEN 
			ENR_DETAILCALCUL<12,I>=INT((ENR_DETAILCALCUL<12,I>/6.55957)+1/2)
			ENR_DETAILCALCUL<14,I>=INT(((ENR_DETAILCALCUL<12,I>*ENR_DETAILCALCUL<13,I>)/100000)+1/2)
		END ELSE
			ENR_DETAILCALCUL<12,I>=INT((ENR_DETAILCALCUL<12,I>/6.55957)+1/2)
			ENR_DETAILCALCUL<14,I>=INT((ENR_DETAILCALCUL<14,I>/6.55957)+1/2)
		END

		I=I+1
	REPEAT

	* RUBRIQUE APRES NET
	I=1
	LOOP
		UNTIL ENR_DETAILCALCUL<17,I>="" DO

		IF ENR_DETAILCALCUL<19,I>#"" OR ENR_DETAILCALCUL<19,I>#0 THEN 
			ENR_DETAILCALCUL<19,I>=INT((ENR_DETAILCALCUL<19,I>/6.55957)+1/2)
			ENR_DETAILCALCUL<20,I>=INT(((ENR_DETAILCALCUL<18,I>*ENR_DETAILCALCUL<19,I>)/10000)+1/2)
		END ELSE
			ENR_DETAILCALCUL<20,I>=INT((ENR_DETAILCALCUL<20,I>/6.55957)+1/2)
		END

		I=I+1
	REPEAT


	* RUBRIQUE SANS INCIDENCE (DONT) 33+34+35+36
	I=1
	LOOP
		UNTIL ENR_DETAILCALCUL<33,I>="" DO

		IF ENR_DETAILCALCUL<35,I>#"" OR ENR_DETAILCALCUL<35,I>#0 THEN 
			ENR_DETAILCALCUL<35,I>=INT((ENR_DETAILCALCUL<35,I>/6.55957)+1/2)
			ENR_DETAILCALCUL<36,I>=INT(((ENR_DETAILCALCUL<34,I>*ENR_DETAILCALCUL<35,I>)/10000)+1/2)
		END ELSE
			ENR_DETAILCALCUL<36,I>=INT((ENR_DETAILCALCUL<36,I>/6.55957)+1/2)
		END

		I=I+1
	REPEAT
	* RUBRIQUE SANS INCIDENCE (DONT) 37+38+39+40
	I=1
	LOOP
		UNTIL ENR_DETAILCALCUL<37,I>="" DO

		IF ENR_DETAILCALCUL<39,I>#"" OR ENR_DETAILCALCUL<39,I>#0 THEN 
			ENR_DETAILCALCUL<39,I>=INT((ENR_DETAILCALCUL<39,I>/6.55957)+1/2)
			ENR_DETAILCALCUL<40,I>=INT(((ENR_DETAILCALCUL<38,I>*ENR_DETAILCALCUL<39,I>)/10000)+1/2)
		END ELSE
			ENR_DETAILCALCUL<40,I>=INT((ENR_DETAILCALCUL<40,I>/6.55957)+1/2)
		END

		I=I+1
	REPEAT
	* BRUT + NET IMPO + NET A PAYER + MONTANT PAYER
	ENR_DETAILCALCUL<7,I>=INT((ENR_DETAILCALCUL<7,I>/6.55957)+1/2)
	ENR_DETAILCALCUL<15,I>=INT((ENR_DETAILCALCUL<15,I>/6.55957)+1/2)
	ENR_DETAILCALCUL<16,I>=INT((ENR_DETAILCALCUL<16,I>/6.55957)+1/2)
	ENR_DETAILCALCUL<21,I>=INT((ENR_DETAILCALCUL<21,I>/6.55957)+1/2)

	* ASSIETTE
	I=1
	LOOP
		UNTIL ENR_DETAILCALCUL<28,I>="" DO
		ENR_DETAILCALCUL<28,I>=INT((ENR_DETAILCALCUL<28,I>/6.55957)+1/2)
		I=I+1
	REPEAT
	ENR_DETAILCALCUL<29>=INT((ENR_DETAILCALCUL<29>/6.55957)+1/2)	

	* ECRITURE
	WRITE ENR_DETAILCALCUL ON F.DETAILCALCUL,CLE
REPEAT

STOP
