@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‚.