Index: APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml
===================================================================
diff -u -r51323 -r54180
--- APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml	(.../LadeKlantEtiketBuilder.cls.xml)	(revision 51323)
+++ APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml	(.../LadeKlantEtiketBuilder.cls.xml)	(revision 54180)
@@ -136,11 +136,11 @@
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(Partij.GeefID())
 	
 	Set Etiket.KlantBarcode = ..GeefKlantBarcode(Partij,ProductOrderLijn)
-	If Etiket.KlantBarcode '= "" {
+	If $$$HasLength(Etiket.KlantBarcode) {
 		Set Etiket.Layout = $$$If((Partij.GeefID()=##class(DOM.VKP.enu.Klant).Labonorm()),"MaatwerkProduct 5x10","MaatwerkProductBAR 8x11")
 	}
 	
-	If ProductOrderLijn.GeefToeleveringID() '= "" {
+	If $$$HasLength(ProductOrderLijn.GeefToeleveringID()) {
 		Set Etiket.LblToelevering = ..GeefVertalingLabel("DOSSIER",Partij.GeefTaal(),"Dossier")
 		Set Etiket.ToeleveringID = ProductOrderLijn.GeefToeleveringID()
 	}
@@ -194,6 +194,9 @@
 	   (Partij.GeefID() = ##class(DOM.VKP.enu.Klant).Labonorm()) {
 		Set KlantBarcode = ProjectReferentie
 	}
+	If (Partij.GeefID() = ##class(DOM.VKP.enu.Klant).Noteborn()) {
+		Set KlantBarcode = $Extract(ProjectReferentie,1,13)
+	}
 	Quit KlantBarcode
 ]]></Implementation>
 </Method>