*OUVERTURE DE FICHIERS
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP
*INITIALISATION DES VARIABLES
W_RequeteUrssaf=""
W_CumulUrssaf=0
i = 0
W_Cle1 = ""

EXECUTE 'SETPTR 0,,,,,1,"MODE=RAW",DEST \\SERVEURNT\MATRICEPSON,NOHEAD,NOFMT,EJECT,COPIES 1,BRIEF'
PRINTER ON

*EXECUTION DE LA REQUETE
EXECUTE 'SSELECT DETAILCALCUL AVEC PeriodeDetailCalcul >= "':"200011":'" AND AVEC PeriodeDetailCalcul <= "':"200012":'" PAR NomPatroAidantDetailCalcul PAR CodeAidantDetailCalcul'
EXECUTE 'SAUVE-LISTE W_RequeteUrssaf'
EXECUTE "LISTE W_RequeteUrssaf" RETURNING MSGCODE

IF MSGCODE<1>#209 THEN
	*SELECTION DE LA REQUETE
	SELECT F.DETAILCALCUL TO W_RequeteUrssaf

	*i=0
	W_FINI="FAUX"

	LOOP
		READNEXT W_Cle FROM W_RequeteUrssaf ELSE W_FINI="VRAI"
	WHILE W_FINI="FAUX" DO
		*LECTURE DU FICHIER AVEC CHAQUE CLE RECUPERE DANS LA REQUETE
		READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,W_Cle ELSE PRINT "ENR_DETAILCALCUL=":W_Cle
			IF W_Cle1 = "" THEN
				W_Cle1 = W_Cle[1,5]
			END
			IF W_Cle1 # W_Cle[1,5] THEN
				READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_Cle1 ELSE PRINT "ENR_CIVILAIDANT=":W_Cle1
				W_CumulUrssaf = W_CumulUrssaf "R26,(#9)"
				PRINT W_Cle1:"   ":ENR_CIVILAIDANT<4>:"   ":ENR_CIVILAIDANT<2>:"   ":ENR_CIVILAIDANT<3>:"   ":W_CumulUrssaf
				W_CumulUrssaf = 0
				W_Cle1 = W_Cle[1,5]
			END
	
		i = 0
		LOOP

		WHILE ENR_DETAILCALCUL<8,i> # "" DO
			IF ENR_DETAILCALCUL<8,i> = "035" OR ENR_DETAILCALCUL<8,i> = "038" OR ENR_DETAILCALCUL<8,i> = "090" OR ENR_DETAILCALCUL<8,i> = "064" OR ENR_DETAILCALCUL<8,i> = "067" OR ENR_DETAILCALCUL<8,i> = "001" OR ENR_DETAILCALCUL<8,i> = "092" OR ENR_DETAILCALCUL<8,i> = "094" OR ENR_DETAILCALCUL<8,i> = "088" OR ENR_DETAILCALCUL<8,i> = "098" OR ENR_DETAILCALCUL<8,i> = "101" OR ENR_DETAILCALCUL<8,i> = "096" THEN
				W_CumulUrssaf = W_CumulUrssaf + ENR_DETAILCALCUL<9,i> 
			END
		i = i +1
		REPEAT
	REPEAT
	READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_Cle1 ELSE PRINT "ENR_CIVILAIDANT=":W_Cle1
	W_CumulUrssaf = W_CumulUrssaf "R26,(#9)"
	PRINT W_Cle1:"   ":ENR_CIVILAIDANT<4>:"   ":ENR_CIVILAIDANT<2>:"   ":ENR_CIVILAIDANT<3>:"   ":W_CumulUrssaf
	W_CumulUrssaf = 0
	W_Cle1 = W_Cle[1,5]
END
  
STOP
