Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten.cls.xml
===================================================================
diff -u -r32902 -r32907
--- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten.cls.xml	(.../PrintEtiketten.cls.xml)	(revision 32902)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten.cls.xml	(.../PrintEtiketten.cls.xml)	(revision 32907)
@@ -248,7 +248,7 @@
 	Try {
 		Set KarVolgNummer = ..AssemblageKarRepository.GeefKarVolgnummerViaSequentieNr(UitvoeringInfo.BatchID, UitvoeringInfo.SequentieNummer)	
 	} Catch {
-		Do ##class(TECH.ExceptionHandler).Catch()
+		Do ##class(TECH.ExceptionHandler).Catch("APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository.Exceptie.KarNietGevondenExceptie")
 	}
 	
 	Quit KarVolgNummer
Index: APPS/Halux/PPS/TAORProductie/impl/AssemblageKarRepository.cls.xml
===================================================================
diff -u -r30365 -r32907
--- APPS/Halux/PPS/TAORProductie/impl/AssemblageKarRepository.cls.xml	(.../AssemblageKarRepository.cls.xml)	(revision 30365)
+++ APPS/Halux/PPS/TAORProductie/impl/AssemblageKarRepository.cls.xml	(.../AssemblageKarRepository.cls.xml)	(revision 32907)
@@ -127,16 +127,19 @@
 	#dim ResultSet As TECH.ResultSet =  ..QueryAPI.GetDynamicResultSet(Query,Params)
 	#dim VolgNummer As TECH.Integer = 0
 	#dim IsGevonden As %Boolean = $$$False
-	While ResultSet.Next() && $$$Not(IsGevonden) {
+	
+	While (ResultSet.Next() && $$$Not(IsGevonden)) {
 		Set VolgNummer = VolgNummer + 1
 		If ResultSet.GetDataByName("Kar") = KarID {
 			Set IsGevonden = $$$True
 		}
 	}
+	
 	If $$$Not(IsGevonden) {
-		Set Exceptie = ##class(TECH.Exceptions.InvalidInputException).%New("Voor de batch '"_BatchID_"' is er geen kar met ID '"_KarID_"' gevonden.")
+		#dim Exceptie As TECH.Exceptions.Exception = ##class(APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository.Exceptie.KarNietGevondenExceptie).%New(KarID, BatchID)
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
 	}
+	
 	Quit VolgNummer
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/TAORProductie/impl/AssemblageKarRepository/Exceptie/KarNietGevondenExceptie.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TAORProductie/impl/AssemblageKarRepository/Exceptie/KarNietGevondenExceptie.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TAORProductie/impl/AssemblageKarRepository/Exceptie/KarNietGevondenExceptie.cls.xml	(revision 32907)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository.Exceptie.KarNietGevondenExceptie">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Exceptions.AbstractOmschrijvingException</Super>
+
+<Property name="KarID">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BatchID">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KarID:TECH.String,BatchID:TECH.String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..KarID = KarID
+	Set ..BatchID = BatchID
+	
+	Quit ##super("")
+]]></Implementation>
+</Method>
+
+<Method name="GeefOmschrijving">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "Er is geen kar met ID '" _ ..KarID _ "' gevonden voor batch '" _ ..BatchID _ "'."
+]]></Implementation>
+</Method>
+
+<Method name="GeefExceptionCode">
+<ReturnType>TECH.enu.ExceptionCode</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.enu.ExceptionCode).InvalidInput()
+]]></Implementation>
+</Method>
+
+<Method name="GeefKarID">
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	Quit ..KarID
+]]></Implementation>
+</Method>
+
+<Method name="GeefBatchID">
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	Quit ..BatchID
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/Halux/PPS/TAORProductie/impl/AssemblageKarRepository.cls.xml
===================================================================
diff -u -r30365 -r32907
--- vhTest/Fake/APPS/Halux/PPS/TAORProductie/impl/AssemblageKarRepository.cls.xml	(.../AssemblageKarRepository.cls.xml)	(revision 30365)
+++ vhTest/Fake/APPS/Halux/PPS/TAORProductie/impl/AssemblageKarRepository.cls.xml	(.../AssemblageKarRepository.cls.xml)	(revision 32907)
@@ -19,14 +19,12 @@
 
 <Method name="DeleteViaBatchID">
 <FormalSpec>BatchID:%String</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="VerwijderViaBatchID">
 <FormalSpec>BatchID:%String</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Property name="IsLaatsteItemInKar">