Index: Prod/Kenmerk/DataDefinitie.cls.xml
===================================================================
diff -u -r31539 -r41240
--- Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 31539)
+++ Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 41240)
@@ -543,6 +543,7 @@
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+	New ID
 	Set ID=$O(^Prod.Ken.DataDefinitieD(UnID,GroepID))
 	Quit:ID="" 0
 	Quit:$G(GroepID)="" 1
Index: MRPRES.mac.rou
===================================================================
diff -u -r29059 -r41240
--- MRPRES.mac.rou	(.../MRPRES.mac.rou)	(revision 29059)
+++ MRPRES.mac.rou	(.../MRPRES.mac.rou)	(revision 41240)
@@ -280,7 +280,7 @@
  ; 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)
-	New SubMab,SubMagCode,KLNr,TLNr,MPRNr,GenTyp
+	New SubMag,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
Index: FLOWORD7.mac.rou
===================================================================
diff -u -r29059 -r41240
--- FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 29059)
+++ FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 41240)
@@ -249,6 +249,7 @@
  ;
  
 GetVerzWFromSubMag(WVSubMag)
+	New VerzendW
 	Set VerzendW="TH"_$S(WVSubMag?1N:WVSubMag,WVSubMag?1(1"A",1"B",1"C",1"D",1"E",1"F",1"G"):WVSubMag,1:"")
 	Quit VerzendW