/*
**  $VER: Fiasco_Start 3.710 (29.Jun 98)  **
**
**        © 1996/98 Gerald Froehlich
**
**  PROGRAMNAME:
**      Fiasco_Start
**
**  FUNCTION:
**      Startet Fiasco mit DB Überweisungen & Vorlage
**
**  $HISTORY:
**
**  29 Jun 1998 : 003.710 :  unverändert
**  08 Jan 1998 : 003.544 :  Limits raus
**  14 Dec 1997 : 003.543 :  .rexx weg
**  23 Nov 1997 : 003.542 :  Versions-Variable
**  12 Nov 1997 : 003.541 :  Versionsprüfung
**  16 Apr 1997 : 003.500 :  Clip Virgin
**  14 Apr 1997 : 003.108 :  wieder ohne run
**  14 Apr 1997 : 003.107 :  im Batch: run Fiasco
**  13 Apr 1997 : 003.106 :  SIGNAL off ...
**  13 Apr 1997 : 003.105 :  mit RAM:-Datei
**  13 Apr 1997 : 003.104 :  Versuch mit run +
**  13 Apr 1997 : 003.103 :  Fehler-Routinen
**  13 Apr 1997 : 003.102 :  stack von Fiasco erhöht
**  14 Jan 1997 : 003.101 :  identisch
**  11 Jan 1997 : 003.031 :  Clips für Limits eingesetzt
**  18 Nov 1996 : 003.003 :  - no comment -
**   24 Mar 1996 : 0.01 : initial release
*/

F_neu = "6.282"


OPTIONS RESULTS

SIGNAL on error
SIGNAL ON break_c
SIGNAL ON break_d
SIGNAL ON break_e
SIGNAL ON break_f
SIGNAL ON failure
SIGNAL ON halt
SIGNAL ON ioerr
SIGNAL ON syntax

IF (~show('l','rexxreqtools.library')) THEN
    call addlib('rexxreqtools.library',0,-30,0)

IF (~show('l','rexxtricks.library')) THEN
    call addlib('rexxtricks.library',0,-30,0)


/*****************************************/

 file = GetClip("FiascoPfad")

a = SetClip("Virgin","0")

IF ~show("P",'FIASCO') THEN DO
  a = Open(B1,"RAM:Command.1","W")
  a = WriteLn(B1,"stack 8192")
  a = WriteLn(B1,file || "Fiasco")
  a = Close(B1)
  ADDRESS command
   'run execute RAM:Command.1'
  
  DO FOREVER
   IF Show("P",'FIASCO') THEN BREAK
  END
END

/* VERSION von FIASCO in CLIP setzten */

ADDRESS command "VERSION >env:FIASCO_V" GetClip("FiascoPfad") || "FIASCO"

a = SetClip("F_Version", Word(RXTR_GETENV('FIASCO_V'),2)  )

SIGNAL off error
SIGNAL off failure

/* Projekte öffnen */

/* noch nicht so weit!

IF GetClip("F_Version") < F_neu THEN DO */

   ADDRESS FIASCO
   F_SelectProj 'Vorlagen.fdb'
   IF rc = 10 THEN DO
     F_OpenProject GetClip("HB_Fiasco") || "Vorlagen.fdb"
     F_OpenList
   END
   F_SelectProj 'Ueberweisungen.fdb'
   IF rc = 10 THEN DO
     F_NewProject
     F_OpenProject GetClip("HB_Fiasco") || "Ueberweisungen.fdb"
   END

/* END    noch nicht! */

EXIT 0

/*###################################
*** Debugging-Fehlerroutinen *******
###################################*/
syntax:
text =  'Syntax-Fehler' rc 'in Zeile' sigl '0A'x ErrorText(rc),
    '0A'x || SourceLine(sigl)
   CALL rtezrequest(text,"Alles klar!", "Fehlermeldung Fiasco",'rt_pubscrname='screen)
  EXIT 10

failure:
ioerr:
ERROR:
text =  'Fehler' rc 'in Zeile' sigl '0A'x ErrorText(rc),
    '0A'x || SourceLine(sigl)
   CALL rtezrequest(text,"Alles klar!", "Fehlermeldung Fiasco",'rt_pubscrname='screen)
  EXIT 10
halT:
break_c:
break_d:
break_e:
break_f:
text =  'User-Abbruch durch Halt!' || '0A'x || 'Wirklich abbrechen ?'
 ab = rtezrequest(text,"_Mach Schluss|_Neeiiin", "Fiasco",'rt_pubscrname='screen)
 IF ab = 1 THEN DO
  EXIT
 END
 ELSE RETURN