Index: WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml =================================================================== diff -u -r72975 -r72976 --- WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml (.../EtiketAfdrukkenHelper.cls.xml) (revision 72975) +++ WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml (.../EtiketAfdrukkenHelper.cls.xml) (revision 72976) @@ -177,18 +177,18 @@ Quit "TAO" } - #dim LadeRegistraties As TECH.Iterator + #dim LadeRegsitratieIterator As TECH.Iterator If $$$HasLength(DnaCode.Toelevering) { - Set LadeRegistraties = ..RegistratieRepository.ZoekViaProductNrEnToelevering(DnaCode.ProductNummer, DnaCode.Toelevering) + Set LadeRegsitratieIterator = ..RegistratieRepository.ZoekViaProductNrEnToelevering(DnaCode.ProductNummer, DnaCode.Toelevering) } Else { - Set LadeRegistraties = ..RegistratieRepository.ZoekViaProductNr(DnaCode.ProductNummer) + Set LadeRegsitratieIterator = ..RegistratieRepository.ZoekViaProductNr(DnaCode.ProductNummer) } - If (LadeRegistraties.HasNext()) { - Set Werkpost = LadeRegistraties.Next().Werkpost + If (LadeRegsitratieIterator.HasNext()) { + Set Werkpost = LadeRegsitratieIterator.Next().Werkpost } - If Werkpost = "" { + If $$$HasLength(Werkpost) { Do ..Logger.Warning("GeefWerkpost", "Werkpost kon niet bepaald worden voor DnaCode '"_DnaCode.DnaCode_"'") } @@ -206,6 +206,7 @@ While (DnaCodeIterator.HasNext() && $$$Not(Gevonden)) { #dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next() #dim VolgendeTeGebruikenPrinter As %String = ..MapWerkpostOpPrinter(..GeefWerkpost(DnaCode)) + Do ##class(Tools.Wlip).%New(26).String(VolgendeTeGebruikenPrinter) If (($$$Not(VolgendeTeGebruikenPrinter = "Bartender")) && ($$$Not(TeGebruikenPrinter = VolgendeTeGebruikenPrinter))) { Set TeGebruikenPrinter = VolgendeTeGebruikenPrinter Index: vhUnitTest/WSimpl/Halux/AAP/EtiketAfdrukkenHelper/VervangPrinterDoorLijnPrinter/Test.cls.xml =================================================================== diff -u -r72975 -r72976 --- vhUnitTest/WSimpl/Halux/AAP/EtiketAfdrukkenHelper/VervangPrinterDoorLijnPrinter/Test.cls.xml (.../Test.cls.xml) (revision 72975) +++ vhUnitTest/WSimpl/Halux/AAP/EtiketAfdrukkenHelper/VervangPrinterDoorLijnPrinter/Test.cls.xml (.../Test.cls.xml) (revision 72976) @@ -127,6 +127,30 @@ ]]> + + + + DnaCode:%String,Toelevering:%String,ProductNummer:%String 1