EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
OPEN "", "CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "", "CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP
OPEN "", "CIVILAIDE" TO F.CIVILAIDE ELSE STOP
OPEN "", "ASSOCIATION" TO F.ASSOCIATION ELSE STOP
OPEN "", "ELTSFACTAIDE" TO F.ELTSFACTAIDE ELSE STOP
OPEN "", "TEMPO" TO F.TEMPO ELSE STOP
OPEN "", "CONSTANTESPAIE" TO F.CONSTANTESPAIE ELSE STOP
OPEN "", "TABLES" TO F.TABLES ELSE STOP
*PG 19.02.09
OPEN "", "RUBSAISIE" TO F.RUBSAISIE ELSE STOP

PROCREAD PARAMETERS ELSE STOP
Txt_Assoc = FIELD(PARAMETERS,"|",2)
W_PeriodeCours = FIELD(PARAMETERS,"|",3)
Txt_BorneDeb = FIELD(PARAMETERS,"|",4)
Txt_BorneFin = FIELD(PARAMETERS,"|",5)
W_TypeAct = FIELD(PARAMETERS,"|",6)
W_TypeSelect = FIELD(PARAMETERS,"|",7)
Txt_Selection = FIELD(PARAMETERS,"|",8)
W_Secteur = FIELD(PARAMETERS,"|",9)
W_ValeurConv = FIELD(PARAMETERS,"|",10)
W_Reprise = FIELD(PARAMETERS,"|",11)
W_Collectif = FIELD(PARAMETERS,"|",12)
W_User = FIELD(PARAMETERS,"|",13)

*Modif Clment ajout du paramtre Editions des B.I.A.F
W_Biaf = FIELD(PARAMETERS,"|",14)

READ ENR_TITRES FROM F.TABLES, "TITRES" ELSE ENR_TITRES = ""
READ ENR_NATUREVOIE FROM F.TABLES, "NATUREVOIE" ELSE ENR_NATUREVOIE = ""


READ ENR_CONSTANTESPAIE FROM F.CONSTANTESPAIE, "1" THEN
	W_DateEuro = INT(ENR_CONSTANTESPAIE<9>)
	W_DateRef = INT(ICONV("01/":W_PeriodeCours[5,2]:"/":W_PeriodeCours[1,4],"D4/"))
	IF W_DateRef < W_DateEuro THEN
		W_GestEuro = "False"
	END ELSE
		W_GestEuro = ""
	END
END
  
