Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r2463 -r2489
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 2463)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 2489)
@@ -1139,31 +1139,49 @@
 <FormalSpec>KLNr:%String,TOENr:%String,TLUNr:%String,BatchID:%String,pxLabel:BL.PPS.TBX.sub.pxLabelKlant</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	Set ProjectRef = ""
 	
 	Set TLNr=$G(^TO("IU",TOENr,TLUNr),"*")
 	Set ORDNr=$P($G(^KTO($$$LevHalux,TOENr,TLNr)),"\",27) ; KOMLink
-	Set OLNr=$P($G(^KTO($$$LevHalux,TOENr,TLNr)),"\",28) ; KOMLink
-	Set pxLabel.Referentie=..KlantEtiketOneOrderRef(KLNr,ORDNr,OLNr)
- 	Set ProjectRef=$S('OLNr:"",1:$P($G(^KOD(KLNr,"F",ORDNr,OLNr)),"\",5))
- 	Set:$L(ProjectRef) pxLabel.Referentie=ProjectRef ; Projectreferentie is belangrijker dan de orderreferentie
+	
+	If (ORNDr '= "")
+	{
+		Set Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(ORDNr)
+		Set pxLabel.VerzendWijze = Order.GeefVerzendWijze().VerzendWijze
+		Set OLNr=$P($G(^KTO($$$LevHalux,TOENr,TLNr)),"\",28) ; KOMLink
+		If (OLNr '= "")
+		{
+			Set ProjectRef = $P(^KOD(KLNr,"F",ORDNr,OLNr),"\",5)
+			If ($L(ProjectRef))
+			{
+				Set pxLabel.Referentie=ProjectRef
+			}
+			Else
+			{
+				Set pxLabel.Referentie=..KlantEtiketOneOrderRef(KLNr,ORDNr,OLNr)
+			}
+		}
+	}
+ 	
  	If (KLNr=7833)||(KLNr=6279) Set pxLabel.KlantNaam=$$UPTRIMAN^vhRtn1(pxLabel.Referentie) ; Voor Hein en Optima
  	
 	 ; Indien contract dan leverweek van toelevering
- 	If TOENr,TLNr,$D(^KTO(6332,TOENr,TLNr)) Do
- 	. Set pxLabel.ProductieWeek=$TR($P(^KTO($$$LevHalux,TOENr,TLNr),"\",25),"/","")
- 	Else  Do
- 	. Set pxLabel.ProductieWeek=$TR($S('OLNr:"",1:$P($G(^KOD(KLNr,"F",ORDNr,OLNr)),"\",25)),"/","")
+ 	If TOENr,TLNr,$D(^KTO($$$LevHalux,TOENr,TLNr))
+ 	{
+ 		Set pxLabel.ProductieWeek=$TR($P(^KTO($$$LevHalux,TOENr,TLNr),"\",25),"/","")
+ 	}
+ 	ElseIf ((ORDNr'="") &&  (OLNr '= ""))
+ 	{
+ 		Set pxLabel.ProductieWeek=$TR($S('OLNr:"",1:$P($G(^KOD(KLNr,"F",ORDNr,OLNr)),"\",25)),"/","")
+ 	}
 
 	/// Logo: standaard van Hoecke, tenzij specifiek voor de klant een logo gedefinieerd is.
  	set pxLabel.LogoImg= ..GeefEtiketLogo(KLNr)
 	
 	Set pxLabel.OrderID=ORDNr
 	Set pxLabel.ToeleveringNr = TOENr
-	Set pxLabel.BatchID=BatchID
-	Set Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(ORDNr)
-	Set pxLabel.VerzendWijze = Order.GeefVerzendWijze().VerzendWijze
+	Set pxLabel.BatchID=BatchID	
 	
-	
 	Quit
 ]]></Implementation>
 </Method>