***********************************************************
*  EDITION DES AIDES AVEC LEUR TITULAIRE ET LEUR REMPLACANTE S'IL Y EN A 
*  CELINE
*  OCTOBRE 2001
**********************************************************

* Ouvertures des fichiers

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","TPSDETAILINTERV" TO F.TPSDETAILINTERV ELSE PRINT "OUVERTURE TPSDETAILINTERV" ;* en lecture
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE PRINT "OUVERTURE CIVILAIDE" ;* en lecture
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE PRINT "OUVERTURE CIVILAIDANT" ;* en lecture
OPEN "","CONTRAT" TO F.CONTRAT ELSE PRINT "OUVERTURE CONTRAT" ;* en lecture
OPEN "","ABSENCESAIDANT" TO F.ABSENCESAIDANT ELSE PRINT "OUVERTURE ABSENCESAIDANT" ;* en lecture
OPEN "","ACTIVITESAIDE" TO F.ACTIVITESAIDE ELSE PRINT "OUVERTURE ACTIVITESAIDE" ;* en lecture
OPEN "","ACTIVITES" TO F.ACTIVITES ELSE PRINT "OUVERTURE ACTIVITES" ;* en lecture
OPEN "","TABLES" TO F.TABLES ELSE PRINT "OUVERTURE TABLES" ;*en lecture
OPEN "","TEMPO" TO F.TEMPO ELSE PRINT "OUVERTURE TEMPO" ;* en lecture
*********************************************************
* initialisation des variables

W_DATEDEB=""
W_DATEFIN=""
W_NOMPRENOMAIDANT=""
W_NOMPRENOMAIDE=""
W_NOMPRENOMREMPL=""

*********************************************************
* Recuperation des arguments
*********************************************************
PROCREAD ARGUMENTS ELSE STOP
W_EDIT=FIELD(ARGUMENTS," ",2)
W_ASSOC=FIELD(ARGUMENTS," ",3)
W_TYPABS=FIELD(ARGUMENTS," ",4)
W_DEBPERIODE=FIELD(ARGUMENTS," ",5)
W_FINPERIODE=FIELD(ARGUMENTS," ",6)

IF W_EDIT = "T" THEN
   W_TYPSELECT=FIELD(ARGUMENTS," ",7)
   W_SELECT=FIELD(ARGUMENTS," ",8)
END ELSE
   W_CODEAIDANT=FIELD(ARGUMENTS," ",7)
END

