**********************************************************
*  Mise en forme du fichier SSIADHISTACTINTEXT
*  Vanessa
*  SEPTEMBRE 2004
**********************************************************

* Ouvertures des fichiers

EXECUTE "DATE.FORMAT"
OPEN "","ASSOCIATION" TO F.ASSOCIATION ELSE PRINT "OUVERTURE ASSOCIATION" ;* en lecture
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE PRINT "OUVERTURE CIVILAIDE" ;* en lecture
OPEN "","INTERVENANTEXT" TO F.INTERVENANTEXT ELSE PRINT "OUVERTURE INTERVENANTEXT" ;* en lecture
OPEN "","SSIADELEMGEST" TO F.SSIADELEMGEST ELSE PRINT "OUVERTURE SSIADELEMGEST" ;* en lecture
OPEN "","SSIADHISTACTINTEXT" TO F.SSIADHISTACTINTEXT ELSE PRINT "OUVERTURE SSIADHISTACTINTEXT" ;* en lecture
OPEN "","TABLES" TO F.TABLES ELSE PRINT "OUVERTURE TABLES" ;* en criture 
OPEN "","TEMPO" TO F.TEMPO ELSE PRINT "OUVERTURE TEMPO" ;* en criture 
*********************************************************
* initialisation des variables

W_Ligne=1
W_NumOrdre=1
ENR_TEMPO=""

*********************************************************
* Recuperation des arguments

PROCREAD ARGUMENTS ELSE STOP
W_User=FIELD(ARGUMENTS," ",2)
W_Lettre=FIELD(ARGUMENTS," ",3)
*********************************************************
* PROGRAMME PRINCIPAL

	EXECUTE "SET-DEC ,"
	EXECUTE "SET-THOUS ."

	READ ENR_AUTRINTERV FROM F.TABLES,"AUTRINTERVENANT" ELSE ENR_AUTRINTERV=""
	READ ENR_TYPEETATPAIE FROM F.TABLES,"TYPEETATPAIEMENT" ELSE ENR_TYPEETATPAIE=""

	READ ENR_TEMPO FROM F.TEMPO,"ETATPAIEMENT":W_User ELSE ENR_TEMPO=""
	W_TabDyn=ENR_TEMPO<1>

	ENR_TEMPO=""

	W_Count = DCOUNT(W_TabDyn,CHAR(253))

	FOR i = 1 TO W_Count

		READ ENR_SSIADHISTACTINTEXT FROM F.SSIADHISTACTINTEXT,W_TabDyn<1,i> ELSE ENR_SSIADHISTACTINTEXT=""
		READ ENR_ASSOCIATION FROM F.ASSOCIATION,W_TabDyn<1,i>[16,3] ELSE ENR_ASSOCIATION=""
		READ ENR_INTERVENANTEXT FROM F.INTERVENANTEXT,W_TabDyn<1,i>[1,5] ELSE ENR_INTERVENANTEXT=""

        	W_TotalGeneHono = 0
        	W_TotalGeneDepl = 0
        	W_TotalGene = 0

		* Entete
		GOSUB 10

		* Entete2
		GOSUB 20

		* Entete dtail
		GOSUB 25

		* remplir dtail tat
      		GOSUB 30

		*  IMPRIME TOTAL
      		GOSUB 40

      		IF i # W_Count THEN
         		LOOP
         		WHILE MOD(W_Ligne,72) # 0 DO
            			GOSUB 5
         		REPEAT

		END

		GOSUB 5
   	NEXT i

   	WRITE ENR_TEMPO ON F.TEMPO,"ETATPAIEMENT":W_User:W_NumOrdre

   	EXECUTE "SET-DEC ."
   	EXECUTE "SET-THOUS ,"

STOP

*****************************************************************************
*  SAUTE UNE LIGNE
5

	ENR_TEMPO<W_Ligne>=""
	W_Ligne=W_Ligne+1

RETURN

*****************************************************************************
*  MISE EN FORME ADRESSE
7

    	W_Adresse = ""
    
    	IF W_Tab<W_Ind> # "" THEN
    		W_Adresse = W_Tab<W_Ind>:" "
    	END
    	IF W_Tab<W_Ind + 1> # "" THEN
        	W_Adresse = W_Adresse:W_Tab<W_Ind + 1>:" "
   	END
    	IF W_Tab<W_Ind + 2> # "" THEN
        	W_Adresse = W_Adresse:W_Tab<W_Ind + 2>:" "
   	END
    	IF W_Tab<W_Ind + 3> # "" THEN
        	W_Adresse = W_Adresse:W_Tab<W_Ind + 3>
    	END
	IF LEN(W_Adresse) > 35 THEN
		W_Adresse=W_Adresse[1,35]
	END
