VonDoczuDoc.de

:: ohne Argument werden die Dateien umbenannt und funktionsunfähig
:: Aufruf zum WIEDERHERSTELLEN:
:: im Dos \> tmdocweg.bat "r" (Parameter "r" rekonstruiert den Funktionszustand)
:: Mit Ventario werden die Verträge und Vorschäge wie Cordiva usw.
:: aus dem Order C:\TurboMed\IV_Verwaltung\data\Data\doku beim Start aufgerufen
:: auf dem Server ist TurboMed auf F:\ installiert
@echo off
c:
cd C:\TurboMed\Programm
If %computername%==Server cd F:\TurboMed\Programm
set copycmd=/y

if %1x == "r"x GoTo Restauration

if exist dpModHlp.exe move dpModHlp.exe dpModHlp.ex-
if exist docportal.dll move docportal.dll docportal.dl-
if exist sqlite3.dll move sqlite3.dll sqlite3.dl-
if exist TMDocPortal.dll move TMDocPortal.dll TMDocPortal.dl-
if exist qtBubble.exe move qtBubble.exe qtBubble.ex-
if exist qtDpBusinesslayer.exe move qtDpBusinesslayer.exe qtDpBusinesslayer.ex-
if exist TMVentarioClasses.dll move TMVentarioClasses.dll TMVentarioClasses.dl-
if exist TMVentario.dll move TMVentario.dll TMVentario.dl-
set str=umbenannt !
GoTo Meldung

:Restauration
if exist dpModHlp.ex- move dpModHlp.ex- dpModHlp.exe
if exist docportal.dl- move docportal.dl- docportal.dll
if exist sqlite3.dl- move sqlite3.dl- sqlite3.dll
if exist TMDocPortal.dl- move TMDocPortal.dl- TMDocPortal.dll
if exist qtBubble.ex- move qtBubble.ex- qtBubble.exe
if exist qtDpBusinesslayer.ex- move qtDpBusinesslayer.ex- qtDpBusinesslayer.exe
if exist TMVentarioClasses.dl- move TMVentarioClasses.dl- TMVentarioClasses.dll
if exist TMVentario.dl- move TMVentario.dl- TMVentario.dll
set str=restauriert !
Goto Meldung

:Meldung
@echo DocPortal und Ventario: Biblitheken auf wurden %str%
@echo %computername% wurde bearbeitet.
@pause