Index: APPS/common/impl/KlantInstellingenService.cls.xml
===================================================================
diff -u -r57824 -r57828
--- APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 57824)
+++ APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 57828)
@@ -79,11 +79,14 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.enu.LBXVerpakkingType</ReturnType>
 <Implementation><![CDATA[
+	
 	#dim VerpakkingType As DOM.PM.enu.LBXVerpakkingType = "Niet ondersteund."
 	Set:(VerpakkingTypeTeControleren = "X") VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).Probox()
 	Set:(VerpakkingTypeTeControleren = "Y") VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).Probox()
 	Set:(VerpakkingTypeTeControleren = "A") VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).VHoss()
 	Set:(VerpakkingTypeTeControleren = "B") VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).VHoss()
+	;Set:(VerpakkingTypeTeControleren = "O") VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).Procom()
+	;Set:(VerpakkingTypeTeControleren = "C") VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).Procom()
 	Quit VerpakkingType
 ]]></Implementation>
 </Method>
@@ -100,7 +103,13 @@
 		} Else {
 			Set MinimumAantal = 4
 		}
-    } ElseIf (##class(TECH.StringUtils).ToUpper(VerpakkingType) = "FLATPACKV1") {
+    } ElseIf (##class(TECH.StringUtils).ToUpper(VerpakkingType) = "PROCOM") {
+		If KlantID = ##class(DOM.VKP.enu.Klant).IntosBV() {
+			Set MinimumAantal = 20
+		} Else {
+			Set MinimumAantal = 6
+		}
+	} ElseIf (##class(TECH.StringUtils).ToUpper(VerpakkingType) = "FLATPACKV1") {
 		Set MinimumAantal = 4
 	}