**********************************************************
*  Programme chaine  partir d'un projet VB
*  Etat avancement de la paie
*  Vanessa
*  Juillet 2000
*  OCTOBRE 2000          MODIF POUR DETAILPREST PRODUCTION PAR RAPPORT AUX MOD (SUB 30)
*  NOVEMBRE 2000         BUG EN EDITION SANS SAISIE UNIQUEMENT(PASSAGE PARAMETRES AVEC | AU LIEU DE ESPACE)
*                        PB SI RIEN DE CREER DANS LE FICHIER (FIN DU PROGRAMME PRINCIPAL)
*                        CAS PAYE APPARAISSANT EN SANS SAISIE, RAJOUT DU TEST SUR DETAILCALCUL AU LIEU DE METTRE DIRECTEMENT SANS SAISIE (SUB 10,20,30)
*  NOVEMBRE 2000         CAS SANS DETAILCALCUL DONC SANS SAISIE ALORS QUE PEUT-ETRE CLOTURE DANS CONTRAT (SUB 40)
*
*  STEPHANE
*  OCTOBRE 2001          REECRITURE COMPLETE DE LA GESTION INTERMEDIAIRE   
**********************************************************

* Ouvertures des fichiers

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTRAT" TO F.CONTRAT ELSE PRINT "OUVERTURE CONTRAT" ;* en lecture
OPEN "","TEMPO" TO F.TEMPO ELSE PRINT "OUVERTURE TEMPO" ;* en criture
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE PRINT "OUVERTURE DETAILCALCUL" ;* en lecture
OPEN "","ASSOCIATION" TO F.ASSOCIATION ELSE PRINT "OUVERTURE ASSOCIATION" ;* en lecture
OPEN "","ACTIVITES" TO F.ACTIVITES ELSE PRINT "OUVERTURE ACTIVITES" ;* en lecture
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE PRINT "OUVERTURE CIVILAIDANT" ;* en lecture
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE PRINT "OUVERTURE CIVILAIDE" ;* en lecture
OPEN "","SECTEUR" TO F.SECTEUR ELSE PRINT "OUVERTURE SECTEUR" ;* en lecture
OPEN "","DETAILADMIN" TO F.DETAILADMIN ELSE PRINT "OUVERTURE DETAILADMIN" ;* en lecture
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE PRINT "OUVERTURE DETAILCALCUL" ;* en lecture
OPEN "","DETAILMANDAT" TO F.DETAILMANDAT ELSE PRINT "OUVERTURE DETAILMANDAT" ;* en lecture
OPEN "","MISSIONSAIDANT" TO F.MISSIONSAIDANT ELSE PRINT "OUVERTURE MISSIONSAIDANT" ;* en lecture
OPEN "","DETAILINTER" TO F.DETAILINTER ELSE PRINT "OUVERTURE DETAILINTER" ;* en lecture
OPEN "","DETAILPREST" TO F.DETAILPREST ELSE PRINT "OUVERTURE DETAILPREST" ;* en lecture
*********************************************************
* initialisation des variables

ENR_TEMPO=""
W_TEMP2=""
l=1
W_AncienSecteur=""
W_RequeteEtatAvancPaie=""
W_VarEtat=""
*********************************************************
*  Rcupration des arguments