IF W_Collectif = "V" THEN

    * Construction requete collectif

    IF Txt_BorneDeb = "" AND Txt_BorneFin # "" THEN
        Txt_BorneDeb = "AA"
    END
    IF Txt_BorneFin = "" AND Txt_BorneDeb # "" THEN
        Txt_BorneFin = "ZZ"
    END
    
    * Modif Guillaume DA10173 16/09/2010 : Remise  plat gnrale de la requte CONTRAT  
    * entite
    W_PARAMS = 'SSELECT CONTRAT AVEC 2 = "':Txt_Assoc:'"'
    W_Tampon = ' OR AVEC 2 = "':Txt_Assoc:'"'
    
    * bornage nom aidant / aid
    IF Txt_BorneDeb # "" AND Txt_BorneFin # "" THEN
        IF W_TypeAct = "P" OR W_ValeurConv = "0" THEN
            W_PARAMS = W_PARAMS:' AND AVEC NomAidantContrat >= "':Txt_BorneDeb:'"'
            W_PARAMS = W_PARAMS:' AND AVEC NomAidantContrat <= "':Txt_BorneFin:'"'
            W_Tampon = W_Tampon:' AND AVEC NomAidantContrat >= "':Txt_BorneDeb:'"'
            W_Tampon = W_Tampon:' AND AVEC NomAidantContrat <= "':Txt_BorneFin:'"'
        END ELSE
            W_PARAMS = W_PARAMS:' AND AVEC NomAideContrat >= "':Txt_BorneDeb:'"'
            W_PARAMS = W_PARAMS:' AND AVEC NomAideContrat <= "':Txt_BorneFin:'"'
            W_Tampon = W_Tampon:' AND AVEC NomAideContrat >= "':Txt_BorneDeb:'"'
            W_Tampon = W_Tampon:' AND AVEC NomAideContrat <= "':Txt_BorneFin:'"'
        END
    END
    
    * slection secteur
    IF Txt_Selection # "" THEN
	  IF W_TypeAct = "M" AND W_ValeurConv = "1" THEN
		W_PARAMS = W_PARAMS:' AND AVEC CodSecteurContratAide = "':Txt_Selection:'"'
        	W_Tampon = W_Tampon:' AND AVEC CodSecteurContratAide = "':Txt_Selection:'"'
	  END ELSE
        	W_PARAMS = W_PARAMS:' AND AVEC SecteurContrat = "':Txt_Selection:'"'
        	W_Tampon = W_Tampon:' AND AVEC SecteurContrat = "':Txt_Selection:'"'
	  END
    END
    
    * test si priode du dernier bulletin correspondante.
    W_PARAMS = W_PARAMS:' AND AVEC 58 = "':W_PeriodeCours:'"'
    W_Tampon = W_Tampon:' AND AVEC 58 = "':W_PeriodeCours:'"'
    
    * Attestation ASSEDIC
    W_PARAMS = W_PARAMS : ' AND AVEC 95 = "O"'
    W_Tampon = W_Tampon : ' AND AVEC 95 = "O"'
    
    * supp contrat
    W_PARAMS = W_PARAMS:' AND AVEC 65 # "O"'
    W_Tampon = W_Tampon:' AND AVEC 65 # "O"'
   
    * solde compte # "O"
    IF W_Reprise # "1" THEN
        W_PARAMS = W_PARAMS:' AND AVEC 67 # "O"'
        W_Tampon = W_Tampon:' AND AVEC 67 # "O"'
    END


    IF W_TypeAct = "M" THEN
        * Mandataire
        W_PARAMS = W_PARAMS:' AND AVEC 1 = "02" AND AVEC EtatAvancementCalcul = "P" AND AVEC 28 = "1"'
        W_Tampon = W_Tampon:' AND AVEC EtatAvancementCalcul = "E" AND AVEC 28 = "0"'
        W_PARAMS = W_PARAMS:W_Tampon
    END ELSE
        W_PARAMS = W_PARAMS:' AND AVEC EtatAvancementCalcul = "P"'
        
        IF W_TypeAct = "P" THEN
            * Prestataire
            W_PARAMS = W_PARAMS:' AND AVEC 1 <> "02" AND AVEC TypeActivite = "P"'
            W_Tampon = W_Tampon:' AND AVEC 1 <> "02" AND AVEC 6 = "A" AND AVEC TypeActivite <> "S"'
            W_PARAMS = W_PARAMS:W_Tampon

        END ELSE
            * ssiad ou intermdiaire
           W_PARAMS = W_PARAMS:' AND AVEC TypeActivite = "':W_TypeAct:'" AND AVEC 1 <> "02"'
        END
    END
      
	  
    IF W_TypeAct = "M" AND W_ValeurConv = "1" AND (W_Secteur = "True" OR W_Secteur = "Vrai") THEN
        W_PARAMS = W_PARAMS:' PAR LibSecteurEmployeur PAR NomAideContrat PAR PrenomAideContrat PAR EmplEtabContrat'
    END ELSE
        IF W_ValeurConv = "0" AND (W_Secteur = "True" OR W_Secteur = "Vrai") THEN
            W_PARAMS = W_PARAMS:' PAR LibSecteurContrat PAR NomAidantContrat PAR PrenomAidantContrat PAR CodeAidant'
        END ELSE
 
                IF (W_Secteur = "True" OR W_Secteur = "Vrai") THEN
                    * 28/03/02 prestataire par secteur...
                    W_PARAMS = W_PARAMS:' PAR LibSecteurContrat PAR NomAidantContrat PAR PrenomAidantContrat PAR CodeAidant'
                END ELSE
                    * 28/03/02 prestataire alpha OU BIEN MANDATAIRE alpha adress au particulier employeur
                    IF W_ValeurConv = "1" THEN
                        W_PARAMS = W_PARAMS:' PAR NomAideContrat PAR PrenomAideContrat PAR EmplEtabContrat'
                    END ELSE
                        W_PARAMS = W_PARAMS:' PAR NomAidantContrat PAR PrenomAidantContrat PAR CodeAidant'
                    END
                END
      
        END
    END
    * Fin modif Guillaume DA10173 16/09/2010

    
