******************************************************************
* THOMAS B. le 30/03/2010 : MISE AUX NORMES DES BASES RECUPEREES *
* Guillaume le 20/07/2010 : Modif pour FACTPAIEMENT              *
******************************************************************

OPEN "","CHEMINFICHIER" TO F.CHEMINFICHIER ELSE STOP
OPEN "","SECTEUR" TO F.SECTEUR ELSE STOP
OPEN "","VOC" TO F.VOC ELSE STOP
OPEN "","COMPTEUR" TO F.COMPTEUR ELSE STOP

READ ENR_CHEMINFICHIER FROM F.CHEMINFICHIER,"1" THEN
    ENR_CHEMINFICHIER<1> = "\\SERVEUR2008\MAQUETTE\EXCEL"
    ENR_CHEMINFICHIER<2> = "\\SERVEUR2008\MAQUETTE\WORD"
    ENR_CHEMINFICHIER<3> = "\\SERVEUR2008\MAQUETTE\TEXTE"
    WRITE ENR_CHEMINFICHIER ON F.CHEMINFICHIER,"1"
END

* Modif Guillaume 20/07/2010
READ ENR_VOC FROM F.VOC,"FACTPAIEMENT" THEN
    ENR_VOC<2> = "FACTURATION\PAIEMENT"
    WRITE ENR_VOC ON F.VOC, "FACTPAIEMENT"
END
* Fin modif Guillaume 20/07/2010

READ ENR_VOC FROM F.VOC,"LOGIN" THEN
    ENR_VOC<8> = ""
    WRITE ENR_VOC ON F.VOC,"LOGIN"
END

READ ENR_COMPTEUR FROM F.COMPTEUR,"999" THEN
    ENR_COMPTEUR<26> = ""
    WRITE ENR_COMPTEUR ON F.COMPTEUR,"999"
END

W_RequeteMoul=""
EXECUTE 'SELECT SECTEUR AVEC 22 <> "" PAR 1'
EXECUTE 'SAUVE-LISTE W_RequeteMoul'
EXECUTE "LISTE W_RequeteMoul" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN

	SELECT F.SECTEUR TO W_RequeteMoul
	W_Fini="FAUX"
	
	LOOP
    
		READNEXT W_Cle FROM W_RequeteMoul ELSE W_Fini="VRAI"
        
	WHILE W_Fini="FAUX" DO
	
		READ ENR_SECTEUR FROM F.SECTEUR,W_Cle THEN
            ENR_SECTEUR<22> = "\\SERVEUR2008\DOCSCAN\"
            WRITE ENR_SECTEUR ON F.SECTEUR,W_Cle
        END
		
	REPEAT

END

EXECUTE 'EFFACER-LISTE W_RequeteMoul'

STOP
