<% var ek_dat=0 numeric; (* 0= mit Ausgabe Datum, 1 ohne *) var ek_tim=0 numeric; (* 0= mit Ausgabe Zeit, 1 ohne *) var dj,df,dr,ff,f string, dj1 object, i numeric; var dat,tim numeric; let dj1 be createObject('Collection'); let dr be '/bibdia/user/druck/benachricht_test/'; for ff in directory @dr do let f be @ff after @dr; if not @f startswith '_' then call @dj1.add(@f,@dj1); fi; od; call @dj1.sort(); for i from 1 to @dj1.'length'() do let f be @dj1.key(@i); if @f startswith '/mahn1_' then if (@f contains 'mahn1_222.txt') then let dj be 'Vormerkung gestern'; let df be '222'; fi; if (@f contains 'mahn1_120.txt') then let dj be 'Vormerkung heute'; let df be '120'; fi; if (@f contains 'mahn1_110.txt') then let dj be '1. Mahnung'; let df be '110'; fi; if (@f contains 'mahn1_116.txt') then let dj be '4. Mahnung'; let df be '116'; fi; if (@f contains 'mahn1_117.txt') then let dj be 'Buchersatz'; let df be '117'; fi; if (@f contains 'mahn1_118.txt') then let dj be 'Rechtsamt'; let df be '118'; fi; let ff be (@dr & @f); call fileCreationDate(@ff,@dat,@tim); write ''; write ''; if @ek_dat=0 then write ''; fi; if @ek_tim=0 then write ''; fi; write ''; write ''; write ''; fi; od; %>
Springe
' & '' & '' & '' & '' & '' & dateToString(@dat) & '' & slice(timeToString(@tim),1,5) & '' & @df & '' & @dj & '

<% let dj1 be createObject('Collection'); let dr be '/bibdia/user/druck/benachricht_test/'; for ff in directory @dr do let f be @ff after @dr; if not @f startswith '_' then call @dj1.add(@f,@dj1); fi; od; call @dj1.sort(); for i from 1 to @dj1.'length'() do let f be @dj1.key(@i); if @f startswith '/mahn2_' then if (@f contains 'mahn2_222.txt') then let dj be 'Vormerkung gestern'; let df be '222'; fi; if (@f contains 'mahn2_120.txt') then let dj be 'Vormerkung heute'; let df be '120'; fi; if (@f contains 'mahn2_110.txt') then let dj be '1. Mahnung'; let df be '110'; fi; if (@f contains 'mahn2_116.txt') then let dj be '4. Mahnung'; let df be '116'; fi; if (@f contains 'mahn2_117.txt') then let dj be 'Buchersatz'; let df be '117'; fi; if (@f contains 'mahn2_118.txt') then let dj be 'Rechtsamt'; let df be '118'; fi; let ff be (@dr & @f); call fileCreationDate(@ff,@dat,@tim); write ''; write ''; if @ek_dat=0 then write ''; fi; if @ek_tim=0 then write ''; fi; write ''; write ''; write ''; fi; od; %>
Haspe
' & '' & '' & '' & '' & '' & dateToString(@dat) & '' & slice(timeToString(@tim),1,5) & '' & @df & '' & @dj & '

<% let dj1 be createObject('Collection'); let dr be '/bibdia/user/druck/benachricht_test/'; for ff in directory @dr do let f be @ff after @dr; if not @f startswith '_' then call @dj1.add(@f,@dj1); fi; od; call @dj1.sort(); for i from 1 to @dj1.'length'() do let f be @dj1.key(@i); if @f startswith '/mahn3_' then if (@f contains 'mahn3_222.txt') then let dj be 'Vormerkung gestern'; let df be '222'; fi; if (@f contains 'mahn3_120.txt') then let dj be 'Vormerkung heute'; let df be '120'; fi; if (@f contains 'mahn3_110.txt') then let dj be '1. Mahnung'; let df be '110'; fi; if (@f contains 'mahn3_116.txt') then let dj be '4. Mahnung'; let df be '116'; fi; if (@f contains 'mahn3_117.txt') then let dj be 'Buchersatz'; let df be '117'; fi; if (@f contains 'mahn3_118.txt') then let dj be 'Rechtsamt'; let df be '118'; fi; let ff be (@dr & @f); call fileCreationDate(@ff,@dat,@tim); write ''; write ''; if @ek_dat=0 then write ''; fi; if @ek_tim=0 then write ''; fi; write ''; write ''; write ''; fi; od; %>
Hohenlimburg
' & '' & '' & '' & '' & '' & dateToString(@dat) & '' & slice(timeToString(@tim),1,5) & '' & @df & '' & @dj & '

<% let dj1 be createObject('Collection'); let dr be '/bibdia/user/druck/benachricht_test/'; for ff in directory @dr do let f be @ff after @dr; if not @f startswith '_' then call @dj1.add(@f,@dj1); fi; od; call @dj1.sort(); for i from 1 to @dj1.'length'() do let f be @dj1.key(@i); if @f startswith '/CLAIM' or @f startswith '/PRINT' then if (@f contains 'PRINT-ERRORS-SP') then let dj be 'fehlerh. Benachrichtigungen Springe'; let df be ''; fi; if (@f contains 'CLAIM-ERRORS-SP') then let dj be 'fehlerh. Mahnfälle Springe'; let df be ''; fi; if (@f contains 'PRINT-ERRORS-HA') then let dj be 'fehlerh. Benachrichtigungen Haspe'; let df be ''; fi; if (@f contains 'CLAIM-ERRORS-HA') then let dj be 'fehlerh. Mahnfälle Haspe'; let df be ''; fi; if (@f contains 'PRINT-ERRORS-HO') then let dj be 'fehlerh. Benachrichtigungen Hohenlimburg'; let df be ''; fi; if (@f contains 'CLAIM-ERRORS-HO') then let dj be 'fehlerh. Mahnfälle Hohenlimburg'; let df be ''; fi; let ff be (@dr & @f); call fileCreationDate(@ff,@dat,@tim); write ''; write ''; if @ek_dat=0 then write ''; fi; if @ek_tim=0 then write ''; fi; write ''; write ''; write ''; write ''; fi; od; %>
Kontrollen
' & '' & dateToString(@dat) & '' & slice(timeToString(@tim),1,5) & '' & @df & '' & @dj & '
' & readTextFile(@ff) & '