persistent 1 VHOpslag %Persistent 0 %String %String %String %String %String 1 1 BonNr 1 %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} "\" {1D3} 2 {1D2} {1D1} set {*}=$S($L($P({1D3},"\",8)):$P($P({1D3},"\",8),";")_"||"_$P($P({1D3},"\",8),";",2),1:"")