|MDOC
 |FKT:		Kompatibilit„tspr�fung f�r Indexparameter f�r Flexlend
 |REQ:		#u’p=diag
 |RQV:		31.10

 |(C):		Anando Eger 2008-2015
 |COST:   960

ins $parameter
$package Flexlend
$modul FL-DIAG:2015-05-21
$version FL 2.25

 |Programmversion ab 31.10 erforderlich
var m\var (b" v")\ins $t\Z=\var Z
if >31 jump version_ok
if <31 jump badversion
var $t (b".")\z=\if z>9 jump version_ok
mes Die a99-Version muss mindestens v31.10 sein\end

:version_ok
 | akt. Record merken
var #nr\ins $nr
 
 |akt. Index einlesen
var B\index p

 |Dummy-Satz anlegen
perf MP_DisClear
var "Datenbank:" 9 9 D B\ins _\\_\\\\_\ins $t
var "\\par\\par\\tab Index-Kompatibilitätsprüfung zu aLF(DOS)/FlexLend " $version "\\par"
perf MP_DisAdd
var "78"\perf MP_DisHR
var ""\perf MP_DisAddLine
var "\\par\\tab " $t "\\par\\tab Programmversion: " 9 m "          "
var +"Datum: " #dt(b", ") "\\par\\tab"
perf MP_DisAdd
var "78"\perf MP_DisHR
var ""\perf MP_DisAddLine

var "\\b nicht konform\\b0 "\ins $fh
var " (unkritisch)"\ins $fu
var "\\b - fehlt -\\b0 "\ins $f
var " (FlexLend-Erweiterung)"\ins $ff
var "\\cf6 \\b Kritisch!\\b0 \\cf0 "\ins $fk

new 0

 |+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 | 1. Benutzerdatensatz
 |+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
#00 axxxx
#9B 0123456nBenutzer, BerndcHerrd19500101D20090917email@test.deFFaxikuerzelE5kZA20000101a29991231sStrasseoOrtpPLZfBereichjBerufumtTelefon

var "\\par\\tab Benutzersatz:\\tab Primärschlüssel " p " "\perf MP_DisAdd
var p "X"\if "|:B123456X" var "o.k";perf MP_DisAdd
var p "X"\if not "|:B123456X" var $fh " (Soll: '|:B123456')";perf MP_DisAdd

var "\\par\\tab\\tab\\tab Benutzercode im Register 10 "\perf MP_DisAdd
var $fh $fu\ins $t
var sK\if %|:B123456% var "o.k.";ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab Benutzername im Register 10 "\perf MP_DisAdd
var "benutzer, bernd.*[_=]123456"\ins #u!!\var sK\srx
if yes var "o.k."\if no var $fh\perf MP_DisAdd

var "\\par\\tab \\tab\\tab Aufnahmedatum im Register 10A "\perf MP_DisAdd
var $fh $fu\ins $t
var sK\if %|:A20000101% var "o.k.";ins $t
var sK\if not %|:A% var "fehlt" $fu;ins $t
var $t\perf MP_DisAdd

var "\\par\\tab \\tab\\tab Ausweisablauf im Register 10 "\perf MP_DisAdd
var $fh $fu\ins $t
var sK\if %|:Z29991231% var "o.k.";ins $t
var $t\perf MP_DisAdd

var ""\#9B

 |+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 | 2. Leserklasse
 |+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

#9A C1CLeserklasse

var "\\par\\par\\tab Leserklasse:  Primärschlüssel " p " "\perf MP_DisAdd
var p "X"\if "|;SYSC1" var "o.k.";ins $t
var p "X"\if not "|;SYSC1" var $fh;ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab Leserklassentypcode "\perf MP_DisAdd
var sK\if %|;SYSC1% var "o.k.";ins $t
var sK\if not %|;SYSC1% var $fh;ins $t
var $t\perf MP_DisAdd

var ""\#9A

 |+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 | 3. Medientypstamm
 |+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

#9A MxCBLABKlartext

var "\\par\\par\\tab Medientypstamm Primärschlüssel " p " "\perf MP_DisAdd
var p "X"\if "|;SYSMx" var "o.k.";ins $t
var p "X"\if not "|;SYSMx" var $fh;ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab MTS-Kürzel Reg. 11 "\perf MP_DisAdd
var sK\if %|;SYSEBLA% var "o.k.";ins $t
var sK\if not %|;SYSEBLA% var $fh;ins $t
var $t\perf MP_DisAdd

var ""\#9A

 |+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 | 4. Medientyps„tze
 |+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

#9A DxCBLABy