PROCREAD ARGUMENTS ELSE STOP
W_User=FIELD(ARGUMENTS,"|",2)
W_Periode=FIELD(ARGUMENTS,"|",3)
W_Entite=FIELD(ARGUMENTS,"|",4)
W_Act=FIELD(ARGUMENTS,"|",5)
W_Secteur=FIELD(ARGUMENTS,"|",6)
W_Etat=FIELD(ARGUMENTS,"|",7)
W_Convention=FIELD(ARGUMENTS,"|",8)
W_Visu=FIELD(ARGUMENTS,"|",9)
*********************************************************
*  PROGRAMME PRINCIPAL

   W_DebutPer=ICONV("01/":W_Periode[5,2]:"/":W_Periode[1,4],"D4/")
   W_FinPer=W_Periode
   W_FinPer=W_FinPer+1
   IF W_FinPer[5,2]="13" THEN
      W_FinPer=W_FinPer[1,4]+1:"01"
   END
   W_FinPer=ICONV("01/":W_FinPer[5,2]:"/":W_FinPer[1,4],"D4/")-1

   W_Temp='SSELECT CONTRAT AVEC 7 <= "':W_FinPer:'"'
   W_Temp=W_Temp:' AND AVEC 8 >= "':W_DebutPer:'" OR = ""'
   W_Temp=W_Temp:' AND AVEC 2 = "':W_Entite:'"'

   * Activits
   BEGIN CASE
      CASE W_Act="P" 
         W_Temp=W_Temp:' AND AVEC 1 # "02" AND AVEC TypeActivite = "P" OR ="M"'
      CASE W_Act="M"
         W_Temp=W_Temp:' AND AVEC TypeActivite = "M"'
         W_Temp=W_Temp:' AND AVEC 1 = "02"'
      CASE W_Act="I"
         W_Temp=W_Temp:' AND AVEC TypeActivite = "I"'
      CASE W_Act="S"
         W_Temp=W_Temp:' AND AVEC TypeActivite = "S"'
   END CASE

   W_Temp=W_Temp:' AND AVEC 65 # "O"'

   W_CountSect = LEN(W_Secteur)
   IF W_Secteur<>"" THEN
      IF W_Act="M" AND (W_Convention="Vrai" OR W_Convention="True") THEN
         W_Temp = W_Temp:' AND AVEC CodSecteurContratAide = "':W_Secteur[1,3]:'"'
      END ELSE
         W_Temp = W_Temp:' AND AVEC CodSecteurContrat = "':W_Secteur[1,3]:'"'
      END
      IF W_CountSect > 2 THEN
         i=5
         LOOP 
         UNTIL i >= W_CountSect DO
            W_Temp = W_Temp:' OR = "':W_Secteur[i,3]:'"'
            i=i+4
         REPEAT
      END
   END
   IF W_Act="M" AND (W_Convention="Vrai" OR W_Convention="True") THEN
      W_Temp = W_Temp:' PAR LibSecteurEmployeur PAR NomAidantContrat PAR PrenomAidantContrat PAR CodeAidant PAR 7'
   END ELSE
      W_Temp = W_Temp:' PAR LibSecteurContrat PAR NomAidantContrat PAR PrenomAidantContrat PAR CodeAidant PAR 7'
   END

   EXECUTE W_Temp
   EXECUTE 'SAUVE-LISTE W_RequeteEtatAvancPaie'
   EXECUTE "LISTE W_RequeteEtatAvancPaie" RETURNING MSGCODE

   IF MSGCODE<1>=209 THEN
      STOP
   END ELSE
      SELECT F.CONTRAT TO W_RequeteEtatAvancPaie

      W_End="FAUX"
      i=1
     
      LOOP
         READNEXT W_Cle FROM W_RequeteEtatAvancPaie ELSE W_End = "VRAI"
      WHILE W_End = "FAUX" DO
         READ ENR_CONTRAT FROM F.CONTRAT,W_Cle ELSE ENR_CONTRAT=""

         W_NbActiv=DCOUNT(ENR_CONTRAT<36>,CHAR(253))
     
         * boucle de parcours des activits
         FOR j=1 TO W_NbActiv
            * slection activits
            READ ENR_ACTIVITES FROM F.ACTIVITES,ENR_CONTRAT<36,j> ELSE ENR_ACTIVITES=""
            * si activit correspond  une activit slectionne
            IF ENR_ACTIVITES<12>=W_Act OR (W_Act="P" AND ENR_ACTIVITES<12> = "M" AND ENR_CONTRAT<37,j> = "10000") THEN
               * sauvegarde des infos
               * positionnement sur aidant
               READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_Cle[1,5] ELSE ENR_CIVILAIDANT=""

               * code aidant
               W_VarCode=W_Cle[1,5]

               * nom prnom
               W_VarAidant=ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>

               * secteur
               IF W_Act="M" AND (W_Convention="Vrai" OR W_Convention="True") THEN
                  READ ENR_CIVILAIDE FROM F.CIVILAIDE,ENR_CONTRAT<3> ELSE ENR_CIVILAIDE=""
                  W_VarAide=ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
                  READ ENR_SECTEUR FROM F.SECTEUR,ENR_CIVILAIDE<40>[1,3] ELSE ENR_SECTEUR=""
               END ELSE
                  READ ENR_SECTEUR FROM F.SECTEUR,ENR_CIVILAIDANT<31> ELSE ENR_SECTEUR=""
                  * employeur
                  IF W_Act="M" THEN
                     READ ENR_CIVILAIDE FROM F.CIVILAIDE,ENR_CONTRAT<3> ELSE ENR_CIVILAIDE=""
                     W_VarAide=ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
                  END ELSE
                     READ ENR_ASSOCIATION FROM F.ASSOCIATION,ENR_CONTRAT<3>[1,3] ELSE ENR_ASSOCIATION=""
                     W_VarAide=ENR_ASSOCIATION<1>
                  END
               END
               W_VarSect=ENR_SECTEUR<1>
               W_VarCodeSect=ENR_SECTEUR<0>

               * traitement selon activit
               BEGIN CASE
                  CASE W_Act="M" 
                     W_VarDebut=OCONV(ENR_CONTRAT<7>,"D4/")
                     W_VarFin=OCONV(ENR_CONTRAT<8>,"D4/")
                     GOSUB 10
                  CASE W_Act="I"
                     GOSUB 20
                  CASE W_Act="S" OR W_Act="P"
                     W_VarDebut=OCONV(ENR_CONTRAT<7>,"D4/")
                     W_VarFin=OCONV(ENR_CONTRAT<8>,"D4/")
                     GOSUB 30
               END CASE

            END

         NEXT j

         W_Indic="FAUX"
         IF W_VarEtat="Sans saisie" OR W_VarEtat="Sans miss." THEN
            W_Indic="VRAI"
         END ELSE
            BEGIN CASE
		   
               CASE W_Etat="SANS SAISIE" 
                  IF W_VarEtat="Sans saisie" THEN
                     W_Indic="VRAI"
                  END
		   CASE W_Etat="SANS MOD" 
                  IF W_VarEtat="Sans MOD" OR W_VarEtat="Sans saisie" THEN
                     W_Indic="VRAI"
                  END
               CASE W_Etat="SAISIE" 
                  IF W_VarEtat="Sans saisie" OR W_VarEtat="Saisie" OR W_VarEtat="Sans MOD" THEN
                     W_Indic="VRAI"
                  END
               CASE W_Etat="CALCUL" 
                  IF W_VarEtat="Sans saisie" OR W_VarEtat="Saisie" OR W_VarEtat="Calcul" OR W_VarEtat="Sans MOD" THEN
                     W_Indic="VRAI"
                  END
               CASE W_Etat="EDITION" 
                  IF W_VarEtat="Sans saisie" OR W_VarEtat="Saisie" OR W_VarEtat="Calcul" OR W_VarEtat="Edit" OR W_VarEtat="Sans MOD" THEN
                     W_Indic="VRAI"
                  END
               CASE W_Etat="PAIEMENT" 
                  IF W_VarEtat="Sans saisie" OR W_VarEtat="Saisie" OR W_VarEtat="Calcul" OR W_VarEtat="Edit" OR W_VarEtat="Pay" OR W_VarEtat="Sans MOD" THEN
                     W_Indic="VRAI"
                  END
               CASE W_Etat="CLOTURE" 
                  W_Indic="VRAI"
            END CASE
         END


         * si indicateur  vrai alors contrat  traiter
         IF W_Indic="VRAI" THEN

            * traitement si visu
            IF W_Visu="Vrai" OR W_Visu="True" THEN
               W_Temp=""
               W_Temp=W_VarCode:" "
               IF LEN(W_VarAidant) >= 25 THEN
                  W_Temp=W_Temp:W_VarAidant[1,25]:" "
               END ELSE
                  W_Temp=W_Temp:W_VarAidant:SPACE(26-LEN(W_VarAidant))
               END

               IF LEN(W_VarAide) >= 25 THEN
                  W_Temp=W_Temp:W_VarAide[1,25]:" "
               END ELSE
                  W_Temp=W_Temp:W_VarAide:SPACE(26-LEN(W_VarAide))
               END
               IF LEN(W_VarDebut) >= 10 THEN
                  W_Temp=W_Temp:W_VarDebut[1,10]:" "
               END ELSE
                  W_Temp=W_Temp:W_VarDebut:SPACE(11-LEN(W_VarDebut))
               END
               IF LEN(W_VarFin) >= 10 THEN
                  W_Temp=W_Temp:W_VarFin[1,10]:" "
               END ELSE
                  W_Temp=W_Temp:W_VarFin:SPACE(11-LEN(W_VarFin))
               END
               W_Temp=W_Temp:W_VarEtat:SPACE(12-LEN(W_VarEtat))
               IF LEN(W_VarSect) >= 25 THEN
                  W_Temp=W_Temp:W_VarSect[1,25]
               END ELSE
                  W_Temp=W_Temp:W_VarSect
               END
               ENR_TEMPO<l>=W_Temp


	       IF W_TEMP2<1><>"" THEN
		    X=1
		    LOOP
			 UNTIL W_TEMP2<X>="" DO
	 	  	 ENR_TEMPO<l+1>=W_TEMP2<X>
			 l=l+1
			 X=X+1
		    REPEAT
	       END

               l=l+1
            END ELSE
               * traitement si dition
               * controle si secteur identique ou diffrent
               IF W_AncienSecteur="" THEN
                  GOSUB 50
               END

               IF W_AncienSecteur # W_VarCodeSect THEN

                  ENR_TEMPO<l>="%"
                  l=l+1
                  ENR_TEMPO<l>="Secteur          : ":W_VarSect
                  l=l+1
                  W_AncienSecteur=W_VarCodeSect

                  ENR_TEMPO<l>=" CODE  NOM PRENOM AIDANT    EMPLOYEUR            DEBUT      FIN        ETAT D'AVANCEMENT"
                  l=l+1
                  ENR_TEMPO<l>="%"
                  l=l+1
               END

               W_Temp=""
               W_Temp=" ":W_VarCode:" "
               IF LEN(W_VarAidant) >= 20 THEN
              	  W_Temp=W_Temp:W_VarAidant[1,20]:" "
	       END ELSE
        	  W_Temp=W_Temp:W_VarAidant:SPACE(21-LEN(W_VarAidant))
	       END
               IF LEN(W_VarAide) >= 20 THEN
                  W_Temp=W_Temp:W_VarAide[1,20]:" "
               END ELSE
                  W_Temp=W_Temp:W_VarAide:SPACE(21-LEN(W_VarAide))
               END
               IF LEN(W_VarDebut) >= 10 THEN
                  W_Temp=W_Temp:W_VarDebut[1,10]:" "
               END ELSE
                  W_Temp=W_Temp:W_VarDebut:SPACE(11-LEN(W_VarDebut))
               END
               IF LEN(W_VarFin) >= 10 THEN
                  W_Temp=W_Temp:W_VarFin[1,10]:" "
               END ELSE
                  W_Temp=W_Temp:W_VarFin:SPACE(11-LEN(W_VarFin))
               END
               W_Temp=W_Temp:W_VarEtat
               ENR_TEMPO<l>=W_Temp
	       
	       IF W_TEMP2<1><>"" THEN
		    X=1
		    LOOP
			 UNTIL W_TEMP2<X>="" DO
	 	  	 ENR_TEMPO<l+1>=W_TEMP2<X>
			 l=l+1
			 X=X+1
		    REPEAT
	       END

               l=l+1
            END

         END


      REPEAT

	IF l=1 AND W_Visu="Faux" THEN
		ENR_TEMPO<1>="RIEN"
	END

      WRITE ENR_TEMPO ON F.TEMPO,"ETATAVANCEMENT":W_User

   END