END ELSE
	READ ENR_TEMPO FROM F.TEMPO, "SOLDECPTE":W_User THEN
		
		i = 1
		W_PARAMS = 'SELECT CONTRAT AVEC @ID = "':ENR_TEMPO<1>:'"'
		
		LOOP
			i = i + 1
		WHILE ENR_TEMPO<i> # ""
			W_PARAMS = W_PARAMS:' OR AVEC @ID = "':ENR_TEMPO<i>:'"'
		REPEAT
		

	END ELSE
		ENR_TEMPO = ""
		ENR_TEMPO<1> = "Vide"

		WRITE ENR_TEMPO ON F.TEMPO,"SOLDECPTE":W_User
		STOP
	END

END

    EXECUTE W_PARAMS
    W_SoldeCpte = ""
    EXECUTE 'SAUVE-LISTE W_SoldeCpte'
    EXECUTE 'LISTE W_SoldeCpte' RETURNING MSGCODE
	W_MIKAEL<1>=W_PARAMS
	W_MIKAEL<2>=MSGCODE<1>
WRITE MSGCODE<1> ON F.TEMPO, "MIKAEL"
    IF MSGCODE<1> = 209 THEN
		ENR_TEMPO = ""
		ENR_TEMPO<1> = "Vide"
		WRITE ENR_TEMPO ON F.TEMPO,"SOLDECPTE":W_User
		STOP
    END ELSE 
		SELECT F.CONTRAT TO W_SoldeCpte
		GOSUB 100

		WRITE ENR_TEMPO ON F.TEMPO,"SOLDECPTE":W_User
    END

STOP

100
*******************************************************
* Gestion de la requete : collecte d'infORmations	  *
*******************************************************

ENR_TEMPO = ""

W_NomPrenomAide = ""
W_Adr1Aide = ""
W_Adr2Aide = ""
W_Adr3Aide = ""
W_SecteurAide = ""

*PG 19.02.09
W_LibRubDetCalcul=""
W_MttRubDetCalcul=""
W_LibRubDetCalculApresNET=""
W_MttRubDetCalculApresNET=""
*****

W_Ind = 0
W_Fin = "F"
LOOP
	READNEXT W_Cle FROM W_SoldeCpte ELSE W_Fin = "V"
	W_Ind = W_Ind + 1
