*PARAMETRES*
*Incompatiblit aidant/aid*
*Date de rfrence (jj/mm/aaaa)|10X|TXT|N*
*FIN PARAMETRES*

**************************************************************
* Le Mans souhaite pouvoir lister les incompatibilits entre *
* les aidants et les aids.                                  *
*                                                            *
* Greg - 30/07/15                                            *
**************************************************************
SUBROUTINE INCOMPATIBILITEAIDANTAIDE(RETURNVAL,PARAMETRES,W_Sortie)

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

OPEN "","BESOINSAIDE" TO F.BESOINSAIDE ELSE PRINT "ERREUR OUVERTURE BESOINSAIDE"
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE PRINT "ERREUR OUVERTURE CIVILAIDANT"
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE PRINT "ERREUR OUVERTURE CIVILAIDE"
OPEN "","FUSION" TO F.FUSION ELSE PRINT "ERREUR OUVERTURE FUSION"
OPEN "","SECTEUR" TO F.SECTEUR ELSE PRINT "ERREUR OUVERTURE FUSION"

*******************************
* Rcupration des paramtres *
*******************************
	W_DateRef = PARAMETRES<1>
	IF W_DateRef="" THEN
		W_DateRef=DATE()
	END ELSE
		W_DateRef=ICONV(W_DateRef,"D4/")
		IF W_DateRef="" THEN
			W_Sortie="Date incorrecte"
			RETURN
		END
	END
	
	ENR_BESOINSAIDE=""
	ENR_CIVILAIDANT=""
	ENR_CIVILAIDE=""
	ENR_FUSION=""
	
	ENR_FUSION<1>="CodeAide;NomPrenomAide;DateSortieAide;Secteur;CodeAidant;NomPrenomAidant;DateSortieAidant"

	W_Req=""
	EXECUTE 'SELECT BESOINSAIDE AVEC 8 <> "" AND AVEC DateSortie = "" OR >= "':W_DateRef:'" PAR NomPrenomAide PAR 0'
	EXECUTE 'SAUVE-LISTE W_Req'
	EXECUTE "LISTE W_Req" RETURNING MSGCODE
	
	IF MSGCODE<1> # 209 THEN
		SELECT F.BESOINSAIDE TO W_Req
		
		W_Fin="FAUX"
		LOOP
			READNEXT W_Cle FROM W_Req ELSE W_Fin = "VRAI"
		WHILE W_Fin = "FAUX" DO
			READ ENR_BESOINSAIDE FROM F.BESOINSAIDE,W_Cle THEN
				READ ENR_CIVILAIDE FROM F.CIVILAIDE, W_Cle ELSE ENR_CIVILAIDE=""
				READ ENR_SECTEUR FROM F.SECTEUR, ENR_CIVILAIDE<40>[1,3] ELSE ENR_SECTEUR=""
				FOR I = 1 TO DCOUNT(ENR_BESOINSAIDE<8>,CHAR(253))
					READ ENR_CIVILAIDANT FROM F.CIVILAIDANT, ENR_BESOINSAIDE<8,I> ELSE ENR_CIVILAIDANT=""
					ENR_FUSION<-1>=W_Cle:';':ENR_CIVILAIDE<2>:' ':ENR_CIVILAIDE<3>:';':OCONV(ENR_CIVILAIDE<43>,"D4/"):';':ENR_SECTEUR<1>:';':ENR_BESOINSAIDE<8,I>:';':ENR_CIVILAIDANT<2>:' ':ENR_CIVILAIDANT<3>:';':OCONV(ENR_CIVILAIDANT<36>,"D4/")
				NEXT I
			END
		REPEAT
	END
	
	EXECUTE "EFFACER-LISTE W_Req"
	
	IF ENR_FUSION<2><>"" THEN
		W_Date=OCONV(DATE(),"D4/")
		W_Date=W_Date[7,4]:W_Date[4,2]:W_Date[1,2]
		W_Heure=TIMEDATE()[1,8]
		W_Heure=W_Heure[1,2]:W_Heure[4,2]:W_Heure[7,2]
	
		W_NomFichier="IncompatibilitAidantAid_":W_Date:"_":W_Heure:".csv"
		
		WRITE ENR_FUSION ON F.FUSION, W_NomFichier
		W_Sortie='Le fichier "':W_NomFichier:'" a t gnr dans le rpertoire FUSION.'
	END ELSE
		W_Sortie="Aucune incompatibilit trouve."
	END

RETURN