Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r72484 -r72799
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 72484)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 72799)
@@ -722,7 +722,7 @@
 	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(), GeefVolgendeTbpCodeRequest.DnaCode)
+		Set Response.VolgendeTbpCode = PalletIDBepaler.GeefNieuwPalletID(##class(BL.PPS.TBX.enu.PalletEtiketType).Probox(), GeefVolgendeTbpCodeRequest.ToeleveringId, GeefVolgendeTbpCodeRequest.ProductNummer)
 		Set Response.Header.Status = "200"
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()