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

EXECUTE 'COMO ON RegulIrcemJanvier.txt'

EXECUTE 'SELECT DETAILCALCUL AVEC 0 = "[200301" AND AVEC AdhAppelee = "1" AND AVEC CodeAdhPrev = "04" OR = "" PAR CodeAideDetailCalcul PAR 0'
W_Fin = "F"
W_TamponAide = ""
W_Cumul = 0
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
  READ ENR_CONTRAT FROM F.CONTRAT, W_Cle[1,8] THEN
	IF ENR_CONTRAT<3> # W_TamponAide THEN
		IF W_TamponAide # "" THEN
			GOSUB 100
		END
		W_TamponAide = ENR_CONTRAT<3>
		W_Cumul = 0
	END
	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> = "104" THEN
				W_Cumul = W_Cumul + ENR_DETAILCALCUL<12,i>
			END
		REPEAT
	END
  END
REPEAT

GOSUB 100

EXECUTE 'COMO OFF'

STOP

100
W_Mtnt = INT((W_Cumul * 0.0116) + 1/2)
IF W_Mtnt <> 0 THEN
   READ ENR_COMPLFACT FROM F.COMPLFACT, W_TamponAide:"001M" ELSE ENR_COMPLFACT = ""
      W_Count = DCOUNT(ENR_COMPLFACT<4>,CHAR(253)) + 1
      ENR_COMPLFACT<1,W_Count> = "REGUL.CHARGES PREVOYANCE JANVIER"
      ENR_COMPLFACT<2,W_Count> = ""
      ENR_COMPLFACT<3,W_Count> = ""
      ENR_COMPLFACT<4,W_Count> = W_Mtnt
      ENR_COMPLFACT<5,W_Count> = "4193000000"
      ENR_COMPLFACT<6,W_Count> = ""
      ENR_COMPLFACT<7,W_Count> = "0"
      ENR_COMPLFACT<8,W_Count> = ""
      WRITE ENR_COMPLFACT ON F.COMPLFACT, W_TamponAide:"001M"
END
RETURN






