*PARAMETRES*
*Extraction de la saisie M.O.I. prestataire*
*Priode (AAAAMM)|6N|TXT|O*
*Entit (3N)|3N|TXT|O*
*Code Rubrique M.O.I.(3N - facultatif)|3N|TXT|N*
*FIN PARAMETRES*

SUBROUTINE LISTRUBSAIMOIP(RETURNVAL,PARAMETRES,W_Sortie)
EXECUTE "SET-DEC ,"
EXECUTE "SET-THOUS ."
EXECUTE "DATE.FORMAT"

ENR_DETAILPREST = ""
ENR_CIVILAIDANT = ""

OPEN "","DETAILPREST" TO F.DETAILPREST ELSE STOP
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP
OPEN "","FUSION" TO F.FUSION ELSE STOP

W_Periode = PARAMETRES<1>
W_Entite = PARAMETRES<2>
W_CodeRub = PARAMETRES<3>

IF W_CodeRub#"" THEN
	W_Str = 'SELECT DETAILPREST AVEC RubSaisieMoiP = "':W_CodeRub:'" AND AVEC CodeContrat = "':W_Entite:'" AND AVEC PeriodeDetailPrest = "':W_Periode:'"'
END ELSE
	W_Str = 'SELECT DETAILPREST AVEC CodeContrat = "':W_Entite:'" AND AVEC PeriodeDetailPrest = "':W_Periode:'"'
END

EXECUTE W_Str

EXECUTE 'SAUVE-LISTE W_Str' 
EXECUTE "LISTE W_Str" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
	IF W_CodeRub#"" THEN
		SELECT F.DETAILPREST TO W_Str
		W_TabDonnees<1> = "Code aidant;Nom;Prenom;Secteur;Base;Taux;Montant"	
		   
		W_Fini="FAUX"  
		LOOP     	
			READNEXT W_Cle FROM W_Str ELSE W_Fini="VRAI"
		WHILE W_Fini="FAUX" DO
			I=1
			READ ENR_DETAILPREST FROM F.DETAILPREST,W_Cle ELSE ENR_DETAILPREST=""	
				READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_Cle[1,5] ELSE ENR_CIVILAIDANT=""
				LOOP
					I=I+1
				WHILE ENR_DETAILPREST<5,I>#"" DO
					IF ENR_DETAILPREST<5,I>=W_CodeRub THEN
						W_TabDonnees<-1> = W_Cle[1,5]:";":ENR_CIVILAIDANT<2>:";":ENR_CIVILAIDANT<3>:";":ENR_CIVILAIDANT<31>:";":ENR_DETAILPREST<6,I>/100:";":ENR_DETAILPREST<7,I>/10000:";":ENR_DETAILPREST<8,I>/100
					END
				REPEAT
		REPEAT

		WRITE W_TabDonnees TO F.FUSION,"LISTEMOIP-":W_CodeRub:".CSV"
		W_Sortie='Le fichier LISTEMOIP-':W_CodeRub:'.CSV a t gnr dans le rpertoire FUSION.'
	END ELSE
		SELECT F.DETAILPREST TO W_Str
		W_TabDonnees<1> = "Code aidant;Nom;Prenom;Code Rubrique;Secteur;Base;Taux;Montant"	
		   
		W_Fini="FAUX"  
		LOOP     	
			READNEXT W_Cle FROM W_Str ELSE W_Fini="VRAI"
		WHILE W_Fini="FAUX" DO
			I=1
			READ ENR_DETAILPREST FROM F.DETAILPREST,W_Cle ELSE ENR_DETAILPREST=""	
				READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_Cle[1,5] ELSE ENR_CIVILAIDANT=""
				LOOP
					I=I+1
				WHILE ENR_DETAILPREST<5,I>#"" DO
						W_TabDonnees<-1> = W_Cle[1,5]:";":ENR_CIVILAIDANT<2>:";":ENR_CIVILAIDANT<3>:";":ENR_DETAILPREST<5,I>:";":ENR_CIVILAIDANT<31>:";":ENR_DETAILPREST<6,I>/100:";":ENR_DETAILPREST<7,I>/10000:";":ENR_DETAILPREST<8,I>/100
				REPEAT
		REPEAT

		WRITE W_TabDonnees TO F.FUSION,"LISTEMOIP-TOTAL.CSV"
		W_Sortie='Le fichier LISTEMOIP-TOTAL.CSV a t gnr dans le rpertoire FUSION.'
	END
END ELSE
	W_Sortie="Pas de saisie prestataire avec la rubrique ":W_CodeRub
END
RETURN