Index: BL/Flow/Proxy/pxPakbon.cls.xml
===================================================================
diff -u -r1074 -r1401
--- BL/Flow/Proxy/pxPakbon.cls.xml	(.../pxPakbon.cls.xml)	(revision 1074)
+++ BL/Flow/Proxy/pxPakbon.cls.xml	(.../pxPakbon.cls.xml)	(revision 1401)
@@ -86,7 +86,9 @@
 	Set Basis="L"
 	Set ..LeveringsBon=$$Format^vhLib("#.##0",BONNr)
 	Set ..LeveringsDatum=$$Format^vhLib("dd/mm/jjjj",oHoofding.VerzendDatum_",") 
-	set ..VerzendWijze=oHoofding.VerzendWijze
+	Set ..VerzendWijze=oHoofding.VerzendWijze
+	Set BevatTBXBulkMetOnderdelen=0   ; Comm./VHoss/Probox met losse onderdelen 
+	
 	Do ..ZoekKindProducten(oHoofding,.arProduct)
 	Set SortKey=""
 	For  Set SortKey=$O(arProduct(SortKey)) Quit:SortKey=""  Do
@@ -99,6 +101,8 @@
 	. Set MoederList=$LI(Product,3)
 	. For i=1:1:$LL(MoederList) Do
 	. . If $LI(MoederList,i)'="" Do pxProduct.Moeders.Insert($LI(MoederList,i))  ;moederproducten alleen toevoegen als kind en moeder niet hetzelfde zijn
+	. 
+	. Set BevatTBXBulkMetOnderdelen=(BevatTBXBulkMetOnderdelen)||(..IsTBXBulkMetOnderdelen(PRNr))
 	. Set User=""
 	. For  Set User=$o(arProduct(SortKey,User)) Quit:User=""  Do
 	. . Set VNR=""
@@ -116,10 +120,39 @@
 	. Set pxLijn.LIJNTYPE="P"
 	. set pxLijn.Product=pxProduct
 	. Do ..Lijnen.Insert(pxLijn)
+	
+	If BevatTBXBulkMetOnderdelen {
+		Do ..AddInfoTBXBulkMetOnderdelen()
+	}
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="AddInfoTBXBulkMetOnderdelen">
+<Implementation><![CDATA[
+	Set InfoText="TBX bulkverpakking: doos met losse onderdelen."
+	Set pxLijn=##class(pxTekstLijn).BuildFromString(InfoText) 
+	Do ..AppendLijn(pxLijn)
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="IsTBXBulkMetOnderdelen">
+<FormalSpec>PRNr:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set Product = ProductAPI.GeefProduct(PRNr)
+	Set IsTBXBulkMetOnderdelen=0
+	If Product.%Extends("DOM.PM.TBXProduct.TBXLade") {
+		Set TBXVerpakking = Product.GeefVerpakking()
+		Set IsTBXBulkMetOnderdelen=(TBXVerpakking'="S")&&(##class(BL.PR.GA.TandemBox).NietMeeToepassen(TBXVerpakking)="False")
+	}
+	Quit IsTBXBulkMetOnderdelen
+]]></Implementation>
+</Method>
+
 <Method name="ZoekKindProducten">
 <FormalSpec><![CDATA[oHoofding:Flow.OrderWMS.Hoofding,&arProduct]]></FormalSpec>
 <Implementation><![CDATA[