Index: HADETIK.mac.rou
===================================================================
diff -u -r57560 -r57572
--- HADETIK.mac.rou	(.../HADETIK.mac.rou)	(revision 57560)
+++ HADETIK.mac.rou	(.../HADETIK.mac.rou)	(revision 57572)
@@ -303,22 +303,22 @@
  Set KLNr=$G(C("KLNR"))
  Set:KLNr=2967&&(C("LABELTYP")="KAD") C("LABELTYP")="KADBURB"
  Set (KlRef,PAKNr,KlRefOms)=""
- Set KlRef = $Get( C("PAKKETREFERENTIE") ) // Op orderlijn krijgen we vanuit AX de pakketref door, indien ingegeven via pakket. Die niet kwijtspelen, want pakketten worden niet meer gesynct.
+ Set PakketReferentieVanopOrderlijn = $Get( C("PAKKETREFERENTIE") )
+ Set KlRef = PakketReferentieVanopOrderlijn // Op orderlijn krijgen we vanuit AX de pakketref door, indien ingegeven via pakket. Die niet kwijtspelen, want pakketten worden niet meer gesynct.
  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 = $$$IfLength(KlRef,""," & ") _ PakketNaam // Nog een overeenkomstig pakket gevonden, maar indien zelfde als op orderlijn, dan niet dubbel zetten.
+ . Set:(PakketReferentieVanopOrderlijn '= 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=$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")=$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") {
- 	If (KLNr=$$$KlantDKGDeKeukenfabriek) && $$$HasLength($G(C("PAKKETREFERENTIE"))) && ($G(C("DOSNR")) = "") {
- 		Set C("BARCODE")=$G(C("PAKKETREFERENTIE")) // DKG wil de eventuele pakketreferentie niet enkel tekstueel maar ook in barcodevorm.
+ 	If (KLNr=$$$KlantDKGDeKeukenfabriek) && $$$HasLength(PakketReferentieVanopOrderlijn) && ($G(C("DOSNR")) = "") {
+ 		Set C("BARCODE")=PakketReferentieVanopOrderlijn // DKG wil de eventuele pakketreferentie niet enkel tekstueel maar ook in barcodevorm.
  	}
  }