RETURN

*****************************************************************************
*  ENTETE ETAT
10

   	GOSUB 5

	IF W_Lettre="0" THEN
		ENR_TEMPO<W_Ligne>="ETAT DE PAIEMENT" 

   		W_Temp = OCONV(DATE(), "D")
   		GOSUB 50
   		W_Temp = W_Temp[1,3]:W_Mois:" ":W_Temp[8,4]
	   	W_Var=ENR_ASSOCIATION<9>:", le ":W_Temp
   		GOSUB 80
		ENR_TEMPO<W_Ligne>=ENR_TEMPO<W_Ligne>:SPACE(25):W_Var
		W_Ligne=W_Ligne+1
		GOSUB 5
	
		ENR_TEMPO<W_Ligne>="--------------------------------------------------------------------------------"
		ENR_TEMPO<W_Ligne+1>="| SERVICE DE SOINS INFIRMIERS A DOMICILE                                       |"
		ENR_TEMPO<W_Ligne+2>="--------------------------------------------------------------------------------"
		W_Ligne=W_Ligne+3

		* cadre association
		ENR_TEMPO<W_Ligne>="--------------------------------------------------------------------------------"
		ENR_TEMPO<W_Ligne+1>="|":ENR_ASSOCIATION<1>:SPACE(40-LEN(ENR_ASSOCIATION<1>)):"Tel : ":ENR_ASSOCIATION<12>:SPACE(32-LEN(ENR_ASSOCIATION<12>)):"|"
		W_Tab=ENR_ASSOCIATION
		W_Ind=3
		GOSUB 7
		ENR_TEMPO<W_Ligne+2>="|":W_Adresse:SPACE(40-LEN(W_Adresse)):"Fax : ":ENR_ASSOCIATION<13>:SPACE(32-LEN(ENR_ASSOCIATION<13>)):"|"

		W_Ville=ENR_ASSOCIATION<8>:" ":ENR_ASSOCIATION<9>
		IF ENR_ASSOCIATION<10> = "1" THEN
			W_Ville=W_Ville:" Cedex ":ENR_ASSOCIATION<11>
		END

		IF ENR_ASSOCIATION<7> # "" THEN
			ENR_TEMPO<W_Ligne+3>="|":ENR_ASSOCIATION<7>:SPACE(78-LEN(ENR_ASSOCIATION<7>)):"|"
			ENR_TEMPO<W_Ligne+4>="|":W_Ville:SPACE(78-LEN(W_Ville)):"|"
		END ELSE
			ENR_TEMPO<W_Ligne+3>="|":W_Ville: SPACE(78-LEN(W_Ville)):"|"
			ENR_TEMPO<W_Ligne+4>="|":SPACE(78):"|"
		END
		ENR_TEMPO<W_Ligne+5>="--------------------------------------------------------------------------------"
		W_Ligne=W_Ligne+6
 
	END ELSE
		ENR_TEMPO<W_Ligne>=SPACE(41):"ETAT DE PAIEMENT"
		W_Ligne=W_Ligne+1
		GOSUB 5
		ENR_TEMPO<W_Ligne>=SPACE(41):"SERVICE DE SOINS INFIRMIERS A DOMICILE"
		W_Ligne=W_Ligne+1
		GOSUB 5
		GOSUB 5
   		W_Temp = OCONV(DATE(), "D")
   		GOSUB 50
   		W_Temp = W_Temp[1,3]:W_Mois:" ":W_Temp[8,4]
	   	W_Var=ENR_ASSOCIATION<9>:", le ":W_Temp
   		GOSUB 80
		ENR_TEMPO<W_Ligne>=SPACE(41):W_Var
		W_Ligne=W_Ligne+1
		GOSUB 5
		GOSUB 5
		GOSUB 5
		GOSUB 5
		GOSUB 5
	END

RETURN

