Index: vhTest/Mock/APPS/Halux/PPS/TAORProductie/impl/AssemblageKarRepository.cls.xml
===================================================================
diff -u -r34468 -r34697
--- vhTest/Mock/APPS/Halux/PPS/TAORProductie/impl/AssemblageKarRepository.cls.xml	(.../AssemblageKarRepository.cls.xml)	(revision 34468)
+++ vhTest/Mock/APPS/Halux/PPS/TAORProductie/impl/AssemblageKarRepository.cls.xml	(.../AssemblageKarRepository.cls.xml)	(revision 34697)
@@ -15,12 +15,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="DeleteUsingConditions">
-<FormalSpec>Voorwaarden:TECH.KeyValue.List</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("DeleteUsingConditions",Voorwaarden)
-]]></Implementation>
-</Method>
-
 <Method name="GebruiktAssemblageKar">
 <FormalSpec>BatchID:TECH.String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
@@ -36,16 +30,16 @@
 </Method>
 
 <Method name="GeefKar">
-<FormalSpec>BatchID:TECH.String,SequentieNummer:TECH.Integer</FormalSpec>
+<FormalSpec>BatchID:TECH.String,SequentieNummer:TECH.Integer,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol=""</FormalSpec>
 <ReturnType>APPS.Halux.PPS.TAORProductie.data.AssemblageKar</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKar",BatchID,SequentieNummer)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKar",BatchID,SequentieNummer,Rol)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefKarID">
-<FormalSpec>BatchID:TECH.String,SequentieNummer:TECH.Integer</FormalSpec>
+<FormalSpec>BatchID:TECH.String,SequentieNummer:TECH.Integer,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol=""</FormalSpec>
 <ReturnType>TECH.Integer</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKarID",BatchID,SequentieNummer)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKarID",BatchID,SequentieNummer,Rol)
 ]]></Implementation>
 </Method>
 
@@ -57,9 +51,9 @@
 </Method>
 
 <Method name="GeefKarVolgnummerViaSequentieNr">
-<FormalSpec>BatchID:TECH.String,SequentieNummer:TECH.Integer</FormalSpec>
+<FormalSpec>BatchID:TECH.String,SequentieNummer:TECH.Integer,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol=""</FormalSpec>
 <ReturnType>TECH.Integer</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKarVolgnummerViaSequentieNr",BatchID,SequentieNummer)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKarVolgnummerViaSequentieNr",BatchID,SequentieNummer,Rol)
 ]]></Implementation>
 </Method>
 
@@ -71,9 +65,9 @@
 </Method>
 
 <Method name="GeefLaatsteItemNrInKarViaSequentieNr">
-<FormalSpec>BatchID:TECH.String,SequentieNummer:TECH.Integer</FormalSpec>
+<FormalSpec>BatchID:TECH.String,SequentieNummer:TECH.Integer,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol=""</FormalSpec>
 <ReturnType>TECH.Integer</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefLaatsteItemNrInKarViaSequentieNr",BatchID,SequentieNummer)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefLaatsteItemNrInKarViaSequentieNr",BatchID,SequentieNummer,Rol)
 ]]></Implementation>
 </Method>
 
@@ -83,13 +77,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GetUsingConditions">
-<FormalSpec>Voorwaarden:TECH.KeyValue.List</FormalSpec>
-<ReturnType>APPS.Halux.PPS.TAORProductie.data.AssemblageKar</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GetUsingConditions",Voorwaarden)
-]]></Implementation>
-</Method>
-
 <Method name="IsLaatsteItemInKar">
 <FormalSpec>AssemblageKar:APPS.Halux.PPS.TAORProductie.data.AssemblageKar</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
@@ -110,9 +97,9 @@
 </Method>
 
 <Method name="ZoekKarVolgnummerViaSequentieNr">
-<FormalSpec>BatchID:TECH.String,SequentieNummer:TECH.Integer</FormalSpec>
+<FormalSpec>BatchID:TECH.String,SequentieNummer:TECH.Integer,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol=""</FormalSpec>
 <ReturnType>TECH.Integer</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZoekKarVolgnummerViaSequentieNr",BatchID,SequentieNummer)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZoekKarVolgnummerViaSequentieNr",BatchID,SequentieNummer,Rol)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/TestAlpnach.cls.xml
