persistent 1 %Persistent 0 w ##class(Test.CW).GetQty(88163,$LB(2,3,4)) w ##class(Ttest.CW).GetQty(88163,"2;3;4") 1 PRNr:%Integer,lbLocM:%List %Library.Integer 5 and (Product=:PRNr) ) &sql(OPEN GetQty) For &sql(FETCH GetQty) Quit:(SQLCODE '= 0) Do . Quit:$LF(lbLocM,LocM)=0 . Set SumQtyPcs=SumQtyPcs+QtyPcs . Set SumQtyRes=SumQtyRes+QtyRes &sql(CLOSE GetQty) Quit SumQtyPcs-SumQtyRes ]]> 1 TestLocal,KlantNr 1 TestLocal,KlantNr 1 KlantNr,BeperkStatus RecRef %String RecRef %String KLNr,PRNr %String RecRef %String RecRef %String 1 ChargeTraceID,Taal %String 1 RecRef,RefLocal %String 1 KlantNr,OfferteNr,LijnNr,RefLocal %String 1 KlantNr,OrderNr,LijnNr,RefLocal %String 1 KlantNr,BonNr,LijnNr,RefLocal %String 1 FactuurNr,BonNr,LijnNr,RefLocal %String 1 ProformaNr,BonNr,LijnNr,RefLocal %String 1 LeverancierNr,ToeleveringNr,LijnNr,RefLocal %String 1 %String %String 1 0 19 $P(R,";",3)=19 . Set LD("POS")=R . Do WRITE^vhLIST(.LD) . Set R=$$SCROLL^vhLIST(.LD) . Do REFRESH^vhTERMINA() Quit ]]> %Library.CacheStorage ^Test.CWD CWDefaultData ^Test.CWD ^Test.CWI ^Test.CWS listnode %%CLASSNAME