**** Enregistrements des donnes pour la gnration sous word**
** 19/11/08 **
* Priscilla *
**************************
* Ouvertures des fichiers
**************************
SUBROUTINE COURRIERAIDANT(RETURNVAL,W_Params,W_Sortie)
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE PRINT "OUVERTURE CIVILAIDANT" ;* en lecture
OPEN "","ASSOCIATION" TO F.ASSOCIATION ELSE PRINT "OUVERTURE ASSOCIATION" ;* en lecture
OPEN "","ABSENCESAIDANT" TO F.ABSENCESAIDANT ELSE PRINT "OUVERTURE ABSENCESAIDANT" ;*en lecture
OPEN "","FUSION" TO F.FUSION ELSE PRINT "OUVERTURE FUSION" ;* en ecriture
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
OPEN "","RIBAIDANT" TO F.RIBAIDANT ELSE PRINT "OUVERTURE RIBAIDANT" ;*en lecture
OPEN "","CONTRAT" TO F.CONTRAT ELSE PRINT "OUVERTURE CONTRAT" ;*en lecture
OPEN "","TABLES" TO F.TABLES ELSE PRINT "OUVERTURE TABLES" ;*en lecture
* MODIF VANESSA 10/11/10 - DA 10239-01
OPEN "","BIC" TO F.BIC ELSE PRINT "OUVERTURE BIC" ;*en lecture
*******************************
* Initialisation variables ****
*******************************
W_Fichier=""
W_CodeAidant=""

ENR_CIVILAIDANT=""
ENR_ASSOCIATION=""
ENR_ABSENCESAIDANT=""
ENR_FICHIER=""
ENR_RIBAIDANT=""
W_End="FAUX"
i = 0
j = 0
a = 0
ENR_TEMPO=""
W_Adresse=""
W_AdresseAssoc=""
W_SituationFamiliale=""
W_ReqContrat=""
W_Cle=""
W_CleAbs=""
W_ReqAbsAidant=""
W_ReqAbs=""
W_Req=""
W_MotifAbs=""
*******************************
* Recuperation parametres *****
*******************************
W_CodeAidant=W_Params<1>
*W_CodeAidant="00459"