var "\\par\\par\\tab Medientypsatz Primärschlüssel " p " "\perf MP_DisAdd
var p "X"\if "|;SYSDx/y" var "o.k.";ins $t
var p "X"\if not "|;SYSDx/y" var $fh;ins $t
var $t\perf MP_DisAdd

var ""\#9A

 |+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 | 5. Exemplardatens„tze
 |+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

#9DFid9DF123OMist
#9DGla456aAz789aAmBLA
#9DHu135R20080831M20080915m20080907n1

var "\\par\\par\\tab Exemplarsatz\\tab Primärschlüssel " p " "\perf MP_DisAdd
var $fk " Soll: |:E(barcode) oder |:E(Z.-Nr.)"\ins $t
var p "X"\if "|:E456aAX" var "o.k. (Barcode)";ins $t
var p "X"\if "|:E789aAX" var "o.k. (Zug-Nr.)";ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab Eintrag |10Titel-ID "\perf MP_DisAdd
var $fh\var +" Soll: |:id9DF123:*"\ins $t
var sK\if %|:id9DF123:% var "o.k.";ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab Barcode Reg. 10E "\perf MP_DisAdd
var sK\if %|:E456% var "o.k.";ins $t
var sK\if not %|:E456% var $fh;ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab Rückgabedatum Reg. 10R "\perf MP_DisAdd
var sK\if %|:R20080831% var "o.k.";ins $t
var sK\if not %|:R20080831% var $fh;ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab Mahndatum Reg. 11MD "\perf MP_DisAdd
var sK\if %|;MD20080915% var "o.k.";ins $t
var sK\if not %|;MD20080915% var $fh;ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab gemahnt Reg. 11MM "\perf MP_DisAdd
var sK\if %|;MM20080907% var "o.k.";ins $t
var sK\if not %|;MM20080907% var $fh;ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab Mahnstufe Reg. 11MSB "\perf MP_DisAdd
var sK\if %|;MSB135/1:20080907% var "o.k.";ins $t
var sK\if not %|;MSB135/1:20080907% var $fh $ff;ins $t
var sk\if not %|;MSB% var $f $ff;ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab Kontoeintrag Reg. 11B "\perf MP_DisAdd
var sK\if %=|;B135 20080831,id9DF123:456aA=% var "o.k.";ins $t
var sK\if not %=|;B135 20080831,id9DF123:456aA=% var $fh;ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab Leserkonto Ex. Reg. 11LKE "\perf MP_DisAdd
var sK\if %|;LKE135/BLA% var "o.k.";ins $t
var sK\if not %|;LKE135/BLA% var $fh;ins $t
var $t\perf MP_DisAdd

#9DHu135R20080831M20080915m20080907n9U20081231

var "\\par\\tab\\tab\\tab Ultimo-Datum Reg. 11ML "\perf MP_DisAdd
var sK\if %|;ML20081231% var "o.k.";ins $t
var sK\if not %|;ML20081231% var $fh;ins $t
var $t\perf MP_DisAdd

#9DGWa456z789mBLA
#9DHu135W20080831w20080731

var "\\par\\tab\\tab\\tab Reserviert am Reg. 11LKR "\perf MP_DisAdd
var sK\if %|:LKR135/20080731% var "o.k.";ins $t
var sK\if not %|:LKR135/20080731% var $fh $fu;ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab Reserviert bis Reg. 10W "\perf MP_DisAdd
var sK\if %|:W20080831% var "o.k.";ins $t
var sK\if %|:Wr20080831% var "o.k. (komp.-Mode)";ins $t
var sK\if not %|:W20080831% var $fh;ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab Reservierung Kontoeintrag Reg. 11B "\perf MP_DisAdd
var sK\if %|;B135 W20080831,id9DF123:456% var "o.k.";ins $t
var sK\if not %|;B135 W20080831,id9DF123:456% var $fh;ins $t
var $t\perf MP_DisAdd

 |+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 | 6. Exemplarvormerkung
 |+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

#9DFid9DF123OMist
#9DGVa456aAz789mBLAe1sTEST
#9DHu135V20080831D20080730/08:00:00
  var n sK\ins _==_^M^J_\perf MP_DisAdd

