1 %RegisteredObject 0 Do ##class(zTryout.CSC.Snelheidstest).Do() 1 1 MPRNr:%Integer 0 AantalMogelijk) set AantalMoedersMogelijk = AantalMogelijk . . Do StopTimer^vhLib //w @F11,@F1 w !,MPRNr," ",$P(^KPR(MPRNr,0),"\")_" "_"aantal mogelijk : "_AantalMoedersMogelijk,! Write $$GetInterval^vhLib(),! //zw Teller Quit GetOrders(KPRNr) New MPRNr,BSKey Set MPRNr="" For Set MPRNr=$O(^PRBS("IP",KPRNr,MPRNr)) Quit:MPRNr="" Do . Set BSKey="" . Set Found=0 . For Set BSKey=$O(^PRBS("IP",KPRNr,MPRNr,BSKey)) Quit:BSKey="" Quit:Found Do . . Set Found=$P(^PRBS("IP",KPRNr,MPRNr,BSKey),"\")="K" . . Set:Found Teller("KINDMOEDER")=$G(Teller("KINDMOEDER"))+1 . Set:Found lbOrder=$$GetMoederOrders(MPRNr) . Set:Found Teller("MOEDER")=$G(Teller("MOEDER"))+1 . Set Rec=$G(^PRSTOCK("D",MPRNr)) . set arOrder(MPRNr)=Rec Quit $G(lbOrder) GetMoederOrders(MPRNr) Set ORDNr="" For Set ORDNr=$O(^ORD("IP",MPRNr,ORDNr)) Quit:ORDNr="" Do . Set OLUNr="" . For Set OLUNr=$O(^ORD("IP",MPRNr,ORDNr,OLUNr)) Quit:OLUNr="" Do . . Set OLNr=^(OLUNr) . . Set KLNr=$P(^KO1(ORDNr,"F"),"\") . . Set Qty=$P(^KOD(KLNr,"F",ORDNr,OLNr),"\",3) . . Set Teller("ORDER")=$G(Teller("ORDER"))+1 . . Set arMoeders(MPRNr)=$Get(arMoeders(MPRNr))+Qty Quit "" GetToeLev(KPRNr) Set TOENr="" For Set TOENr=$O(^TO("IP",KPRNr,TOENr)) Quit:TOENr="" Do . Set TLUNr="" . For Set TLUNr=$O(^TO("IP",KPRNr,TOENr,TLUNr)) Quit:TLUNr="" Do . . Set TLNr=^(TLUNr) . . Set LEVNr=$P(^KTO1(TOENr),"\") . . Set Qty=$P(^KTO(LEVNr,TOENr,TLNr),"\",3) . . Set Teller("TOE")=$G(Teller("TOE"))+1 . . set arToe(KPRNr)=$G(arToe(KPRNr))+Qty Quit "" ]]> 1 PRNr:%Integer %Integer %SQLQuery PRNr:%Integer 0 GROUP BY KindVanGevraagdeMoeder.KindProductnr]]>