Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r18198 -r18250
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 18198)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 18250)
@@ -942,6 +942,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsOnderdelenDoosNodig">
+<Description>
+In sync houden met Cache v5 !!! </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>DataItem:Prod.GAData.Item</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set TBXLosseOnderdelenBepaler=##class(Prod.GAData.impl.TBXLosseOnderdelenBepaler).%New()
+	Quit TBXLosseOnderdelenBepaler.HeeftProboxOnderdelenDoos(DataItem)
+]]></Implementation>
+</Method>
+
 <Method name="CalcOpvullijstLengte">
 <Description>
 Voor sommige ladedieptes moeten opvullijsten ingekort worden. 
Index: Prod/GAData/impl/TBXLosseOnderdelenBepaler.cls.xml
===================================================================
diff -u
--- Prod/GAData/impl/TBXLosseOnderdelenBepaler.cls.xml	(revision 0)
+++ Prod/GAData/impl/TBXLosseOnderdelenBepaler.cls.xml	(revision 18250)
@@ -0,0 +1,85 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="Prod.GAData.impl.TBXLosseOnderdelenBepaler">
+<IncludeCode>vhLib.Macro</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="DataItem">
+<Type>Prod.GAData.Item</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="HeeftProboxOnderdelenDoos">
+<FormalSpec>DataItem:Prod.GAData.Item</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set ..DataItem=DataItem
+
+	Set HeeftProboxOnderdelenDoos=0
+
+	Set ItemLabelsIterator=##class(TECH.ListIterator).%New(..GeefItemLabelsPBXOnderdelenDoos())
+	While (ItemLabelsIterator.HasNext()) {
+		Set ItemLabel=ItemLabelsIterator.Next()
+		Set HeeftProboxOnderdelenDoos=(HeeftProboxOnderdelenDoos) || (..BevatGADataItem(ItemLabel))
+	}
+	Quit HeeftProboxOnderdelenDoos
+]]></Implementation>
+</Method>
+
+<Method name="GeefItemLabelsPBXOnderdelenDoos">
+<Description>
+MethodNaam voluit : GeefItemLabelsDieProboxOnderdelenDoosBepalen()  is langer dan '31' tekens. </Description>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set ItemLabels=##class(%ListOfDataTypes).%New()
+
+	Do ..VoegToeLabelsAltijdLos(ItemLabels)
+	If $$$Not(..IsBinnenlade()) {
+		Do ..VoegToeLabelsLosNietBinnenlade(ItemLabels)
+	}
+	
+	Quit ItemLabels
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeLabelsAltijdLos">
+<FormalSpec>ItemLabels:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ItemLabels.Insert("PRCPLI")
+	Do ItemLabels.Insert("PRCPRE")
+	Do ItemLabels.Insert("PRSB")
+	Do ItemLabels.Insert("PRSS")
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeLabelsLosNietBinnenlade">
+<FormalSpec>ItemLabels:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ItemLabels.Insert("PRRL")
+	Do ItemLabels.Insert("PRRLRE")
+]]></Implementation>
+</Method>
+
+<Method name="BevatGADataItem">
+<Description>
+Analoog aan BevatRol() in maatwerk framework</Description>
+<FormalSpec>ItemLabel:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..DataItem.Eval("PRNr",ItemLabel,,0)?4.7N)
+]]></Implementation>
+</Method>
+
+<Method name="IsBinnenlade">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..DataItem.Val("LT")=##class(DOM.PM.enu.TBXLadeType).BinnenLade()
+]]></Implementation>
+</Method>
+</Class>
+</Export>