Index: HADETIK.mac.rou
===================================================================
diff -u -r53817 -r53818
--- HADETIK.mac.rou	(.../HADETIK.mac.rou)	(revision 53817)
+++ HADETIK.mac.rou	(.../HADETIK.mac.rou)	(revision 53818)
@@ -206,7 +206,6 @@
  Do ADRES(ORDNr,KLNr,.C)
  If (KLNr=$$$KlantHein)||(KLNr=$$$KlantOptimaPack) Set C("KLNMBIG")=$$UPTRIMAN^vhRtn1(C("ORDREF")) ; Voor Hein en Optima
  If (KLNr=$$$KlantHein) Set C("ORDREF")=$G(C("COMMREF")) ; Voor Hein en Optima
- If (KLNr=$$$KlantDKGDeKeukenfabriek) Set C("BARCODEKLREF")=$G(C("KLREF"))
  Set C("TOENR")=TOENr
  Set C("PRODWK")=$TR($P(LijnR,D,25),"/","")
  Set Taal="N"
@@ -305,7 +304,8 @@
  . Quit:$P($G(^PAKKET("D",PAKNr),D_D_"D"),D,3)="D"
  . Set KlRef=KlRef_" & "_$P(^PAKKET("D",PAKNr),D,2)
  . Set:$L($P(^PAKKET("D",PAKNr),D,4)) KlRefOms=KlRefOms_" & "_$P(^PAKKET("D",PAKNr),D,4)
- Set:KLNr'=$$$KlantSFS||($G(C("KLREF"))="") C("KLREF")=$E($G(KlRef),4,80)
+ Set:KLNr'=$$$KlantSFS||($G(C("KLREF"))="") C("KLREF")=$E($G(KlRef),4,80) 
+ Set:KLNr=$$$KlantDKGDeKeukenfabriek C("BARCODEKLREF")=$G(C("KLREF"))
  Set C("KLREFOMS")=$E($G(KlRefOms),4,80)
  Quit