From 0c9d072e77212232e8ce407a9702a342862bb0c6 Mon Sep 17 00:00:00 2001
From: Bruno 21 <bruno@clicclac.info>
Date: Mon, 4 Feb 2019 11:06:59 +0100
Subject: [PATCH] accordDepart6.bat

---
 accordDepart6.bat | 118 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 118 insertions(+)
 create mode 100644 accordDepart6.bat

diff --git a/accordDepart6.bat b/accordDepart6.bat
new file mode 100644
index 0000000..885fbd0
--- /dev/null
+++ b/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ˆ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‚er un nouveau fichier.
+echo Important: Sauver le fichier sur la cl‚ IHM1 avec un nom commen‡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ˆ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‚ IHM1 sur un poste connect‚ 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‚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 été trouvé, 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 ‚t‚ cr‚e sur la cl‚...
+
+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‚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 … 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 ‚t‚ trouv‚.