STOP

*****************************************************************************
*  Recherche l'tat d'avancement si mandataire
10

   IF ENR_CONTRAT<6>="P" THEN
      READ ENR_DETAILMANDAT FROM F.DETAILMANDAT,W_Cle:W_Periode THEN
         GOSUB 40
      END ELSE
	*MODIF 11/00
	GOSUB 40
	IF W_VarEtat="Saisie" THEN
        	W_VarEtat="Sans saisie"
	END
         *W_VarEtat="Sans saisie"
      END

   END ELSE
    
      GOSUB 40

      IF W_VarEtat="Saisie" THEN
         READ ENR_DETAILADMIN FROM F.DETAILADMIN,W_Cle:W_Periode ELSE
            W_VarEtat="Sans saisie"
         END
      END

   END

RETURN

*****************************************************************************
*  Recherche l'tat d'avancement si intermdiaire
20

   W_TEMP2=""
   W_VarEtat=""
   IF ENR_CONTRAT<6>="P" THEN
      ENR_CIVILAIDE = ""
      READ ENR_MISSIONSAIDANT FROM F.MISSIONSAIDANT,W_Cle[1,5] ELSE ENR_MISSIONSAIDANT=""
      W_Nb=DCOUNT(ENR_MISSIONSAIDANT<1>,CHAR(253))

      FOR k=W_Nb TO 1 STEP -1

         IF ENR_MISSIONSAIDANT<2,k> <= W_FinPer AND (ENR_MISSIONSAIDANT<3,k> >= W_DebutPer OR ENR_MISSIONSAIDANT<3,k>="") AND ENR_MISSIONSAIDANT<8,k,1>[1,3] = W_Entite THEN

	    * LECTURE CIVILAIDE

	    READ ENR_CIVILAIDE FROM F.CIVILAIDE,ENR_MISSIONSAIDANT<1,k> ELSE ENR_CIVILAIDE=""

            W_VarDebut=OCONV(ENR_MISSIONSAIDANT<2,k>,"D4/")
            W_VarFin=OCONV(ENR_MISSIONSAIDANT<3,k>,"D4/")
            READ ENR_DETAILINTER FROM F.DETAILINTER,W_Cle:ENR_MISSIONSAIDANT<11,k>:W_Periode THEN
            	   GOSUB 40
            END ELSE
		*MODIF 11/00
