@echo off
REM **************************************************  DEFINIR UNIDAD 
set unidad=C:
REM ********  NO MODIFICAR ***************************
set tlmp=%unidad%\tlmp
REM **************************************************  DEFINIR RUTAS A TLMP
set forms=%tlmp%\form
set bases=%tlmp%\bases
set backup=%tlmp%\_backup
set TCP=20931
REM ********  NO MODIFICAR A PARTIR DE ESTE PUNTO ****

@echo off
cls
set dlc=%tlmp%\dlc
set bcklog=%backup%\backup.log
mkdir %backup%
mkdir %backup%\bases
mkdir %backup%\form
mkdir %backup%\dlc
echo ---- Inicio proceso de BACKUP > %bcklog%
time /t >> %bcklog%
echo - >> %bcklog%
del %tlmp%\bases\tmp.ini

call:APPSERVERS
call:WSSERVERS


echo. >> %bcklog%
time /t >> %bcklog%
echo -- Deteniendo bases de datos >> %bcklog%
echo. >> %bcklog%
setlocal enableextensions enabledelayedexpansion
set /a count = 0

:PARARBASES
set /a count += 1
for %%x in ( %bases%\*.lk) do (
	echo -- !count! -- Deteniendo %%~nx >> %bcklog%
	call %dlc%\bin\dbman -stop %%~nx -port %TCP% >> %bcklog%
)

echo ---- Esperando 30 segs ... >> %bcklog%
echo. >> %bcklog%
%tlmp%\sleep.exe 30
for %%x in ( %bases%\*.db) do (
	echo -- !count! -- Comprobando %%~nx >> %bcklog%
	if !count! EQU 5 (
		endlocal
    		if exist %bases%\%%~nx.lk goto PARARBASESFORCE
	) else  (
		if exist %bases%\%%~nx.lk goto PARARBASES
	)
)
endlocal

goto COPIABASES

:PARARBASESFORCE
echo.
time /t >> %bcklog%
echo ---- FORZAR Detencion bases de datos >> %bcklog%
echo.
for %%x in ( %bases%\*.lk) do (
	echo ----- FORZAR Detencion %%~nx >> %bcklog%
	call %dlc%\bin\proshut %bases%\%%~nx -by >> %bcklog%
)
echo ---- Esperando 10 segs ... >> %bcklog%
echo.
%tlmp%\sleep.exe 10
for %%x in ( %bases%\*.db) do (
	echo ----- Comprobando %%~nx >> %bcklog%
	if exist %bases%\%%~nx.lk GOTO PARARBASESFORCE
)
echo.
time /t >> %bcklog%
echo ---- FORZAR Detencion Servicio AdminService >> %bcklog%
echo.
net stop AdminService10.1B >> %bcklog%
taskkill /im java.exe /F >> %bcklog%
if exist %bases%\tlmp-web.db GOTO APPSERVERS
GOTO COPIABASES


:APPSERVERS
echo. >> %bcklog%
time /t >> %bcklog%
echo -- Deteniendo AppServers >> %bcklog%
for %%x in ( %tlmp%\bases\logs\*.server.log) do (
    	SET string=%%~nx
    	setlocal EnableDelayedExpansion
    	SET modified=!string:.server=!
	echo ---- AppServer !modified! >> %bcklog%
	call %dlc%\bin\asbman -stop -name !modified! -port %TCP% >> %bcklog%
	endlocal
)
goto:eof

:WSSERVERS
echo. >> %bcklog%
time /t >> %bcklog%
echo -- Deteniendo WSServers >> %bcklog%
for %%x in ( %tlmp%\_W3\_logs\*.server.log) do (
    	SET string=%%~nx
    	setlocal EnableDelayedExpansion
    	SET modified=!string:.server=!
	echo ---- WSServer !modified! >> %bcklog%
	call %dlc%\bin\asbman -stop -name !modified! -port %TCP% >> %bcklog%
	endlocal
)
goto:eof

