Index: WSimpl/Halux/AAP/AfdrukService.cls.xml =================================================================== diff -u -r65721 -r68377 --- WSimpl/Halux/AAP/AfdrukService.cls.xml (.../AfdrukService.cls.xml) (revision 65721) +++ WSimpl/Halux/AAP/AfdrukService.cls.xml (.../AfdrukService.cls.xml) (revision 68377) @@ -86,7 +86,8 @@ } #dim DnaCodeIterator As TECH.Iterator = ..EtiketAfdrukkenHelper.MaakDnaCodeIteratorVanDnaCodeStringLijst(ProboxEtiketAfdrukkenRequest.DnaCodes) - #dim DnaCode As TECH.Iterator = DnaCodeIterator.Next() + #dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next() + Do DnaCodeIterator.Reset() #dim TeGebruikenPrinter = "" @@ -96,13 +97,19 @@ Set TeGebruikenPrinter = ..EtiketAfdrukkenHelper.MapWerkpostOpPrinter(..EtiketAfdrukkenHelper.GeefWerkpost(DnaCode)) } - - If TeGebruikenPrinter = "" { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Geen printer gevonden voor DnaCode '"_DnaCode.DnaCode_"'")) } Do ..DocsV1.Init(,"",TeGebruikenPrinter,"","") Do ..DocsV1.ProboxInhoudEtiket(DnaCodeIterator) + + #dim KlantId As TECH.String = DnaCode.KlantNummer + Set Klant = ##class(DOM.VKP.enu.Klant.AutoComplete).%New() + + If (KlantId = Klant.DeDecker) { + Do ..DocsV1.ProboxBarcodeEtiketten(DnaCodeIterator) + } + Set Response.Header.Status = "200" } Catch { #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()