Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml =================================================================== diff -u -r62253 -r63559 --- vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml (.../Test.cls.xml) (revision 62253) +++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml (.../Test.cls.xml) (revision 63559) @@ -34,8 +34,10 @@ Do ##super() Set ..DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New() Set ..DnaCode1.DnaCode = "LAAAAA0" + Set ..DnaCode1.SequentieNummer = 1 Set ..DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New() Set ..DnaCode2.DnaCode = "LAAAAB1" + Set ..DnaCode2.SequentieNummer = 2 Set ..TweeDnaCodesIterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(..DnaCode1, ..DnaCode2) Set ..DnaCodeIterator1 = ##class(TECH.ListUtils).CreateIteratorOfObjects(..DnaCode1) Set ..ProjectSettingsAPIStub = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New() @@ -117,7 +119,7 @@ #dim ToeleveringId As %String = "222222" #dim ProductNummer1 As %String = "1234567" #dim ProductNummer2 As %String = "1234568" - #dim SequentieNummer As %String = "1" + #dim SequentieNummer As %String = "2" Set ..DnaCode1.ProductNummer = ProductNummer1 Set ..DnaCode2.ProductNummer = ProductNummer2 Set ..TweeDnaCodesIterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(..DnaCode1, ..DnaCode2)