**			GOSUB 40
			IF W_VarEtat="Saisie" THEN
        			W_VarEtat="Sans saisie"
			END
         		W_VarEtat="Sans saisie"
            	END


	 	W_VarAide=ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>

		 IF k<>1 THEN
			IF W_VarFin="" THEN W_VarFin=SPACE(10)
			IF W_Visu="Faux" OR W_Visu="False" THEN
			        W_VarAide=W_VarAide[1,20] "L#20"
				W_TEMP2<k-1>=SPACE(28):W_VarAide:" ":W_VarDebut:" ":W_VarFin:" ":W_VarEtat
			END ELSE
			        W_VarAide=W_VarAide[1,25] "L#25"
				W_TEMP2<k-1>=SPACE(32):W_VarAide:" ":W_VarDebut:" ":W_VarFin:" ":W_VarEtat
			END
	 	END
         END
      NEXT k

      IF W_Nb=0 THEN
        	W_VarDebut=""
        	W_VarFin=""
		W_VarEtat="Sans miss."
      END

   END ELSE

      GOSUB 40

      IF W_VarEtat="Saisie" THEN
         READ ENR_DETAILADMIN FROM F.DETAILADMIN,W_Cle:W_Periode ELSE
            W_VarEtat="Sans saisie"
         END
      END

   END

