*Recompiled
#main
VAR ReportTitel(C,40,0)
ReportTitel=$[mp_Titel]

  VAR Charset(C,10,0)
  VAR Zeile(N,8,0)
* VAR DoCase(u,3,0)
* VAR TempCase(u,12,0)
  VAR KeyArt(u,2,0)
  VAR KeyKz(u,1,0)

  KeyArt=AA
  Charset=OEM
  Zeile=0

  * Stelle 10..12 von Reporttitel nach DoCase bringen 
* TempCase=$[ReportTitel]
* DoCase=$[TempCase>3]

  IF CMP(DoCase,=)090
     KeyArt=11
  IF CMP(DoCase,=)090
     KeyKz=T

  IF CMP(DoCase,=)091
     KeyArt=14
  IF CMP(DoCase,=)091
     KeyKz=E

  * Texte sortiert nach Art+Lkz
  SUB #OutV
  REC Txt(LANGTEXTE,0,4)$[KeyArt<2]$[KeyLkz<2]
  LOOP Txt(#LoopTxt)
  SUB #OutE



#end

#LoopTxt
* ==================================================
* Abfrage Abbruch durch Bediener
IF YIELD($[Txt.Lkz]/$[Txt.Nr])
  GOTO :DoIt
BREAK Txt
RETURN

:DoIt
  REC Zl(LANGTEXTZEILEN,0,22)$[KeyArt<2]$[KeyLkz<2]$[Txt.NR<18]
  LOOP Zl(#LoopZl)

#end

#LoopZl
  Zeile=Zeile+1
  OUT $[KeyKz];N;$[Txt.NR];;$[Zl.LFDNR>2];;$[Zl.DATEN];;;;

#end

#OutV
  **** Datum ermitteln und Monat extrahieren
  VAR Heute(D,10,0)
  VAR Monat(C,5,0)
  Heute=H
  Monat=$[Heute]
  Monat=$[Monat>2]

  **** Waehrung ermitteln
  VAR Waehrung(u,3,0)
  REC Opts(OPTIONEN,0,0)
  SEEK Opts( 7008)
  Waehrung=DEM
  IF EOF(Opts)
     GOTO :Xwaehr
  IF EMPTY(Opts.OPTDATAC)
     GOTO :Xwaehr
  IF CMP(Opts.OPTDATAC,=)DM
     GOTO :Xwaehr
  Waehrung=$[Opts.OPTDATAC]
  :Xwaehr

  *** eigene Anschrift
  VAR myName(C,30,0)
  VAR myKurz(u,13,0)
  REC Anschr(EIGENE_ANSCHRIFTEN,0,0)
  IF EOF(Anschr)
     GOTO :XAdr
  myName=$[Anschr.NAME1]
  myKurz=$[Anschr.KURZNAME]
  :XAdr

  VAR Info2(C,40,0)
  Info2=Stand $[Heute], Kennung $[KeyLkz]

  **** Ausgabe Vorlaufsatz
  Zeile=$[Zeile]+1
  OUT V $[Heute>2]$[Monat]$[Heute<2]$[ReportTitel<40]$[Info2<40](C) $[myName<31]04$[Waehrung<3]

#end

#OutE
  Zeile=$[Zeile]+1
  *V50 OUT E;$[Zeile];;

#end

