Index: WSimpl/Halux/AAP/AfdrukService.cls.xml =================================================================== diff -u -r60749 -r60920 --- WSimpl/Halux/AAP/AfdrukService.cls.xml (.../AfdrukService.cls.xml) (revision 60749) +++ WSimpl/Halux/AAP/AfdrukService.cls.xml (.../AfdrukService.cls.xml) (revision 60920) @@ -84,14 +84,6 @@ #dim DnaCode As TECH.Iterator = DnaCodeIterator.Next() Do DnaCodeIterator.Reset() - #dim TeGebruikenPrinter = ..EtiketAfdrukkenHelper.MapProductieLijnOpPrinter(..EtiketAfdrukkenHelper.GeefWerkpost(DnaCode)) - - If TeGebruikenPrinter = "" { - Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Geen printer gevonden voor DnaCode '"_DnaCode.DnaCode_"'")) - } - - - // TODO iplementatie While DnaCodeIterator.HasNext() { #dim DnaCodeInfo As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next() //Set PRNr = DnaCodeInfo.ProductNummer @@ -126,13 +118,6 @@ #dim DnaCode As TECH.Iterator = DnaCodeIterator.Next() Do DnaCodeIterator.Reset() - - //#dim TeGebruikenPrinter = ..EtiketAfdrukkenHelper.MapProductieLijnOpPrinter(..EtiketAfdrukkenHelper.GeefWerkpost(DnaCode)) - //If TeGebruikenPrinter = "" { - // Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Geen printer gevonden voor DnaCode '"_DnaCode.DnaCode_"'")) - //} - - // TODO iplementatie #dim resultaat = ..VerwerkKlantEtiketAfdrukken(DnaCodeIterator) If (resultaat = "") { @@ -141,8 +126,6 @@ Set Response.Header.Status = "422" Set Response.Header.Omschrijving = "resultaat" } - - } Catch { #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() Set Response.Header.Status = Exception.GeefExceptionCode() @@ -162,10 +145,6 @@ DnaCodeIterator:TECH.Iterator %String KaderdeurDnaCodesLijst:%ListOfDataTypes,MatDnaCodesLijst:%ListOfDataTypes,InpakDnaCodesLijst:%ListOfDataTypes,OnbepaaldDnaCodesLijst:%ListOfDataTypes,ProductOpMaatDnaCodesLijst:%ListOfDataTypes,KastDnaCodesLijst:%ListOfDataTypes,TAORboxDnaCodesLijst:%ListOfDataTypes,MaatwerkDnaCodesLijst:%ListOfDataTypes +1 TECH.Iterator