Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r2491 -r2510
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 2491)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 2510)
@@ -1138,47 +1138,35 @@
 <Method name="KlantEtiketOneAlgemeen">
 <FormalSpec>KLNr:%String,TOENr:%String,TLUNr:%String,BatchID:%String,pxLabel:BL.PPS.TBX.sub.pxLabelKlant</FormalSpec>
 <Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
 <Implementation><![CDATA[
 	Set ProjectRef = ""
 	
-	Set TLNr=$G(^TO("IU",TOENr,TLUNr),"*")
-	Set ORDNr=$P($G(^KTO($$$LevHalux,TOENr,TLNr)),"\",27) ; KOMLink
+	Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(TOENr)
+	Set TLNr = ^TO("IU",TOENr,TLUNr)
+	Set ToeleveringLijn = Toelevering.GeefToeleveringLijn(TLNr)
+	Set Order = Toelevering.GeefOrder()
 	
-	If (ORDNr '= "")
+	Set pxLabel.ProductieWeek = $TR($P(^KTO($$$LevHalux,TOENr,TLNr),"\",25),"/","")
+	
+	If ($IsObject(Order))
 	{
-		Set Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(ORDNr)
+		Set OrderLijn = ToeleveringLijn.GeefOrderLijn()
+		Set pxLabel.OrderID = Order.GeefOrderNr()
 		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)
-			}
-		}
+		Set pxLabel.Referentie = OrderLijn.GeefProjectRef()
+		If (pxLabel.Referentie = "") Set pxLabel.Referentie = ..KlantEtiketOneOrderRef(KLNr,ORDNr,OrderLijn.GeefLijnNr())
+		If (pxLabel.ProductieWeek = "") Set pxLabel.ProductieWeek = $TR($P(^KOD(KLNr,"F",ORDNr,OLNr),"\",25),"/","")
 	}
+	Else
+	{
+		Set pxLabel.Referentie = "VOORRAAD"
+	}
  	
  	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($$$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	
 	
@@ -1208,7 +1196,6 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Quit:'ORDNr "VOORRAAD"
 	Set OrdRef=""
 	If KLNr,ORDNr,OLNr Set OrdRef=$P($G(^KOD(KLNr,"F",ORDNr,OLNr)),"\",19) ; Klantcomm. ref
 	If KLNr,ORDNr,OrdRef="" Set OrdRef=$P($G(^KOD(KLNr,"F",ORDNr,1)),"\",3) ; rderref