EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
OPEN "", "HISTORCUMUL" TO F.HISTORCUMUL ELSE STOP
OPEN "","RUBCHARGE" TO F.RUBCHARGE ELSE STOP
OPEN "","TRANCHE" TO F.TRANCHE 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_DateFinPer = ICONV("01/":W_MoisFin[5,2]:"/":W_MoisFin[1,4],"D4/")
EXECUTE 'COMO ON VerifUrssafDADS.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 CodeAideDetailCalcul PAR PeriodeDetailCalcul'
EXECUTE W_Str
W_Fin = "F"
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
READ ENR_DETAILCALCUL FROM F.DETAILCALCUL, W_Cle THEN
 W_SommeBullTOT = 0
 W_SommeBullPLA = 0
 K=1
    LOOP
	 UNTIL ENR_DETAILCALCUL<8,K>="" DO
	 READ ENR_RUBCHARGE FROM F.RUBCHARGE,ENR_DETAILCALCUL<8,K> THEN
               READ ENR_TRANCHE FROM F.TRANCHE,ENR_RUBCHARGE<2> THEN
		    IF ENR_TRANCHE<10>="01" AND ENR_RUBCHARGE<16>="01" THEN
			 W_SommeBullTOT = W_SommeBullTOT + ENR_DETAILCALCUL<9,K>
		    END	  
		    IF (ENR_TRANCHE<10>="02" OR ENR_TRANCHE<10>="07") AND ENR_RUBCHARGE<16>="01" THEN ;* BASE TRANCHE A
			 W_SommeBullPLA=W_SommeBullPLA+ENR_DETAILCALCUL<9,K>
		    END	  
	       END
	 END
	 K=K+1	 
    REPEAT
 IF W_SommeBullTOT # ENR_DETAILCALCUL<7> OR W_SommeBullPLA # ENR_DETAILCALCUL<7> THEN
	PRINT W_Cle : " : Brut     : ":ENR_DETAILCALCUL<7>/100
	PRINT "     ":"   Totalite : ":W_SommeBullTOT/100
	PRINT "     ":"   Plafonne : ":W_SommeBullPLA/100
 END
END
REPEAT
STOP