*PRINT "W_EDIT :":W_EDIT
*PRINT "W_ASSOC :":W_ASSOC
*PRINT "W_TYPABS :":W_TYPABS
*PRINT "W_DEBPERIODE :":W_DEBPERIODE
*PRINT "W_FINPERIODE :":W_FINPERIODE
*DEBUG
*********************************************************
* PROGRAMME PRINCIPAL
*********************************************************
   READ ENR_TEMPO FROM F.TEMPO,"EDITREMPLAIDE" ELSE ENR_TEMPO=""	
  IF W_EDIT="T" THEN
	IF W_TYPABS="A" THEN
		W_TEMP='SSELECT ABSENCESAIDANT AVEC DebAbsAidant <= "':W_FINPERIODE:'" AND AVEC 2 >= "':W_DEBPERIODE:'" OR = "" AND AVEC NumMotifAidant <> "':"018":'" AND <> "':"019":'" AND <> "':"020":'" AND <> "':"021":'"'
		IF W_TYPSELECT="S" THEN
			IF W_SELECT <> "" THEN
				W_TEMP=W_TEMP:' AND AVEC CodeSectAbs = "':W_SELECT:'" PAR CodeAidant'
			END ELSE
				W_TEMP=W_TEMP:' PAR CodeAidant'
			END
		END ELSE
			IF W_TYPSELECT="C" THEN
				IF W_SELECT <> "" THEN
					W_TEMP=W_TEMP:' AND AVEC CommuneAbsAidant = "':W_SELECT:'" PAR CodeAidant'
				END ELSE
					W_TEMP=W_TEMP:' PAR CodeAidant'
				END
			END
		END
	END ELSE
		IF W_TYPABS="D" THEN
			W_TEMP='SSELECT ABSENCESAIDANT AVEC DebAbsAidant <= "':W_FINPERIODE:'" AND AVEC DebAbsAidant >= "':W_DEBPERIODE:'" AND AVEC NumMotifAidant <> "':"018":'" AND <> "':"019":'" AND <> "':"020":'" AND <> "':"021":'"'
			IF W_TYPSELECT="S" THEN
				IF W_SELECT <> "" THEN
					W_TEMP=W_TEMP:' AND AVEC CodeSectAbs = "':W_SELECT:'" PAR CodeAidant'
				END ELSE
					W_TEMP=W_TEMP:' PAR CodeAidant'
				END
			END ELSE
				IF W_TYPSELECT="C" THEN
					IF W_SELECT <> "" THEN
						W_TEMP=W_TEMP:' AND AVEC CommuneAbsAidant = "':W_SELECT:'" PAR CodeAidant'
					END ELSE
						W_TEMP=W_TEMP:' PAR CodeAidant'
					END
				END
			END
		END ELSE
			W_TEMP='SSELECT ABSENCESAIDANT AVEC 2 <= "':W_FINPERIODE:'" AND AVEC 2 >= "':W_DEBPERIODE:'" OR = "" AND AVEC NumMotifAidant <> "':"018":'" AND <> "':"019":'" AND <> "':"020":'" AND <> "':"021":'"'
			IF W_TYPSELECT="S" THEN
				IF W_SELECT <> "" THEN
					W_TEMP=W_TEMP:' AND AVEC CodeSectAbs = "':W_SELECT:'" PAR CodeAidant'
				END ELSE
					W_TEMP=W_TEMP:' PAR CodeAidant'
				END
			END ELSE
				IF W_TYPSELECT="C" THEN
					IF W_SELECT <> "" THEN
						W_TEMP=W_TEMP:' AND AVEC CommuneAbsAidant = "':W_SELECT:'" PAR CodeAidant'
					END ELSE
						W_TEMP=W_TEMP:' PAR CodeAidant'
					END
				END
			END
		END
	END

  END ELSE
		IF W_TYPABS="A" THEN
			W_TEMP='SSELECT ABSENCESAIDANT AVEC CodeAidant = "':W_CODEAIDANT:'" AND AVEC DebAbsAidant <= "':W_FINPERIODE:'" AND AVEC 2 >= "':W_DEBPERIODE:'" OR = "" AND AVEC NumMotifAidant <> "':"018":'" AND <> "':"019":'" AND <> "':"020":'" AND <> "':"021":'"'
		END ELSE
			IF W_TYPABS="D" THEN
				W_TEMP='SSELECT ABSENCESAIDANT AVEC CodeAidant = "':W_CODEAIDANT:'" AND AVEC DebAbsAidant <= "':W_FINPERIODE:'" AND AVEC DebAbsAidant >= "':W_DEBPERIODE:'" AND AVEC NumMotifAidant <> "':"018":'" AND <> "':"019":'" AND <> "':"020":'" AND <> "':"021":'"'
			END ELSE
				W_TEMP='SSELECT ABSENCESAIDANT AVEC CodeAidant = "':W_CODEAIDANT:'" AND AVEC 2 <= "':W_FINPERIODE:'" AND AVEC 2 >= "':W_DEBPERIODE:'" AND AVEC NumMotifAidant <> "':"018":'" AND <> "':"019":'" AND <> "':"020":'" AND <> "':"021":'"'
			END
		END
		W_TEMP=W_TEMP:' PAR CodeAidant'
  END
      GOSUB 100

STOP

*************************************************************************
* EXECUTION DE LA EQUETE
*************************************************************************
100

*PRINT "w_temp :":W_TEMP
*DEBUG
   EXECUTE W_TEMP
   EXECUTE 'SAUVE-LISTE W_RequeteAbs'
   EXECUTE "LISTE W_RequeteAbs" RETURNING MSGCODE

   IF MSGCODE<1>=209 THEN
      RETURN
   END ELSE

      SELECT F.ABSENCESAIDANT TO W_RequeteAbs

	W_End="FAUX"
	W_AIDANTPREC=W_CLEABS[1,5]

