EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
OPEN "", "REGULCHARGE" TO F.REGULCHARGE ELSE STOP
OPEN "", "CONTRAT" TO F.CONTRAT ELSE STOP
 
W_Bull060 = ""
W_TamponAidant = ""
W_ContratsEnCours = ""

EXECUTE 'SELECT DETAILCALCUL AVEC ConvColContratDetailCalcul # "02" AND AVEC PeriodeDetailCalcul >= "200401" AND AVEC PeriodeDetailCalcul <= "200402" AND AVEC 8 = "057" PAR @ID'
EXECUTE 'SAUVE-LISTE W_Bull060'
EXECUTE 'LISTE W_Bull060' RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
    SELECT F.DETAILCALCUL TO W_Bull060

    W_Fin = "F"
    LOOP
	READNEXT W_Cle FROM W_Bull060 ELSE W_Fin = "V"
      WHILE W_Fin = "F"
	IF W_TamponAidant # W_Cle[1,5] THEN
		IF W_TamponAidant # "" THEN
			GOSUB 100
		END
		W_BaseRub = 0
	END
	W_TamponAidant = W_Cle[1,5]	
	READ ENR_DETAILCALCUL FROM F.DETAILCALCUL, W_Cle THEN
		i = 0
		W_Trouve = "F"
		LOOP
			i = i + 1
		WHILE ENR_DETAILCALCUL<8,i> # "" AND W_Trouve = "F"		
		   IF ENR_DETAILCALCUL<8,i> = "057" THEN
			W_Trouve = "V"				
			W_BaseRub = W_BaseRub + ENR_DETAILCALCUL<9,i>
		   END
		REPEAT
	END
    REPEAT
    GOSUB 100
END
STOP


100
*********************************************************
* Ecriture dans REGULCHARGE				*
*********************************************************

* RECHERCHE CONTRAT EN COURS SUR MARS 04
EXECUTE 'SELECT CONTRAT AVEC 1 # "02" AND AVEC 8 >= "13210" OR = "" AND AVEC 0 = "':W_TamponAidant:']" PAR @ID'
EXECUTE 'SAUVE-LISTE W_ContratsEnCours'
EXECUTE 'LISTE W_ContratsEnCours' RETURNING MSGCODE
IF MSGCODE<1> # 209 THEN

	SELECT F.CONTRAT TO W_ContratsEnCours
	READNEXT W_CleContrat FROM W_ContratsEnCours ELSE W_CleContrat = "99999"

	ENR_REGULCHARGE = ""
	ENR_REGULCHARGE<1> = W_BaseRub
	ENR_REGULCHARGE<2> = "40"
	ENR_REGULCHARGE<3> = INT(W_BaseRub * ENR_REGULCHARGE<2> / 100000 + 1/2)
	ENR_REGULCHARGE<4> = "120"
	ENR_REGULCHARGE<5> = INT(W_BaseRub * ENR_REGULCHARGE<4> / 100000 + 1/2)
	WRITE ENR_REGULCHARGE ON F.REGULCHARGE, W_CleContrat

END

RETURN









