Index: HADETIK.mac.rou
===================================================================
diff -u -r53818 -r57418
--- HADETIK.mac.rou	(.../HADETIK.mac.rou)	(revision 53818)
+++ HADETIK.mac.rou	(.../HADETIK.mac.rou)	(revision 57418)
@@ -175,8 +175,10 @@
 	 Set C("GEMEENTE") = ""
  } 
  
- Set ProductOrderLijn = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(ORDNr).GeefOrderLijnViaVolgnummer(OLNr)
+ #dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(ORDNr).GeefOrderLijnViaVolgnummer(OLNr)
  Set C("KLANTBARCODE") = ProductOrderLijn.GeefKlantBarcode()
+ Set C("PAKKETREFERENTIE") = ProductOrderLijn.GeefPakketReferentie()
+ 	
  Quit
  
 PrintEtiketten(Etiketten)
@@ -297,16 +299,20 @@
  . Set C("LABELTYP")="CHARGE"
  . Set C("LABELSIZE")="10x10"
  
+ // Zoek pakketreferentie. Zelfs al is de orderlijn niet via een pakket ingegeven, dan nog tonen we de pakketreferentie(s) van die klant voor dat product. 
  Set KLNr=$G(C("KLNR"))
  Set:KLNr=2967&&(C("LABELTYP")="KAD") C("LABELTYP")="KADBURB"
  Set (KlRef,PAKNr,KlRefOms)=""
- If KLNr'="" For  Set PAKNr=$O(^PAKKET("IP",PRNr,KLNr,PAKNr)) Quit:PAKNr=""  Do
+ 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.
+ If (KLNr'="") For  Set PAKNr=$O(^PAKKET("IP",PRNr,KLNr,PAKNr)) Quit:PAKNr=""  Do
  . 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=$$$KlantDKGDeKeukenfabriek C("BARCODEKLREF")=$G(C("KLREF"))
- Set C("KLREFOMS")=$E($G(KlRefOms),4,80)
+ . Set:(C("PAKKETREFERENTIE") '= $P(^PAKKET("D",PAKNr),D,2)) KlRef=KlRef_" & "_$P(^PAKKET("D",PAKNr),D,2) // Nog een overeenkomstig pakket gevonden, maar indien zelfde als op orderlijn, dan niet dubbel zetten.
+ . Set:$L($P(^PAKKET("D",PAKNr),D,4)) KlRefOms=KlRefOms_" & "_$P(^PAKKET("D",PAKNr),D,4) // 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:( ($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.
  Quit
  
 CHARGEID(C) ; Unique voor elk product ook voor elk stuk