WHILE W_Fin = "F"
	READ ENR_CONTRAT FROM F.CONTRAT, W_Cle THEN
		*Modification 20/12/2010 Mikael suite appel de maubeuge et de bourges suite maj 480; CHANGER ATT 63 PAR 58
        * Modif Guillaume DA10173 & DA8122 17/09/2010
        *IF ENR_CONTRAT<63> = W_PeriodeCours THEN
		IF ENR_CONTRAT<58> = W_PeriodeCours THEN
    		READ ENR_CIVILAIDANT FROM F.CIVILAIDANT, W_Cle[1,5] THEN
    
    			* Infos CIVILAIDANT
    			GOSUB 110
    	
    			IF W_TypeAct = "M" THEN
    
    				GOSUB 120
    
    			END ELSE
    
    				W_NomPrenomAide=""
    				W_Adr1Aide=""
    				W_Adr2Aide=""
    				W_Adr3Aide=""
    				W_NomPrenomAdrFact=""
    				W_AdrFact1=""
    				W_AdrFact2=""
    				W_AdrFact3=""
    				W_CommuneAide=""
    				W_CommuneAdrFact=""
    
    			END
    
    			READ ENR_DETAILCALCUL FROM F.DETAILCALCUL, W_Cle:W_PeriodeCours THEN
    				W_MontantPercu = ENR_DETAILCALCUL<21>/100
    				W_MontantPercu = W_MontantPercu"R2"
    				W_SommeLettre = ""
    				CALL SommeLettre(W_MontantPercu,W_GestEuro,W_SommeLettre)
    				W_MontantPercu = W_MontantPercu * 100
    				
    				*Priscilla 19.02.09
    				FOR x=1 TO DCOUNT(ENR_DETAILCALCUL<2>,CHAR(253))
    					READ ENR_RUBSAISIE FROM F.RUBSAISIE, ENR_DETAILCALCUL<2,x> THEN
    						W_LibRubDetCalcul<x>=ENR_RUBSAISIE<1>
    						W_MttRubDetCalcul<x>=ENR_DETAILCALCUL<5,x>
    					END
    				NEXT x
    				IF ENR_DETAILCALCUL<17> # "" THEN
    					FOR x=1 TO DCOUNT(ENR_DETAILCALCUL<17>,CHAR(253))
    				
    							READ ENR_RUBSAISIE FROM F.RUBSAISIE, ENR_DETAILCALCUL<17,x> THEN
    								W_LibRubDetCalculApresNET<x>=ENR_RUBSAISIE<1>
    								W_MttRubDetCalculApresNET<x>=ENR_DETAILCALCUL<20,x>
    							END
    						
    					NEXT x
    				END
    				*Fin PG
    			END
    
    			IF TRIM(ENR_CONTRAT<96>) # "" THEN
    				W_FinContrat = TRIM(ENR_CONTRAT<96>)
    			END ELSE
    				W_FinContrat = TRIM(ENR_CONTRAT<8>)
    			END
    			
    			IF W_FinContrat # "" THEN
    				W_FinContrat = OCONV(W_FinContrat,"D4/")
    			END
    			
    			
    			i = 0
    			LOOP
    			i = i + 1
    			WHILE ENR_CONTRAT<14,i> # ""
    				ENR_TEMPO<W_Ind,3,i> = ENR_CONTRAT<14,i>
    				ENR_TEMPO<W_Ind,4,i> = ENR_CONTRAT<15,i>
    				ENR_TEMPO<W_Ind,5,i> = ENR_CONTRAT<16,i>
    			REPEAT
    			ENR_TEMPO<W_Ind,1>= W_SecteurAidant
    			ENR_TEMPO<W_Ind,2>= W_SecteurAide
    			ENR_TEMPO<W_Ind,6> = W_NomPrenomAidant
    			ENR_TEMPO<W_Ind,7> = W_Adr1Aidant
    			ENR_TEMPO<W_Ind,8> = W_Adr2Aidant
    			ENR_TEMPO<W_Ind,9> = W_Adr3Aidant
    			ENR_TEMPO<W_Ind,10> = W_NirAidant
    			ENR_TEMPO<W_Ind,11> = W_SexeAidant
    			ENR_TEMPO<W_Ind,12> = W_NomPrenomAide
    			ENR_TEMPO<W_Ind,13> = W_Adr1Aide
    			ENR_TEMPO<W_Ind,14> = W_Adr2Aide
    			ENR_TEMPO<W_Ind,15> = W_Adr3Aide
    			ENR_TEMPO<W_Ind,16> = W_NomPrenomAdrFact
    			ENR_TEMPO<W_Ind,17> = W_AdrFact1
    			ENR_TEMPO<W_Ind,18> = W_AdrFact2
    			ENR_TEMPO<W_Ind,19> = W_AdrFact3
    			ENR_TEMPO<W_Ind,20> = W_MontantPercu
    			ENR_TEMPO<W_Ind,21> = W_SommeLettre
    			ENR_TEMPO<W_Ind,22> = W_FinContrat
    			ENR_TEMPO<W_Ind,23> = ENR_CONTRAT<1>
    			ENR_TEMPO<W_Ind,24> = W_Cle
    			ENR_TEMPO<W_Ind,25> = W_CommuneAide
    			ENR_TEMPO<W_Ind,26> = W_CommuneAdrFact
    			
    			*Priscilla 19.02.09
    			s = 0
    			LOOP
    				s=s+1
    			WHILE W_LibRubDetCalcul<s> # "" AND W_MttRubDetCalcul<s> # ""
    				ENR_TEMPO<W_Ind,27,s> = W_LibRubDetCalcul<s>
    				ENR_TEMPO<W_Ind,28,s> = W_MttRubDetCalcul<s>
    			REPEAT
    			
    			s = 0
    			LOOP
    				s=s+1
    			WHILE W_LibRubDetCalculApresNET<s> # "" AND W_MttRubDetCalculApresNET<s> # ""			
    				ENR_TEMPO<W_Ind,29,s> = W_LibRubDetCalculApresNET<s>
    				ENR_TEMPO<W_Ind,30,s> = W_MttRubDetCalculApresNET<s>
    			REPEAT
    			*FIN PG
    			    			
    			*Modif Clment DA10211 20/09/2010
    			IF W_Biaf = 1 AND ENR_CONTRAT<4> = "D" AND ENR_CONTRAT<49> = "31" AND ENR_CONTRAT<52> = "1" AND ENR_CONTRAT<13> = "" THEN
    				W_ParamsCumul = 'SELECT DETAILCALCUL AVEC @ID = "':W_Cle:']" PAR @ID'
    			    EXECUTE W_ParamsCumul
    				W_DetailCalCulCumul = ""
    				EXECUTE 'SAUVE-LISTE W_DetailCalCulCumul'
    				EXECUTE 'LISTE W_DetailCalCulCumul' RETURNING MSGCODE
    				
    				SELECT F.DETAILCALCUL TO W_DetailCalCulCumul
    				
    				W_FinCumul = "F" 
    				
    				ENR_TEMPO<W_Ind,31>  = OCONV(ENR_CONTRAT<7>,"D4/")
    				
    				ENR_TEMPO<W_Ind,32> = 0
    				ENR_TEMPO<W_Ind,33> = 0
    				LOOP
    					READNEXT W_CleCumul FROM W_DetailCalCulCumul ELSE W_FinCumul = "V"
    				WHILE W_FinCumul = "F"
    					READ ENR_DETAILCALCUL FROM F.DETAILCALCUL, W_CleCumul THEN
    						ENR_TEMPO<W_Ind,32> = ENR_TEMPO<W_Ind,32> + ENR_DETAILCALCUL<7> / 100
    						ENR_TEMPO<W_Ind,33> = ENR_TEMPO<W_Ind,33> + ENR_DETAILCALCUL<6> / 100
    						
    						FOR iCumul = 1 TO DCOUNT(ENR_DETAILCALCUL<2>,CHAR(253))
    							IF ENR_DETAILCALCUL<2,iCumul> = "809" THEN
    								ENR_TEMPO<W_Ind,34> = ENR_DETAILCALCUL<5,iCumul> / 100
    							END
    						NEXT iCumul
    					END
    				REPEAT
    			END

    			ENR_CONTRAT<67> = "O"
    			*WRITE ENR_CONTRAT ON F.CONTRAT, W_Cle
    
    		END
    	END
    	* Modif Guillaume DA10173 16/09/2010
    	ENR_CONTRAT<95> = "O"
    	WRITE ENR_CONTRAT ON F.CONTRAT, W_Cle
	END
	W_LibRubDetCalcul = ""
	W_MttRubDetCalcul = ""
	W_LibRubDetCalculApresNET = ""
	W_MttRubDetCalculApresNET = ""
