Index: HADETIK.mac.rou
===================================================================
diff -u -r57558 -r57559
--- HADETIK.mac.rou	(.../HADETIK.mac.rou)	(revision 57558)
+++ HADETIK.mac.rou	(.../HADETIK.mac.rou)	(revision 57559)
@@ -305,10 +305,10 @@
  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.
  If (KLNr'="") For  Set PAKNr=$O(^PAKKET("IP",PRNr,KLNr,PAKNr)) Quit:PAKNr=""  Do
- . Set PakketNode = $G(^PAKKET("D",PAKNr),D_D_"D")
- . Quit:$P(PakketNode,D,3)="D" // Type pakket "D" = "Divergend"
- . Set:(C("PAKKETREFERENTIE") '= $P(PakketNode,D,2)) KlRef=KlRef_" & "_$P(PakketNode,D,2) // Nog een overeenkomstig pakket gevonden, maar indien zelfde als op orderlijn, dan niet dubbel zetten.
- . Set:$L($P(PakketNode,D,4)) KlRefOms=KlRefOms_" & "_$P(PakketNode,D,4) // Sommige pakketten hebben niet enkel een naam, maar ook een omschrijving.
+ . 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:($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.