Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r60928 -r60929
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60928)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60929)
@@ -35,8 +35,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl="",DnaCodeGenerator:APPS.Halux.AAP.DnaCodeGenerator="",ProjectSettingsApi:DOM.common.ProjectSettingsAPI="",ProductApi:DOM.PM.ProductAPI="",SequentieService:APPS.Halux.common.SequentieService=""</FormalSpec>
+<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl="",DnaCodeGenerator:APPS.Halux.AAP.DnaCodeGenerator="",ProjectSettingsApi:DOM.common.ProjectSettingsAPI="",ProductApi:DOM.PM.ProductAPI="",SequentieService:APPS.Halux.common.SequentieService="",Logger:vhLib.Logger=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -49,6 +54,7 @@
 	Set ..DateTimeApi = ##class(TECH.Context).Instance().GeefDateTimeAPI()
 	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
 	Set ..SequentieService = $$$Inject(SequentieService, ##class(APPS.Halux.common.impl.SequentieService).%New())
+	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -238,13 +244,18 @@
 <Method name="VulInSequentieId">
 <FormalSpec>SequentieId:%String,BatchId:%String,ToeleveringId:%String,ToeleveringlijnId:%String</FormalSpec>
 <Implementation><![CDATA[
-	If ..SequentieService.HeeftSequentie(BatchId) {
-		#dim DnaCodeIterator = ..DnaCodeRepository.ZoekVolgendeMetLeegSequentieItem(BatchId, ToeleveringId, ToeleveringlijnId)
-		If DnaCodeIterator.HasNext() {
-			#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
-			Set DnaCode.SequentieNummer = SequentieId
-			Do ..DnaCodeRepository.Bewaar(DnaCode)
+	Try {
+		If ..SequentieService.HeeftSequentie(BatchId) {
+			#dim DnaCodeIterator = ..DnaCodeRepository.ZoekVolgendeMetLeegSequentieItem(BatchId, ToeleveringId, ToeleveringlijnId)
+			If DnaCodeIterator.HasNext() {
+				#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
+				Set DnaCode.SequentieNummer = SequentieId
+				Do ..DnaCodeRepository.Bewaar(DnaCode)
+			}
 		}
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ..Logger.Warning("APPS.Halux.AAP.DnaCodeService", "Geen SequentieId ingevuld voor "_BatchId_" / "_ToeleveringId_" / "_ToeleveringlijnId_".")
 	}
 ]]></Implementation>
 </Method>
Index: vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r60928 -r60929
--- vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60928)
+++ vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60929)
@@ -9,7 +9,7 @@
 <Inheritance>right</Inheritance>
 
 <Method name="%OnNew">
-<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl="",DnaCodeGenerator:APPS.Halux.AAP.DnaCodeGenerator="",ProjectSettingsApi:DOM.common.ProjectSettingsAPI="",ProductApi:DOM.PM.ProductAPI="",SequentieService:APPS.Halux.common.SequentieService=""</FormalSpec>
+<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl="",DnaCodeGenerator:APPS.Halux.AAP.DnaCodeGenerator="",ProjectSettingsApi:DOM.common.ProjectSettingsAPI="",ProductApi:DOM.PM.ProductAPI="",SequentieService:APPS.Halux.common.SequentieService="",Logger:vhLib.Logger=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/VulInSequentieIds/Test.cls.xml
===================================================================
diff -u -r60928 -r60929
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/VulInSequentieIds/Test.cls.xml	(.../Test.cls.xml)	(revision 60928)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/VulInSequentieIds/Test.cls.xml	(.../Test.cls.xml)	(revision 60929)
@@ -92,6 +92,22 @@
 	Do DnaCodeRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Bij error -&gt; warning wegschrijven">
+<Implementation><![CDATA[
+	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
+	#dim DnaCodeIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode)
+	Do ..SequentieService.IndienMethodCall("HeeftSequentie",..Batch.GeefID()).DanException($$$DummyException)
+	
+	Set LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
+	Do LoggerMock.VerwachtMethodCall("Warning","APPS.Halux.AAP.DnaCodeService","Geen SequentieId ingevuld voor 1234 / 222222 / 100.","0")
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(,,,,,..SequentieService, LoggerMock)
+	Do DnaCodeService.VulInSequentieId(1,..Batch.GeefID(), "222222", "100")
+	
+	Do LoggerMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>