RETURN

*****************************************************************************
*  Recherche l'tat d'avancement si Prestataire ou SSIAD
30

   IF ENR_CONTRAT<6>="P" THEN

      READ ENR_DETAILPREST FROM F.DETAILPREST,W_Cle:W_Periode THEN

         GOSUB 40


         IF W_VarEtat="Saisie" THEN

		W_TOTALMOD=0

		* BASE SAISIE MOD
         	W_NBMOD=DCOUNT(ENR_DETAILPREST<3>,CHAR(253))
		FOR IMOD=1 TO W_NBMOD
			W_TOTALMOD=W_TOTALMOD+ENR_DETAILPREST<3,IMOD>
		NEXT IMOD

		* BASE JOUR SAISIE MOD 
         	W_NBMODVAL=DCOUNT(ENR_DETAILPREST<12>,CHAR(253))
		FOR IMODVAL=1 TO W_NBMODVAL

         		W_NBMODSOUS=DCOUNT(ENR_DETAILPREST<12,IMODVAL>,CHAR(252))
			FOR IMODSOUS=1 TO W_NBMODSOUS
				W_TOTALMOD=W_TOTALMOD+ENR_DETAILPREST<12,IMODVAL,IMODSOUS>
			NEXT IMODSOUS

		NEXT IMODVAL

		IF W_TOTALMOD = 0 THEN
			* BASE SAISIE MOI
	         	W_NBMOD=DCOUNT(ENR_DETAILPREST<6>,CHAR(253))
			FOR IMOD=1 TO W_NBMOD
				W_TOTALMOD=W_TOTALMOD+ENR_DETAILPREST<6,IMOD>
				W_TOTALMOD=W_TOTALMOD+ENR_DETAILPREST<8,IMOD>
			NEXT IMOD
			IF W_TOTALMOD=0 THEN
				W_VarEtat="Sans saisie"
			END ELSE
				W_VarEtat="Sans MOD"
			END
		END ELSE
			* BASE SAISIE MOI
	         	W_NBMOD=DCOUNT(ENR_DETAILPREST<6>,CHAR(253))
			FOR IMOD=1 TO W_NBMOD
				W_TOTALMOD=W_TOTALMOD+ENR_DETAILPREST<6,IMOD>
				W_TOTALMOD=W_TOTALMOD+ENR_DETAILPREST<8,IMOD>
			NEXT IMOD
			IF W_TOTALMOD=0 THEN
				W_VarEtat="Sans saisie"
			END
		END
		
         END 	


      END ELSE

	*MODIF 11/00
	GOSUB 40

	IF W_VarEtat="Saisie" THEN
        	W_VarEtat="Sans saisie"
	END
	*W_VarEtat="Sans saisie"
      END

   END ELSE

      GOSUB 40

      IF W_VarEtat="Saisie" THEN
         READ ENR_DETAILADMIN FROM F.DETAILADMIN,W_Cle:W_Periode ELSE
            W_VarEtat="Sans saisie"
         END
      END

   END

