Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","BL.Prod.TestVoorraadInitieleTelling") vhUnitTest.TestCase vhUnitTest.BL.Prod.VoorraadTellingMock %String Initieel 1 %String Initieel 2 aTestName:%String aTestName:%String 1 TestBewaarLijst (in menu = 'Aanpassen voorraad') Reload() ? Do $$$AssertEquals(ProdVoorraadTelling.GeefTellingStatus(),##class(DS.Prod.enu.TellingStatus).OK(),"'OK' status is correct ingesteld.") Set ProdVoorraadTelling = ##class(DS.Prod.VoorraadTelling).OpenId(ProductID) ; [Review JBL WV voorraadtelling] Deze staat toch nog open --> Reload() ? Do $$$AssertEquals(ProdVoorraadTelling.GeefStockVanWerkvloer(),1543,"Stock in ^PRSTOCK in correct.") Do ..blVoorraadTelling.BewaarLijst() Set ProdVoorraadTelling = "" Set ProdVoorraadTelling = ##class(DS.Prod.VoorraadTelling).OpenId(ProductID) Do $$$AssertEquals(ProdVoorraadTelling.GeefStockVanWerkvloer(),55,"Stock in ^PRSTOCK is correct.") Do $$$AssertTrue($Data(^PRHIST(1000)),"^PRHIST is aangevuld.") #dim LaatsteSubNodePRHIST = $Order(^PRHIST(1000,""),-1) #dim PRHISTdata As %String = $G(^PRHIST(1000,LaatsteSubNodePRHIST)) Do $$$AssertEquals($Piece(PRHISTdata,"\",2),-(1543-55),"^PRHIST is correct aangevuld.") ]]> ProductID:%String 1