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

PRINT "Mois de debut de l'anne de dclaration (AAAAMM)"
INPUT W_MoisDeb

PRINT "Mois de fin de l'anne de dclaration (AAAAMM)"
INPUT W_MoisFin

PRINT "Code entit juridique"
INPUT W_CodeAsso

W_CumulDADS = 0
W_CumulDADSArr = 0
W_CumulBull = 0

EXECUTE 'COMO ON VerifRubFraisProf.txt'
W_Str =  'SELECT DETAILCALCUL AVEC CodAssoContratDetailCalcul = "':W_CodeAsso:'" AND AVEC ConvColContratDetailCalcul # "02" AND AVEC PeriodeDetailCalcul >= "':W_MoisDeb:'" AND AVEC PeriodeDetailCalcul <= "':W_MoisFin:'" PAR CodeAidantDetailCalcul PAR PeriodeDetailCalcul'
EXECUTE W_Str

W_TamponAidant = ""

W_Fin = "F"
W_Liste = ""
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"

	IF W_Cle[1,5] # W_TamponAidant THEN
           IF W_TamponAidant # "" THEN
              GOSUB 100
           END
	   W_Liste = ""
	   W_TamponAidant = W_Cle[1,5]
           W_Cumul=0
	END

	READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,W_Cle ELSE ENR_DETAILCALCUL = ""
		
	W_Count=DCOUNT(ENR_DETAILCALCUL<17>,CHAR(253))
	FOR i = 1 TO W_Count
	   READ ENR_RUBSAISIE FROM F.RUBSAISIE,ENR_DETAILCALCUL<17,i> ELSE ENR_RUBSAISIE = ""
           IF ENR_RUBSAISIE<2>="2" THEN
              W_Cumul=W_Cumul+ENR_DETAILCALCUL<20,i>
	      W_Liste<-1> = W_Cle[9,6]:" - ":ENR_DETAILCALCUL<17,i>:" - ":ENR_DETAILCALCUL<20,i>
           END
        NEXT i

REPEAT

GOSUB 100

PRINT " "
PRINT "Total DADS             : ":W_CumulDADS/100
PRINT "Total DADS Arrondi     : ":W_CumulDADSArr
PRINT "Total Bulletins        : ":W_CumulBull/100

EXECUTE 'COMO OFF'

STOP

*****************************************************

100

   READ ENR_HISTORCUMUL FROM F.HISTORCUMUL,W_TamponAidant:W_MoisFin[1,4]:W_CodeAsso ELSE ENR_HISTORCUMUL = ""
   W_CumulDADS = W_CumulDADS + ENR_HISTORCUMUL<10>
   W_CumulDADSArr = W_CumulDADSArr + INT(ENR_HISTORCUMUL<10>/100+1/2)
   W_CumulBull = W_CumulBull + W_Cumul
   IF W_Cumul # ENR_HISTORCUMUL<10> THEN

      READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_TamponAidant ELSE ENR_CIVILAIDANT = ""

      PRINT "Aidant : ":ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>
      PRINT W_Liste
      PRINT "Totaux :"
      PRINT "   - Cumuls              : ":ENR_HISTORCUMUL<10>/100
      PRINT "   - Bulletins           : ":W_Cumul/100
      PRINT " "

   END

RETURN
