do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.AKP.TestToelevering") 1 vhUnitTest.TestCase %String 123346 %String I %String 298104 DOM.VKP.VanHoeckeKlant 1 aTestName:%String aTestName:%String 1 1 1 1 de Save() van TECH.Persistent quit geen result meer! do $$$AssertEquals(ToeleveringGewijzigdEventTester.GeefAantalKeerGeraised(),1) do $$$AssertEquals(ProductToeleveringLijnGemaaktEventTester.GeefAantalKeerGeraised(),1) do $$$AssertEquals(ProductToeleveringLijnGewijzigdEventTester.GeefAantalKeerGeraised(),0) do $$$AssertEquals(^TO("IU",..#ToeleveringID,120),103,"Index IU is correct ingesteld") do $$$AssertEquals(^TO("IP",1000,..#ToeleveringID,120),103,"Index IP is correct ingesteld") do $$$AssertTrue($data(^KTO4(6332,"99999\298104")),"Index is correct ingesteld") do $$$AssertTrue($data(^KTO3(298104,"3\1234\103")),"Index is correct opgebouwd") do Toelevering.ZetBestelBevestigingNr(11111) do ToeleveringLijn.ZetBestelBevestigingNr(4321) do Toelevering.Save() do $$$LogMessage("Save na wijziging ABLijnNr gelukt") do $$$AssertEquals(ToeleveringGewijzigdEventTester.GeefAantalKeerGeraised(),2) do $$$AssertEquals(ProductToeleveringLijnGemaaktEventTester.GeefAantalKeerGeraised(),1) do $$$AssertEquals(ProductToeleveringLijnGewijzigdEventTester.GeefAantalKeerGeraised(),0) do $$$AssertTrue($data(^KTO3(298104,"3\4321\103")),"Index is correct opgebouwd") do $$$AssertTrue($data(^KTO4(6332,"11111\298104")),"Index is correct ingesteld") do $$$AssertFalse($data(^KTO4(6332,"99999\298104")),"Index is correct ingesteld") do $$$AssertFalse($data(^KTO3(298104,"3\1234\103")),"Index is correct verwijderd") kill Toelevering , ToeleveringLijn set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID) do $$$AssertEquals(Toelevering.GeefAantalLijnen(),3,"Aantal lijnen bij het heropenen") set ToeleveringLijn = Toelevering.GeefToeleveringLijnViaVolgNr(103) do $$$AssertEquals(ToeleveringLijn.GeefProductID(),1000) kill Toelevering , ToeleveringLijn set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID) set ToeleveringLijn = Toelevering.GeefToeleveringLijn(120) do $$$AssertEquals(ToeleveringLijn.GeefProductID(),1000) ]]>