**** Enregistrements des donnes pour la gnration sous word**
** 17/11/08 **
* Priscilla *
**** DA11026-01 08/03/2011 Anthony : Mise en place de l'adresse de facturation**
**************************
* Ouvertures des fichiers
**************************
SUBROUTINE COURRIERAIDE(RETURNVAL,W_Params,W_Sortie)
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"


OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE PRINT "OUVERTURE CIVILAIDE" ;* en lecture
OPEN "","ELTSFACTAIDE" TO F.ELTSFACTAIDE ELSE PRINT "OUVERTURE ELTSFACTAIDE" ;* en lecture
OPEN "","ENVIRONAIDE" TO F.ENVIRONAIDE ELSE PRINT "OUVERTURE ENVIRONAIDE" ;* en lecture
OPEN "","ASSOCIATION" TO F.ASSOCIATION ELSE PRINT "OUVERTURE ASSOCIATION" ;* en lecture
OPEN "","ABSENCESAIDE" TO F.ABSENCESAIDE ELSE PRINT "OUVERTURE ABSENCESAIDE" ;*en lecture
OPEN "","FUSION" TO F.FUSION ELSE PRINT "OUVERTURE FUSION" ;* en ecriture
OPEN "","INTERVENANTEXT" TO F.INTERVENANTEXT ELSE PRINT "OUVERTURE INTERVENANTEXT" ;*en lecture
OPEN "","ACCORD" TO F.ACCORD ELSE PRINT "OUVERTURE ACCORD" ;*en lecture
OPEN "","ORGPRISECHARGE" TO F.ORGPRISECHARGE ELSE PRINT "OUVERTURE ORGPRISECHARGE" ;*en lecture
OPEN "","TABLES" TO F.TABLES ELSE PRINT "OUVERTURE TABLES" ;*en lecture
OPEN "","PERIODESPAIE" TO F.PERIODESPAIE ELSE PRINT "OUVERTURE PERIODESPAIE" ;*en lecture
OPEN "","ACTIVITESAIDE" TO F.ACTIVITESAIDE ELSE PRINT "OUVERTURE ACTIVITESAIDE" ;*en lecture

OPEN "","RESPONSABLE" TO F.RESPONSABLE ELSE PRINT "OUVERTURE RESPONSABLE" ;* en lecture
OPEN "","SECTEUR" TO F.SECTEUR ELSE PRINT "OUVERTURE SECTEUR" ;* en lecture
OPEN "","SOUSSECTEUR" TO F.SOUSSECTEUR ELSE PRINT "OUVERTURE SOUSSECTEUR" ;* en lecture
OPEN "","QUARTIER" TO F.QUARTIER ELSE PRINT "OUVERTURE QUARTIER" ;* en lecture

* Modif Greg - 03/07/12
OPEN "","AGGIRAIDE" TO F.AGGIRAIDE ELSE PRINT "OUVERTURE AGGIRAIDE" ;* en lecture
OPEN "","BESOINSAIDE" TO F.BESOINSAIDE ELSE PRINT "OUVERTURE BESOINSAIDE" ;* en lecture
OPEN "","TPSSEMAINETYPE" TO F.TPSSEMAINETYPE ELSE PRINT "OUVERTURE TPSSEMAINETYPE" ;* en lecture
OPEN "","RESSOURCESAIDE" TO F.RESSOURCESAIDE ELSE PRINT "OUVERTURE RESSOURCESAIDE" ;* en lecture
OPEN "","SSIADSOINS" TO F.SSIADSOINS ELSE PRINT "OUVERTURE SSIADSOINS" ;* en lecture

*******************************
* Initialisation variables ****
*******************************
W_NumeroOrdre=""
W_Fichier=""
W_CodeAide=""

