persistent DataM %Library.Persistent 0 0 1 0 Leverancier,ToeleveringsNr 1 Wordt ingevuld tijdens de overdracht van de Toeleveringslijst van BLUM. Waarde: copy van CIONBL %Library.String 0 0 0 0 0 0 0 0 Laatste keer dat het systeem gecontroleerd heeft dat het ABNr nog niet is ingevuld. Een nachtelijke job vult dit veld in. %Library.String 0 0 0 0 0 0 0 0 Format: Datum: DD.MM.JJ Sys.cDate 0 0 0 0 0 0 0 0 %Library.Numeric 0 0 0 0 0 0 0 0 Derde.Klant.Klant 0 0 0 0 0 0 0 0 Voor Leverancier = Blum bevindt deze klantnummer zich ^BLBeri("K") Derde.Klant.Klant 0 0 0 0 0 0 0 0 Derde.Lev.Lev 0 0 0 0 0 0 0 0 Flow.Toelev.Lijn 0 0 array 0 0 0 0 0 1 Res.Munt 0 0 0 0 0 0 0 0 Flow.Order.Hoofding 0 0 0 0 0 0 0 0 Format: Char: 25 %Library.String 0 0 0 0 0 0 0 0 $H-formaat %Library.String Leeg = Stock 2 = KOM %Library.String 0 0 0 0 0 0 0 0 %Library.Numeric 0 0 0 0 0 0 0 0 Ingevuld bij het verzenden van de Toelevering van BLUM Sys.cDate 0 0 0 0 0 0 0 0 %Library.Numeric 0 0 0 0 0 0 0 0 Laatst gebruikte uniek lijnnummering %Library.Numeric 0 0 0 0 0 0 0 0 0 1 code 0 %Library.Integer 0 299999 Number=200000 For Quit:'$D(^KTO1(Number))&'$D(^RCP("D",Number)) Set Number=Number+1 Set:Number>299999 Number=200000 Set ^KTO(0,"TR")=Number+1 Lock -^KTO(0,"TR") Quit Number ]]> %Library.CacheSQLStorage ^Flow.Toe.HoofdingS data ^KTO delimited {Leverancier} 0.1 {ToeleveringsNr} "\" 1 10 "\" 1 17 "\" 1 2 "\" 1 4 "\" 1 8 "\" 1 9 "\" 1 6 "\" 1 18 "\" 1 7 "\" 1 19 "\" 1 3 "\" 1 22 "\" 1 16 "\" 0 1 "\" 4 1