Index: BL/Flow/Proxy/pxPakbon.cls.xml
===================================================================
diff -u -r74183 -r74985
--- BL/Flow/Proxy/pxPakbon.cls.xml	(.../pxPakbon.cls.xml)	(revision 74183)
+++ BL/Flow/Proxy/pxPakbon.cls.xml	(.../pxPakbon.cls.xml)	(revision 74985)
@@ -153,8 +153,6 @@
 	. . . Set lbPickInfo=arProduct(SortKey,User,VNR)
 	. . . Set pxPicking=##class(pxPakbonPicking).%New()
 	. . . Set PalletID=$LI(lbPickInfo,1)
-	. . . Quit:(ReedsVoorgekomenPalletIDs.Find(PalletID, 0))
-	. . . Do ReedsVoorgekomenPalletIDs.Insert(PalletID)
 	. . . For i=$L(PalletID):1:7 Set PalletID="0"_PalletID
 	. . . Set pxPicking.PalletID=PalletID
 	. . . Set pxPicking.Aantal=$LI(lbPickInfo,3)
Index: DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml
===================================================================
diff -u -r74950 -r74985
--- DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 74950)
+++ DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 74985)
@@ -104,6 +104,17 @@
 
 <Method name="VerwerkHaefeleNL">
 <FormalSpec>HaefeleNLPersonality:DOM.common.HaefeleNLPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..ToegelatenLadetypes = ##class(%ListOfDataTypes).%New()
+	
+	Do ..ToegelatenLadetypes.Insert("LBX")
+	Do ..ToegelatenLadetypes.Insert("TAX")
+	Do ..ToegelatenLadetypes.Insert("TBX")
+	Do ..ToegelatenLadetypes.Insert("MVX")
+	Do ..ToegelatenLadetypes.Insert("OL")
+	Do ..ToegelatenLadetypes.Insert("MAT")
+	Do ..ToegelatenLadetypes.Insert("RVG")
+]]></Implementation>
 </Method>
 
 <Method name="VerwerkHaefeleDE">
Index: vhUnitTest/DOM/VKP/impl/HandelToegelatenLadetypesBepaler/Test.cls.xml
===================================================================
diff -u -r73862 -r74985
--- vhUnitTest/DOM/VKP/impl/HandelToegelatenLadetypesBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 73862)
+++ vhUnitTest/DOM/VKP/impl/HandelToegelatenLadetypesBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 74985)
@@ -27,7 +27,6 @@
 	
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Destil, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Dozon, VerwachteLadetypes)
-	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleNL, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleDE, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleAT, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleCH, VerwachteLadetypes)
@@ -42,6 +41,7 @@
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.DeceuninckDeforce, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Dupont, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleBE, VerwachteLadetypes)
+	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleNL, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Kisch, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.SFS, VerwachteLadetypes)
 ]]></Implementation>
@@ -84,9 +84,9 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Personalities waarvoor de ladetypes LBX, MVX, TBX, OL en MAT toegelaten zijn">
+<Method name="Test: Personalities waarvoor de ladetypes LBX, MVX, TBX, OL, MAT en RVG toegelaten zijn">
 <Implementation><![CDATA[
-	#dim VerwachteLadetypes As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("LBX", "TBX", "MVX", "OL", "MAT")
+	#dim VerwachteLadetypes As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("LBX", "TBX", "MVX", "OL", "MAT", "RVG")
 	
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.OPODe, VerwachteLadetypes)
 ]]></Implementation>
@@ -101,9 +101,9 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Personalities waarvoor enkel ladetypes LBX, TAX en OL toegelaten zijn">
+<Method name="Test: Personalities waarvoor enkel ladetypes LBX, TAX, OL en RVG toegelaten zijn">
 <Implementation><![CDATA[
-	#dim VerwachteLadetypes As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("LBX", "TAX", "OL")
+	#dim VerwachteLadetypes As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("LBX", "TAX", "OL", "RVG")
 	
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Daro, VerwachteLadetypes)
 ]]></Implementation>