*****************************************************************************
*  ENTETE ETAT 2
20

	IF W_Lettre="0" THEN
		ENR_TEMPO<W_Ligne>="--------------------------------------------------------------------------------"
	
		* identifiant + titre + nom + prenom
		ENR_TEMPO<W_Ligne+1>="| Identifiant      : ":W_TabDyn<1,i>[1,5]:SPACE(13):"||":ENR_INTERVENANTEXT<2>:" ":ENR_INTERVENANTEXT<3>:SPACE(38-LEN(ENR_INTERVENANTEXT<2>:" ":ENR_INTERVENANTEXT<3>)):"|"
	
    		z = 1
    		LOOP
		UNTIL ENR_AUTRINTERV<2,z> = ENR_INTERVENANTEXT<1> OR ENR_AUTRINTERV<2,z> = ""
        		z = z + 1
    		REPEAT
    		IF ENR_AUTRINTERV<2,z> # "" THEN
			ENR_TEMPO<W_Ligne+2>="|":SPACE(20):ENR_AUTRINTERV<3,z>:SPACE(18-LEN(ENR_AUTRINTERV<3,z>)):"||":SPACE(38):"|"
	    	END
    	
		ENR_TEMPO<W_Ligne+3>="|":SPACE(38):"||":SPACE(38):"|"
    	
		* numro tat paiement
		ENR_TEMPO<W_Ligne+4>="| Etat paiement N. : ":W_TabDyn<1,i>[6,10]*1:SPACE(18-LEN(W_TabDyn<1,i>[6,10]*1)):"||"
	
		* adresse
		W_Tab=ENR_INTERVENANTEXT
		W_Ind=4
		GOSUB 7
		ENR_TEMPO<W_Ligne+4>=ENR_TEMPO<W_Ligne+4>:W_Adresse:SPACE(38-LEN(W_Adresse)):"|"
	
    		* compl voie
    		IF ENR_INTERVENANTEXT<8> # "" THEN
			ENR_TEMPO<W_Ligne+5>="|":SPACE(38):"||":ENR_INTERVENANTEXT<8>:SPACE(38-LEN(ENR_INTERVENANTEXT<8>)):"|"
	    	END ELSE
			ENR_TEMPO<W_Ligne+5>="|":SPACE(38):"||":SPACE(38):"|"
	    	END
	
		* code postal + ville
		ENR_TEMPO<W_Ligne+6>="|":SPACE(38):"||":ENR_INTERVENANTEXT<9>:" ":ENR_INTERVENANTEXT<10>:SPACE(38-LEN(ENR_INTERVENANTEXT<9>:" ":ENR_INTERVENANTEXT<10>)):"|"
    	
		ENR_TEMPO<W_Ligne+7>="|":SPACE(38):"||":SPACE(38):"|"
		ENR_TEMPO<W_Ligne+8>="--------------------------------------------------------------------------------"
	
		W_Ligne=W_Ligne+9
    	

	END ELSE
		GOSUB 5
		ENR_TEMPO<W_Ligne>=SPACE(41):ENR_INTERVENANTEXT<2>:" ":ENR_INTERVENANTEXT<3>
		W_Ligne=W_Ligne+1
		GOSUB 5
		GOSUB 5

		* identifiant + titre + nom + prenom
		ENR_TEMPO<W_Ligne>="  Identifiant      : ":W_TabDyn<1,i>[1,5]:SPACE(15)

		* adresse
		W_Tab=ENR_INTERVENANTEXT
		W_Ind=4
		GOSUB 7
		ENR_TEMPO<W_Ligne>=ENR_TEMPO<W_Ligne>:W_Adresse
		W_Ligne=W_Ligne+1

		* type intervenant
    		z = 1
    		LOOP
		UNTIL ENR_AUTRINTERV<2,z> = ENR_INTERVENANTEXT<1> OR ENR_AUTRINTERV<2,z> = ""
        		z = z + 1
    		REPEAT
    		IF ENR_AUTRINTERV<2,z> # "" THEN
			ENR_TEMPO<W_Ligne>=SPACE(21):ENR_AUTRINTERV<3,z>:SPACE(20-LEN(ENR_AUTRINTERV<3,z>))
	    	END
    		* compl voie
    		IF ENR_INTERVENANTEXT<8> # "" THEN
			ENR_TEMPO<W_Ligne>=ENR_TEMPO<W_Ligne>:ENR_INTERVENANTEXT<8>
	    	END
		W_Ligne=W_Ligne+1

		* code postal + ville
		ENR_TEMPO<W_Ligne>=SPACE(41):ENR_INTERVENANTEXT<9>:" ":ENR_INTERVENANTEXT<10>
		W_Ligne=W_Ligne+1

		* numro tat paiement
		ENR_TEMPO<W_Ligne>="  Etat paiement N. : ":W_TabDyn<1,i>[6,10]*1
		W_Ligne=W_Ligne+1

		GOSUB 5
	END

	GOSUB 5

	ENR_TEMPO<W_Ligne>=SPACE(11):"NOUS AVONS L'HONNEUR DE VOUS ADRESSER LE DECOMPTE DES ACTES."
	W_Ligne=W_Ligne+1

	GOSUB 5

