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 "", "CONTRAT" TO F.CONTRAT 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
PRINT "Code convention collective"
INPUT W_CodeCcn
PRINT "Code rubrique de charge"
INPUT W_CodeRubChg
W_DateFinPer = ICONV("01/":W_MoisFin[5,2]:"/":W_MoisFin[1,4],"D4/")
EXECUTE 'COMO ON VerifRubChgDADS.txt'
W_Str =  'SELECT DETAILCALCUL AVEC ConvColContratDetailCalcul = "':W_CodeCcn:'" AND AVEC CodAssoContratDetailCalcul = "':W_CodeAsso:'" AND AVEC ConvColContratDetailCalcul # "02" AND AVEC PeriodeDetailCalcul >= "':W_MoisDeb:'" AND AVEC PeriodeDetailCalcul <= "':W_MoisFin:'" PAR NomPrenomAidantDetailCalcul PAR CodeAidantDetailCalcul PAR PeriodeDetailCalcul'
EXECUTE W_Str
PRINTER ON
W_TamponAidant = ""
W_Cumulrubchg = 0
W_NbAidants = 0
W_NbAidantsMod = 0
W_CleCont = ""
W_IndCont = 1
W_SommeBullTOT = 0
W_SommeDADSTOT = 0
W_SommeDADSArrondieTOT = 0
W_TamponAide = ""
W_Fin = "F"
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	READ ENR_CONTRAT FROM F.CONTRAT, W_Cle[1,8] ELSE ENR_CONTRAT = ""
	IF W_Cle[1,5] # W_TamponAidant THEN

		READ ENR_CIVILAIDANT FROM F.CIVILAIDANT, W_TamponAidant THEN
			PRINT ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>:" ne(e) ":ENR_CIVILAIDANT<4>:" - Montant prevoyance = ":W_Cumulrubchg/100
			W_Cumulrubchg = 0
		END

		W_TamponAidant = W_Cle[1,5]
	END
	READ ENR_DETAILCALCUL FROM F.DETAILCALCUL, W_Cle ELSE ENR_DETAILCALCUL = ""
		
	J=1
	LOOP
 	 CODERUBCHG=EXTRACT(ENR_DETAILCALCUL,8,J)
	  UNTIL CODERUBCHG="" OR CODERUBCHG=W_CodeRubChg DO
  	   J=J+1
	REPEAT

        IF CODERUBCHG=W_CodeRubChg THEN W_Cumulrubchg = W_Cumulrubchg + EXTRACT(ENR_DETAILCALCUL,9,J)	

REPEAT

READ ENR_CIVILAIDANT FROM F.CIVILAIDANT, W_TamponAidant THEN
	PRINT ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>:" ne(e) ":ENR_CIVILAIDANT<4>:" - Montant prevoyance = ":W_Cumulrubchg/100
END
PRINTER OFF
STOP