REPEAT

RETURN

110
*************************
*     Infos Aidant	*
*************************
W_SecteurAidant = ENR_CIVILAIDANT<31>
i=0
LOOP
i = i + 1
WHILE ENR_TITRES<2,i> # ENR_CIVILAIDANT<1> AND ENR_TITRES<2,i> # ""
REPEAT
IF ENR_TITRES<2,i> # "" THEN
	ENR_CIVILAIDANT<1> = ICONV(ENR_TITRES<3,i>,"MCU")
END
W_NomPrenomAidant = TRIM(ENR_CIVILAIDANT<1>:" ":ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>)
i=0
LOOP
i = i + 1
WHILE ENR_NATUREVOIE<2,i> # ENR_CIVILAIDANT<7> AND ENR_NATUREVOIE<2,i> # ""
REPEAT
IF ENR_NATUREVOIE<2,i> # "" THEN
	ENR_CIVILAIDANT<7> = ICONV(ENR_NATUREVOIE<3,i>,"MCU")
END
W_Adr1Aidant = TRIM(ENR_CIVILAIDANT<5>:" ":ENR_CIVILAIDANT<6>:" ":ENR_CIVILAIDANT<7>:" ":ENR_CIVILAIDANT<8>)
W_Adr2Aidant = TRIM(ENR_CIVILAIDANT<9>)
W_Adr3Aidant = TRIM(ENR_CIVILAIDANT<10>:" ":ENR_CIVILAIDANT<11>)
IF W_Adr1Aidant = "" THEN
	W_Adr1Aidant = W_Adr2Aidant
	W_Adr2Aidant = W_Adr3Aidant
	W_Adr3Aidant = ""
