*****************************************************
* specif FR CHATEAUROUX								*
* EXPORT LES FICHIERS MODIFSANT DES ANTENNES		*
* VERS LE REPERTOIRE ECHANGE DU SERVEUR DU SIEGE	*
* VANESSA							OCTOBRE 2016	*

*****************************************************
SUBROUTINE EXPORTMODIFSANT(RETURNVAL,PARAMETRES,W_Sortie)

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

OPEN "","VOC" TO F.VOC ELSE RETURN
OPEN "","SECTEUR" TO F.SECTEUR ELSE RETURN
OPEN "","MODIFSANT" TO F.MODIFSANT ELSE RETURN

*****************************************************
* A RENSEIGNER
W_IP="192.168.16.5"
*****************************************************
W_Sortie=""

	W_ReqSecteur=""
	W_Secteur=""
	W_Requete="SELECT SECTEUR"
	EXECUTE W_Requete
	EXECUTE 'SAUVE-LISTE W_ReqSecteur'
	EXECUTE "LISTE W_ReqSecteur" RETURNING MSGCODE
	
	IF MSGCODE<1>#209 THEN
		SELECT F.SECTEUR TO W_ReqSecteur
		
		W_Fin="FAUX"
		W_SauveFichier=""
		
		LOOP
			READNEXT W_CleSect FROM W_ReqSecteur ELSE W_Fin="VRAI"
		WHILE W_Fin="FAUX" DO
			READ ENR_SECTEUR FROM F.SECTEUR,W_CleSect ELSE ENR_SECTEUR=""
			W_Secteur=W_CleSect
		REPEAT
	END

	W_Chemin = "\\":W_IP:"\ECHANGE\ANT":W_Secteur

	W_Date=OCONV(DATE(),"D4/")
	W_Date=W_Date[7,4]:W_Date[4,2]:W_Date[1,2]
	W_Heure=TIMEDATE()
	W_Heure=W_Heure[1,2]:W_Heure[4,2]
	
	W_NomFichier=W_Chemin:'\MODIFSANT':W_Date:W_Heure
	
	EXECUTE 'QUI' CAPTURING CHEMINBASE
	CHEMINBASE=CHEMINBASE<1>

	EXECUTE '!COPY ':CHEMINBASE:'\MODIFSANT ':W_NomFichier:' /Y' CAPTURING MSG
	
	IF INDEX(MSG,"1 fichier",1) = 0 THEN
		*W_Sortie=MSG
		W_Sortie="Erreur dans la copie du fichier des modifications" 
	END ELSE
	
		ENR_VOC=""
		ENR_VOC<1>="F"
		ENR_VOC<2>=W_NomFichier
		ENR_VOC<3>="D_FUSION"
		WRITE ENR_VOC ON F.VOC,"TESTMODIFSANT"
		
		OPEN "","TESTMODIFSANT" TO F.TESTMODIFSANT ELSE PRINT "TESTMODIFSANT"
		
		EXECUTE 'COMPTER MODIFSANT' CAPTURING W_MsgModifsAnt
		W_CountModifsAnt=OCONV(W_MsgModifsAnt,"MCN")
		
		EXECUTE 'COMPTER TESTMODIFSANT' CAPTURING W_MsgTestModifsAnt
		W_CountTestModifsAnt=OCONV(W_MsgTestModifsAnt,"MCN")
		
		IF W_CountModifsAnt=W_CountTestModifsAnt THEN
			EXECUTE 'VIDER-FICHIER MODIFSANT'
		END ELSE
			W_Sortie="Problème dans le nombre le nombre d'articles copiés" 	
		END
	END
	
RETURN