** Programme **
*******************************
	READ ENR_CIVILAIDANT FROM F.CIVILAIDANT, W_CodeAidant ELSE ENR_CIVILAIDANT=""
	
	i= 1
	IF ENR_CIVILAIDANT # "" THEN
		************************
		* Entete fichier  ******
		************************
		**************************************************************************************************************
		* Fichier CIVILAIDANT
		ENR_TEMPO<i>="CodeAidant;TitreAidant;NomAidant;PrnomAidant;1reLigneAdresseAidant;ComplmentAdresseAidant;CodePostalAidant;VilleAidant;"
		ENR_TEMPO<i>=ENR_TEMPO<i>:"Tlphone1Aidant;Tlphone2Aidant;DateNaissanceAidant;"
		ENR_TEMPO<i>=ENR_TEMPO<i>:"NumScuritSocialeAidant;ClNumScuritSocialeAidant;SecteurAidant;SousSecteurAidant;QuartierAidant;LocomotionAidant;"
		**************************************************************************************************************
		* Fichier RIBAIDANT
		ENR_TEMPO<i>=ENR_TEMPO<i>:"NomBanqueAidant;CodeBanqueAidant;CodeGuichetAidant;NumCpteBqueAidant;CleCpteBqueAidant;"
		**************************************************************************************************************
		* Fichier ABSENCESAIDANT
		ENR_TEMPO<i>=ENR_TEMPO<i>:"DateDbutAbsence;DateFinAbsence;MotiflibellAbsence;"
		**************************************************************************************************************
		* 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;SituationFamilialeAidant;"
		**************************************************************************************************************
		* Fichier SECTEUR
		ENR_TEMPO<i> = ENR_TEMPO<i>:"LibSecteur;AdresseSecteur1;AdresseSecteur2;AdresseSecteur3;CedexSecteur;TelSecteur;FaxSecteur;ObsSecteur":"#"
		**************************************************************************************************************
		GOSUB 10
		
		************************
		* Corps du fichier *****
		************************
		*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_CIVILAIDANT<1> THEN
				W_titreAidant = ENR_TABLESTITRES<3,t>
			END
		NEXT t
		
		
		ENR_TEMPO<i>=ENR_TEMPO<i>:W_CodeAidant:";":W_titreAidant:";":ENR_CIVILAIDANT<2>:";":ENR_CIVILAIDANT<3>:";":W_Adresse:";":ENR_CIVILAIDANT<9>:";"
		ENR_TEMPO<i>=ENR_TEMPO<i>:ENR_CIVILAIDANT<10>:";":ENR_CIVILAIDANT<11>:";":ENR_CIVILAIDANT<12>:";":ENR_CIVILAIDANT<14>:";":OCONV(ENR_CIVILAIDANT<26>,"D4/"):";"
		
		ENR_TEMPO<i>=ENR_TEMPO<i>:ENR_CIVILAIDANT<17>:";":ENR_CIVILAIDANT<18>:";"
		
		READ ENR_QUARTIER FROM F.QUARTIER, ENR_CIVILAIDANT<33> ELSE ENR_QUARTIER=""
		READ ENR_SECTEUR FROM F.SECTEUR, ENR_CIVILAIDANT<31> ELSE ENR_SECTEUR=""
		READ ENR_SSSECTEUR FROM F.SOUSSECTEUR, ENR_CIVILAIDANT<32> ELSE ENR_SSSECTEUR=""
		
		ENR_TEMPO<i>=ENR_TEMPO<i>:ENR_SECTEUR<1>:";":ENR_SSSECTEUR<1>:";":ENR_QUARTIER<1>:";"
		
		W_Locomotion=""
		IF ENR_CIVILAIDANT<34>#"" THEN
			IF ENR_CIVILAIDANT<34>="1" THEN
				W_Locomotion = "A pieds"
			END ELSE
				IF ENR_CIVILAIDANT<34>="2" THEN
					W_Locomotion = "bicyclette"
				END ELSE
					IF ENR_CIVILAIDANT<34>="3" THEN 
						W_Locomotion = "Vlomoteur"
					END ELSE
						W_Locomotion = "Vhicule particulier"
					END
				END
			END
		END
		ENR_TEMPO<i>=ENR_TEMPO<i>:W_Locomotion:";"
		
		**************************************************************************************************************
		* RIBAIDANT
		READ ENR_RIBAIDANT FROM F.RIBAIDANT, W_CodeAidant ELSE ENR_RIBAIDANT=""
		* modif vanessa 10/11/10 - DA 10239-01
		READ ENR_BIC FROM F.BIC,ENR_RIBAIDANT<3> THEN
			W_LibBanque=ENR_BIC<2,1>
		END ELSE 
			W_LibBanque=""
		END
		ENR_TEMPO<i>=ENR_TEMPO<i>:W_LibBanque:";":ENR_RIBAIDANT<3>:";":ENR_RIBAIDANT<4>:";":ENR_RIBAIDANT<5>:";":ENR_RIBAIDANT<6>:";"
		**************************************************************************************************************
		*Fichier ABSENCESAIDANT
		
		W_ReqAbsAidant='SSELECT ABSENCESAIDANT AVEC @ID = "':W_CodeAidant:']" AND AVEC TypeAbs # "18" AND AVEC TypeAbs # "19"'
		W_ReqAbsAidant=W_ReqAbsAidant:' AND AVEC TypeAbs # "20" AND AVEC TypeAbs # "21" PAR-DECR DebAbsAidant'
		
		EXECUTE W_ReqAbsAidant
		EXECUTE 'SAUVE-LISTE W_ReqAbs'
		EXECUTE "LISTE W_ReqAbs" RETURNING MSGCODE
		
		IF MSGCODE<1> # 209 THEN
			SELECT F.ABSENCESAIDANT TO W_ReqAbs
			
			READNEXT W_CleAbs FROM W_ReqAbs ELSE W_End = "VRAI"
			READ ENR_ABSENCESAIDANT FROM F.ABSENCESAIDANT, W_CleAbs ELSE ENR_ABSENCESAIDANT=""
			
			READ ENR_TABLES FROM F.TABLES,"ABSENCES" ELSE ENR_TABLES=""
			FOR a=1 TO DCOUNT(ENR_TABLES<2>, CHAR(253))
				IF ENR_TABLES<2,a> = W_CleAbs[6,2] THEN
					W_MotifAbs = ENR_TABLES<3,a>
				END
			NEXT a
				ENR_TEMPO<i>=ENR_TEMPO<i>:OCONV(W_CleAbs[8,5],"D4/"):";":OCONV(ENR_ABSENCESAIDANT<2>,"D4/"):";":W_MotifAbs:";"
		END ELSE
			ENR_TEMPO<i>=ENR_TEMPO<i>:"":";":"":";":"":";"
		END
		
		**************************************************************************************************************
		* Fichier contrat pour rcup l'association
		*-- Modifications Matthieu - Le 03/04/2009
		*W_Req='SSELECT CONTRAT AVEC @ID = "':W_CodeAidant:']" PAR-DECR 8 PAR 7'
		W_Req='SSELECT CONTRAT AVEC @ID = "':W_CodeAidant:']" AND AVEC 65 # "O" PAR-DECR 8 PAR 7'
		*-- Fin Modifications
		
		EXECUTE W_Req
		EXECUTE 'SAUVE-LISTE W_ReqContrat'
		EXECUTE "LISTE W_ReqContrat" RETURNING MSGCODE
		
		IF MSGCODE<1> # 209 THEN
			SELECT F.CONTRAT TO W_ReqContrat
			
				READNEXT W_Cle FROM W_ReqContrat ELSE W_End = "VRAI"
				
				READ ENR_CONTRAT FROM F.CONTRAT, W_Cle ELSE ENR_CONTRAT=""
				READ ENR_ASSOCIATION FROM F.ASSOCIATION, ENR_CONTRAT<2> 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>:";":W_Cedex:";":ENR_ASSOCIATION<11>:";"
				ENR_TEMPO<i>=ENR_TEMPO<i>:ENR_ASSOCIATION<12>:";":ENR_ASSOCIATION<13>:";":ENR_ASSOCIATION<35>:";":ENR_ASSOCIATION<37>:";"
		END ELSE
			ENR_TEMPO<i>=ENR_TEMPO<i>:"":";":"":";":"":";":"":";"
			ENR_TEMPO<i>=ENR_TEMPO<i>:"":";":"":";":"":";":"":";"
			ENR_TEMPO<i>=ENR_TEMPO<i>:"":";":"":";":"":";":"":";"
		END
		
		IF ENR_CIVILAIDANT<21> = "1" THEN
			IF ENR_CIVILAIDANT<1>="MR" THEN
				W_SituationFamiliale="Mari"
			END ELSE
				W_SituationFamiliale="Marie"
			END
		END ELSE
			IF ENR_CIVILAIDANT<21> = "2" THEN
				W_SituationFamiliale="Clibataire"
			END ELSE
				IF ENR_CIVILAIDANT<21> = "3" THEN
					IF ENR_CIVILAIDANT<1>="MR" THEN
						W_SituationFamiliale="Veuf"
					END ELSE
						W_SituationFamiliale="Veuve"
					END
				END ELSE
					IF ENR_CIVILAIDANT<21> = "4" THEN
						IF ENR_CIVILAIDANT<1>="MR" THEN
							W_SituationFamiliale="Divorc"
						END ELSE
							W_SituationFamiliale="Divorce"
						END
					END ELSE
						IF ENR_CIVILAIDANT<21> = "5" THEN
							W_SituationFamiliale="Vie maritale"
						END ELSE
							IF ENR_CIVILAIDANT<21> = "6" THEN
								IF ENR_CIVILAIDANT<1>="MR" THEN
									W_SituationFamiliale="Spar"
								END ELSE
									W_SituationFamiliale="Spare"
								END
							END ELSE
								IF ENR_CIVILAIDANT<21> = "7" THEN
									W_SituationFamiliale="Pacse"
								END
							END
						END
					END
				END
			END
		END
		
		ENR_TEMPO<i>=ENR_TEMPO<i>:W_SituationFamiliale
		
		*Modif clment Ajout infos secteur
		READ ENR_SECTEUR FROM F.SECTEUR, ENR_CIVILAIDANT<31> 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, "COURRIERAIDANT.txt"
		W_Sortie="ENREGISTREMENT OK"
		**************************************************************************************************************
	END ELSE
		ENR_TEMPO<i>="ERREUR"
		WRITE ENR_TEMPO ON F.FUSION, "ERREUR.txt"
	END
	
RETURN

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

	*Pour l'aidant
	W_Adresse=""
	W_Adresse=ENR_CIVILAIDANT<5> :" ": ENR_CIVILAIDANT<6> :" ": ENR_CIVILAIDANT<7> :" ": ENR_CIVILAIDANT<8>

RETURN	

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

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

RETURN	

*******************************