*PRINT "W_AIDANTPREC :":W_AIDANTPREC
*DEBUG

      LOOP
         READNEXT W_CLEABS FROM W_RequeteAbs ELSE W_End = "VRAI"
	WHILE W_End = "FAUX" DO

*PRINT "W_CLE :":W_CLEABS
*DEBUG
		READ ENR_ABSENCESAIDANT FROM F.ABSENCESAIDANT,W_CLEABS ELSE ENR_ABSENCESAIDANT=""

		 GOSUB 110

	REPEAT
	WRITE ENR_TEMPO ON F.TEMPO,"EDITREMPLAIDE"
    END

RETURN

*****************************************************************************
* RECHERCHE DES INTERVENTIONS DE L'AIDANT SUR LA PERIODE OU DES REMPLACEMENTS
*****************************************************************************
110

	IF W_DEBPERIODE > W_CLEABS[8,6] THEN
		W_DATEDEB=W_DEBPERIODE
	END ELSE
		W_DATEDEB=W_CLEABS[8,6]
	END

	IF ENR_ABSENCESAIDANT<2> <> "" THEN
		IF W_FINPERIODE > ENR_ABSENCESAIDANT<2> THEN
			W_DATEFIN=ENR_ABSENCESAIDANT<2>
		END ELSE	
			W_DATEFIN=W_FINPERIODE
		END
	END ELSE
		W_DATEFIN=W_FINPERIODE
	END

*PRINT "W_DATEDEB :":W_DATEDEB
*PRINT "W_DATEfin :":W_DATEFIN
*DEBUG

*PRINT "w_cleabs :":W_CLEABS
*PRINT "W_DEBPERIODE :":W_DEBPERIODE
*DEBUG
	 W_TempInterv='SSELECT TPSDETAILINTERV AVEC CodeAidant = "':W_CLEABS[1,5]:'" AND AVEC 1 >= "':INT(W_DEBPERIODE):'" OR = "" OR AVEC 12 = "':W_CLEABS:'" AND AVEC 1 >= "':INT(W_DEBPERIODE):'" OR = ""'	
	 W_TempInterv=W_TempInterv:' PAR CodeAide PAR 12 '
*PRINT "W_TempInterv : ":W_TempInterv
*DEBUG
   	 EXECUTE W_TempInterv
   	 EXECUTE 'SAUVE-LISTE W_RequeteInterv'
   	 EXECUTE "LISTE W_RequeteInterv" RETURNING MSGCODE
   	 IF MSGCODE<1>=209 THEN
		RETURN
    	 END ELSE
	      	 SELECT F.TPSDETAILINTERV TO W_RequeteInterv

	      	 W_EndBis="FAUX"
     		 LOOP
         		READNEXT W_CleInterv FROM W_RequeteInterv ELSE W_EndBis = "VRAI"
	      	 WHILE W_EndBis = "FAUX" DO

*PRINT "W_CleInterv :":W_CleInterv
*DEBUG
			READ ENR_TPSDETAILINTERV FROM F.TPSDETAILINTERV,W_CleInterv ELSE ENR_TPSDETAILINTERV=""			
			GOSUB 120
		 REPEAT
	 END
RETURN

****************************************************
* REMPLIR FICHIER TEMPO
****************************************************
120

	W_AideId="FALSE"	
	W_Rempli="FALSE"

	
