Index: APPS/Halux/PPS/impl/PalletIDBepaler.cls.xml
===================================================================
diff -u -r36232 -r72410
--- APPS/Halux/PPS/impl/PalletIDBepaler.cls.xml	(.../PalletIDBepaler.cls.xml)	(revision 36232)
+++ APPS/Halux/PPS/impl/PalletIDBepaler.cls.xml	(.../PalletIDBepaler.cls.xml)	(revision 72410)
@@ -3,6 +3,11 @@
 <Class name="APPS.Halux.PPS.impl.PalletIDBepaler">
 <Super>TECH.RegisteredObject,BL.PPS.TBX.enu.PalletEtiketType.Verwerker,APPS.Halux.PPS.PalletIDBepaler</Super>
 
+<Parameter name="LpnPrefix">
+<Type>%String</Type>
+<Default>LPN</Default>
+</Parameter>
+
 <Property name="Prefix">
 <Type>%String</Type>
 <Private>1</Private>
@@ -21,6 +26,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefNieuwLpnCode">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#define LengteLpnCode 7
+	
+	#dim LpnNr As %Integer = ..GeefVolgendLpnNr()
+	
+	quit ..#LpnPrefix _ ##class(TECH.StringUtils).AlignRight(LpnNr,0,$$$LengteLpnCode-$length(..#LpnPrefix))
+]]></Implementation>
+</Method>
+
 <Method name="GeefVolgendPalletNr">
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
@@ -33,6 +49,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVolgendLpnNr">
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Lock +^RES("EWPAL","CNT","LPN")
+	#dim LpnNr As %String = $increment(^RES("EWPAL","CNT","LPN"))
+	If LpnNr>9999 Set LpnNr=1,^RES("EWPAL","CNT","LPN") = LpnNr
+	Lock -^RES("EWPAL","CNT","LPN")
+	quit LpnNr
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkProbox">
 <Private>1</Private>
 <Implementation><![CDATA[	set ..Prefix = ##class(BL.PPS.TBX.enu.PalletEtiketPrefix).Probox()
Index: vhDeploy/Deploy20231107xAanmaakCounterLpnNummer.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20231107xAanmaakCounterLpnNummer.cls.xml	(revision 0)
+++ vhDeploy/Deploy20231107xAanmaakCounterLpnNummer.cls.xml	(revision 72410)
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20231107xAanmaakCounterLpnNummer">
+<Super>vhDeploy.Deploy</Super>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/Halux/PPS/PalletIDBepaler.cls.xml
===================================================================
diff -u -r29059 -r72410
--- vhTest/Mock/APPS/Halux/PPS/PalletIDBepaler.cls.xml	(.../PalletIDBepaler.cls.xml)	(revision 29059)
+++ vhTest/Mock/APPS/Halux/PPS/PalletIDBepaler.cls.xml	(.../PalletIDBepaler.cls.xml)	(revision 72410)
@@ -3,8 +3,7 @@
 <Class name="vhTest.Mock.APPS.Halux.PPS.PalletIDBepaler">
 <Description>
 Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
-Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
-Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.Halux.PPS.PalletIDBepaler,Tools.Mock.MockClassBase</Super>
 
Index: APPS/Halux/PPS/PalletIDBepaler.cls.xml
===================================================================
diff -u -r29059 -r72410
--- APPS/Halux/PPS/PalletIDBepaler.cls.xml	(.../PalletIDBepaler.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/PalletIDBepaler.cls.xml	(.../PalletIDBepaler.cls.xml)	(revision 72410)
@@ -9,6 +9,10 @@
 <FormalSpec>Type:BL.PPS.TBX.enu.PalletEtiketType</FormalSpec>
 <ReturnType>%String</ReturnType>
 </Method>
+
+<Method name="GeefNieuwLpnCode">
+<ReturnType>%String</ReturnType>
+</Method>
 </Class>