call net stop lucene-tmt >> %bcklog%
GOTO COPIABASES
:COPIABASES
echo. >> %bcklog%
time /t >> %bcklog%
echo ---- Copia bases de datos >> %bcklog%
echo. >> %bcklog%
xcopy %bases%\tlm*.* %backup%\bases\*.* /V /Y /f >> %bcklog%
echo - >> %bcklog%
echo. >> %bcklog%
time /t >> %bcklog%
echo ---- Copia bases de formularios >> %bcklog%
xcopy %forms%\*.* %backup%\form\*.* /V /Y /E /F /D >> %bcklog%
echo. >> %bcklog%
time /t >> %bcklog%
echo ---- Copia DLC Propeerties >> %bcklog%
xcopy %dlc%\properties\*.* %backup%\DLC\*.* /V /Y /E /F /D >> %bcklog%
echo. >> %bcklog%
:TRUNCARBASES
echo. >> %bcklog%
time /t >> %bcklog%
echo ---- Truncando bases de datos >> %bcklog%
echo. >> %bcklog%
for %%x in ( %bases%\*.db) do (
	echo ----- Truncando %%~nx >> %bcklog%
	call %dlc%\bin\_proutil %bases%\%%~nx -C truncate bi >> %bcklog%
)
:BI GROW
echo. >> %bcklog%
time /t >> %bcklog%
echo ---- BiGrow bases de datos >> %bcklog%
echo. >> %bcklog%
for %%x in ( %bases%\*.db) do (
	echo ----- Truncando %%~nx >> %bcklog%
	rem call %dlc%\bin\_proutil %bases%\%%~nx -C bigrow 96 >> %bcklog%
)
:PROLOG
echo. >> %bcklog%
time /t >> %bcklog%
echo ---- Prolog de registros >> %bcklog%
echo. >> %bcklog%
for %%x in ( %bases%\*.db) do (
	echo ----- Prolog %%~nx >> %bcklog%
	call %dlc%\bin\prolog %bases%\%%~nx >> %bcklog%
)
echo ---- Eliminar archivos Banco de datos >> %bcklog%
del %tlmp%\comu\*.zip /Q /F /s
del %tlmp%\comu\flag1 /Q /F /s
del %tlmp%\comu\flag2 /Q /F /s
del %tlmp%\comu\*.con /Q /F /s
del %tlmp%\comu\*.d /Q /F /s
echo ---- Limpieza carpeta temporal, *.dbi, *.lbi, *.srt, protrace.* >> %bcklog%
del %tlmp%\tmp\*.* /Q /F /s
del %tlmp%\dbi????? /Q /F /s
del %tlmp%\lbi????? /Q /F /s
del %tlmp%\srt????? /Q /F /s
del %tlmp%\protrace.* /Q /F /s
del %tlmp%\*.trc /Q /F /s
echo - >> %bcklog%
echo. >> %bcklog%
time /t >> %bcklog%
echo ---- Iniciando Bases de Datos >> %bcklog%
call %dlc%\bin\dbman -start -all >> %bcklog%
net start AdminService10.1B >> %bcklog%

:DBWAIT
echo. >> %bcklog%
time /t >> %bcklog%
%tlmp%\sleep.exe 10
for %%x in ( %bases%\*.db) do (
	echo ---- Esperando inicio BD %%~nx >> %bcklog%
	if not exist %bases%\%%~nx.lk GOTO DBWAIT
)



echo. >> %bcklog%
time /t >> %bcklog%
echo -- Iniciando AppServers >> %bcklog%
for %%x in ( %tlmp%\bases\logs\*.server.log) do (
    	SET string=%%~nx
    	setlocal EnableDelayedExpansion
    	SET modified=!string:.server=!
	echo ---- AppServer !modified! >> %bcklog%
	call %dlc%\bin\asbman -name !modified! -start -port %TCP% >> %bcklog%
	endlocal
)

echo. >> %bcklog%
time /t >> %bcklog%
echo -- Iniciando WSServers >> %bcklog%
for %%x in ( %tlmp%\_W3\_logs\*.server.log) do (
    	SET string=%%~nx
    	setlocal EnableDelayedExpansion
    	SET modified=!string:.server=!
	echo ---- WSServer !modified! >> %bcklog%
	call %dlc%\bin\asbman -name !modified! -start -port %TCP% >> %bcklog%
	endlocal
)

call net start lucene-tmt >> %bcklog%

echo. >> %bcklog%
echo ---- Calcular acumulados obra >> %backup%\backup.log
rem if exist %tlmp%\prog\p10tar01948-130.r %dlc%\bin\prowin32.exe -p %tlmp%\prog\p10tar01948-130.r -ininame %tlmp%\tlmp.ini -Wa –wpp >> %bcklog%

echo ---- Recalculo stocks pendientes de servir >> %bcklog%
rem if exist %tlmp%\prog\p10tar90000-650.r %dlc%\bin\prowin32.exe -p %tlmp%\prog\p10tar90000-650.r -ininame %tlmp%\TLMP.ini -Wa –wpp >> %bcklog%

echo ---- Recalculo stocks pendientes de recibir >> %bcklog%
rem if exist %tlmp%\prog\p10tar90000-640.r %dlc%\bin\prowin32.exe -p %tlmp%\prog\p10tar90000-640.r -ininame %tlmp%\TLMP.ini -Wa –wpp >> %bcklog%

echo ---- Stock en transito >> %bcklog%
rem if exist %tlmp%\prog\p10tar90000-540.r %dlc%\bin\prowin32.exe -p %tlmp%\prog\p10tar90000-540.r -ininame %tlmp%\TLMP.ini -Wa –wpp >> %bcklog%

echo ---- Recálculo de los albaranes pendientes de facturar >> %bcklog%
rem if exist %tlmp%\prog\w10espe25100.r %dlc%\bin\prowin32.exe -p %tlmp%\prog\w10espe25100.r -ininame %tlmp%\TLMP.ini -Wa –wpp >> %bcklog%

echo ---- Limpiar tablas temporales >> %bcklog%
if exist %tlmp%\prog\ptarfictmp010.r %dlc%\bin\prowin32.exe -p %tlmp%\prog\ptarfictmp010.r -ininame %tlmp%\tlmp.ini -Wa –wpp >> %bcklog%
echo ---- Proceso finalizado >> %bcklog%
time /t >> %bcklog%