EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "","BUDGETFICHPERSO" TO F.BUDGETFICHPERSO ELSE STOP
OPEN "","FUSION" TO F.FUSION ELSE STOP
EXECUTE 'SELECT CONTRAT AVEC 1 # "02" AND AVEC 2 = "001" AND AVEC 65 # "O" AND AVEC 8 >= "':ICONV("01/01/2008","D4/"):'" OR = "" PAR @ID'
Rapport = ""
Rapport<1> = "Code aidant;Anomalie;nb jours suspension"
Rapport2 = ""
Rapport2<1> = "Code aidant;Nb jours suspension"
W_DernAidant = ""
W_Fin = "F"
LOOP
READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
IF W_Cle[1,5] # W_DernAidant THEN
  IF W_DernAidant # "" THEN
     GOSUB 100
  END
  W_DernAidant = W_Cle[1,5]
END
READ ENR_CONTRAT FROM F.CONTRAT, W_Cle THEN
	W_NbJoursSusp = ENR_CONTRAT<70>		
	W_DateDeb = ENR_CONTRAT<21,DCOUNT(ENR_CONTRAT<21>,CHAR(253))>
END	
REPEAT
IF W_DernAidant # "" THEN
   GOSUB 100
END
WRITE Rapport ON F.FUSION, "IntegrationJoursSusp.csv"
WRITE Rapport2 ON F.FUSION, "IntegrationJoursSuspOK.csv"
STOP
100
IF INT(W_NbJoursSusp/100) > 0 THEN
PRINT "AIDANT : ":W_DernAidant:" - ":W_NbJoursSusp:" de suspension":ENR_CONTRAT<70>
READ ENR_BUDGETFICHPERSO FROM F.BUDGETFICHPERSO, W_DernAidant:"0012008"  THEN
	W_Count = DCOUNT(ENR_BUDGETFICHPERSO<13>,CHAR(253))
	IF W_Count > 1 THEN
	 Rapport <-1> = W_DernAidant:";Plusieurs avenants crees;":OCONV(W_NbJoursSusp,"MR2")
	END ELSE
		IF ENR_BUDGETFICHPERSO<13> = W_DateDeb THEN
			ENR_BUDGETFICHPERSO<13> = W_DateDeb + INT(W_NbJoursSusp/100)
			IF ENR_BUDGETFICHPERSO<13> <= ICONV("01/01/2008","D4/") THEN
				WRITE ENR_BUDGETFICHPERSO ON F.BUDGETFICHPERSO, W_DernAidant:"0012008"
				Rapport2<-1> = W_DernAidant:";":OCONV(W_NbJoursSusp,"MR2")
			END ELSE
				Rapport <-1> = W_DernAidant:";Date superieure au 01/01/2008;":OCONV(W_NbJoursSusp,"MR2")
			END
		END ELSE
			Rapport <-1> = W_DernAidant:";Date depart calcul grille deja modifiee;":OCONV(W_NbJoursSusp,"MR2")
		END
	END
END
END ELSE
PRINT "AIDANT : ":W_DernAidant:" - Pas de suspension ":ENR_CONTRAT<70>
END
RETURN
