//MDOC
pn="Datenquelle Buchkartendruck (LEC)"
//&---------------------------------------------------------------------------
//
// File: e-bk.apr
// Date: 2015-12-15
// Desc: erzeugt HTML-Datenquelle für WinWord-Etikettendruck
// Felder:
// ----------------------------------------------------
// Kopf Zeile für Köpfung
// Titel ISBD-Titelangabe
// Signatur #9DG$s oder #90
// Barcode #9DG$a
// Zugangsnummer #9DG$z oder #91
// Zugangsdatum #9DG$d oder #99n
// ----------------------------------------------------
// Var: #uDB gesetzt -> Testausschriften
// CHR: ansi
//&---------------------------------------------------------------------------
// (C): Anando Eger 2015
// COST: 240
zl=0 Zeilenlänge (nach Bedarf zu krzen)
zi=0
fl=0
fm=0
zm=0
dx=1
i4=1
ab=""
as=""
tmp-zt
50=C '
'
51=C ' | '
Filter: nit Titel und Exemplare
#00 +- c"*" e0 #zz 0
#9DG +- i4,V e0 #zz 0
#2n +- e0 #zz 0
#3n +- e0 #zz 0
#3t +- e0 #zz 0
#4n +- e0 #zz 0
#6n +- e0 #zz 0
#9s +- e0 #zz 0
#dts b"/" b":" b":" dsc asc Sekunden
#dts b"/" b":" e":" x"*60" x"+sc" dsc asc sek + 60*min
#dts b"/" e":" x"*3600" x"+sc" dsc asc sek + 60*min + 3600*std
#uhd "#uhd=" P{ C }
#usc "#usc=" P{ C }
#usc +#J00 x"-hd" x"<2" e0
#t{ '' }
#t{ '' C '' }
#t{ C '' }
#t{ C 'Kopf | ' }
#t{ C 'Titel | ' }
#t{ C 'Signatur | ' }
#t{ C 'Barcode | ' }
#t{ C 'Zugangsnummer | ' }
#t{ C 'Zugangsdatum | ' }
#t{ C '
' }
#J00
#usc dhd ahd #zz 0
========================================================================
Anfang
========================================================================
Exemplarinfos merken
#9DG b"" "" dex aex #zz 0
#9DF +#J00 e"" e"=" F" " |90
kein Exemplar, sondern Titel: Exemplar-Infos synthetisch
#nr dex e0 #zz 0
#90 "s" Aex
#91 "z" Aex
#99n e"/" "d" Aex
#00 e"" e"=" F" " "a" Aex
#J00
#t{ C '' }
Kopf
#t50
#40 +#J00 P":"
#61 +#J00 P":"
#60 +#J00 P":"
#20
#J00
#t51
ISBD
#t50
#>T
#t51
Signatur
#t50
#uex s
#t51
Barcode
#t50
#uex a
#t51
Zugangs-Nr.
#t50
#uex z
#t51
Zugangs-Datum
#t50
#uex d b6 e2
#uex d b4 e2 "."
#uex d e4 "."
#t51
#t{ C '
' }
# prophylaktisch
========================================================================
#+# Ende
========================================================================
========================================================================
#-Z
#- E End-Abschnitt
#t{ C '
' C }
#+#
========================================================================
ISBD-Darstellung
========================================================================
#(T
#nr "0" e1 dSz aSz SP Hierarchie
#-T
#uSz x"+1" dSz aSz
#00 +T c"+" t"+" |90
#09 +T t"+" |90
#-t
#40 P": " #zz 0
#00 +#J00 b"=" f" " P". " #74 8 #zz 0
#20 +#J00 i1,2 #74 8 #zz 0
#00 b"+" P". " #74 8 #zz 0
#J00
#74 0 #75 5 #76 2 #77 8 #zz 0
#75 0 #76 2 #77 8 #zz 0
#76 0 #77 8 #zz 0
#77 0 F"." #87 8
#87 +#J00 0 B"ISBN" "ISBN " f" "
#88 0 B"ISSN" "ISSN " f" "
#J00
#uSz " |#uSz=" P"| "
#uSz +#J09 x"<2" e0
#<
#t{ "
" }
#uSz +t x"-1" dSz aSz #zz 0
#J09
#uSz dSz e0
#)T
========================================================================
******** Sonderzeichen ***********
td ANSI->ASCII-Tabelle
p 255
p 47
q 47