persistent 1 VHOpslag2 Flow.Uitlevering.Hoofding 0 %CacheSQLStorage ^Flow.UitleveringS data ^KU1 {BonNr} s {1D1}=$P($G(^KU1({L1},"F")),"\",1) {1D1} s {1D2}=$S($D(^KUL({1D1},"F",{L1})):"F",$D(^KUL({1D1},"G",{L1})):"G",1:"M") {1D2} s {1D3}=$G(^KUL({1D1},{1D2},{L1},1)) {1D3} s {1D4}=$G(^KUL({1D1},{1D2},{L1},3)) {1D4} '$P(^KU1({L1},"F"),"\",2) "\" {1D4} 4 "\" {1D3} 16 "\" {1D3} 26 "\" {1D3} 12 "\" {1D3} 27 "\" {1D3} 38 "\" {1D3} 14 "\" {1D3} 11 {1D2} "\" {1D3} 6 {1D1} "\" {1D4} 8 "\" {1D3} 2 "\" {1D3} 21 "\" {1D3} 18 "\" {1D4} 2 "\" {1D4} 1 "\" {1D4} 24 "\" {1D4} 25 "\" {1D3} 22 "\" {1D3} 25 "\" {1D3} 13 "\" {1D4} 6 "\" {1D3} 28 "\" {1D4} 5 "\" {1D4} 9 "\" {1D4} 15 "\" {1D4} 13 "\" {1D4} 14 "\" {1D4} 3 set {*}=$S($L($P({1D3},"\",8)):$P($P({1D3},"\",8),";")_"||"_$P($P({1D3},"\",8),";",2),1:"") "\" {1D3} 8 "\" {1D3} 10 "\" {1D3} 9 "\" {1D3} 24 "\" {1D3} 29 "\" {1D3} 19 "\" {1D3} 7 "\" {1D4} 7