Index: APPS/Halux/PPS/impl/PalletIDBepaler.cls.xml
===================================================================
diff -u -r73169 -r73281
--- APPS/Halux/PPS/impl/PalletIDBepaler.cls.xml	(.../PalletIDBepaler.cls.xml)	(revision 73169)
+++ APPS/Halux/PPS/impl/PalletIDBepaler.cls.xml	(.../PalletIDBepaler.cls.xml)	(revision 73281)
@@ -53,10 +53,17 @@
 <Implementation><![CDATA[
 	#dim LaatstGescandePalletCode = ..PalletIDBepalerHelper.GeefPalletCodeVanLaatstGescandeLade(ToeleveringId)
 	#dim NieuwePalletCode As %String
+	#dim PalletNr As %Integer
 	
+	If ..IsPalletCodeVoorOnderdelenDoos(LaatstGescandePalletCode) {
+		Set PalletNr = ..GeefVolgendPalletNr()
+		Do ..Verwerk(Type)
+		Quit ..Prefix _ ##class(TECH.StringUtils).AlignRight(PalletNr,0, LengteBarcode - $Length(..Prefix)) _ "A"
+	}
+	
 	#dim Suffix As %String = ..PalletIDBepalerHelper.GeefSuffixVoorPalletCode(ToeleveringId, LaatstGescandePalletCode)
 	If (Suffix = "A") {
-		#dim PalletNr As %Integer = ..GeefVolgendPalletNr()
+		Set PalletNr = ..GeefVolgendPalletNr()
 		Do ..Verwerk(Type)
 		Set NieuwePalletCode = ..Prefix _ ##class(TECH.StringUtils).AlignRight(PalletNr,0, LengteBarcode - $Length(..Prefix)) _ "A"
 	} Else {
@@ -67,6 +74,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsPalletCodeVoorOnderdelenDoos">
+<FormalSpec>PalletCode:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$$Not($Extract(PalletCode, 1, 3) = "TBP")
+]]></Implementation>
+</Method>
+
 <Method name="GeefVolgendPalletNr">
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>