*PRINT "ENR_TEMPO :":ENR_TEMPO
*DEBUG
	IF ENR_TEMPO <> "" THEN	
		W_COUNT=DCOUNT(ENR_TEMPO,CHAR(254))
		FOR I=1 TO W_COUNT
			IF ENR_TEMPO<I,1>=W_CleInterv[1,5] THEN
				IF ENR_TEMPO<I,22>=W_DATEDEB AND ENR_TEMPO<I,23>=W_DATEFIN THEN
					W_COUNTAIDE=DCOUNT(ENR_TEMPO<I,2>,CHAR(252))
					FOR IAIDE=1 TO W_COUNTAIDE
						IF ENR_TEMPO<I,6>=W_CleInterv[6,5] THEN
							W_AideId="TRUE"
							EXIT
						END ELSE
							IF I=W_COUNT THEN
								IF ENR_TPSDETAILINTERV<12><>"" THEN
									GOSUB 130
									W_Rempli="TRUE"
								END ELSE
									GOSUB 140
									W_Rempli="TRUE"
								END														
							END
						END
					NEXT IAIDE
					IF W_AideId="TRUE" THEN
						EXIT 
					END
				END ELSE
					IF I=W_COUNT THEN
						IF ENR_TPSDETAILINTERV<12><>"" THEN
							GOSUB 130
							W_Rempli="TRUE"
						END ELSE
							GOSUB 140
							W_Rempli="TRUE"
						END						
					END
				END	
			END
			IF I=W_COUNT AND W_Rempli="FALSE" THEN
				IF ENR_TPSDETAILINTERV<12><>"" THEN
					GOSUB 130
					W_Rempli="TRUE"
				END ELSE
					GOSUB 140
					W_Rempli="TRUE"
				END	
			END
			IF W_Rempli="TRUE" THEN
				EXIT 
			END
		NEXT I
	END ELSE
		I=0
		IF ENR_TPSDETAILINTERV<12><>"" THEN
			GOSUB 130
			W_Rempli="TRUE"
		END ELSE
			GOSUB 140
			W_Rempli="TRUE"
		END
	END

RETURN
***********************************************************************
*REMPLIR TEMPO POUR REMPLACANTE
***********************************************************************
130
*PRINT "i130 :":I
*PRINT "enr_tpsdetailinterv<12> :":ENR_TPSDETAILINTERV<12>[1,5]
*DEBUG
	ENR_TEMPO<I+1>=ENR_TPSDETAILINTERV<12>[1,5]
	READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,ENR_TPSDETAILINTERV<12>[1,5] ELSE ENR_CIVILAIDANT=""
	W_NOMPRENOMAIDANT=ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>
	ENR_TEMPO<I+1,2>=W_NOMPRENOMAIDANT[1,35]	
	TabForme=ENR_CIVILAIDANT
	IndForme=5
	GOSUB 200
	W_Adresse=MiseEnFormeAdresse1
	IF W_Adresse # "" THEN
		ENR_TEMPO<I+1,3>=W_Adresse[1,25]
	END ELSE
		IF ENR_CIVILAIDANT<9> # "" THEN
			W_ComplAdrAidant=ENR_CIVILAIDANT<9>
			ENR_TEMPO<I+1,3>=W_ComplAdrAidant[1,25]
		END
	END
	W_CodPosAidant=ENR_CIVILAIDANT<10>
	W_VILLEAIDANT=ENR_CIVILAIDANT<11>
	ENR_TEMPO<I+1,4>=W_CodPosAidant:" ":W_VILLEAIDANT[1,25]
	ENR_TEMPO<I+1,5>=ENR_CIVILAIDANT<12>
	ENR_TEMPO<I+1,6>=W_CleInterv[6,5]
	READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_CleInterv[6,5] ELSE ENR_CIVILAIDE=""
	W_NOMPRENOMAIDE=ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
	ENR_TEMPO<I+1,7>=W_NOMPRENOMAIDE[1,35]	
	TabForme=ENR_CIVILAIDE
	IndForme=5
	GOSUB 200
	W_Adresse=MiseEnFormeAdresse1
	IF W_Adresse # "" THEN
		ENR_TEMPO<I+1,8>=W_Adresse[1,25]
	END ELSE
		IF ENR_CIVILAIDE<9> # "" THEN
			W_ComplAdrAide=ENR_CIVILAIDE<9>
			ENR_TEMPO<I+1,8>=W_ComplAdrAide[1,25]
		END
	END
	W_CodPosAide=ENR_CIVILAIDE<10>
	W_VILLEAIDE=ENR_CIVILAIDE<11>
	ENR_TEMPO<I+1,9>=W_CodPosAide:" ":W_VILLEAIDE[1,25]
	ENR_TEMPO<I+1,10>=ENR_CIVILAIDE<14>
	ENR_TEMPO<I+1,11>=W_CleInterv[1,5]
	READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_CleInterv[1,5] ELSE ENR_CIVILAIDANT=""
	W_NOMPRENOMREMPL=ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>
	ENR_TEMPO<I+1,12>=W_NOMPRENOMREMPL[1,35]
	TabForme=ENR_CIVILAIDANT
	IndForme=5
	GOSUB 200
	W_Adresse=MiseEnFormeAdresse1
	IF W_Adresse # "" THEN
		ENR_TEMPO<I+1,13>=W_Adresse[1,25]
	END ELSE
		IF ENR_CIVILAIDANT<9> # "" THEN
			W_ComplAdrRempl=ENR_CIVILAIDANT<9>
			ENR_TEMPO<I+1,13>=W_ComplAdrRempl[1,25]
		END
	END
	W_CodPosRempl=ENR_CIVILAIDANT<10>
	W_VILLEREMPL=ENR_CIVILAIDANT<11>
	ENR_TEMPO<I+1,14>=W_CodPosRempl:" ":W_VILLEREMPL[1,25]
	ENR_TEMPO<I+1,15>=ENR_CIVILAIDANT<12>
	W_CountIntRempl=DCOUNT(ENR_TPSDETAILINTERV<2>,CHAR(253))
	FOR ICountIntRempl=1 TO W_CountIntRempl
		ENR_TEMPO<I+1,16,ICountIntRempl>=ENR_TPSDETAILINTERV<2,ICountIntRempl>
		ENR_TEMPO<I+1,17,ICountIntRempl>=ENR_TPSDETAILINTERV<3,ICountIntRempl>
		ENR_TEMPO<I+1,18,ICountIntRempl>=ENR_TPSDETAILINTERV<4,ICountIntRempl>
		ENR_TEMPO<I+1,19,ICountIntRempl>=ENR_TPSDETAILINTERV<5,ICountIntRempl>
		ENR_TEMPO<I+1,20,ICountIntRempl>=W_CleInterv[11,5]
		IF ENR_TPSDETAILINTERV<1> <> "" THEN
			ENR_TEMPO<I+1,21,ICountIntRempl>=ENR_TPSDETAILINTERV<1>
		END ELSE
			ENR_TEMPO<I+1,21,ICountIntRempl>=""
		END
	NEXT ICountIntRempl
	ENR_TEMPO<I+1,22>=W_CLEABS[8,6]
	ENR_TEMPO<I+1,23>=ENR_ABSENCESAIDANT<2>
	READ ENR_TABLES FROM F.TABLES,"ABSENCES" ELSE ENR_TABLES=""
	W_CountMotifAbs=DCOUNT(ENR_TABLES<2>,CHAR(253))
	FOR IMotifAbs=1 TO W_CountMotifAbs
		IF ENR_TABLES<2,IMotifAbs>=W_CLEABS[6,2] THEN
			ENR_TEMPO<I+1,24>=ENR_TABLES<3,IMotifAbs>			
		END
	NEXT IMotifAbs