===================================================================
diff -u -r32908 -r34697
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/TestAlpnach.cls.xml	(.../TestAlpnach.cls.xml)	(revision 32908)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/TestAlpnach.cls.xml	(.../TestAlpnach.cls.xml)	(revision 34697)
@@ -59,7 +59,7 @@
 	Do ..BatchServiceStub.IndienMethodCall("GeefBatch", KlantEtiketUitvoeringInfo1.BatchID).DanReturn(##class(vhTest.Dummy.APPS.Halux.common.Batch).%New())
 	
 	#dim AssemblageKarRepositoryStub As vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New()
-	Do AssemblageKarRepositoryStub.IndienMethodCall("GeefKarVolgnummerViaSequentieNr", KlantEtiketUitvoeringInfo1.BatchID, $$$ElkeWaarde).DanReturn(1)
+	Do AssemblageKarRepositoryStub.IndienMethodCall("GeefKarVolgnummerViaSequentieNr", KlantEtiketUitvoeringInfo1.BatchID, $$$ElkeWaarde, "").DanReturn(1)
 	
 	#dim Verwerker As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten).%New(..FakeLabelPrinter, AssemblageKarRepositoryStub, ..BatchServiceStub)
 	Do Verwerker.VerwerkUitvoeringInfoLijst(Lijst,##class(APPS.Halux.PPS.Activiteit.ActiviteitParameters).%New())
@@ -92,7 +92,7 @@
 	Do ..BatchServiceStub.IndienMethodCall("GeefBatch", KlantEtiketUitvoeringInfo1.BatchID).DanReturn(##class(vhTest.Dummy.APPS.Halux.common.Batch).%New())
 
 	#dim AssemblageKarRepositoryStub As vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New()
-	Do AssemblageKarRepositoryStub.IndienMethodCall("GeefKarVolgnummerViaSequentieNr", KlantEtiketUitvoeringInfo1.BatchID, $$$ElkeWaarde).DanReturn(1)
+	Do AssemblageKarRepositoryStub.IndienMethodCall("GeefKarVolgnummerViaSequentieNr", KlantEtiketUitvoeringInfo1.BatchID, $$$ElkeWaarde, "").DanReturn(1)
 
 	#dim Verwerker As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten).%New(..FakeLabelPrinter, AssemblageKarRepositoryStub, ..BatchServiceStub)
 	Do Verwerker.VerwerkUitvoeringInfoLijst(Lijst,##class(APPS.Halux.PPS.Activiteit.ActiviteitParameters).%New())
@@ -116,8 +116,8 @@
 	Do ..BatchServiceStub.IndienMethodCall("GeefBatch", KlantEtiketUitvoeringInfo1.BatchID).DanReturn(##class(vhTest.Dummy.APPS.Halux.common.Batch).%New())
 
 	#dim AssemblageKarRepositoryStub As vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New()
-	Do AssemblageKarRepositoryStub.IndienMethodCall("GeefKarVolgnummerViaSequentieNr", KlantEtiketUitvoeringInfo1.BatchID, 1).DanReturn(1)
-	Do AssemblageKarRepositoryStub.IndienMethodCall("GeefKarVolgnummerViaSequentieNr", KlantEtiketUitvoeringInfo1.BatchID, 2).DanReturn(2)
+	Do AssemblageKarRepositoryStub.IndienMethodCall("GeefKarVolgnummerViaSequentieNr", KlantEtiketUitvoeringInfo1.BatchID, 1, "").DanReturn(1)
+	Do AssemblageKarRepositoryStub.IndienMethodCall("GeefKarVolgnummerViaSequentieNr", KlantEtiketUitvoeringInfo1.BatchID, 2, "").DanReturn(2)
 
 	#dim Verwerker As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten).%New(..FakeLabelPrinter, AssemblageKarRepositoryStub, ..BatchServiceStub)
 	Do Verwerker.VerwerkUitvoeringInfoLijst(Lijst, ##class(APPS.Halux.PPS.Activiteit.ActiviteitParameters).%New())
Index: APPS/Halux/PPS/TAORProductie/impl/AssemblageKarRepository.cls.xml
===================================================================
diff -u -r34598 -r34697
--- APPS/Halux/PPS/TAORProductie/impl/AssemblageKarRepository.cls.xml	(.../AssemblageKarRepository.cls.xml)	(revision 34598)
+++ APPS/Halux/PPS/TAORProductie/impl/AssemblageKarRepository.cls.xml	(.../AssemblageKarRepository.cls.xml)	(revision 34697)
@@ -53,20 +53,24 @@
 </Method>
 
 <Method name="GeefKar">
-<FormalSpec>BatchID:TECH.String,SequentieNummer:TECH.Integer</FormalSpec>
+<FormalSpec>BatchID:TECH.String,SequentieNummer:TECH.Integer,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol=""</FormalSpec>
 <ReturnType>APPS.Halux.PPS.TAORProductie.data.AssemblageKar</ReturnType>
 <Implementation><![CDATA[
-	Set Condities = ##class(TECH.KeyValue.List).%New()
-	Do Condities.InsertKeyValue("BatchID",BatchID)
-	Do Condities.InsertKeyValue("SequentieNummer",SequentieNummer)
+	#dim Condities As TECH.KeyValue.List = ##class(TECH.KeyValue.List).%New()
+	
+	Do Condities.InsertKeyValue("BatchID", BatchID)
+	Do Condities.InsertKeyValue("SequentieNummer", SequentieNummer)
+	
+	Do:$$$Not(Rol = "") Condities.InsertKeyValue("Rol", Rol)
+	
 	Quit ..GetUsingConditions(Condities)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefKarID">
-<FormalSpec>BatchID:TECH.String,SequentieNummer:TECH.Integer</FormalSpec>
+<FormalSpec>BatchID:TECH.String,SequentieNummer:TECH.Integer,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol=""</FormalSpec>
 <ReturnType>TECH.Integer</ReturnType>
-<Implementation><![CDATA[	Quit ..GeefKar(BatchID, SequentieNummer).Kar
+<Implementation><![CDATA[	Quit ..GeefKar(BatchID, SequentieNummer, Rol).Kar
 ]]></Implementation>
 </Method>
 
@@ -81,19 +85,19 @@
 </Method>
 
 <Method name="GeefKarVolgnummerViaSequentieNr">
-<FormalSpec>BatchID:TECH.String,SequentieNummer:TECH.Integer</FormalSpec>
+<FormalSpec>BatchID:TECH.String,SequentieNummer:TECH.Integer,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol=""</FormalSpec>
 <ReturnType>TECH.Integer</ReturnType>
-<Implementation><![CDATA[	Quit ..GeefKarVolgnummer(BatchID, ..GeefKarID(BatchID, SequentieNummer))
+<Implementation><![CDATA[	Quit ..GeefKarVolgnummer(BatchID, ..GeefKarID(BatchID, SequentieNummer, Rol))
 ]]></Implementation>
 </Method>
 
 <Method name="ZoekKarVolgnummerViaSequentieNr">
-<FormalSpec>BatchID:TECH.String,SequentieNummer:TECH.Integer</FormalSpec>
+<FormalSpec>BatchID:TECH.String,SequentieNummer:TECH.Integer,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol=""</FormalSpec>
 <ReturnType>TECH.Integer</ReturnType>
 <Implementation><![CDATA[
 	#dim Volgnummer As TECH.Integer = ""
 	
-	#dim KarID As %String = ..GeefKarID(BatchID, SequentieNummer)
+	#dim KarID As %String = ..GeefKarID(BatchID, SequentieNummer, Rol)
 	if $length(KarID) {
 		set Volgnummer = ..GeefKarVolgnummer(BatchID, KarID)	
 	}
@@ -165,9 +169,9 @@
 </Method>
 
 <Method name="GeefLaatsteItemNrInKarViaSequentieNr">
-<FormalSpec>BatchID:TECH.String,SequentieNummer:TECH.Integer</FormalSpec>
+<FormalSpec>BatchID:TECH.String,SequentieNummer:TECH.Integer,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol=""</FormalSpec>
 <ReturnType>TECH.Integer</ReturnType>
-<Implementation><![CDATA[	Quit ..GeefLaatsteItemNrInKar(BatchID,  ..GeefKarID(BatchID, SequentieNummer))
+<Implementation><![CDATA[	Quit ..GeefLaatsteItemNrInKar(BatchID,  ..GeefKarID(BatchID, SequentieNummer, Rol))
 ]]></Implementation>
 </Method>