home *** CD-ROM | disk | FTP | other *** search
/ Chip 1994 March / CHIP0394.BIN / info / softserv / fibu40 / planinst.bat < prev    next >
DOS Batch File  |  1994-07-16  |  2KB  |  51 lines
  1. ECHO OFF
  2. CLS
  3. ECHO ╔════════════════════════════════════════════════════════════╗
  4. ECHO ║ Finanzbuchhaltung 4.0 Installationsprogramm                ║
  5. ECHO ║ Standard-Kontenplan übernehmen                             ║
  6. ECHO ║ Copyright 1989-94 STYX GmbH, Friedenstr. 9, 85609 Aschheim ║
  7. ECHO ╚════════════════════════════════════════════════════════════╝
  8. IF "%1" == "" GOTO FEHLER
  9. SET START=A:
  10. IF "%2" == "" GOTO WEITER
  11. SET START=%2
  12. IF %START% == A: GOTO WEITER
  13. IF %START% == a: GOTO WEITER
  14. IF %START% == B: GOTO WEITER
  15. IF %START% == b: GOTO WEITER
  16. IF %START% == D: GOTO WEITER
  17. IF %START% == d: GOTO WEITER
  18. IF %START% == E: GOTO WEITER
  19. IF %START% == e: GOTO WEITER
  20. IF %START% == F: GOTO WEITER
  21. GOTO FEHLER
  22. :WEITER
  23. DATE
  24. COPY FIBUDIR.LIB %1\FIBUDIR.EXE > NUL:
  25. %1\FIBUDIR %1 P
  26. IF ERRORLEVEL 1 GOTO ENDE
  27. DEL %1\FIBUDIR.EXE
  28. %START%
  29. ECHO ------  Start Installation Kontenplan ------  >>%1\FIBU\INSTALL.DAT
  30. COPY PLAN40.LIB %1PLAN40.EXE >>%1\FIBU\INSTALL.DAT
  31. COPY AUSW40.LIB %1AUSW40.EXE >>%1\FIBU\INSTALL.DAT
  32. %1
  33. PLAN40 <%START%FIBUINST.BAT >>%1\FIBU\INSTALL.DAT
  34. AUSW40 <%START%FIBUINST.BAT >>%1\FIBU\INSTALL.DAT
  35. DEL PLAN40.EXE
  36. DEL AUSW40.EXE
  37. IF EXIST PLAN.IDX DEL PLAN.IDX
  38. CD %1\FIBU >>%1\FIBU\INSTALL.DAT
  39. ECHO ------ Ende Installation Kontenplan ----  >>%1\FIBU\INSTALL.DAT
  40. %1
  41. ECHO Mit "Neuanlage" müssen die Konten noch angelegt werden!
  42. GOTO ENDE
  43. :FEHLER
  44. ECHO Fehler beim Aufruf des Programmes:
  45. ECHO Sie haben kein Laufwerk angegeben. Wenn Sie das Programm z.B.
  46. ECHO auf der Festplatte C: installieren wollen, geben Sie ein:
  47. ECHO      PLANINST C:
  48. ECHO Wenn die Originaldiskette in Laufwerk B: liegt geben Sie
  49. ECHO zusätzlich dieses an:     PLANINST C: B:
  50. :ENDE
  51.