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

W_RequeteMoul=""
W_Mois=""
W_KDo=""
EXECUTE 'SELECT DETAILCALCUL AVEC PeriodeDetailCalcul >= "200110" AND AVEC PeriodeDetailCalcul <= "200209" AND AVEC ConvColContratDetailCalcul # "02" PAR NomPrenomAidantDetailCalcul PAR CodeAidantDetailCalcul PAR PeriodeDetailCalcul' 

EXECUTE 'SAUVE-LISTE W_RequeteMoul'
EXECUTE "LISTE W_RequeteMoul" RETURNING MSGCODE
PRINTER ON
W_CleAnc=""
W_Compteur=0
ENR=""
IF MSGCODE<1> # 209 THEN
   SELECT F.DETAILCALCUL TO W_RequeteMoul
i=0
   W_Fini="FAUX"
   LOOP
      READNEXT W_Cle FROM W_RequeteMoul ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
      IF W_Cle[1,5] # W_CleAnc[1,5] AND W_CleAnc # "" THEN
	 IF W_KDo="VRAI" THEN
		READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_CleAnc[1,5] ELSE PRINT "Lecture"	
		IF ENR_CIVILAIDANT<36>="" AND W_CleAnc[9,6]="200209" THEN
			PRINT ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>
			i=i+1
		END
	 END
	 W_KDo="FAUX"
       W_Compteur=1
      END ELSE
	 IF W_CleAnc#"" THEN
		IF W_CleAnc[13,2]=12 THEN
			W_CleAnc[13,2]=0
		END
		IF W_CleAnc[13,2]+1=W_Cle[13,2] THEN
			W_Compteur=W_Compteur+1
			IF W_Compteur > 5 THEN
				W_KDo="VRAI"
			END	
		END ELSE
	                W_Compteur =1
                END
	 END ELSE
		W_Compteur=W_Compteur+1
	 END
      END
      W_CleAnc=W_Cle
   REPEAT

END
PRINT "i :":i
STOP

* SETPTR 0,,,,,1, "MODE=RAW",DEST \\SERVEURINF\MATRICEPSON,NOHEAD,NOFMT,EJECT,COPIES 1,BRIEF
