Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r2030 -r2032
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 2030)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 2032)
@@ -1206,8 +1206,18 @@
  	Set pxLabel=##class(BL.Etiket.TBXLadeInVHoss2D).%New()
 	Set pxLabel.Layout=..LabelKlantLayout
  	
+ 	
+ 	Set KlantNr = oQ.KlantGetObjectId()
+ 	Set Klant = ##class(DOM.DomeinContext).Instance().GeefKlantAPI().GeefKlant(KlantNr)
+	Set pxLabel.KlantNaam=Klant.GeefNaam()
+	/// UITZONDERING :  Op vraag van Assenti mag de klantnaam niet vermeld worden op het etiket. Daarom vervangen door kriptische omschrijving.
+	Set:(KlantNr=4451) pxLabel.KlantNaam="@4451"
+	
+	Set Taal = Klant.GeefTaal()
+	Set:(Taal="") Taal = "N"	
+	
  	Do ..KlantEtiketOneAlgemeen(oQ.KlantGetObjectId(),oQ.TOENr,oQ.TLUNr,oQ.BatchID,pxLabel)	
- 	Do ..KlantEtiketOneProduct(oQ.ProductGetObjectId(),$S($isObject(oQ.WPVerpak):oQ.WPVerpak.VHossID(),1:""),pxLabel,oQ.WPVerpak)
+ 	Do ..KlantEtiketOneProduct(oQ.ProductGetObjectId(),$S($isObject(oQ.WPVerpak):oQ.WPVerpak.VHossID(),1:""),pxLabel,oQ.WPVerpak, Taal)
  	
  	Set pxLabel.Device=..LabelKlantDevice
 	
@@ -1219,13 +1229,13 @@
 <FormalSpec>KLNr:%String,TOENr:%String,TLUNr:%String,BatchID:%String,pxLabel:BL.PPS.TBX.sub.pxLabelKlant</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	
 	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
- 	Do ..KlantEtiketOneAdresOrder(ORDNr,KLNr,pxLabel)
  	If (KLNr=7833)||(KLNr=6279) Set pxLabel.KlantNaamBig=$$UPTRIMAN^vhRtn1(pxLabel.OrderRef) ; Voor Hein en Optima
  	
 	 ; Indien contract dan leverweek van toelevering
@@ -1241,7 +1251,9 @@
 	Set pxLabel.ToeleveringNr = TOENr
 	Set pxLabel.BatchID=BatchID
 	Set Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(ORDNr)
-	Set pxLabel.VerzendWijze = Order.GeefVerzendingWijze()
+	Set pxLabel.VerzendWijze = Order.GeefVerzendWijze().VerzendWijze
+	
+	
 	Quit
 ]]></Implementation>
 </Method>
@@ -1256,22 +1268,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="KlantEtiketOneAdresOrder">
-<FormalSpec>ORDNr:%String,KLNr:%String,pxLabel:BL.PPS.TBX.sub.pxLabelKlant</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
- 
-	Set Adres=""
-	Set:KLNr&&ORDNr Adres=$G(^KOD(KLNr,"F",ORDNr,3))
-	Set:($L($TR(Adres,"\",""))<5)&&KLNr Adres=^KKL(^KK1(KLNr),0) ; Geen of onvoldoende adres
-
-	Set pxLabel.KlantNaam=$P(Adres,"\",2)
-	/// Op vraag van Assenti mag de klantnaam niet vermeld worden op het etiket. Daarom vervangen door kriptische omschrijving.
-	Set:(KLNr=4451) pxLabel.KlantNaam="@4451"
-	Quit
-]]></Implementation>
-</Method>
-
 <UDLText name="T">
 <Content><![CDATA[
 // Referentie opzoeken in leveringsbon indien order reeds op bon gezet
@@ -1295,12 +1291,13 @@
 </Method>
 
 <Method name="KlantEtiketOneProduct">
-<FormalSpec>PRNr,VHossID,pxLabel,WPVerpak:DS.PPS.TBX.sub.emWPVerpak</FormalSpec>
+<FormalSpec>PRNr,VHossID,pxLabel,WPVerpak:DS.PPS.TBX.sub.emWPVerpak,Taal:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	
 	Set pxLabel.ProductID = PRNr
- 	Set pxLabel.Breedte=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"CB")) ; Corpus breedte
-	Set pxLabel.Diepte=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LD")) ; Ladediepte
+ 	Set pxLabel.Breedte= ..GeefLabel("BREEDTE",Taal,"B")_": "_$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"CB")) ; Corpus breedte
+	Set pxLabel.Diepte=..GeefLabel("DIEPTE",Taal,"D")_": "_$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LD")) ; Ladediepte
 	Set pxLabel.WandDikte=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"WD")) ; Wanddikte
 	Set pxLabel.DossierCode=$$BARCODE^HAD(PRNr,"F")
 	Set pxLabel.VHossInfo=$G(VHossID)
@@ -1314,6 +1311,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLabel">
+<Description>
+Ophalen vertaling voor label</Description>
+<FormalSpec>Key:%String,Taal:%String,Default:%String=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Label = $G(^RES("HAD","PI","LBL","D",Key,Taal))
+	Set:(Label="") Label = Default
+	Quit Label
+]]></Implementation>
+</Method>
+
 <Method name="KlantEtiketChk">
 <FormalSpec>oQ</FormalSpec>
 <Implementation><![CDATA[
Index: BL/PPS/TBX/sub/pxLabelProPlus.cls.xml
===================================================================
diff -u -r2025 -r2032
--- BL/PPS/TBX/sub/pxLabelProPlus.cls.xml	(.../pxLabelProPlus.cls.xml)	(revision 2025)
+++ BL/PPS/TBX/sub/pxLabelProPlus.cls.xml	(.../pxLabelProPlus.cls.xml)	(revision 2032)
@@ -102,7 +102,21 @@
 	Set LadeID = VHossProductionHelper.BuildLadeID(..BatchID,..VHossSeqNr,..VHossZijkant,..ProductID)
 	
 	
-	Write ..Referentie,*9,..Bodem,*9,..Rug,*9,..Zijkant,*9,..Afdekkap,*9,..Opm1,*9,..Opm2,*9,..KlantOrdRef,*9,..KlantProdRef,*9,..VHoss,*9,..SlotNr,*9,..VorigSlotNr,*9,..VolgendSlotNr,*9,..Breedte,*9,LadeID
+	Write ..Referentie,*9
+	Write ..Bodem,*9
+	Write ..Rug,*9
+	Write ..Zijkant,*9
+	Write ..Afdekkap,*9
+	Write ..Opm1,*9
+	Write ..Opm2,*9
+	Write ..KlantOrdRef,*9
+	Write ..KlantProdRef,*9
+	Write ..VHoss,*9
+	Write ..SlotNr,*9
+	Write ..VorigSlotNr,*9
+	Write ..VolgendSlotNr,*9
+	Write ..Breedte,*9
+	Write LadeID
 	Write $C(13,10)
 	Quit $$$OK
 ]]></Implementation>