Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r60024 -r60089
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60024)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60089)
@@ -234,6 +234,7 @@
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Set Response.Header.Status = Exception.GeefExceptionCode()
 		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
+		Do ##class(vhLib.Logger).%New().Warning("AAP",Exception.GeefOmschrijving())
 	}
 	
 	Set Response.AantalInToelevering = AantalInToelevering
@@ -261,7 +262,6 @@
 		}
 		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringId(ToeleveringBijwerkenRequest.Toelevering)
 		If DnaCodeIterator.HasNext() {
-			Do DnaCodeIterator.Reset()
 			Do ..DnaCodesKlaarmakenVoorBuffer(DnaCodeIterator, ToeleveringBijwerkenRequest.Status, ToeleveringBijwerkenRequest.Toelevering, ,ToeleveringBijwerkenRequest.Header.Initialen)
 			Set Response.Header.Status = "200"
 		} Else {
@@ -272,6 +272,7 @@
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Set Response.Header.Status = Exception.GeefExceptionCode()
 		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
+		Do ##class(vhLib.Logger).%New().Warning("AAP",Exception.GeefOmschrijving())
 	}
 	Quit Response
 ]]></Implementation>
@@ -295,7 +296,6 @@
 		}
 		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaPalletCode(PalletBijwerkenRequest.Pallet)
 		If DnaCodeIterator.HasNext() {
-			Do DnaCodeIterator.Reset()
 			Set Response.Header.Status = "200"
 			Do ..DnaCodesKlaarmakenVoorBuffer(DnaCodeIterator, PalletBijwerkenRequest.Status, , PalletBijwerkenRequest.Pallet, PalletBijwerkenRequest.Header.Initialen)
 		} Else {
@@ -306,6 +306,7 @@
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Set Response.Header.Status = Exception.GeefExceptionCode()
 		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
+		Do ##class(vhLib.Logger).%New().Warning("AAP",Exception.GeefOmschrijving())
 	}
 	Quit Response
 ]]></Implementation>