Index: APPS/Halux/PPS/impl/PalletIDBepaler.cls.xml
===================================================================
diff -u -r29059 -r34178
--- APPS/Halux/PPS/impl/PalletIDBepaler.cls.xml	(.../PalletIDBepaler.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/impl/PalletIDBepaler.cls.xml	(.../PalletIDBepaler.cls.xml)	(revision 34178)
@@ -1,16 +1,23 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.impl.PalletIDBepaler">
-<Super>TECH.RegisteredObject,APPS.Halux.PPS.PalletIDBepaler</Super>
+<Super>BL.PPS.TBX.enu.PalletEtiketType.Verwerker,APPS.Halux.PPS.PalletIDBepaler</Super>
 
+<Property name="Prefix">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="GeefNieuwPalletID">
 <FormalSpec>Type:BL.PPS.TBX.enu.PalletEtiketType</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#define LengteBarcode 8
-	#dim LenType As %Integer = $length(Type)
+	
 	#dim PalletNr As %Integer = ..GeefVolgendPalletNr()
-	quit Type _ ##class(TECH.StringUtils).AlignRight(PalletNr,0,$$$LengteBarcode-LenType)
+	do ..Verwerk(Type)
+	
+	quit ..Prefix _ ##class(TECH.StringUtils).AlignRight(PalletNr,0,$$$LengteBarcode-$length(..Prefix))
 ]]></Implementation>
 </Method>
 
@@ -25,6 +32,30 @@
 	quit PalletID
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkProbox">
+<Private>1</Private>
+<Implementation><![CDATA[	set ..Prefix = ##class(BL.PPS.TBX.enu.PalletEtiketPrefix).Probox()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkSFS">
+<Private>1</Private>
+<Implementation><![CDATA[	set ..Prefix = ##class(BL.PPS.TBX.enu.PalletEtiketPrefix).SFS()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTandembox">
+<Private>1</Private>
+<Implementation><![CDATA[	set ..Prefix = ##class(BL.PPS.TBX.enu.PalletEtiketPrefix).Tandembox()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkZonderLogo">
+<Private>1</Private>
+<Implementation><![CDATA[	set ..Prefix = ##class(BL.PPS.TBX.enu.PalletEtiketPrefix).Tandembox()
+]]></Implementation>
+</Method>
 </Class>