Index: HADETIK.mac.rou
===================================================================
diff -u -r57418 -r57419
--- HADETIK.mac.rou	(.../HADETIK.mac.rou)	(revision 57418)
+++ HADETIK.mac.rou	(.../HADETIK.mac.rou)	(revision 57419)
@@ -313,6 +313,12 @@
  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.
+ 
+ If ( ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("APPS.Halux.Docs.impl.LadeKlantEtiketBuilder_IsActiefDkgPakketRefAlsBarcodeOpKlantEtiket")
+ 	&& (KLNr=$$$KlantDKGDeKeukenfabriek) && $L($G(C("PAKKETREFERENTIE"))) && '($L($G(C("DOSNR"))))) {
+ 	Set C("BARCODE")=$G(C("PAKKETREFERENTIE")) // DKG wil de eventuele pakketreferentie niet enkel tekstueel maar ook in barcodevorm.
+ }
+ 
  Quit
  
 CHARGEID(C) ; Unique voor elk product ook voor elk stuk
@@ -420,7 +426,8 @@
 	 Quit:ProdGrp="+" ; Keller - geen etiket nodig // Niet meer van toepassing.
  
 	 Do FETCHP(PRNr,$G(Aantal),.C)
-	 Set C("LABELTYP")=$G(C("LABELTYP"),$S($L($G(C("DOSNR"))):"ALGBARC",1:"ALG"))
+	 Set C("LABELTYP")=$G(C("LABELTYP"),$S($L($G(C("DOSNR"))):"ALGBARC",1:"ALG")) // Indien Halux dossiernummer, dan etiketlayout m�t barcode.
+	 Set:((C("LABELTYP")="ALG") && ($L($G(C("BARCODE"))))) C("LABELTYP")="ALGBARC" // Indien een klantbarcode, dan etiketlayout m�t barcode.
  
 	 Set C("LOGO")=$G(^IPCom("CS","LOGO4682",0))
 	 Set:$D(^IPCom("CS","LOGO"_C("KLNR"))) C("LOGO")=$G(^IPCom("CS","LOGO"_C("KLNR"),0))