Index: HADETIK.mac.rou
===================================================================
diff -u -r57559 -r57560
--- HADETIK.mac.rou	(.../HADETIK.mac.rou)	(revision 57559)
+++ HADETIK.mac.rou	(.../HADETIK.mac.rou)	(revision 57560)
@@ -307,13 +307,13 @@
  If (KLNr'="") For  Set PAKNr=$O(^PAKKET("IP",PRNr,KLNr,PAKNr)) Quit:PAKNr=""  Do
  . Set PakketNode = $G(^PAKKET("D",PAKNr),D_D_"D"), TypePakket=$P(PakketNode,D,3), PakketNaam=$P(PakketNode,D,2), PakketOmschrijving=$P(PakketNode,D,4)
  . Quit:TypePakket="D" // "D" = "Divergend"
- . Set:(C("PAKKETREFERENTIE") '= PakketNaam) KlRef=KlRef_" & "_PakketNaam // Nog een overeenkomstig pakket gevonden, maar indien zelfde als op orderlijn, dan niet dubbel zetten.
- . Set:$L(PakketOmschrijving) KlRefOms=KlRefOms_" & "_PakketOmschrijving // Sommige pakketten hebben niet enkel een naam, maar ook een omschrijving.
+ . Set:(C("PAKKETREFERENTIE") '= PakketNaam) KlRef = $$$IfLength(KlRef,""," & ") _ PakketNaam // Nog een overeenkomstig pakket gevonden, maar indien zelfde als op orderlijn, dan niet dubbel zetten.
+ . Set:$L(PakketOmschrijving) KlRefOms = $$$IfLength(KlRefOms,""," & ") _ PakketOmschrijving // Sommige pakketten hebben niet enkel een naam, maar ook een omschrijving.
  
- Set:($E($G(KlRef),1,3) = " & ") KlRef=$E($G(KlRef),4,80) // Loopje zet ampersand telkens voor referentie, ook voor de eerste, dus die moet er nu terug van.
+ Set:($E($G(KlRef),1,3) = " & ") KlRef=$G(KlRef)
  Set:( ($G(C("KLREF"))="") || (KLNr'=$$$KlantSFS) ) C("KLREF")=KlRef // Bij SFS heeft commissie referentie voorrang (wordt vroeger ingevuld in C("KLANTREF"). Voor andere klanten heeft pakket voorrang.
  
- Set C("KLREFOMS")=$E($G(KlRefOms),4,80) // Loopje zet ampersand telkens voor referentieomschrijving, ook voor de eerste, dus die moet er nu terug van.
+ Set C("KLREFOMS")=$G(KlRefOms)
  
  // DKG wil graag zijn pakketreferentie in barcode-vorm. Maar tot zolang er geen etiketlayout is gekozen/gemaakt voor dossiercode-barcode PLUS klantbarcode, heeft dossiercode voorrang.
  If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("APPS.Halux.Docs.impl.LadeKlantEtiketBuilder_IsActiefDkgPakketRefAlsBarcodeOpKlantEtiket") {