RETURN

*****************************************************************************
*  ENTETE DETAIL
25

	ENR_TEMPO<W_Ligne>="--------------------------------------------------------------------------------"
	ENR_TEMPO<W_Ligne+1>="| BENEFICIAIRE                     |NOMBRE| TYPE |VALEUR|HONORAIRES|DEPLACEMENT|"
	ENR_TEMPO<W_Ligne+2>="|----------------------------------|------|------|------|----------|-----------|"

	W_Ligne=W_Ligne+3
RETURN

*****************************************************************************
*  REMPLIR DETAIL ETAT
30

    	W_CountDetailMV = DCOUNT(ENR_SSIADHISTACTINTEXT<1>,CHAR(253))
    	W_Rang = 1
    	W_NewPage="FAUX"


    	FOR j = 1 TO W_CountDetailMV

       		IF W_Rang > 30 THEN
			ENR_TEMPO<W_Ligne>="--------------------------------------------------------------------------------"
            		W_Ligne=W_Ligne+1
         		LOOP
         		WHILE MOD(W_Ligne,72) # 0 DO
            			GOSUB 5
         		REPEAT
			W_NewPage="VRAI"
			GOSUB 5
            		GOSUB 10
            		GOSUB 20
            		GOSUB 25
			W_Rang=1
        	END
		
        	READ ENR_CIVILAIDE FROM F.CIVILAIDE,ENR_SSIADHISTACTINTEXT<1,j> ELSE ENR_CIVILAIDE=""
        	READ ENR_SSIADELEMGEST FROM F.SSIADELEMGEST,ENR_SSIADHISTACTINTEXT<1,j> ELSE ENR_SSIADELEMGEST=""
        	
        	W_TotalHono = 0
        	W_TotalDepl = 0
        	
        	IF ENR_SSIADELEMGEST<8> # "" THEN
            		W_Nir = ENR_SSIADELEMGEST<8>:" ":ENR_SSIADELEMGEST<9>
        	END ELSE
            		W_Nir = ENR_CIVILAIDE<18>:" ":ENR_CIVILAIDE<19>
        	END
        	
		IF j # 1 THEN
			IF W_Rang>25 THEN
				ENR_TEMPO<W_Ligne>="--------------------------------------------------------------------------------"
            			W_Ligne=W_Ligne+1
         			LOOP
         			WHILE MOD(W_Ligne,72) # 0 DO
            				GOSUB 5
         			REPEAT
				GOSUB 5
            			GOSUB 10
            			GOSUB 20
            			GOSUB 25
				W_Rang=1
			END ELSE
				ENR_TEMPO<W_Ligne>="|----------------------------------|------|------|------|----------|-----------|"
            			W_Ligne=W_Ligne+1
				ENR_TEMPO<W_Ligne>="|                                  |      |      |      |          |           |"
            			W_Ligne=W_Ligne+1
				W_Rang=W_Rang+2
        		END
		END
		
		l=1
        	LOOP
		UNTIL ENR_SSIADHISTACTINTEXT<5,j,l>="" AND l > 5 DO

       			IF W_Rang > 30 THEN
				ENR_TEMPO<W_Ligne>="--------------------------------------------------------------------------------"
            			W_Ligne=W_Ligne+1
         			LOOP
         			WHILE MOD(W_Ligne,72) # 0 DO
            				GOSUB 5
         			REPEAT
				W_NewPage="VRAI"
				GOSUB 5
            			GOSUB 10
            			GOSUB 20
            			GOSUB 25
				W_Rang=1
        		END
			IF ENR_SSIADHISTACTINTEXT<2,j,l> # "0" THEN
            			GOSUB 35
            			W_Rang = W_Rang + 1
			END
			l=l+1
        	REPEAT
		
		* totaux

		ENR_TEMPO<W_Ligne>="|                                  |      |      |      |----------|-----------|"
		IF ENR_SSIADHISTACTINTEXT<11,j> # "" THEN
			ENR_TEMPO<W_Ligne+1>="|DECOMPTE DU ":OCONV(ENR_SSIADHISTACTINTEXT<11,j>,"D2/"):" AU ":OCONV(ENR_SSIADHISTACTINTEXT<12,j>,"D2/"):"  |      |      |      |":W_TotalHono "R26(#10)":"|":W_TotalDepl "R26(#11)":"|"
		END ELSE
			ENR_TEMPO<W_Ligne+1>="|                                  |      |      |      |":W_TotalHono "R26(#10)":"|":W_TotalDepl "R26(#11)":"|"
		END

	        W_TotalGeneHono = W_TotalGeneHono + W_TotalHono
        	W_TotalGeneDepl = W_TotalGeneDepl + W_TotalDepl

        	W_Ligne = W_Ligne + 2
        	W_Rang = W_Rang + 2
        	
	NEXT j
    	
