Index: BL/MB/UGLYPicking/Receptie/EtiketAfdrukker.cls.xml
===================================================================
diff -u -r57807 -r57808
--- BL/MB/UGLYPicking/Receptie/EtiketAfdrukker.cls.xml	(.../EtiketAfdrukker.cls.xml)	(revision 57807)
+++ BL/MB/UGLYPicking/Receptie/EtiketAfdrukker.cls.xml	(.../EtiketAfdrukker.cls.xml)	(revision 57808)
@@ -86,18 +86,18 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim Statement As TECH.String
-	Set Statement = "SELECT top 1 Werkpost FROM APPS_VKP_Maatwerk_LadeRegistratie_impl.Registratie "
-	If $$$HasLength($P(Bufferlijn,"\",8)) {
+	#dim Statement As %String = "SELECT top 1 Werkpost FROM APPS_VKP_Maatwerk_LadeRegistratie_impl.Registratie "
+	#dim ToeleveringID As %String = $P(Bufferlijn,"\",8)
+	If $$$HasLength(ToeleveringID) {
 		Set Statement = Statement _ "where (prnr = ? and toeleveringid = ?) "
 	} Else {
 		Set Statement = Statement _ "where prnr = ? "
 	}
 	Set Statement = Statement _ "order by id desc "
 	
 	#dim Query As TECH.DynamicQuery
-	If $$$HasLength($P(Bufferlijn,"\",8)) {
-		Set Query = ##class(TECH.DynamicQuery).%New(Statement, $ListBuild($P(Bufferlijn,"\"),  $P(Bufferlijn,"\",8)))
+	If $$$HasLength(ToeleveringID) {
+		Set Query = ##class(TECH.DynamicQuery).%New(Statement, $ListBuild($P(Bufferlijn,"\"),  ToeleveringID))
 	} Else {
 		Set Query = ##class(TECH.DynamicQuery).%New(Statement, $ListBuild($P(Bufferlijn,"\")))
 	}