Index: APPS/Halux/AAP/DnaCodeService.cls.xml =================================================================== diff -u -r61682 -r61692 --- APPS/Halux/AAP/DnaCodeService.cls.xml (.../DnaCodeService.cls.xml) (revision 61682) +++ APPS/Halux/AAP/DnaCodeService.cls.xml (.../DnaCodeService.cls.xml) (revision 61692) @@ -221,9 +221,9 @@ If ##class(TECH.Context.RuntimeContext).Instance().GeefApplicatie() = "IntegratieTest" { Quit "TestDnaCode" } + #dim Result As %String = "" #dim DnaCodeIterator As TECH.Iterator - Do ##class(Tools.Wlip).%New(127).String("Herafdruk = "_Herafdruk_"/"_BatchId_"/"_SequentieNummer) If Herafdruk { Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaBatchIdEnSequentienummer(BatchId, SequentieNummer) } Else { @@ -234,8 +234,6 @@ While DnaCodeIterator.HasNext() { Set DnaCode = DnaCodeIterator.Next() If ..MagDnaCodeBijgewerktWorden(DnaCode, ProductID, Herafdruk) { - Do ##class(Tools.Wlip).%New(127).String("seq nummer = "_SequentieNummer) - Do ##class(Tools.Wlip).%New(127).Stack() Set DnaCode.SequentieNummer = SequentieNummer Set DnaCode.AfdrukTijdstip = ..DateTimeApi.CurrentHorolog() Do ..DnaCodeRepository.Bewaar(DnaCode)