accordDepart6.bat

accordDepart6.bat

@@ -0,0 +1,118 @@
+@echo off
+
+REM mettre l'encodage OEM850 pour avoir les accents
+
+:Loop
+IF "%1"=="" GOTO Continue
+IF "%1"=="--help" GOTO help
+SHIFT
+GOTO Loop
+
+:help
+echo Aide:
+echo 1. Sur le serveur de maintenace Mistral, faire une requ<71>te SQL:
+echo dialogue_tvt '18/09/18','19/09/18','snpi'
+echo.
+echo 2. Copier /coller le r<>sultat dans le Bloc Note et cr<63>er un nouveau fichier.
+echo Important: Sauver le fichier sur la cl<63> IHM1 avec un nom commen<65>ant par AD (ex AD_09-10_09_2018.txt)
+echo.
+echo ou
+echo.
+echo 1. Sur le serveur de maintenace Mistral, faire une requ<71>te SQL:
+echo dialogue_tvt '18/09/18','19/09/18','snpi' et exporter le r<>sultat dans un fichier (Menu Query->Result to file)
+echo.
+echo 3. Inserer la cl<63> IHM1 sur un poste connect<63> au r<>seau et double-cliquer sur accordDepart4.bat
+echo Le script recherche et propose le fichier commencant par AD le plus recent.
+echo Si c'est le bon fichier, taper O
+echo Sinon, taper N. Entrer le nom du fichier en vous aidant de la touche Tab
+echo.
+echo 4. Un nouveau fichier est cr<63>e et joint en PJ a Outlook dans un nouveau message.
+echo Dans Outlook, cliquer sur Envoyer.
+echo.
+Echo 5. Retourner sur le script, appuyer sur une touche pour quitter le script et effacer le fichier.
+echo.
+exit /b 15
+:Continue
+
+REM *** Options: ***
+
+REM OPENFILE=true ouvre le fichier des accords de depart avant de l'envoyer.
+set OPENFILE=false
+REM le script recherche le fichier commencant par AD le plus r<>cent.)
+set FILENAME=AD*.txt
+set FILEPATH=
+
+
+echo.
+echo *** Recherche des accords de d<>part ***
+echo.
+
+echo On recherche un fichier AD*.txt ...
+
+FOR /F %%f in ('dir /O:D /S /B %FILENAME%') do (
+	set FILEPATH=%%f
+)
+
+REM si aucun fichier n'a <20>t<EFBFBD> trouv<75>, on le rentre manuellement.
+IF NOT "%FILEPATH%"=="" (
+	CHOICE /C ON /D O /T 5 /M "%FILEPATH% : est-ce le bon fichier ?"
+	IF errorlevel 2 goto non
+	IF errorlevel 1 goto oui
+)
+
+:non
+echo.
+echo Taper le nom du fichier archive SNPI... (Tab)
+set /P FILEPATH=
+set FILEPATH=%CD%%FILEPATH%
+echo.
+
+:oui
+echo.
+
+IF EXIST "%FILEPATH%" (
+    goto find
+ ) ELSE ( 
+    goto fin
+ )
+
+echo.
+
+:find
+REM echo %FILEPATH%
+
+set import=%FILEPATH%
+set export=%FILEPATH:AD=AccordDepart% 
+
+REM on recherche la chaine "AccorderDepart"
+find "AccorderDepart" "%import%" > "%export%"
+
+REM et on sauvegarde le r<>sultat sur le bureau.
+echo.
+echo Un fichier %export% a <20>t<EFBFBD> cr<63>e sur la cl<63>...
+
+REM on ouvre le r<>sultat dans le Bloc Note. (option)
+echo.
+if %OPENFILE% equ true (
+	start notepad.exe "%export%"
+) else (
+	echo Mettre l'option OPENFILE=true pour afficher le fichier
+	echo.
+)
+
+REM on pr<70>pare le mail avec sa PJ
+"c:\Program Files\Microsoft Office\Office14\OUTLOOK.EXE" /c ipm.note /m "mailto:seb.huet@reseau.sncf.fr?subject=[Accord de depart IHM1]&body=Bonjour, " /a "%export%"
+
+REM reste <20> cliquer sur envoyer
+
+Echo Dans Outlook, cliquer sur Envoyer !!!
+PAUSE >nul
+
+if %OPENFILE% equ true (
+	taskkill /IM notepad.exe /T
+)
+REM on efface le fichier des accords de d<>part
+DEL %export%
+
+:fin
+Echo Aucun fichier n'a pas <20>t<EFBFBD> trouv<75>.