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