*
* GENERATION REGULARISATION DE CHARGES
*

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

EXECUTE 'COMO ON GENECSG'

EXECUTE 'SELECT DETAILCALCUL AVEC PeriodeDetailCalcul >= "200401" AND <= "200412" AND AVEC ConvColContratDetailCalcul # "02" AND AVEC CodAssoContratDetailCalcul = "001" PAR @ID'
W_FINI="NON"
BaseRegChg=0
W_SauvAidant=""

LOOP
   READNEXT W_CLE ELSE W_FINI="OUI"
UNTIL W_FINI="OUI" DO
   READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,W_CLE ELSE ENR_DETAILCALCUL = ""

   IF W_SauvAidant # W_CLE[1,5] THEN
	IF W_SauvAidant # "" THEN
		GOSUB 10
		BaseRegChg=0
	END
	W_SauvAidant = W_CLE[1,5]
   END

   J=1

   LOOP
      UNTIL ENR_DETAILCALCUL<8,J>="" DO 
         IF ENR_DETAILCALCUL<8,J>="009" OR ENR_DETAILCALCUL<8,J>="057" OR ENR_DETAILCALCUL<8,J>="108" OR ENR_DETAILCALCUL<8,J>="109" THEN
            BaseRegChg=BaseRegChg+ENR_DETAILCALCUL<14,J>
         END
         IF ENR_DETAILCALCUL<8,J>="110" OR ENR_DETAILCALCUL<8,J>="111" OR ENR_DETAILCALCUL<8,J>="126" OR ENR_DETAILCALCUL<8,J>="127" OR ENR_DETAILCALCUL<8,J>="128" OR ENR_DETAILCALCUL<8,J>="129" THEN
            BaseRegChg=BaseRegChg+ENR_DETAILCALCUL<14,J>
         END
	   IF ENR_DETAILCALCUL<8,J>="001" OR ENR_DETAILCALCUL<8,J>="035" OR ENR_DETAILCALCUL<8,J>="038" THEN
            BaseRegChg=BaseRegChg+ENR_DETAILCALCUL<9,J>
         END
         J=J+1
   REPEAT

REPEAT

EXECUTE 'COMO OFF'

STOP

*************************
* RENSEIGNE HISTORCUMUL *
*************************
10

BaseRegChg = (BaseRegChg*(95/100))
BaseRegChg = INT(BaseRegChg+(1/2))
   
READ ENR_HISTORCUMUL FROM F.HISTORCUMUL,W_SauvAidant:"2004001" ELSE ENR_HISTORCUMUL = ""

I = 1
LOOP
WHILE ENR_HISTORCUMUL<15,I> # "" DO

	IF ENR_HISTORCUMUL<15,I> = "007" THEN
		ENR_HISTORCUMUL<16,I> = BaseRegChg
		ENR_HISTORCUMUL<17,I> = BaseRegChg
	END ELSE
		IF ENR_HISTORCUMUL<15,I> = "008" THEN
			ENR_HISTORCUMUL<16,I> = BaseRegChg
			ENR_HISTORCUMUL<17,I> = BaseRegChg
		END
	END

	I=I+1
REPEAT

WRITE ENR_HISTORCUMUL ON F.HISTORCUMUL,W_SauvAidant:"2004001"

RETURN
