Index: MRPRES.mac.rou
===================================================================
diff -u -r762 -r919
--- MRPRES.mac.rou	(.../MRPRES.mac.rou)	(revision 762)
+++ MRPRES.mac.rou	(.../MRPRES.mac.rou)	(revision 919)
@@ -231,7 +231,6 @@
  .. Set SubMag=$P(@CRef@("TO",PRNr),D,2)
  .. Set:SubMag="" SubMag=$$GetVerzendCode(PRNr)
  .. Set:SubMag="" SubMag="~"
- .. Set:SubMag'="P"&(SubMag'="Z") SubMag=$S(IsWVSt:"W",1:"1")
  .. Set @CRef@("STO",SubMag,PRNr)=$G(@CRef@("STO",SubMag,PRNr))+Qty
  . ; Verzamelen van de qty op FabKey nivo
  . For  Set FabKey=$O(@CRef@("TO",PRNr,FabKey)) Quit:FabKey=""  Do
@@ -243,9 +242,7 @@
  .... Set Qty=$$TELMAGST^MRP(PRNr,Qty,1,DimBrut,DimNet)
  ... Set SubMag=$P(@CRef@("TO",PRNr,FabKey,HFCode),D,2)
  ... Set:SubMag="" SubMag=$$GetVerzendCode(PRNr,FabKey)
- ... ; [FMA] Chris, volgende 2 lijnen gaan ons ambeteren...  Idem hierboven.
  ... Set:SubMag="" SubMag="~"
- ... Set:SubMag'="P"&(SubMag'="Z") SubMag=$S(IsWVSt:"W",1:"1")
  ... Set @CRef@("STO",SubMag,PRNr)=$G(@CRef@("STO",SubMag,PRNr))+Qty
  ... Set @CRef@("STO",SubMag,PRNr,FabKey,HFCode)=Qty 
  Quit
@@ -255,13 +252,16 @@
  ; Momenteel wordt de verzendcode bepaald op basis van de zones die ook voor de voorraadtelling
  ; gebruikt worden.  Daarnaast zijn er nog een aantal uitzonderingen, o.a. voor Keller en De Decker.
 GetVerzendCode(PRNr,FabKey)
-	Set SubMag=$P($G(^KPR(PRNr,15)),D,12)	; Ophalen van de Halux zone voor het produkt
+	New SubMab,SubMagCode,KLNr,TLNr,MPRNr,GenTyp
+	Set SubMag=$P($G(^KPR(PRNr,15)),"\",12)	; Ophalen van de Halux zone voor het produkt
 	Quit:'$L(SubMag) ""
 	Set SubMagCode=$P($G(^RES("PRODUKT","PI","HFWVSUBMAG","D",SubMag)),"`",4) ; Vertaling naar een code voor HALUX TRANSFER verzendwijze
 	; Klant-specifieke uitzonderingen
 	If $G(FabKey) Do 
-	. Set KLNr=$P(^KTO($$$LevHalux,$P(FabKey,";")),"\",x)
+	. Set KLNr=$P($G(^KTO($$$LevHalux,$P(FabKey,";"),1)),"\",8)
+	. Quit:'KLNr
 	. Set TLNr=$G(^TO("IU",$P(FabKey,";"),$P(FabKey,";",2)))
+	. Quit:'TLNr
 	. Set MPRNr=$P(^KTO($$$LevHalux,$P(FabKey,";"),TLNr),"\",2)	; Moederproduct
 	. Set GenTyp=$$GENTYP^HAD(MPRNr)
 	. ; Alles voor de Keller-lijn zetten we apart