*** MISE A JOUR DU FICHIER FACTURORG SUITE A MISE A JOUR DE TAUX DE REMBOURSEMENT
*** 30/09/03 STEPHANE

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

PRINT "PERIODE DEBUT (AAAAMM)"
INPUT W_PERIODEDEB

PRINT "PERIODE FIN (AAAAMM)"
INPUT W_PERIODEFIN

PRINT "CODE ORGANISME (xxx)"
INPUT W_CODEORG

PRINT "DIFFERENCE SUR TAUX NORMAL (ex: 200 POUR 2/ -200 POUR -2)"
INPUT W_DIFFNORMAL

PRINT "DIFFERENCE SUR TAUX MAJORE(ex: 200 POUR 2/ -200 POUR -2)"
INPUT W_DIFFMAJORE

EXECUTE 'SELECT FACTURORG AVEC PeriodeFacturOrg >= "':W_PERIODEDEB:'" AND <= "':W_PERIODEFIN:'" AND AVEC OrgaFacturOrg = "':W_CODEORG:'"'

PRINT "CONTINUE O/N"
INPUT W_CONTINUE

IF W_CONTINUE#"O" AND W_CONTINUE # "o" THEN STOP

IF W_DIFFNORMAL="" THEN W_DIFFNORMAL=0
IF W_DIFFMAJORE="" THEN W_DIFFMAJORE=0

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

	READ ENR_FACTURORG FROM F.FACTURORG,CLE THEN

		READ ENR_ACCORD FROM F.ACCORD,CLE[5,8] THEN

			IF ENR_FACTURORG<1>#"" THEN
				ENR_FACTURORG<3>=ENR_FACTURORG<3>+W_DIFFNORMAL
				ENR_FACTURORG<4>=INT((ENR_FACTURORG<1>*ENR_FACTURORG<3>)/100+1/2)
			END

			IF ENR_FACTURORG<5>#"" THEN
				ENR_FACTURORG<7>=ENR_FACTURORG<7>+W_DIFFMAJORE
				ENR_FACTURORG<8>=INT((ENR_FACTURORG<5>*ENR_FACTURORG<7>)/100+1/2)
			END

		END
		
		ENR_FACTURORG<9>=""
		ENR_FACTURORG<10>=""
		ENR_FACTURORG<14>=ENR_FACTURORG<4>+ENR_FACTURORG<8>
		ENR_FACTURORG<16>=ENR_FACTURORG<4>+ENR_FACTURORG<8>
		ENR_FACTURORG<17>=ENR_FACTURORG<3>

		* ANALYTIQUE
		ENR_FACTURORG<12>=ENR_FACTURORG<4>+ENR_FACTURORG<8>		

		WRITE ENR_FACTURORG ON F.FACTURORG,CLE

	END
REPEAT