ENR_CIVILAIDE=""
ENR_ENVIRONAIDE=""
ENR_ASSOCIATION=""
ENR_ACTIVITESAIDE=""
ENR_ABSENCESAIDE=""
ENR_ACTIVITES=""
ENR_FICHEMEDAIDE=""
ENR_FICHIER=""
ENR_ACCORD=""
ENR_ORGPRISECHG=""
ENR_PERIODESPAIE=""
W_End="FAUX"
i = 0
j = 0
a = 0
ENR_TEMPO=""
W_Adresse=""
W_AdresseAssoc=""
W_Temp=""
W_SituationFamiliale=""
W_NatureLienPC=""
W_ReqAcc=""
W_CleAcc=""
W_CountInterv=""
W_NomMedecin = ""
W_NomInfirmier = ""
W_TypeOrg=""
W_PerPaieDeb=""
W_PerPaieFin=""
W_TabAccord=""
*******************************
* Recuperation parametres *****
*******************************
W_CodeAide=W_Params<1>
*W_CodeAide="03158"
** Programme **
*******************************
	READ ENR_CIVILAIDE FROM F.CIVILAIDE, W_CodeAide ELSE ENR_CIVILAIDE=""

	i= 1
	IF ENR_CIVILAIDE # "" THEN
		* Modif Greg - 03/07/12 - Ajout de lectures
		READ ENR_AGGIRAIDE FROM F.AGGIRAIDE,W_CodeAide ELSE ENR_AGGIRAIDE=""
		READ ENR_BESOINSAIDE FROM F.BESOINSAIDE,W_CodeAide ELSE ENR_BESOINSAIDE=""
		READ ENR_DEFTECH FROM F.TABLES,"DEFTECH" ELSE ENR_DEFTECH=""
		READ ENR_RESSOURCESAIDE FROM F.RESSOURCESAIDE, W_CodeAide ELSE ENR_RESSOURCESAIDE=""
		READ ENR_AUTRINTERVENANT FROM F.TABLES,"AUTRINTERVENANT" ELSE ENR_AUTRINTERVENANT=""
		
	
		************************
		* Entete fichier  ******
		************************
		**************************************************************************************************************
		* Fichier CIVILAIDE
		* Modif Greg - 03/07/12 - Ajout nom patronymique
		ENR_TEMPO<i>="CodeAid;NomAid;PrnomAid;AideNomPatro;1reLigneAdresseAid;ComplmentAdresseAid;CodePostalAid;VilleAid;CedexAid;"
		ENR_TEMPO<i>=ENR_TEMPO<i>:"Tlphone1Aid;Tlphone2Aid;DateNaissanceAid;DateDecesAid;SituationFamilialeAid;TitreAid;"
		
		* Fichier ELTSFACTAIDE
		ENR_TEMPO<i>=ENR_TEMPO<i>:"DestinataireFacturation;1reLigneAdresseFacturation;ComplmentAdresseFacturation;CodePostalFacturation;VilleFacturation;CedexFacturation;"
		
		* Fichier ENVIRONAIDE
		* modif vanessa 22/04/09
		*ENR_TEMPO<i>=ENR_TEMPO<i>:"NomPrnomPersonneAprevenir;LieuRsidencePersonneAprevenir;TlphonePersonneAprevenir;PortablePersonneAprevenir;NatureLien_PersonneAprevenir;"
		* Modif Greg - 03/07/12 - Concernant la personne  prvenir en cas d'urgence,
		* ajout de l'indication s'il s'agit du rfrent ou non, du tel2 et de l'email.
		ENR_TEMPO<i>=ENR_TEMPO<i>:"NomPersonneAprevenir;AideReferentUrgence;TlphonePersonneAprevenir;AideTel2Urgence;AideEmailUrgence;ObsPersonneAprevenir;"
		* Modif Greg - 03/07/12 - Ajout des personnes du foyer
		ENR_TEMPO<i>=ENR_TEMPO<i>:"NomPersFoyer;PrenomPersFoyer;DateNaissPersFoyer;LienPersFoyer;RattachFoyerPersFoyer;"
		* Modif Greg - 03/07/12 - Ajout du code intervenant, de son mail et de l'obs ventuelle
		ENR_TEMPO<i>=ENR_TEMPO<i>:"CodeIntervExt;TypeIntervenant;NomPrnomIntervenant;TlphoneIntervenant;MailIntervExt;ObsIntervExt;"
		* Modif Greg - 03/07/12 - Ajout des personnes de l'entourage
		ENR_TEMPO<i>=ENR_TEMPO<i>:'NomPrenomEntourage;EmailEntourage;TelEntourage;PortEntourage;NatureLienEntourage;LieuResidEntourage;'
		
		* Fichier CIVILAIDE (aide technique --> fichier environaide)
		ENR_TEMPO<i>=ENR_TEMPO<i>:"NumScuritSocialeAid;ClNumScuritSocialeAid;AideTechniqueAid;"
		
		**************************************************************************************************************
		* Fichier ABSENCESAIDE
		* Modif Guillaume DA10200 22/09/2011	
		ENR_TEMPO<i>=ENR_TEMPO<i>:"DateDbutAbsence;DateFinAbsence;MotiflibellAbsence;Hopital;Observation;BulletinHospitalisation;ContactServiceSocial;DateDbutHospi;DateFinHospi;"
		
		*Fichier ACCORD
		* Modif Greg - 03/07/12 - Ajout du numro de dossier de l'aid auprs de l'organisme, du motif d'accord et du quotient familial
		ENR_TEMPO<i>=ENR_TEMPO<i>:"OrgPriseEnChargeAccord;TypeOrgAccord;DateDebutAccord;DateFinAccord;AlloueAccord;PartBenefOuOrgAccord;AccordNoDossier;AccordMotif;AideQuotFam;"
		**************************************************************************************************************
		* Fichier ASSOCIATION
		ENR_TEMPO<i>=ENR_TEMPO<i>:"SigleAsso;RaisonSocialeAsso;1reLigneAdresseAsso;ComplmentAdresseAsso;CodePostalAsso;VilleAsso;CedexAsso;"
		ENR_TEMPO<i>=ENR_TEMPO<i>:"ExtensionCedexAsso;TlphoneAsso;FaxAsso;AdresseMailAsso;CodeFinessAsso;"
		
		* Fichier INTERVENANTEXT ou ENVIRONAIDE
		* modif vanessa 22/04/09
		* ENR_TEMPO<i>=ENR_TEMPO<i>:"Mdecin;Infirmier":"#"
		* Modif Greg - 03/07/12 - DA12067 - Ajout des donnes du secteur de l'aid
		ENR_TEMPO<i>=ENR_TEMPO<i>:"Responsable;TelResponsable;Secteur;Adresse1SecteurAide;Adresse2SecteurAide;CodePostalSecteurAide;CommuneSecteurAide;Tel1SecteurAide;Tel2SecteurAide;ObsSecteurAide;SousSecteur;Quartier;"
		* Modif Greg - 03/07/12 - Ajout du GIR, des tches, des modalits d'intervention,
		* de l'indication du travail les jours fris et de la disponibilit des cls
		ENR_TEMPO<i>=ENR_TEMPO<i>:"AideGroupeGIR;AideSsGroupeGIR;AideBesoins;AideModalitesIntervention;AideJrsFeriesTravaillees;AideCle"
		
		ENR_TEMPO<i>=ENR_TEMPO<i>:"#"
		
		* Fichier SECTEUR
		*ENR_TEMPO<i> = ENR_TEMPO<i>:"LibSecteur;AdresseSecteur1;AdresseSecteur2;AdresseSecteur3;CedexSecteur;TelSecteur;FaxSecteur;ObsSecteur":"#"
		**************************************************************************************************************
		
		* mise en forme de l'adresse
		GOSUB 10
		
		************************
		* Corps du fichier *****
		************************
		
		* Modif Greg - 03/07/12 - Ajout nom patro
		ENR_TEMPO<i>=ENR_TEMPO<i>:W_CodeAide :";": ENR_CIVILAIDE<2> :";": ENR_CIVILAIDE<3> :";": ENR_CIVILAIDE<4> :";": W_Adresse :";": ENR_CIVILAIDE<9> :";"
		ENR_TEMPO<i>=ENR_TEMPO<i>:ENR_CIVILAIDE<10> :";":ENR_CIVILAIDE<11>:";":ENR_CIVILAIDE<13>:";"
		ENR_TEMPO<i>=ENR_TEMPO<i>:ENR_CIVILAIDE<14> :";":ENR_CIVILAIDE<16> :";":OCONV(ENR_CIVILAIDE<20>, "D4/"):";":OCONV(ENR_CIVILAIDE<48>, "D4/"):";"
		
		IF ENR_CIVILAIDE<25> = "1" THEN
			IF ENR_CIVILAIDE<1> = "MR" THEN
				W_SituationFamiliale="Mari"
			END ELSE
				W_SituationFamiliale="Marie"
			END
		END ELSE
			IF ENR_CIVILAIDE<25> = "2" THEN
				W_SituationFamiliale="Clibataire"
			END ELSE
				IF ENR_CIVILAIDE<25> = "3" THEN
					IF ENR_CIVILAIDE<1>="MR" THEN
						W_SituationFamiliale="Veuf"
					END ELSE
						W_SituationFamiliale="Veuve"
					END
				END ELSE
					IF ENR_CIVILAIDE<25> = "4" THEN
						IF ENR_CIVILAIDE<1>="MR" THEN
							W_SituationFamiliale="Divorc"
						END ELSE
							W_SituationFamiliale="Divorce"
						END
					END ELSE
						IF ENR_CIVILAIDE<25> = "5" THEN
							W_SituationFamiliale="Vie maritale"
						END ELSE
							IF ENR_CIVILAIDE<25> = "6" THEN
								IF ENR_CIVILAIDE<1>="MR" THEN
									W_SituationFamiliale="Spar"
								END ELSE
									W_SituationFamiliale="Spare"
								END
							END ELSE
								IF ENR_CIVILAIDE<25> = "7" THEN
									W_SituationFamiliale="Pacse"
								END
							END
						END
					END
				END
			END
		END
			
			*Modif Clment changer titres en format long
			READ ENR_TABLESTITRES FROM F.TABLES, "TITRES" ELSE ENR_TABLESTITRES=""
			FOR t=1 TO DCOUNT(ENR_TABLESTITRES<2>, CHAR(253))
				IF ENR_TABLESTITRES<2,t> = ENR_CIVILAIDE<1> THEN
					W_titreAide = ENR_TABLESTITRES<3,t>
				END
			NEXT t
			ENR_TEMPO<i>=ENR_TEMPO<i>:W_SituationFamiliale:";":W_titreAide:";"
			
			*Anthony 
			READ ENR_ELTSFACTAIDE FROM F.ELTSFACTAIDE, W_CodeAide ELSE ENR_ELTSFACTAIDE=""
			IF ENR_ELTSFACTAIDE<8>#"" THEN
				GOSUB 30
				ENR_TEMPO<i>=ENR_TEMPO<i>:ENR_ELTSFACTAIDE<2>:";":W_AdresseFacturation:";":ENR_ELTSFACTAIDE<7>:";":ENR_ELTSFACTAIDE<8>:";":ENR_ELTSFACTAIDE<9>:";":ENR_ELTSFACTAIDE<11>:";"
			END ELSE
				GOSUB 40
				ENR_TEMPO<i>=ENR_TEMPO<i>:W_DestinatFact:";":W_Adresse:";":ENR_CIVILAIDE<9> :";":ENR_CIVILAIDE<10> :";":ENR_CIVILAIDE<11>:";":ENR_CIVILAIDE<13>:";"
			END
			*Fin Anthony
			
			READ ENR_ENVIRONAIDE FROM F.ENVIRONAIDE, W_CodeAide ELSE ENR_ENVIRONAIDE=""
			
			W_Temp=""
			**** Personne  prevenir
			* modif vanessa 22/04/09 - remettre sur les bons attributs
			* Nom / prenom
			* Modif Greg - 03/07/12 - Concernant la personne  prvenir en cas d'urgence,
			* ajout de l'indication s'il s'agit du rfrent ou non, du tel2 et de l'email.
			IF ENR_ENVIRONAIDE<9><>"" THEN
			W_Referent="Non"
				IF ENR_ENVIRONAIDE<24>="1" THEN W_Referent="Oui"
			END ELSE
				W_Referent=""
			END			
			
			ENR_TEMPO<i>=ENR_TEMPO<i>:ENR_ENVIRONAIDE<9>:';':W_Referent:';':ENR_ENVIRONAIDE<10>:';':ENR_ENVIRONAIDE<25>:';':ENR_ENVIRONAIDE<26>:';':ENR_ENVIRONAIDE<11>:';'
		
			* Modif Greg - 03/07/12 - Ajout des personnes du foyer
			W_NomPersFoyer=""
			W_PrePersFoyer=""
			W_DatNaisPersFoyer=""
			W_LienPersFoyer=""
			W_RattachPersFoyer=""	
			
			FOR I = 1 TO DCOUNT(ENR_CIVILAIDE<34>,CHAR(253))
				W_NomPersFoyer = W_NomPersFoyer:ENR_CIVILAIDE<34,I>:'|'
				W_PrePersFoyer = W_PrePersFoyer:ENR_CIVILAIDE<35,I>:'|'
				W_DatNaisPersFoyer = W_DatNaisPersFoyer:OCONV(ENR_CIVILAIDE<36,I>,"D4/"):'|'
				BEGIN CASE
					CASE ENR_CIVILAIDE<37,I> = "1"
						W_LienPersFoyer=W_LienPersFoyer:"Enfant":'|'
					CASE ENR_CIVILAIDE<37,I> = "2"
						W_LienPersFoyer=W_LienPersFoyer:"Petit-enfant":'|'
					CASE ENR_CIVILAIDE<37,I> = "3"
						W_LienPersFoyer=W_LienPersFoyer:"Parent":'|'
					CASE ENR_CIVILAIDE<37,I> = "4"
						W_LienPersFoyer=W_LienPersFoyer:"Grand-parent" :'|'
					CASE ENR_CIVILAIDE<37,I> = "5"
						W_LienPersFoyer=W_LienPersFoyer:"Frre ou soeur":'|'
					CASE ENR_CIVILAIDE<37,I> = "6"
						W_LienPersFoyer=W_LienPersFoyer:"Autre":'|'
				END CASE 
				IF ENR_CIVILAIDE<38,I>[1,1]="O" THEN
					W_RattachPersFoyer = W_RattachPersFoyer:"Oui":'|'
				END ELSE 
					W_RattachPersFoyer = W_RattachPersFoyer:"Non":'|'
				END
			NEXT I
			
			IF DCOUNT(ENR_CIVILAIDE<34>,CHAR(253)) > 0 THEN
				W_NomPersFoyer=W_NomPersFoyer[1,LEN(W_NomPersFoyer)-1]
				W_PrePersFoyer=W_PrePersFoyer[1,LEN(W_PrePersFoyer)-1]
				W_DatNaisPersFoyer=W_DatNaisPersFoyer[1,LEN(W_DatNaisPersFoyer)-1]
				W_LienPersFoyer=W_LienPersFoyer[1,LEN(W_LienPersFoyer)-1]
				W_RattachPersFoyer=W_RattachPersFoyer[1,LEN(W_RattachPersFoyer)-1]
				
				ENR_TEMPO<i>=ENR_TEMPO<i>:W_NomPersFoyer:';':W_PrePersFoyer:';':W_DatNaisPersFoyer:';':W_LienPersFoyer:';':W_RattachPersFoyer:';'
			END ELSE 
				ENR_TEMPO<i>=ENR_TEMPO<i>:';;;;;'
			END
			
			* Intervenants extrieurs
			W_CodeIntervExt=""
			W_NomIntervExt=""
			W_TelIntervExt=""
			W_MailIntervExt=""
			W_ObsIntervExt=""
			W_TypeIntervExt=""
			
			W_CountIntervExt15=DCOUNT(ENR_ENVIRONAIDE<15>,CHAR(253))
			W_CountIntervExt16=DCOUNT(ENR_ENVIRONAIDE<16>,CHAR(253))
			IF W_CountIntervExt15 > W_CountIntervExt16 THEN
				W_CountIntervExt=W_CountIntervExt15
			END ELSE
				W_CountIntervExt=W_CountIntervExt16
			END
			FOR I = 1 TO W_CountIntervExt
				IF ENR_ENVIRONAIDE<16,I> # "" THEN
					READ ENR_INTERVENANTEXT FROM F.INTERVENANTEXT,ENR_ENVIRONAIDE<16,I> THEN
						W_CodeIntervExt = W_CodeIntervExt:ENR_ENVIRONAIDE<16,I>:'|'
						W_NomIntervExt = W_NomIntervExt:ENR_INTERVENANTEXT<2>:" ":ENR_INTERVENANTEXT<3>:'|'
						W_TelIntervExt = W_TelIntervExt:ENR_INTERVENANTEXT<13>:'|'
						W_MailIntervExt = W_MailIntervExt:ENR_INTERVENANTEXT<27>:'|'
						W_ObsIntervExt = W_ObsIntervExt:ENR_INTERVENANTEXT<23>:'|'
						FOR J=1 TO DCOUNT(ENR_AUTRINTERVENANT<2>,CHAR(253))
							IF ENR_AUTRINTERVENANT<2,J>=ENR_INTERVENANTEXT<1> THEN
								W_TypeIntervExt = W_TypeIntervExt:ENR_AUTRINTERVENANT<3,J>:'|'
							END
						NEXT J
					END
				END ELSE
					W_CodeIntervExt = W_CodeIntervExt:ENR_ENVIRONAIDE<16,I>:'|'
					W_NomIntervExt = W_NomIntervExt:ENR_ENVIRONAIDE<17,I>:'|'
					W_TelIntervExt = W_TelIntervExt:ENR_ENVIRONAIDE<18,I>:'|'
					W_MailIntervExt = W_MailIntervExt:ENR_ENVIRONAIDE<22,I>:'|'
					W_ObsIntervExt = W_ObsIntervExt:ENR_ENVIRONAIDE<21,I>:'|'
					FOR J=1 TO DCOUNT(ENR_AUTRINTERVENANT<2>,CHAR(253))
						IF ENR_AUTRINTERVENANT<2,J>=ENR_ENVIRONAIDE<15,I> THEN
							W_TypeIntervExt = W_TypeIntervExt:ENR_AUTRINTERVENANT<3,J>:'|'
						END
					NEXT J		
				END
			NEXT I
			
			IF W_CountIntervExt > 0 THEN
				W_CodeIntervExt=W_CodeIntervExt[1,LEN(W_CodeIntervExt)-1]
				W_TypeIntervExt=W_TypeIntervExt[1,LEN(W_TypeIntervExt)-1]
				W_NomIntervExt=W_NomIntervExt[1,LEN(W_NomIntervExt)-1]
				W_TelIntervExt=W_TelIntervExt[1,LEN(W_TelIntervExt)-1]
				W_MailIntervExt=W_MailIntervExt[1,LEN(W_MailIntervExt)-1]
				W_ObsIntervExt=W_ObsIntervExt[1,LEN(W_ObsIntervExt)-1]
				
				ENR_TEMPO<i>=ENR_TEMPO<i>:W_CodeIntervExt:";":W_TypeIntervExt:";":W_NomIntervExt:';':W_TelIntervExt:';':W_MailIntervExt:";":W_ObsIntervExt:";"
			END ELSE 
				ENR_TEMPO<i>=ENR_TEMPO<i>:';;;;;;'
			END
			
			* Modif Greg - 03/07/12 - Ajout des personnes de l'entourage
			IF ENR_ENVIRONAIDE<5><>"" THEN
				W_NomPrenomEntourage=""
				W_EmailEntourage=""
				W_TelEntourage=""
				W_PortEntourage=""
				W_NatureLienEntourage=""
				W_LieuResidEntourage=""
				FOR IEntour=1 TO DCOUNT(ENR_ENVIRONAIDE<5>,CHAR(253))	
					W_LienEntourage=""
					BEGIN CASE
						CASE ENR_ENVIRONAIDE<20,IEntour> = "1"
							W_LienEntourage="Enfant"
						CASE ENR_ENVIRONAIDE<20,IEntour> = "2"
							W_LienEntourage="Petit-enfant"
						CASE ENR_ENVIRONAIDE<20,IEntour> = "3"
							W_LienEntourage="Parent"
						CASE ENR_ENVIRONAIDE<20,IEntour> = "4"
							W_LienEntourage="Grand-parent"
						CASE ENR_ENVIRONAIDE<20,IEntour> = "5"
							W_LienEntourage="Frre ou soeur"
						CASE ENR_ENVIRONAIDE<20,IEntour> = "6"
							W_LienEntourage="Voisin"
						CASE ENR_ENVIRONAIDE<20,IEntour> = "7"
							W_LienEntourage="Ami"
						CASE ENR_ENVIRONAIDE<20,IEntour> = "8"
							W_LienEntourage="Tuteur/curateur"
						CASE ENR_ENVIRONAIDE<20,IEntour> = "9"
							W_LienEntourage="Autre"
					END CASE 		
				
					W_NomPrenomEntourage=W_NomPrenomEntourage:ENR_ENVIRONAIDE<5,IEntour>
					W_EmailEntourage=W_EmailEntourage:ENR_ENVIRONAIDE<23,IEntour>
					W_TelEntourage=W_TelEntourage:ENR_ENVIRONAIDE<8,IEntour>
					W_PortEntourage=W_PortEntourage:ENR_ENVIRONAIDE<6,IEntour>
					W_NatureLienEntourage=W_NatureLienEntourage:W_LienEntourage
					W_LieuResidEntourage=W_LieuResidEntourage:ENR_ENVIRONAIDE<7,IEntour>
					
					IF IEntour<DCOUNT(ENR_ENVIRONAIDE<5>,CHAR(253)) THEN
						W_NomPrenomEntourage=W_NomPrenomEntourage:'|'
						W_EmailEntourage=W_EmailEntourage:'|'
						W_TelEntourage=W_TelEntourage:'|'
						W_PortEntourage=W_PortEntourage:'|'
						W_NatureLienEntourage=W_NatureLienEntourage:'|'
						W_LieuResidEntourage=W_LieuResidEntourage:'|'
					END
				NEXT IEntour
				
				ENR_TEMPO<i>=ENR_TEMPO<i>:W_NomPrenomEntourage:';':W_EmailEntourage:';':W_TelEntourage:';':W_PortEntourage:';':W_NatureLienEntourage:';':W_LieuResidEntourage:';'
			END ELSE
				ENR_TEMPO<i>=ENR_TEMPO<i>:';;;;;;'
			END			
			
			* Secu Aid
			ENR_TEMPO<i>=ENR_TEMPO<i>:ENR_CIVILAIDE<18>:";":ENR_CIVILAIDE<19>:";"
			
			**** Aide technique ****
			IF ENR_ENVIRONAIDE<19> # "" THEN
				W_Temp=""
				FOR j=1 TO DCOUNT(ENR_ENVIRONAIDE<19>,CHAR(253))
					READ ENR_TABLES FROM F.TABLES, "AIDETECHNIQUE" ELSE ENR_TABLES=""
					FOR a=1 TO DCOUNT(ENR_TABLES<2>, CHAR(253))
						IF ENR_TABLES<2,a> = ENR_ENVIRONAIDE<19,j> THEN
							IF W_Temp = "" THEN
								W_Temp = ENR_TABLES<3,a>
							END ELSE
								W_Temp = W_Temp:"|":ENR_TABLES<3,a>
							END
						END
					NEXT a
				NEXT j
				ENR_TEMPO<i>=ENR_TEMPO<i>:W_Temp:";"
			END ELSE
				ENR_TEMPO<i>=ENR_TEMPO<i>:" ":";"
			END
			
			**************************************************************************************************************
			*Fichier ABSENCESAIDE
			READ ENR_ABSENCESAIDE FROM F.ABSENCESAIDE, W_CodeAide ELSE ENR_ABSENCESAIDE=""
			* modif vanessa 22/04/09 - oconv sur les dates
			W_Hospi="FAUX"
			IF ENR_ABSENCESAIDE<3,1> # "" THEN
				ENR_TEMPO<i>=ENR_TEMPO<i>:OCONV(ENR_ABSENCESAIDE<1,1>,"D4/"):";":OCONV(ENR_ABSENCESAIDE<2,1>,"D4/"):";":ENR_ABSENCESAIDE<3,1>:";"
			END ELSE
				IF ENR_ABSENCESAIDE<4,1> # "" THEN
					READ ENR_TABLES FROM F.TABLES,"MOTIFSORTIE" ELSE ENR_TABLES=""
					j=1
					LOOP
					UNTIL ENR_TABLES<2,j>=ENR_ABSENCESAIDE<4,1> OR ENR_TABLES<2,j>="" DO
						j=j+1
					REPEAT
					IF ENR_TABLES<2,j> # "" THEN
						ENR_TEMPO<i>=ENR_TEMPO<i>:OCONV(ENR_ABSENCESAIDE<1,1>,"D4/"):";":OCONV(ENR_ABSENCESAIDE<2,1>,"D4/"):";":ENR_TABLES<3,j>:";"
						* modif vanessa 10/12/12
						IF ENR_TABLES<5,j>="O" THEN
							W_Hospi="VRAI"
						END
					END ELSE
						ENR_TEMPO<i>=ENR_TEMPO<i>:";;;"
					END
				END ELSE
					ENR_TEMPO<i>=ENR_TEMPO<i>:";;;"
				END
			END
			
            
            * Modif Guillaume DA10200 22/09/2011
            *   Intervenant extrieur (hpital)            
            IF ENR_ABSENCESAIDE<5,1> <> "" THEN
                READ ENR_INTERVENANTEXT FROM F.INTERVENANTEXT, ENR_ABSENCESAIDE<5,1>THEN
                    ENR_TEMPO<i>=ENR_TEMPO<i>:TRIM(TRIM(ENR_INTERVENANTEXT<2>):" ":ENR_INTERVENANTEXT<3>):";"
                END ELSE
                    ENR_TEMPO<i>=ENR_TEMPO<i>:";"
                END
            END ELSE
                ENR_TEMPO<i>=ENR_TEMPO<i>:";"
            END
            *   Observations
            ENR_TEMPO<i>=ENR_TEMPO<i>:ENR_ABSENCESAIDE<7,1>:";"
            * Fin modif Guillaume DA10200 22/09/2011
			
			* modif vanessa 10/12/12
			IF W_Hospi="VRAI" THEN
				* bulletin hospi
				IF ENR_ABSENCESAIDE<6,1>="O" THEN
					ENR_TEMPO<i>=ENR_TEMPO<i>:"Oui;"
				END ELSE
					ENR_TEMPO<i>=ENR_TEMPO<i>:"Non;"
				END
				* service social
				IF ENR_ABSENCESAIDE<9,1>="O" THEN
					ENR_TEMPO<i>=ENR_TEMPO<i>:"Oui;"
				END ELSE
					ENR_TEMPO<i>=ENR_TEMPO<i>:"Non;"
				END
				* date dbut hospi
				IF ENR_ABSENCESAIDE<10,1> # "" THEN
					ENR_TEMPO<i>=ENR_TEMPO<i>:OCONV(ENR_ABSENCESAIDE<10,1>,"D4/"):";"
				END ELSE
					ENR_TEMPO<i>=ENR_TEMPO<i>:OCONV(ENR_ABSENCESAIDE<1,1>,"D4/"):";"
				END
				IF ENR_ABSENCESAIDE<11,1> # "" THEN
					ENR_TEMPO<i>=ENR_TEMPO<i>:OCONV(ENR_ABSENCESAIDE<11,1>,"D4/"):";"
				END ELSE
					ENR_TEMPO<i>=ENR_TEMPO<i>:OCONV(ENR_ABSENCESAIDE<2,1>,"D4/"):";"
				END				
			END ELSE
				ENR_TEMPO<i>=ENR_TEMPO<i>:";;;;"
			END
			
			*Gestion periode de paie pour les accord :
			READ ENR_PERIODESPAIE FROM F.PERIODESPAIE, "1" ELSE ENR_PERIODESPAIE=""
			W_PerPaieDeb=ICONV("01/":ENR_PERIODESPAIE<1>[5,2]:"/":ENR_PERIODESPAIE<1>[1,4],"D4/")
			W_PerPaieFin=ICONV("30/":ENR_PERIODESPAIE<1>[5,2]:"/":ENR_PERIODESPAIE<1>[1,4],"D4/")
			
			a=1
			
			*Fichier ACCORD
			*-- Modifications Matthieu - Le 03/04/2009
			*W_Req='SSELECT ACCORD AVEC @ID = "':W_CodeAide:']" AND AVEC 5 <= "':W_PerPaieFin:'" AND AVEC 6 >= "':W_PerPaieDeb:'"'
			W_Req='SSELECT ACCORD AVEC @ID = "':W_CodeAide:']" AND AVEC 5 <= "':W_PerPaieFin:'" AND AVEC 6 >= "':W_PerPaieDeb:'" AND AVEC 18 # "O"'
			*-- Fin Modifications
			
		   	EXECUTE W_Req
		   	EXECUTE 'SAUVE-LISTE W_ReqAcc'
		   	EXECUTE "LISTE W_ReqAcc" RETURNING MSGCODE
			
			IF MSGCODE<1> # 209 THEN
				SELECT F.ACCORD TO W_ReqAcc
				
				LOOP
					READNEXT W_CleAcc FROM W_ReqAcc ELSE W_End = "VRAI"
			   	WHILE W_End = "FAUX" DO
				
					READ ENR_ACCORD FROM F.ACCORD, W_CleAcc ELSE ENR_ACCORD=""
					READ ENR_ORGPRISECHG FROM F.ORGPRISECHARGE, ENR_ACCORD<1> ELSE ENR_ORGPRISECHG=""

					IF ENR_ORGPRISECHG<18> = "P" THEN
						W_TypeOrg = "Principal"
					END ELSE
						W_TypeOrg = "Complmentaire"
					END
					W_TabAccord<1,a>=ENR_ORGPRISECHG<1>
					W_TabAccord<2,a>=W_TypeOrg
					W_TabAccord<3,a>=OCONV(ENR_ACCORD<5>,"D4/")
					W_TabAccord<4,a>=OCONV(ENR_ACCORD<6>,"D4/")
					W_TabAccord<5,a>=ENR_ACCORD<9> "MR2,"
					W_TabAccord<6,a>=ENR_ACCORD<13> "MR2,"
					
					W_TabAccord<7,a>=ENR_ACCORD<2>

					W_AccordMotif = ""
					READ ENR_TABLESMotif FROM F.TABLES, "MOTIFACCORD" THEN 
						FOR iMotif = 1 TO DCOUNT(ENR_TABLESMotif<2>, CHAR(253))
							IF ENR_TABLESMotif<2,iMotif> = ENR_ACCORD<3> THEN EXIT
						NEXT iMotif
						W_AccordMotif = ENR_TABLESMotif<3,iMotif>
					END					
					W_TabAccord<8,a>=W_AccordMotif
					
					W_AideQuotFam = ""
					IF ENR_RESSOURCESAIDE<6><>"" THEN W_AideQuotFam = ENR_RESSOURCESAIDE<6> / 100
					W_TabAccord<9,a>=W_AideQuotFam
					
					a=a+1
				REPEAT
				*CONVERT
				FOR t=1 TO 6
					W_TabAccord<t> = CONVERT(CHAR(253),"|",W_TabAccord<t>)
				NEXT t
				ENR_TEMPO<i>=ENR_TEMPO<i>:W_TabAccord<1>:";"
				ENR_TEMPO<i>=ENR_TEMPO<i>:W_TabAccord<2>:";":W_TabAccord<3>:";":W_TabAccord<4>:";"
				ENR_TEMPO<i>=ENR_TEMPO<i>:W_TabAccord<5>:";":W_TabAccord<6>:";"
				ENR_TEMPO<i>=ENR_TEMPO<i>:W_TabAccord<7>:";":W_TabAccord<8>:";":W_TabAccord<9>:";"
			END ELSE
				ENR_TEMPO<i>=ENR_TEMPO<i>:";;;;;;;;;"
			END
			READ ENR_ACTIVITESAIDE FROM F.ACTIVITESAIDE, W_CodeAide ELSE ENR_ACTIVITESAIDE=""
			READ ENR_ASSOCIATION FROM F.ASSOCIATION, ENR_ACTIVITESAIDE<1>[1,3] ELSE ENR_ASSOCIATION=""
			
			* Adresse
			GOSUB 20
			 * modif vanessa 22/04/09
			IF ENR_ASSOCIATION<10>="1" THEN
				W_Cedex="CEDEX"
			END ELSE
				W_Cedex=""				
			END			
			ENR_TEMPO<i>=ENR_TEMPO<i>:ENR_ASSOCIATION<1>:";":ENR_ASSOCIATION<2>:";":W_AdresseAssoc:";":ENR_ASSOCIATION<7>:";"
			ENR_TEMPO<i>=ENR_TEMPO<i>:ENR_ASSOCIATION<8>:";":ENR_ASSOCIATION<9>:";"
			
			ENR_TEMPO<i>=ENR_TEMPO<i>:W_Cedex:";":ENR_ASSOCIATION<11>:";"
			ENR_TEMPO<i>=ENR_TEMPO<i>:ENR_ASSOCIATION<12>:";":ENR_ASSOCIATION<13>:";"
			ENR_TEMPO<i>=ENR_TEMPO<i>:ENR_ASSOCIATION<35>:";":ENR_ASSOCIATION<37>
			**************************************************************************************************************
			
		*END

		READ ENR_RESPONSABLE FROM F.RESPONSABLE, ENR_CIVILAIDE<39> ELSE ENR_RESPONSABLE=""
		ENR_TEMPO<i>=ENR_TEMPO<i>:";":ENR_RESPONSABLE<1>:";":ENR_RESPONSABLE<11>

		READ ENR_SECTEUR FROM F.SECTEUR, ENR_CIVILAIDE<40>[1,3] ELSE ENR_SECTEUR=""
		* Modif Greg - 02/07/12 - Ajout des donnes du secteur de l'aid
		W_Adresse1SecteurAide=TRIM(ENR_SECTEUR<5>:' ':ENR_SECTEUR<6>:' ':ENR_SECTEUR<7>:' ':ENR_SECTEUR<8>)
		ENR_TEMPO<i>=ENR_TEMPO<i>:";":ENR_SECTEUR<1>:';':W_Adresse1SecteurAide:';':ENR_SECTEUR<9>:';':ENR_SECTEUR<10>:';':ENR_SECTEUR<11>:';':ENR_SECTEUR<14>:';':ENR_SECTEUR<16>:';':ENR_SECTEUR<15>:';'
		* Fin modif Greg - 02/07/12			
		READ ENR_SOUSSECTEUR FROM F.SOUSSECTEUR, ENR_CIVILAIDE<40>[1,5] ELSE ENR_SOUSSECTEUR=""
		ENR_TEMPO<i>=ENR_TEMPO<i>:ENR_SOUSSECTEUR<1>
		READ ENR_QUARTIER FROM F.QUARTIER, ENR_CIVILAIDE<40>[1,7] ELSE ENR_QUARTIER=""
		ENR_TEMPO<i>=ENR_TEMPO<i>:";":ENR_QUARTIER<1>:";"
		
		* Modif Greg - 03/07/12 - Ajout du GIR, des tches, des modalits d'intervention et de l'indication du travail les jours fris
		
		ENR_TEMPO<i>=ENR_TEMPO<i>:ENR_AGGIRAIDE<19>:";":ENR_AGGIRAIDE<20>:";"
	
		W_Besoin=""
		GOSUB 60
		IF W_Besoin="" THEN
			W_Count=DCOUNT(ENR_BESOINSAIDE<2>,CHAR(253))
			FOR iDef=1 TO W_Count
				IF ENR_BESOINSAIDE<2,iDef> # "" AND ENR_BESOINSAIDE<2,iDef> # "0" THEN
					W_Besoin=W_Besoin:ENR_DEFTECH<3,iDef>:"|"
				END
			NEXT iDef
			IF W_Besoin<>"" THEN W_Besoin=W_Besoin[1,LEN(W_Besoin)-1]
		END
		ENR_TEMPO<i>=ENR_TEMPO<i>:W_Besoin:";":ENR_BESOINSAIDE<5>:";":ENR_BESOINSAIDE<7>		
		
		IF ENR_BESOINSAIDE<22>="O" THEN
			ENR_TEMPO<i>=ENR_TEMPO<i>:";CLES"
		END ELSE
			ENR_TEMPO<i>=ENR_TEMPO<i>:";"
		END		
		
		*ENR_TEMPO<i>=ENR_TEMPO<i>:"#"
	END
	
	*Modif clment Ajout infos secteur
	*READ ENR_SECTEUR FROM F.SECTEUR, ENR_CIVILAIDE<40>[1,3] ELSE ENR_SECTEUR=""
	*ENR_TEMPO<i>=ENR_TEMPO<i>:";":ENR_SECTEUR<1>:";":ENR_SECTEUR<5>:" ":ENR_SECTEUR<6>:" ":ENR_SECTEUR<7>:" ":ENR_SECTEUR<8>
	*ENR_TEMPO<i>=ENR_TEMPO<i>:";":ENR_SECTEUR<9>:";":ENR_SECTEUR<10>:" ":ENR_SECTEUR<11>:";":ENR_SECTEUR<12>:";":ENR_SECTEUR<14>:";":ENR_SECTEUR<16>:";":ENR_SECTEUR<15>:"#"
	
	WRITE ENR_TEMPO ON F.FUSION, "COURRIERAIDE.txt"

