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
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"
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_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>
           END
        NEXT i
REPEAT
GOSUB 100
EXECUTE 'COMO OFF'
STOP
*****************************************************
100
   READ ENR_HISTORCUMUL FROM F.HISTORCUMUL,W_TamponAidant:W_MoisFin[1,4]:W_CodeAsso ELSE ENR_HISTORCUMUL = ""
   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 "Totaux :"
      PRINT "   - Cumuls              : ":ENR_HISTORCUMUL<10>/100
      PRINT "   - Bulletins           : ":W_Cumul/100
      PRINT " "
	ENR_HISTORCUMUL<10> = W_Cumul
      WRITE ENR_HISTORCUMUL ON F.HISTORCUMUL, W_TamponAidant:W_MoisFin[1,4]:W_CodeAsso
   END
RETURN