END
IF W_Adr2Aidant = "" THEN
	W_Adr2Aidant = W_Adr3Aidant
	W_Adr3Aidant = ""
END
W_NirAidant = ENR_CIVILAIDANT<17>:" - ":ENR_CIVILAIDANT<18>
W_SexeAidant = ENR_CIVILAIDANT<16>
RETURN

120
*************************************
* Infos mANDataire			*
*************************************
READ ENR_CIVILAIDE FROM F.CIVILAIDE, ENR_CONTRAT<3> THEN
	
	i=0
	LOOP
	i = i + 1
	WHILE ENR_TITRES<2,i> # ENR_CIVILAIDE<1> AND ENR_TITRES<2,i> # ""
	REPEAT
	IF ENR_TITRES<2,i> # "" THEN
		ENR_CIVILAIDE<1> = ICONV(ENR_TITRES<3,i>,"MCU")
	END

	W_NomPrenomAide = TRIM(ENR_CIVILAIDE<1>:" ":ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>)

	i=0
	LOOP
	i = i + 1
	WHILE ENR_NATUREVOIE<2,i> # ENR_CIVILAIDE<7> AND ENR_NATUREVOIE<2,i> # ""
	REPEAT
	IF ENR_NATUREVOIE<2,i> # "" THEN
		ENR_CIVILAIDE<7> = ICONV(ENR_NATUREVOIE<3,i>,"MCU")
	END
	W_Adr1Aide = TRIM(ENR_CIVILAIDE<5>:" ":ENR_CIVILAIDE<6>:" ":ENR_CIVILAIDE<7>:" ":ENR_CIVILAIDE<8>)
	W_Adr2Aide = TRIM(ENR_CIVILAIDE<9>)
	W_Adr3Aide = TRIM(ENR_CIVILAIDE<10>:" ":ENR_CIVILAIDE<11>)
	W_CommuneAide = TRIM(ENR_CIVILAIDE<11>)
	IF W_Adr1Aide = "" THEN
		W_Adr1Aide = W_Adr2Aide
		W_Adr2Aide = W_Adr3Aide
		W_Adr3Aide = ""
	END
	IF W_Adr2Aide = "" THEN
		W_Adr2Aide = W_Adr3Aide
		W_Adr3Aide = ""
	END
	W_SecteurAide = TRIM(ENR_CIVILAIDE<40>)[1,3]

END 
READ ENR_ELTSFACTAIDE FROM F.ELTSFACTAIDE, ENR_CONTRAT<3> THEN
	W_NomPrenomAdrFact = TRIM(ENR_ELTSFACTAIDE<2>)
	IF W_NomPrenomAdrFact # "" THEN
		i=0
		LOOP
		i = i + 1
		WHILE ENR_NATUREVOIE<2,i> # ENR_ELTSFACTAIDE<5> AND ENR_NATUREVOIE<2,i> # ""
		REPEAT
		IF ENR_NATUREVOIE<2,i> # "" THEN
			ENR_ELTSFACTAIDE<5> = ICONV(ENR_NATUREVOIE<3,i>,"MCU")
		END

		W_AdrFact1 = TRIM(ENR_ELTSFACTAIDE<3>:" ":ENR_ELTSFACTAIDE<4>:" ":ENR_ELTSFACTAIDE<5>:" ":ENR_ELTSFACTAIDE<6>)
		W_AdrFact2 = TRIM(ENR_ELTSFACTAIDE<7>)
		W_AdrFact3 = TRIM(ENR_ELTSFACTAIDE<8>:" ":ENR_ELTSFACTAIDE<9>)
		IF W_AdrFact1 = "" THEN
			W_AdrFact1 = W_AdrFact2
			W_AdrFact2 = W_AdrFact3
			W_AdrFact3 = ""
		END
		IF W_AdrFact2 = "" THEN
			W_AdrFact2 = W_AdrFact3
			W_AdrFact3 = ""
		END
		W_CommuneAdrFact = ENR_ELTSFACTAIDE<9>
	END

END ELSE

	W_NomPrenomAdrFact = ""
	W_AdrFact1 = ""
	W_AdrFact2 = ""
	W_AdrFact3 = ""
	W_CommuneAdrFact=""

END
RETURN