RETURN

*****************************************************************************
*  Slection finale de l'tat d'avancement
40

   READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,W_Cle:W_Periode THEN
      BEGIN CASE
         CASE ENR_DETAILCALCUL<1>="" 
            W_VarEtat="Calcul"
         CASE ENR_DETAILCALCUL<1>="E" 
            W_VarEtat="Edit"
         CASE ENR_DETAILCALCUL<1>="P" 
            W_VarEtat="Pay"
      END CASE
      IF ENR_CONTRAT<63>=W_Periode THEN
         W_VarEtat="Cltur"
      END
   END ELSE
      IF ENR_CONTRAT<63>=W_Periode THEN
         W_VarEtat="Cltur"
      END ELSE
         W_VarEtat="Saisie"
      END
   END

RETURN

*****************************************************************************
*  Entete dition
50

   ENR_TEMPO<1>=SPACE(5):"LISTE DES CONTRATS DE TRAVAIL AVEC UN ETAT D'AVANCEMENT"
   W_Temp=ICONV("01/":W_Periode[5,2]:"/":W_Periode[1,4],"D4/")
   W_Date=OCONV(W_Temp,"D")
   GOSUB 100
   W_Date=W_Mois:" ":W_Date[8,4]
   ENR_TEMPO<2>=SPACE(15):"ANTERIEUR A ":W_Etat:" SUR ":OCONV(W_Date,"MCU")

   READ ENR_ASSOCIATION FROM F.ASSOCIATION,W_Entite ELSE ENR_ASSOCIATION=""
   ENR_TEMPO<3>="Entit juridique : ":ENR_ASSOCIATION<1>
   W_Adresse = ""
   IF ENR_ASSOCIATION<3> # "" THEN
      W_Adresse=ENR_ASSOCIATION<3>
   END
   IF ENR_ASSOCIATION<4> # "" THEN
      W_Adresse=W_Adresse:" ":ENR_ASSOCIATION<4>
   END
   IF ENR_ASSOCIATION<5> # "" THEN
      W_Adresse=W_Adresse:" ":ENR_ASSOCIATION<5>
   END
   IF ENR_ASSOCIATION<6> # "" THEN
      W_Adresse=W_Adresse:" ":ENR_ASSOCIATION<6>
   END
   l=4
   IF W_Adresse # "" THEN
      ENR_TEMPO<l>=SPACE(19):W_Adresse
      l=l+1
   END
   IF ENR_ASSOCIATION<7> # "" THEN
      ENR_TEMPO<l>=SPACE(19):ENR_ASSOCIATION<7>
      l=l+1
   END
   ENR_TEMPO<l>=SPACE(19):ENR_ASSOCIATION<8>:" ":ENR_ASSOCIATION<9>
   l=l+1

RETURN

*****************************************************************************
* Tables de correspondance des mois
100

   BEGIN CASE 
      CASE W_Date[4,3] = "Jan"
         W_Mois = "janvier"
      CASE W_Date[4,3] = "Feb"
         W_Mois = "fevrier"
      CASE W_Date[4,3] = "Mar"
         W_Mois = "mars"
      CASE W_Date[4,3] = "Apr"
         W_Mois = "avril"
      CASE W_Date[4,3] = "May"
         W_Mois = "mai"
      CASE W_Date[4,3] = "Jun"
         W_Mois = "juin"
      CASE W_Date[4,3] = "Jul"
         W_Mois = "juillet"
      CASE W_Date[4,3] = "Aug"
         W_Mois = "aout"
      CASE W_Date[4,3] = "Sep"
         W_Mois = "septembre"
      CASE W_Date[4,3] = "Oct"
         W_Mois = "octobre"
      CASE W_Date[4,3] = "Nov"
         W_Mois = "novembre"
      CASE W_Date[4,3] = "Dec"
         W_Mois = "decembre"
   END CASE

RETURN
