Index: BL/PPS/TBX/WPPers/InfoBepaler.cls.xml
===================================================================
diff -u -r57674 -r57675
--- BL/PPS/TBX/WPPers/InfoBepaler.cls.xml	(.../InfoBepaler.cls.xml)	(revision 57674)
+++ BL/PPS/TBX/WPPers/InfoBepaler.cls.xml	(.../InfoBepaler.cls.xml)	(revision 57675)
@@ -100,11 +100,10 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim TBX As DOM.PM.TBXProduct.TBXLade = ..ProductAPI.GeefProduct(PRNr)
-	#dim IsV1Verpakking = (TBX.GeefVerpakking()= ##class(DOM.PM.enu.TBXVerpakking).StukMetOnderdelen())
 
 	#dim Info2 As %String = ""
 	
-	If $$$Not(TBX.GeefDwarsverdeling()=##class(DOM.PM.enu.TBXDwarsverdeling).Zonder()) && $$$Not(IsV1Verpakking) {
+	If $$$Not(TBX.GeefDwarsverdeling()=##class(DOM.PM.enu.TBXDwarsverdeling).Zonder()) && $$$Not(..IsV1Verpakking(TBX)) {
 		Set Info2 = ..GeefInfoMetMelding(Info2, "DWV:"_TBX.GeefDwarsverdeling())
 	}
 	
@@ -115,6 +114,14 @@
 	Quit Info2
 ]]></Implementation>
 </Method>
+
+<Method name="IsV1Verpakking">
+<FormalSpec>TBX:DOM.PM.TBXProduct.TBXLade</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (TBX.GeefVerpakking()= ##class(DOM.PM.enu.TBXVerpakking).StukMetOnderdelen())
+]]></Implementation>
+</Method>
 </Class>