Index: vhUnitTest/BL/PPS/common/impl/OnderdelenEtiketPrinterBase/EtikettenCommissieOne/TestPalletType.cls.xml
===================================================================
diff -u
--- vhUnitTest/BL/PPS/common/impl/OnderdelenEtiketPrinterBase/EtikettenCommissieOne/TestPalletType.cls.xml	(revision 0)
+++ vhUnitTest/BL/PPS/common/impl/OnderdelenEtiketPrinterBase/EtikettenCommissieOne/TestPalletType.cls.xml	(revision 37973)
@@ -0,0 +1,103 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.BL.PPS.common.impl.OnderdelenEtiketPrinterBase.EtikettenCommissieOne.TestPalletType">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="ToeleveringStub">
+<Type>vhTest.Fake.DOM.AKP.Toelevering</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringAPIStub">
+<Type>vhTest.Mock.DOM.AKP.ToeleveringAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderStub">
+<Type>vhTest.Mock.DOM.VKP.Order</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderAPIStub">
+<Type>vhTest.Mock.DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LegacyPartijAPIStub">
+<Type>vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerkoopAPIStub">
+<Type>vhTest.Mock.DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DummyKlant">
+<Type>DOM.VKP.VanHoeckeKlant</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+
+	Set ..ToeleveringID = 222222
+	Set ..OrderID = 333333
+	
+	Set ..ToeleveringStub = ##class(vhTest.Fake.DOM.AKP.Toelevering).%New(..ToeleveringID, $$$DummyInteger, ..OrderID)
+	Set ..ToeleveringAPIStub = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
+	Do ..ToeleveringAPIStub.IndienMethodCall("GeefToelevering", ..ToeleveringID).DanReturn(..ToeleveringStub)
+	
+	Set ..OrderStub = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+	Do ..OrderStub.IndienMethodCall("GeefKlantID").DanReturn($$$DummyInteger)
+	Do ..OrderStub.IndienMethodCall("GeefDocumentReferenties").DanReturn($$$DummyString)
+	Do ..OrderStub.IndienMethodCall("GeefOrderReferentie").DanReturn($$$DummyString)
+	Set ..OrderAPIStub = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
+	Do ..OrderAPIStub.IndienMethodCall("GeefOrder", ..OrderID).DanReturn(..OrderStub)
+	
+	Set ..LegacyPartijAPIStub = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).MockInstance()
+	Do ..LegacyPartijAPIStub.IndienMethodCall("GeefKlantNummerVoorPartijID",$$$ElkeWaarde).DanReturn($$$DummyString)
+
+	Set ..DummyKlant = ##class(vhTest.Dummy.DOM.VKP.VanHoeckeKlant).%New()
+	Set ..VerkoopAPIStub = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).MockInstance()
+	Do ..VerkoopAPIStub.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(..DummyKlant)
+]]></Implementation>
+</Method>
+
+<Method name="Test: VerzendingWijze van DHL geeft onderdelendoos etiket met aanduiding WWPallet">
+<Implementation><![CDATA[
+	#dim VerzendingWijzeDHL1Dag As %String = "E01"
+	Do ..OrderStub.IndienMethodCall("GeefVerzendingWijze").DanReturn(VerzendingWijzeDHL1Dag)
+	
+	#dim OnderdelenEtiketPrinterBase As vhUnitTest.BL.PPS.common.impl.OnderdelenEtiketPrinterBase.SubClass = ##class(vhUnitTest.BL.PPS.common.impl.OnderdelenEtiketPrinterBase.SubClass).%New()
+	#dim pxCommissie As BL.PPS.TBX.sub.pxCommissie = OnderdelenEtiketPrinterBase.EtikettenCommissieOne(..ToeleveringID, $$$DummyInteger, $$$DummyString)
+	Do $$$AssertEquals(pxCommissie.PalletType, "WWPALLET")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaard VerzendingWijze geeft onderdelendoos etiket zonder pallettype">
+<Implementation><![CDATA[
+	#dim StandaardVerzendwijze As %String = ""
+	Do ..OrderStub.IndienMethodCall("GeefVerzendingWijze").DanReturn(StandaardVerzendwijze)
+	
+	#dim OnderdelenEtiketPrinterBase As vhUnitTest.BL.PPS.common.impl.OnderdelenEtiketPrinterBase.SubClass = ##class(vhUnitTest.BL.PPS.common.impl.OnderdelenEtiketPrinterBase.SubClass).%New()
+	#dim pxCommissie As BL.PPS.TBX.sub.pxCommissie = OnderdelenEtiketPrinterBase.EtikettenCommissieOne(..ToeleveringID, $$$DummyInteger, $$$DummyString)
+	Do $$$AssertEquals(pxCommissie.PalletType, "")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: BL/PPS/common/impl/OnderdelenEtiketPrinterBase.cls.xml
===================================================================
diff -u -r34101 -r37973
--- BL/PPS/common/impl/OnderdelenEtiketPrinterBase.cls.xml	(.../OnderdelenEtiketPrinterBase.cls.xml)	(revision 34101)
+++ BL/PPS/common/impl/OnderdelenEtiketPrinterBase.cls.xml	(.../OnderdelenEtiketPrinterBase.cls.xml)	(revision 37973)
@@ -49,10 +49,23 @@
     Set pxLabel.Aantal = Aantal
     Set pxLabel.Titel = Titel
     Set pxLabel.OrderRef = Order.GeefOrderReferentie()
+    Set pxLabel.PalletType = ..GeefPalletType(Order.GeefVerzendingWijze())
 	Quit pxLabel
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPalletType">
+<FormalSpec>VerzendingWijze:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If ##class(DOM.VKP.impl.TransportWaarborgTypeBepaler).%New().Bepaal(VerzendingWijze) = ##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg() {
+		Quit "WWPALLET"
+	}
+	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="CommissieRef">
 <FormalSpec>KLNr:%String,OrderID:%String</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/BL/PPS/common/impl/OnderdelenEtiketPrinterBase/SubClass.cls.xml
===================================================================
diff -u
--- vhUnitTest/BL/PPS/common/impl/OnderdelenEtiketPrinterBase/SubClass.cls.xml	(revision 0)
+++ vhUnitTest/BL/PPS/common/impl/OnderdelenEtiketPrinterBase/SubClass.cls.xml	(revision 37973)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.BL.PPS.common.impl.OnderdelenEtiketPrinterBase.SubClass">
+<Super>BL.PPS.common.impl.OnderdelenEtiketPrinterBase</Super>
+
+<Method name="EtikettenCommissieOne">
+<FormalSpec>ToeleveringID:%Numeric,Aantal:%Numeric,Titel:%String</FormalSpec>
+<ReturnType>BL.PPS.TBX.sub.pxCommissie</ReturnType>
+<Implementation><![CDATA[	Quit ##super(ToeleveringID, Aantal, Titel)
+]]></Implementation>
+</Method>
+
+<Method name="CommissieRef">
+<FormalSpec>KLNr:%String,OrderID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: BL/PPS/TBX/sub/pxCommissie.cls.xml
===================================================================
diff -u -r34101 -r37973
--- BL/PPS/TBX/sub/pxCommissie.cls.xml	(.../pxCommissie.cls.xml)	(revision 34101)
+++ BL/PPS/TBX/sub/pxCommissie.cls.xml	(.../pxCommissie.cls.xml)	(revision 37973)
@@ -67,10 +67,17 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
+<Property name="PalletType">
+<Description>
+8</Description>
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
 <Method name="WriteRow">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Write ..Logo,*9,..Titel,*9,..KlantNaam,*9,..CommissieRef,*9,..OrderNr,*9,..TOENr,*9,..OrderRef
+	Write ..Logo,*9,..Titel,*9,..KlantNaam,*9,..CommissieRef,*9,..OrderNr,*9,..TOENr,*9,..OrderRef,*9,..PalletType
 	Write $C(13,10)
 	Quit $$$OK
 ]]></Implementation>