RETURN

**********************************************************************
*REMPLIR TEMPO POUR TITULAIRE
***********************************************************************
140

*PRINT "i140 :":I
*DEBUG
	ENR_TEMPO<I+1>=W_CleInterv[1,5]
	READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_CleInterv[1,5] ELSE ENR_CIVILAIDANT=""
	W_NOMPRENOMAIDANT=ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>
	ENR_TEMPO<I+1,2>=W_NOMPRENOMAIDANT[1,35]	
	TabForme=ENR_CIVILAIDANT
	IndForme=5
	GOSUB 200
	W_Adresse=MiseEnFormeAdresse1
	IF W_Adresse # "" THEN
		ENR_TEMPO<I+1,3>=W_Adresse[1,25]
	END ELSE
		IF ENR_CIVILAIDANT<9> # "" THEN
			W_ComplAdrAidant=ENR_CIVILAIDANT<9>
			ENR_TEMPO<I+1,3>=W_ComplAdrAidant[1,25]
		END
	END
	W_CodPosAidant=ENR_CIVILAIDANT<10>
	W_VILLEAIDANT=ENR_CIVILAIDANT<11>
	ENR_TEMPO<I+1,4>=W_CodPosAidant:" ":W_VILLEAIDANT[1,25]
	ENR_TEMPO<I+1,5>=ENR_CIVILAIDANT<12>	
	ENR_TEMPO<I+1,6>=W_CleInterv[6,5]
	READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_CleInterv[6,5] ELSE ENR_CIVILAIDE=""
	W_NOMPRENOMAIDE=ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
	ENR_TEMPO<I+1,7>=W_NOMPRENOMAIDE[1,35]	
	TabForme=ENR_CIVILAIDE
	IndForme=5
	GOSUB 200
	W_Adresse=MiseEnFormeAdresse1
	IF W_Adresse # "" THEN
		ENR_TEMPO<I+1,8>=W_Adresse[1,25]
	END ELSE
		IF ENR_CIVILAIDE<9> # "" THEN
			W_ComplAdrAide=ENR_CIVILAIDE<9>
			ENR_TEMPO<I+1,8>=W_ComplAdrAide[1,25]
		END
	END
	W_CodPosAide=ENR_CIVILAIDE<10>
	W_VILLEAIDE=ENR_CIVILAIDE<11>
	ENR_TEMPO<I+1,9>=W_CodPosAide:" ":W_VILLEAIDE[1,25]
	ENR_TEMPO<I+1,10>=ENR_CIVILAIDE<14>
	ENR_TEMPO<I+1,11>=""			
	ENR_TEMPO<I+1,12>=""
	ENR_TEMPO<I+1,13>=""
	ENR_TEMPO<I+1,14>=""
	ENR_TEMPO<I+1,15>=""
	W_CountIntAide=DCOUNT(ENR_TPSDETAILINTERV<2>,CHAR(253))
	FOR ICountIntAide=1 TO W_CountIntAide
		ENR_TEMPO<I+1,16,ICountIntAide>=ENR_TPSDETAILINTERV<2,ICountIntAide>
		ENR_TEMPO<I+1,17,ICountIntAide>=ENR_TPSDETAILINTERV<3,ICountIntAide>
		ENR_TEMPO<I+1,18,ICountIntAide>=ENR_TPSDETAILINTERV<4,ICountIntAide>
		ENR_TEMPO<I+1,19,ICountIntAide>=ENR_TPSDETAILINTERV<5,ICountIntAide>
		ENR_TEMPO<I+1,20,ICountIntAide>=W_CleInterv[11,5]
		IF ENR_TPSDETAILINTERV<1> <> "" THEN
			ENR_TEMPO<I+1,21,ICountIntAide>=ENR_TPSDETAILINTERV<1>
		END ELSE
			ENR_TEMPO<I+1,21,ICountIntAide>=""
		END
	NEXT ICountIntRempl
	ENR_TEMPO<I+1,22>=W_CLEABS[8,6]
	ENR_TEMPO<I+1,23>=ENR_ABSENCESAIDANT<2>
	READ ENR_TABLES FROM F.TABLES,"ABSENCES" ELSE ENR_TABLES=""
	W_CountMotifAbs=DCOUNT(ENR_TABLES<2>,CHAR(253))
	FOR IMotifAbs=1 TO W_CountMotifAbs
		IF ENR_TABLES<2,IMotifAbs>=W_CLEABS[6,2] THEN
			ENR_TEMPO<I+1,24>=ENR_TABLES<3,IMotifAbs>			
		END
	NEXT IMotifAbs
RETURN
***********************************************************
*MISE EN FORME DE L'ADRESSE
**********************************************************
200

	MiseEnFormeAdresse1 = ""

    	IF TabForme<IndForme> # "" THEN
        	MiseEnFormeAdresse1 = TabForme<IndForme>:SPACE(1)
    	END
    
    	IF TabForme<IndForme + 1> # "" THEN
        	MiseEnFormeAdresse1 = MiseEnFormeAdresse1:TabForme<IndForme + 1>:SPACE(1)
   	END
    
    	IF TabForme<IndForme + 2> # "" THEN
        	MiseEnFormeAdresse1 = MiseEnFormeAdresse1:TabForme<IndForme + 2>:SPACE(1)
    	END
    
    	IF TabForme<IndForme + 3> # "" THEN
        	MiseEnFormeAdresse1 = MiseEnFormeAdresse1:TabForme<IndForme + 3>
    	END

RETURN