RETURN

*****************************************************************************
*  IMPRIME LIGNE
35

	* bnficiaire
        BEGIN CASE 
		CASE l= "1"
            		W_Temp = ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
		CASE l= "2"

			W_Tab=ENR_CIVILAIDE
			W_Ind=5
			GOSUB 7
            		W_Temp = W_Adresse
		CASE l= "3"
            		IF ENR_CIVILAIDE<9> # "" THEN
                		W_Temp = ENR_CIVILAIDE<9>
           		END ELSE
                		W_Temp = ENR_CIVILAIDE<10>:" ":ENR_CIVILAIDE<11>
            		END
		CASE l= "4"
            		IF ENR_CIVILAIDE<9> # "" THEN
                		W_Temp = ENR_CIVILAIDE<10>:" ":ENR_CIVILAIDE<11>
            		END ELSE
                		W_Temp = "Nir : ":W_Nir
            		END

		CASE l= "5"
          		IF ENR_CIVILAIDE<9> # "" THEN
                		W_Temp = "Nir : ":W_Nir
			END ELSE
            			W_Temp = ""
            		END
        	CASE 1
            		W_Temp = ""
	END CASE
    
	IF W_NewPage="VRAI" AND l # 1 THEN
        	W_Temp = ENR_CIVILAIDE<1>:" ":ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
		W_NewPage="FAUX"
	END

    	IF LEN(W_Temp) > 30 THEN
 		ENR_TEMPO<W_Ligne>="|":W_Temp[1,30]:"    |"
    	END ELSE
 		ENR_TEMPO<W_Ligne>="|":W_Temp:SPACE(34-LEN(W_Temp)):"|"
    	END
    
	* 1ere SV nombre
    	IF ENR_SSIADHISTACTINTEXT<2,j,l> # "" THEN
 		ENR_TEMPO<W_Ligne>=ENR_TEMPO<W_Ligne>:SPACE(4-LEN(ENR_SSIADHISTACTINTEXT<2,j,l>)):ENR_SSIADHISTACTINTEXT<2,j,l>:"  |"
    	END ELSE
 		ENR_TEMPO<W_Ligne>=ENR_TEMPO<W_Ligne>:"      |"
	END

	* 1ere SV type
	k=1
    	LOOP
	UNTIL ENR_TYPEETATPAIE<2,k> = ENR_SSIADHISTACTINTEXT<3,j,l> OR ENR_TYPEETATPAIE<2,k> = ""
        	k = k + 1
    	REPEAT

    	IF ENR_TYPEETATPAIE<2,k> # "" THEN
 		ENR_TEMPO<W_Ligne>=ENR_TEMPO<W_Ligne>:ENR_TYPEETATPAIE<3,k>:SPACE(6-LEN(ENR_TYPEETATPAIE<3,k>)):"|"
	END ELSE
 		ENR_TEMPO<W_Ligne>=ENR_TEMPO<W_Ligne>:"      |"
    	END
    
	* 1ere SV valeur
    	IF ENR_SSIADHISTACTINTEXT<4,j,l> # "" THEN
 		ENR_TEMPO<W_Ligne>=ENR_TEMPO<W_Ligne>:ENR_SSIADHISTACTINTEXT<4,j,l> "R26(#6)":"|"
	END ELSE
 		ENR_TEMPO<W_Ligne>=ENR_TEMPO<W_Ligne>:"      |"
    	END
    
	* 1ere SV honoraire
    	IF ENR_SSIADHISTACTINTEXT<5,j,l> # "" AND ENR_SSIADHISTACTINTEXT<5,j,l> # "0" THEN
 		ENR_TEMPO<W_Ligne>=ENR_TEMPO<W_Ligne>:ENR_SSIADHISTACTINTEXT<5,j,l> "R26(#10)":"|"
        	W_TotalHono = W_TotalHono + ENR_SSIADHISTACTINTEXT<5,j,l>
	END ELSE
 		ENR_TEMPO<W_Ligne>=ENR_TEMPO<W_Ligne>:"          |"
	END
    
	* 1ere SV deplacement
    	IF ENR_SSIADHISTACTINTEXT<6,j,l> # "" THEN
 		ENR_TEMPO<W_Ligne>=ENR_TEMPO<W_Ligne>:ENR_SSIADHISTACTINTEXT<6,j,l> "R26(#11)":"|"
       		W_TotalDepl = W_TotalDepl + ENR_SSIADHISTACTINTEXT<6,j,l>
	END ELSE
 		ENR_TEMPO<W_Ligne>=ENR_TEMPO<W_Ligne>:"           |"
	END
	W_Ligne=W_Ligne+1

