****************************************************
* REPRISE DES BASES CSG
****************************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","HISTORCUMUL" TO F.HISTORCUMUL ELSE STOP
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP

* VIDE LIGNE CSG HISTORCUMUL
EXECUTE 'SELECT HISTORCUMUL AVEC @ID = "[2002001"'
W_Fini="FAUX"
LOOP
 READNEXT W_Cle ELSE W_Fini="VRAI"
 UNTIL W_Fini="VRAI" DO
   READ ENR_HISTORCUMUL FROM F.HISTORCUMUL,W_Cle ELSE PRINT W_CleCumul
   * RECHERCHE RUB 007 + 008 (CSG)
   I=1
   LOOP
	UNTIL ENR_HISTORCUMUL<15,I>="" DO

        IF ENR_HISTORCUMUL<15,I>="007" OR ENR_HISTORCUMUL<15,I>="008" THEN 
		ENR_HISTORCUMUL<16,I>=0
		ENR_HISTORCUMUL<17,I>=0
	END

	I=I+1
   REPEAT

   WRITE ENR_HISTORCUMUL ON F.HISTORCUMUL,W_Cle
REPEAT

*STOP

* REGENERE LIGNE CSG HISTORCUMUL
EXECUTE 'SELECT DETAILCALCUL AVEC ConvColContratDetailCalcul # "02" AND AVEC PeriodeDetailCalcul >= "200201" AND <= "200212" PAR CodeAidantDetailCalcul'
W_Fini="FAUX"
LOOP
 READNEXT W_Cle ELSE W_Fini="VRAI"
 UNTIL W_Fini="VRAI" DO
  READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,W_Cle ELSE ENR_DETAILCALCUL=""
  MONTCSG1=0
  MONTCSG2=0
  I=1
  LOOP
   RUB=ENR_DETAILCALCUL<8,I>
   UNTIL RUB="" DO
    IF RUB="007" THEN
     MONTCSG1=MONTCSG1+ENR_DETAILCALCUL<9,I>
    END
    IF RUB="008" THEN
     MONTCSG2=MONTCSG2+ENR_DETAILCALCUL<9,I>
    END
    I=I+1
  REPEAT
  IF MONTCSG1#0 OR MONTCSG2#0 THEN
   W_CleCumul=W_Cle[1,5]:"2002001"
   READ ENR_HISTORCUMUL FROM F.HISTORCUMUL,W_CleCumul ELSE PRINT W_CleCumul
   * RECHERCHE RUB 007 + 008 (CSG)
   I=1
   LOOP
	UNTIL ENR_HISTORCUMUL<15,I>="" DO

        IF ENR_HISTORCUMUL<15,I>="007" THEN 
		ENR_HISTORCUMUL<16,I>=ENR_HISTORCUMUL<16,I>+MONTCSG1
		ENR_HISTORCUMUL<17,I>=ENR_HISTORCUMUL<17,I>+MONTCSG1
	END
        IF ENR_HISTORCUMUL<15,I>="008" THEN 
		ENR_HISTORCUMUL<16,I>=ENR_HISTORCUMUL<16,I>+MONTCSG2
		ENR_HISTORCUMUL<17,I>=ENR_HISTORCUMUL<17,I>+MONTCSG2
	END

	I=I+1
   REPEAT
   WRITE ENR_HISTORCUMUL ON F.HISTORCUMUL,W_CleCumul
  END
REPEAT
STOP

