Index: BL/PPS/common/impl/OnderdelenEtiketPrinterBase.cls.xml
===================================================================
diff -u -r37973 -r38031
--- BL/PPS/common/impl/OnderdelenEtiketPrinterBase.cls.xml	(.../OnderdelenEtiketPrinterBase.cls.xml)	(revision 37973)
+++ BL/PPS/common/impl/OnderdelenEtiketPrinterBase.cls.xml	(.../OnderdelenEtiketPrinterBase.cls.xml)	(revision 38031)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="BL.PPS.common.impl.OnderdelenEtiketPrinterBase">
 <Abstract>1</Abstract>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Parameter name="LabelPrinter">
 <Default>Halux_Productie</Default>
@@ -12,6 +12,20 @@
 <Default>TBX Extra commissie 5x10</Default>
 </Parameter>
 
+<Property name="TransportWaarborgTypeBepaler">
+<Type>DOM.VKP.impl.TransportWaarborgTypeBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="TransportWaarborgTypeBepalerGet">
+<Private>1</Private>
+<ReturnType>DOM.VKP.impl.TransportWaarborgTypeBepaler</ReturnType>
+<Implementation><![CDATA[
+	Set r%TransportWaarborgTypeBepaler = $$$LazyLoad(r%TransportWaarborgTypeBepaler, ##class(DOM.VKP.impl.TransportWaarborgTypeBepaler).%New())
+	Quit r%TransportWaarborgTypeBepaler
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeProduct">
 <Abstract>1</Abstract>
 <FormalSpec>ToeleveringID:%String,ProductID:%String,Aantal:%Integer</FormalSpec>
@@ -59,7 +73,7 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	If ##class(DOM.VKP.impl.TransportWaarborgTypeBepaler).%New().Bepaal(VerzendingWijze) = ##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg() {
+	If ..TransportWaarborgTypeBepaler.Bepaal(VerzendingWijze) = ##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg() {
 		Quit "WWPALLET"
 	}
 	Quit ""