Index: WS/Halux/AAP/GeefVolgendeTbpCodeRequest.cls.xml
===================================================================
diff -u
--- WS/Halux/AAP/GeefVolgendeTbpCodeRequest.cls.xml	(revision 0)
+++ WS/Halux/AAP/GeefVolgendeTbpCodeRequest.cls.xml	(revision 58592)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Halux.AAP.GeefVolgendeTbpCodeRequest">
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Type>STRING</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="Header">
+<Type>WS.Halux.AAP.RequestHeader</Type>
+<Required>1</Required>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>GeefVolgendeTbpCodeRequestState</State>
+<StreamLocation>^WS.Halux.AAP.GeefVolgendAB12S</StreamLocation>
+<Data name="GeefVolgendeTbpCodeRequestState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>Header</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Halux.AAP.DnaCodeService.txt
===================================================================
diff -u -r58498 -r58592
--- vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Halux.AAP.DnaCodeService.txt	(.../WS.Halux.AAP.DnaCodeService.txt)	(revision 58498)
+++ vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Halux.AAP.DnaCodeService.txt	(.../WS.Halux.AAP.DnaCodeService.txt)	(revision 58592)
@@ -108,6 +108,34 @@
                     <s:enumeration value="InBatch"/>
                 </s:restriction>
             </s:simpleType>
+            <s:element name="GeefVolgendeTbpCode">
+                <s:complexType>
+                    <s:sequence>
+                        <s:element minOccurs="0" name="GeefVolgendeTbpCodeRequest" type="s0:GeefVolgendeTbpCodeRequest"/>
+                    </s:sequence>
+                </s:complexType>
+            </s:element>
+            <s:complexType name="GeefVolgendeTbpCodeRequest">
+                <s:sequence>
+                    <s:element name="Header" type="s0:RequestHeader"/>
+                </s:sequence>
+            </s:complexType>
+            <s:element name="GeefVolgendeTbpCodeResponse">
+                <s:complexType>
+                    <s:sequence>
+                        <s:element name="GeefVolgendeTbpCodeResult" type="s0:GeefVolgendeTbpCodeResponse"/>
+                    </s:sequence>
+                </s:complexType>
+            </s:element>
+            <s:complexType name="GeefVolgendeTbpCodeResponse">
+                <s:complexContent>
+                    <s:extension base="s0:GeneriekeResponse">
+                        <s:sequence>
+                            <s:element name="VolgendeTbpCode" type="s:string"/>
+                        </s:sequence>
+                    </s:extension>
+                </s:complexContent>
+            </s:complexType>
             <s:element name="HernoemPallet">
                 <s:complexType>
                     <s:sequence>
@@ -315,6 +343,12 @@
     <message name="DnaCodeAfmeldenSoapOut">
         <part name="parameters" element="s0:DnaCodeAfmeldenResponse"/>
     </message>
+    <message name="GeefVolgendeTbpCodeSoapIn">
+        <part name="parameters" element="s0:GeefVolgendeTbpCode"/>
+    </message>
+    <message name="GeefVolgendeTbpCodeSoapOut">
+        <part name="parameters" element="s0:GeefVolgendeTbpCodeResponse"/>
+    </message>
     <message name="HernoemPalletSoapIn">
         <part name="parameters" element="s0:HernoemPallet"/>
     </message>
@@ -362,6 +396,10 @@
             <input message="s0:DnaCodeAfmeldenSoapIn"/>
             <output message="s0:DnaCodeAfmeldenSoapOut"/>
         </operation>
+        <operation name="GeefVolgendeTbpCode">
+            <input message="s0:GeefVolgendeTbpCodeSoapIn"/>
+            <output message="s0:GeefVolgendeTbpCodeSoapOut"/>
+        </operation>
         <operation name="HernoemPallet">
             <input message="s0:HernoemPalletSoapIn"/>
             <output message="s0:HernoemPalletSoapOut"/>
@@ -402,6 +440,15 @@
                 <soap:body use="literal"/>
             </output>
         </operation>
+        <operation name="GeefVolgendeTbpCode">
+            <soap:operation soapAction="http://www.vanhoecke.be/Halux/AAP/DnaCode/WS.Halux.AAP.DnaCodeService.GeefVolgendeTbpCode" style="document"/>
+            <input>
+                <soap:body use="literal"/>
+            </input>
+            <output>
+                <soap:body use="literal"/>
+            </output>
+        </operation>
         <operation name="HernoemPallet">
             <soap:operation soapAction="http://www.vanhoecke.be/Halux/AAP/DnaCode/WS.Halux.AAP.DnaCodeService.HernoemPallet" style="document"/>
             <input>
Index: WS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r58389 -r58592
--- WS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58389)
+++ WS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58592)
@@ -101,6 +101,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVolgendeTbpCode">
+<FormalSpec>GeefVolgendeTbpCodeRequest:WS.Halux.AAP.GeefVolgendeTbpCodeRequest</FormalSpec>
+<ReturnType>WS.Halux.AAP.GeefVolgendeTbpCodeResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ..VerwerkRequest(GeefVolgendeTbpCodeRequest, $$$CurrentMethod)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkRequest">
 <FormalSpec>Request:%CacheString,UitTeVoerenMethod:%String</FormalSpec>
 <Private>1</Private>
Index: WS/Halux/AAP/GeefVolgendeTbpCodeResponse.cls.xml
===================================================================
diff -u
--- WS/Halux/AAP/GeefVolgendeTbpCodeResponse.cls.xml	(revision 0)
+++ WS/Halux/AAP/GeefVolgendeTbpCodeResponse.cls.xml	(revision 58592)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Halux.AAP.GeefVolgendeTbpCodeResponse">
+<Super>WS.Halux.AAP.GeneriekeResponse</Super>
+
+<Property name="VolgendeTbpCode">
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+</Class>
+
+
+</Export>
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>