RETURN
	
*******************************
** Mise en forme des adresses *
*******************************
10

	*Pour l'aid
	W_Adresse=""
	W_Adresse=ENR_CIVILAIDE<5> :" ": ENR_CIVILAIDE<6> :" ": ENR_CIVILAIDE<7> :" ": ENR_CIVILAIDE<8>

RETURN	

*******************************
20

	*Pour l'association
	W_AdresseAssoc=""
	W_AdresseAssoc=ENR_ASSOCIATION<3> :" ": ENR_ASSOCIATION<4> :" ": ENR_ASSOCIATION<5> :" ": ENR_ASSOCIATION<6>

RETURN	

*******************************
30

	*Pour l'adresse de facturation
	W_AdresseFacturation=""
	W_AdresseFacturation=ENR_ELTSFACTAIDE<3> :" ": ENR_ELTSFACTAIDE<4> :" ": ENR_ELTSFACTAIDE<5> :" ": ENR_ELTSFACTAIDE<6>

RETURN
	
*******************************
*******************************
40


	*Pour le destinataire de la facturation
	W_DestinatFact=""
	W_DestinatFact=ENR_CIVILAIDE<1> :" ": ENR_CIVILAIDE<2> :" ": ENR_CIVILAIDE<3>

RETURN

*******************************
********************************************************************************************************************
* TACHES DANS LA SEMAINE TYPE
60

	W_Besoin=""
	W_ReqSemType=""
   	W_Fini="FAUX"
	W_Temp='SSELECT TPSSEMAINETYPE AVEC @ID = "':W_CodeAide:']" AND AVEC DateDebSemType <= "':DATE():'" AND AVEC DateFinSemType >= "':DATE():'" OR = ""'
	
   	EXECUTE W_Temp
   	EXECUTE 'SAUVE-LISTE W_ReqSemType'
   	EXECUTE "LISTE W_ReqSemType" RETURNING MSGCODE
	
   	IF MSGCODE<1> # 209 THEN
	
      	SELECT F.TPSSEMAINETYPE TO W_ReqSemType
   		LOOP
      		READNEXT W_CleSemType FROM W_ReqSemType ELSE W_Fini = "VRAI"
   		WHILE W_Fini = "FAUX" DO
		
      		READ ENR_TPSSEMAINETYPE FROM F.TPSSEMAINETYPE,W_CleSemType ELSE ENR_TPSSEMAINETYPE=""
			
			FOR iSemType=1 TO DCOUNT(ENR_TPSSEMAINETYPE<4>,CHAR(253))
				IF LEN(ENR_TPSSEMAINETYPE<4,iSemType>)=6 THEN
					READ ENR_SSIADSOINS FROM F.SSIADSOINS,ENR_TPSSEMAINETYPE<4,iSemType> ELSE ENR_SSIADSOINS=""
					W_Besoin=W_Besoin:ENR_SSIADSOINS<1>
				END ELSE
			        FOR iTable = 1 TO DCOUNT(ENR_DEFTECH<2>,CHAR(253))
			            IF ENR_DEFTECH<2,iTable> = ENR_TPSSEMAINETYPE<4,iSemType> THEN 
							W_Besoin=W_Besoin:ENR_DEFTECH<3,iTable>
						END
			        NEXT iTable				
				END
				
			NEXT iSemType
			
   		REPEAT
	END
	
RETURN