var "\\par\\par\\tab Exemplarvormerkung Primärschlüssel " p " "\perf MP_DisAdd
var p "X"\if "|:id9DF123:456aA V20080730/08:00:00X" var "o.k.";ins $t
var p "X"\if not "|:id9DF123:456aA V20080730/08:00:00X" var $fh $fu;ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab Eintr. unter Titel-ID Reg. 10 "\perf MP_DisAdd
var sK\if %|:id9DF123:456aA V20080730/08:00:00% var "o.k.";ins $t
var sK\if not %|:id9DF123:456aA V20080730/08:00:00% var $fh;ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab Vormerkung Ablauf Reg. 10V o. 10Vm "\perf MP_DisAdd
var $fh\ins $t
var sK\if %|:V20080831% var "o.k.";ins $t
var sK\if %|:Vm20080831% var "o.k. (komp.-Mode)";ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab Vormerkung Kontoeintrag Reg. 11B "\perf MP_DisAdd
var $fh\ins $t
var sK\if %|;B135 V20080831,id9DF123:456% var "o.k.";ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab Leserkonto Vormerkungen Reg. 11LKV "\perf MP_DisAdd
var sK\if %|;LKV135/id9DF123:20080831% var "o.k.";ins $t
var sK\if not %|;LKV135/id9DF123:20080831% var $fh $fu;ins $t
var sK\if not %|;LKV% var $f;ins $t
var $t\perf MP_DisAdd

 |+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 | 7. Titelvormerkung
 |+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

#9DFid9DF123OMist
#9DGVO123.456.234.1
#9DHu135V20080831D20080730/08:00:00

var "\\par\\par\\tab Titelvormerkung Primärschlüssel " p " "\perf MP_DisAdd
var p "X"\if "|:id9DF123 V20080730/08:00:00" var "o.k.";ins $t
var p "X"\if not "|:id9DF123 V20080730/08:00:00" var $fh $fu;ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab Eintr. unter Titel-ID Reg. 10 "\perf MP_DisAdd
var sK\if %|:id9DF123 V20080730/08:00:00% var "o.k.";ins $t
var sK\if not %|:id9DF123 V20080730/08:00:00% var $fh;ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab Vormerkung Ablauf Reg. 10V o. 10Vm "\perf MP_DisAdd
var $fh\ins $t
var sK\if %|:V20080831% var "o.k.";ins $t
var sK\if %|:Vm20080831% var "o.k.";ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab Vormerkung Kontoeintrag Reg. 11B "\perf MP_DisAdd
var sK\if %|;B135 V20080831,id9DF123% var "o.k.";ins $t
var sK\if not %|;B135 V20080831,id9DF123% var $fh;ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab Leserkonto Vormerkungen Reg. 11LKV "\perf MP_DisAdd
var sK\if %|;LKV135/id9DF123:20080831% var "o.k.";ins $t
var sK\if not %|;LKV135/id9DF123:20080831% var $fh $fu;ins $t
var sk\if not %|;LKV% var $f;ins $t
var $t\perf MP_DisAdd

var ""
#9DF
#9DG
#9DH

 |+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 | 8. Geb�hrensatz
 |+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


#9GF0G0B135D20080730OALFM20080831K1m20080815n1
 | Verzug
#9GGS1400xEUR
  var n sK\ins _==_^M^J_\perf MP_DisAdd

var "\\par\\par\\tab Gebührensatz (offen) nach Benutzer Reg. 11GB "\perf MP_DisAdd
var sK\ins $k\if %|;GB135% var "o.k.";ins $t
var $k\if not %|;GB135% var $fh;ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab nach Datum Reg. 11GD "\perf MP_DisAdd
var $k\if %|;GD20080730/0% var "o.k.";ins $t
var $k\if not %|;GD20080730/0% var $fh;ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab nach Gebührenart Reg 11GT "\perf MP_DisAdd
var $k\if %|;GT0/135:20080730% var "o.k.";ins $t
var $k\if not %|;GT0/135:20080730% var $fh;ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab Mahndatum Reg. 11MD "\perf MP_DisAdd
var $k\if %|;MD20080831% var "o.k.";ins $t
var $k\if not %|;MD20080831% var $fh;ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab gemahnt am Reg. 11MM "\perf MP_DisAdd
var $k\if %|;MM20080815% var "o.k.";ins $t
var $k\if not %|;MM20080815% var $fh;ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab Mahnung n. Benutzer Reg. 11MB "\perf MP_DisAdd
var $k\if %|;MB135/G20080815:1% var "o.k.";ins $t
var $k\if not %|;MB135/G20080815:1% var $fh;ins $t
var $t\perf MP_DisAdd

#9GFTG0B135D20080730OALFM20080831K1d20080801
  var n sK\ins _==_^M^J_\perf MP_DisAdd