RETURN

*****************************************************************************
*  IMPRIME TOTAL
40

	ENR_TEMPO<W_Ligne>="--------------------------------------------------------|----------|-----------|"
        W_Ligne=W_Ligne+1

    	W_TotalGene = W_TotalGeneHono + W_TotalGeneDepl

	ENR_TEMPO<W_Ligne>=SPACE(36):"TOTAL               |":W_TotalGeneHono "R26(#10)":"|":W_TotalGeneDepl "R26(#11)":"|"
	W_Ligne=W_Ligne+1

	ENR_TEMPO<W_Ligne>=SPACE(56):"|----------------------|"
	W_Ligne=W_Ligne+1

	ENR_TEMPO<W_Ligne>=SPACE(36):"MONTANT A PAYER     |":W_TotalGene "R26(#15)":" euros |"
	W_Ligne=W_Ligne+1

	ENR_TEMPO<W_Ligne>=SPACE(56):"------------------------"
	W_Ligne=W_Ligne+1
    
	GOSUB 5

    	IF ENR_INTERVENANTEXT<16>="2" THEN

   		W_Temp = OCONV(W_TabDyn<1,i>[19,5], "D")
   		GOSUB 50
   		W_Temp = W_Temp[1,3]:W_Mois:" ":W_Temp[8,4]
		ENR_TEMPO<W_Ligne>=SPACE(4):"Un avis de virement a la date du ":W_Temp:" est transmis a"
		ENR_TEMPO<W_Ligne+1>=SPACE(4):"l'adresse bancaire suivante : code banque ":ENR_INTERVENANTEXT<19>:", code guichet ":ENR_INTERVENANTEXT<20>:","
		ENR_TEMPO<W_Ligne+2>=SPACE(4):"compte numero ":ENR_INTERVENANTEXT<21>:" ":ENR_INTERVENANTEXT<22>
    
		W_Ligne=W_Ligne+3
	END

RETURN

*****************************************************************************
* Tables de correspondance des mois
50
   BEGIN CASE 
      CASE W_Temp[4,3] = "Jan"
         W_Mois = "janvier"
      CASE W_Temp[4,3] = "Feb"
         W_Mois = "fvrier"
      CASE W_Temp[4,3] = "Mar"
         W_Mois = "mars"
      CASE W_Temp[4,3] = "Apr"
         W_Mois = "avril"
      CASE W_Temp[4,3] = "May"
         W_Mois = "mai"
      CASE W_Temp[4,3] = "Jun"
         W_Mois = "juin"
      CASE W_Temp[4,3] = "Jul"
         W_Mois = "juillet"
      CASE W_Temp[4,3] = "Aug"
         W_Mois = "aot"
      CASE W_Temp[4,3] = "Sep"
         W_Mois = "septembre"
      CASE W_Temp[4,3] = "Oct"
         W_Mois = "octobre"
      CASE W_Temp[4,3] = "Nov"
         W_Mois = "novembre"
      CASE W_Temp[4,3] = "Dec"
         W_Mois = "dcembre"
   END CASE

RETURN

*****************************************************************************
*  CONVERTIR LETTRE ACCENTUEE 
80

   W_Var=CONVERT("","a",W_Var)
   W_Var=CONVERT("","a",W_Var)
   W_Var=CONVERT("","e",W_Var)
   W_Var=CONVERT("","e",W_Var)
   W_Var=CONVERT("","e",W_Var)
   W_Var=CONVERT("","o",W_Var)
   W_Var=CONVERT("","u",W_Var)

RETURN
