Index: BL/PPS/TBX/enu/PalletEtiketPrefix.cls.xml
===================================================================
diff -u
--- BL/PPS/TBX/enu/PalletEtiketPrefix.cls.xml	(revision 0)
+++ BL/PPS/TBX/enu/PalletEtiketPrefix.cls.xml	(revision 34178)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.PPS.TBX.enu.PalletEtiketPrefix">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="VALUELIST">
+<Default>,SFS,TBX,TBP</Default>
+</Parameter>
+
+<Method name="SFS">
+<ClassMethod>1</ClassMethod>
+<ReturnType>BL.PPS.TBX.enu.PalletEtiketPrefix</ReturnType>
+<Implementation><![CDATA[	quit "SFS"
+]]></Implementation>
+</Method>
+
+<Method name="Tandembox">
+<ClassMethod>1</ClassMethod>
+<ReturnType>BL.PPS.TBX.enu.PalletEtiketPrefix</ReturnType>
+<Implementation><![CDATA[	quit "TBX"
+]]></Implementation>
+</Method>
+
+<Method name="Probox">
+<ClassMethod>1</ClassMethod>
+<ReturnType>BL.PPS.TBX.enu.PalletEtiketPrefix</ReturnType>
+<Implementation><![CDATA[	quit "TBP"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: BL/PPS/TBX/enu/PalletEtiketPrefix/AutoComplete.cls.xml
===================================================================
diff -u
--- BL/PPS/TBX/enu/PalletEtiketPrefix/AutoComplete.cls.xml	(revision 0)
+++ BL/PPS/TBX/enu/PalletEtiketPrefix/AutoComplete.cls.xml	(revision 34178)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.PPS.TBX.enu.PalletEtiketPrefix.AutoComplete">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+
+<Property name="Probox">
+<Type>%String</Type>
+<InitialExpression>"TBP"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="SFS">
+<Type>%String</Type>
+<InitialExpression>"SFS"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Tandembox">
+<Type>%String</Type>
+<InitialExpression>"TBX"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: BL/PPS/TBX/enu/PalletEtiketType/AutoComplete.cls.xml
===================================================================
diff -u -r34172 -r34178
--- BL/PPS/TBX/enu/PalletEtiketType/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 34172)
+++ BL/PPS/TBX/enu/PalletEtiketType/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 34178)
@@ -32,7 +32,7 @@
 
 <Property name="ZonderLogo">
 <Type>%String</Type>
-<InitialExpression>"TBX"</InitialExpression>
+<InitialExpression>"Z"</InitialExpression>
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
 </Property>
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>
 
 
Index: BL/PPS/TBX/enu/PalletEtiketType.cls.xml
===================================================================
diff -u -r34172 -r34178
--- BL/PPS/TBX/enu/PalletEtiketType.cls.xml	(.../PalletEtiketType.cls.xml)	(revision 34172)
+++ BL/PPS/TBX/enu/PalletEtiketType.cls.xml	(.../PalletEtiketType.cls.xml)	(revision 34178)
@@ -6,7 +6,7 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>,SFS,TBX,TBP,Zonder</Default>
+<Default>,SFS,TBX,TBP,Z</Default>
 </Parameter>
 
 <Method name="SFS">
@@ -33,7 +33,7 @@
 <Method name="ZonderLogo">
 <ClassMethod>1</ClassMethod>
 <ReturnType>BL.PPS.TBX.enu.PalletEtiketType</ReturnType>
-<Implementation><![CDATA[	Quit "TBX"
+<Implementation><![CDATA[	Quit "Z"
 ]]></Implementation>
 </Method>
 </Class>
Index: BL/PPS/TBX/enu/PalletEtiketPrefix/Verwerker.cls.xml
===================================================================
diff -u
--- BL/PPS/TBX/enu/PalletEtiketPrefix/Verwerker.cls.xml	(revision 0)
+++ BL/PPS/TBX/enu/PalletEtiketPrefix/Verwerker.cls.xml	(revision 34178)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.PPS.TBX.enu.PalletEtiketPrefix.Verwerker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+
+<Method name="Verwerk">
+<Final>1</Final>
+<FormalSpec>PalletEtiketPrefix:BL.PPS.TBX.enu.PalletEtiketPrefix</FormalSpec>
+<Implementation><![CDATA[
+	If PalletEtiketPrefix = "TBP" {
+		Do ..VerwerkProbox()
+	} ElseIf PalletEtiketPrefix = "SFS" {
+		Do ..VerwerkSFS()
+	} ElseIf PalletEtiketPrefix = "TBX" {
+		Do ..VerwerkTandembox()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(PalletEtiketPrefix,"BL.PPS.TBX.enu.PalletEtiketPrefix",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkProbox">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkSFS">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkTandembox">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: BL/PPS/TBX/enu/PalletEtiketType/Verwerker.cls.xml
===================================================================
diff -u -r34172 -r34178
--- BL/PPS/TBX/enu/PalletEtiketType/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 34172)
+++ BL/PPS/TBX/enu/PalletEtiketType/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 34178)
@@ -18,7 +18,7 @@
 		Do ..VerwerkSFS()
 	} ElseIf PalletEtiketType = "TBX" {
 		Do ..VerwerkTandembox()
-	} ElseIf PalletEtiketType = "TBX" {
+	} ElseIf PalletEtiketType = "Z" {
 		Do ..VerwerkZonderLogo()
 	} Else {
 		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(PalletEtiketType,"BL.PPS.TBX.enu.PalletEtiketType",$classname())
Index: vhTest/Fake/BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r34172 -r34178
--- vhTest/Fake/BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 34172)
+++ vhTest/Fake/BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 34178)
@@ -20,8 +20,7 @@
 
 <Method name="PalletEtikettenZonderLogo">
 <FormalSpec>AantalEtikettenZonderLogo:%Integer</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="BldBasisFromQueue">