var "\\par\\par\\tab Gebührensatz (getilgt) nach Benutzer Reg. 11TGB "\perf MP_DisAdd
var sK\ins $k\if %|;TGB135/20080801% var "o.k.";ins $t
var $k\if not %|;%GB135/20080801% var $fh;ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab nach Typ Reg. 11TGT "\perf MP_DisAdd
var $k\if %|;TGT0/135:20080801% var "o.k.";ins $t
var $k\if not %|;TGT0/135:20080801% var $fh;ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab nach Tilg.-Datum Reg. 11TGD "\perf MP_DisAdd
var $k\if %|;TGD20080801/0:1400% var "o.k.";ins $t
var $k\if not %|;TGD20080801/0:1400% var $fh;ins $t
var $t\perf MP_DisAdd

var "\\par\\tab\\tab\\tab nach Erfassungsdatum Reg. 11TGE "\perf MP_DisAdd
var $k\if %|;TGE20080730/0:1400;20080801% var "o.k.";ins $t
var $k\if not %|;TGE20080730/0:1400;20080801% var $fh;ins $t
var $t\perf MP_DisAdd

var ""\#9GF\#9GG
erase
if diff undo
var "78"\perf MP_DisHR
var W "\\fl-diagtmp.rtf"
file

  | vorher angezeigten Satz wiederherstellen
var "#" $nr\find
  | Anzeige in Grundzustand
dis\sho rec

  | Ergebnis anzeigen
var W "\\fl-diagtmp"\h
set db

var "Fertig." n n "Protokoll (fl-diagtmp.rtf) ausdrucken?"\yesno
if yes print

var "X fl-diag"\sho iv
end


  |&-------------------------------------------------------------------------
:MP_DisClear
 ----------------------------------------------------------------------------
  |IN:		-
  |OUT:		iv unver„ndert oder enth„lt "’’’", wenn Abbruch gew�nscht
  |FKT:         l”scht Anzeigefeld
  |VAR:		$AE_Display
  |DATE:	2007-12-17
  |&-------------------------------------------------------------------------
ins $tDisClear\var ""\ins $AE_Display
sho IV\sleep 1\keycheck\if yes var "’’’";jump MP_DisClear_E1

:MP_DisClear_End
var $tDisClear

:MP_DisClear_E1
return\mes Return-Fehler Æ_DisClear()\end

  |&-------------------------------------------------------------------------
:MP_DisAdd
 ----------------------------------------------------------------------------
  |IN:		iv: an Display anzuh„ngenden String (rtf)
  |OUT:		iv  unver„ndert oder
  |		iv enth„lt "’’’", wenn Abbruch gew�nscht
  |FKT:         aktualisiert Anzeigefeld
  |VAR:		$AE_Display
  |DATE:	2007-12-17
  |&-------------------------------------------------------------------------

ins $tDisAdd
var $AE_Display $tDisAdd\ins $AE_Display\var +"}"\sho IV\sleep 1\keycheck
if yes var "’’’";jump MP_DisAdd_E1

:MP_DisAdd_End
var $tDisAdd

:MP_DisAdd_E1
return\mes Return-Fehler Æ_DisAdd()\end

  |&-------------------------------------------------------------------------
:MP_DisAddLine
 ----------------------------------------------------------------------------
  |IN:		iv: an Display anzuh„ngenden Zeile (ascii); "\par " wird
  |		angeh„ngt
  |OUT:		iv unver„ndert
  |FKT:         aktualisiert Anzeigefeld
  |VAR:		$AE_Display
  |DATE:	2007-02-07
  |&-------------------------------------------------------------------------

ansi\ins _\\_\\\\_\ins _^I_\\tab _\ins _^M^J_\\par _
ins $tMP_DisAddLine
var $AE_Display $tMP_DisAddLine "\\par "\ins $AE_Display\var +"}"\sho IV\sleep 1
keycheck\if yes var "’’’";jump MP_DisAddLine_E1

:MP_DisAddLine_End
var $tDisAddLine

:MP_DisAddLine_E1
return\mes Return-Fehler Æ_DisAddLine()\end

  |&-------------------------------------------------------------------------
:MP_DisHR
 ----------------------------------------------------------------------------
  |IN:		iv: L„nge der horizontalen Linie
  |OUT:		iv  unver„ndert
  |FKT:         aktualisiert Anzeigefeld
  |VAR:		$AE_Display
  |DATE:	2008-04-16
  |&-------------------------------------------------------------------------

ins $tDisHR\z=
var ""
:MP_DisHRLoop
var +"-"\z-1
if z>0 jump MP_DisHRLoop
ins $tDisHR1

var $AE_Display "\\par " $tDisHR1\ins $AE_Display\sho IV\keycheck

:MP_DisShow_End
var $tDisHR

:MP_DisShow_E1
return\mes Return-Fehler Æ_DisShow()\end