Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r58577 -r58592
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58577)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58592)
@@ -395,6 +395,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVolgendeTbpCode">
+<FormalSpec>GeefVolgendeTbpCodeRequest:WS.Halux.AAP.GeefVolgendeTbpCodeRequest</FormalSpec>
+<ReturnType>WS.Halux.AAP.GeefVolgendeTbpCodeResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	Try {
+		Set Response = ##class(WS.Halux.AAP.GeefVolgendeTbpCodeResponse).%New()
+		#dim PalletIDBepaler As APPS.Halux.PPS.PalletIDBepaler = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefPalletIDBepaler()
+		Set Response.VolgendeTbpCode = PalletIDBepaler.GeefNieuwPalletID(##class(BL.PPS.TBX.enu.PalletEtiketType).Probox())
+		Set Response.Header.Status = "200"
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Response.Header.Status = Exception.GeefExceptionCode()
+		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
+	}
+	Quit Response
+]]></Implementation>
+</Method>
+
 <Method name="GeefPalletCodeVanDnaCode">
 <FormalSpec>DnaCode:%String</FormalSpec>
 <Private>1</Private>