persistent 1 VHOpslag %Persistent 0 %String %Integer %Integer %String %Library.String %Library.Numeric %Library.String %Library.String %Library.String %Library.String %Library.Float %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %String %Date 1 Set {*}=$S({LeveringsWeek}="":"",1:$$INTDATE^vhDTyp({LeveringsWeek},"DW")) 1 %Library.String %Library.Float Res.Munt %Library.Numeric %Library.String %Library.Numeric Prod.Product %Library.String %Library.String %Library.String %Library.String %Library.String %Library.Numeric %Library.Numeric %Library.String 1 1 BonNr,LijnNr 1 %Date WeekDatum:%Date %Status %CacheSQLStorage ^Flow.UitleveringS data ^KU1 ^KUL($P($G(^KU1({L1},"F")),"\",1),$S($D(^KUL($P($G(^KU1({L1},"F")),"\",1),"F",{L1})):"F",$D(^KUL($P($G(^KU1({L1},"F")),"\",1),"G",{L1})):"G",1:"M"),{L1},{L2}) {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} Other ^KUL({1D1},{1D2},{L1}) {LijnNr} 99 s {L2}=$O(^KUL({1D1},{1D2},{L1},{L2})) i {L2}'?3N s {L2}="" s {2D1}=$G(^KUL({1D1},{1D2},{L1},{L2})) {2D1} {L2}'?3N "\" {2D1} 18 "\" {2D1} 3 "\" {2D1} 23 "\" {2D1} 21 "\" {2D1} 8 "\" {2D1} 17 "\" {2D1} 6 {1D2} "\" {2D1} 33 "\" {2D1} 34 "\" {2D1} 20 "\" {2D1} 28 {1D1} "\" {2D1} 7 "\" {2D1} 30 "\" {2D1} 31 "\" {2D1} 12 "\" {2D1} 25 "\" {2D1} 32 "\" {2D1} 10 "\" {2D1} 22 "\" {2D1} 9 "\" {2D1} 5 "\" {2D1} 24 "\" {2D1} 2 "\" {2D1} 4 "\" {2D1} 13 "\" {2D1} 11 "\" {2D1} 1 "\" {2D1} 26 "\" {2D1} 16 "\" {2D1} 15 "\" {2D1} 14