Index: KORTING.mac.rou
===================================================================
diff -u -r36781 -r39200
--- KORTING.mac.rou	(.../KORTING.mac.rou)	(revision 36781)
+++ KORTING.mac.rou	(.../KORTING.mac.rou)	(revision 39200)
@@ -52,7 +52,7 @@
 	// Ophalen van de geldige uitzonderingen en die maximale korting behouden, 
 	// de niet geledige uitzonderingen worden in de OptKortList gestoken voor later verwerking
 GetUitz(KLNr,NoSa,Nivo2,HoofdGroep,Groep,SubGroep,PRNr,RefDat,Aantal,LevTerm,OptKortList)
-	New Korting,Geldig,MaxKorting,MaxRec,UitzRec,Product
+	New Korting,Geldig,MaxKorting,MaxRec,UitzRec,Product,VolgNr,Ongeldig
 	Set MaxKorting=-999
 	Set (MaxRec,VolgNr)=""
 	Set Product=$S(Nivo2="W":0,1:PRNr) ; Wildcarding is ingesteld op subgroep nivo
@@ -103,6 +103,7 @@
 	;w "Ongeldig ",KLNr," ",PRNr," ",UitzRec,! r k
 	If $L($P(UitzRec,D,15)) Do  Quit:Ongeldig="X" Ongeldig ; Patternmatch op korttekst
 	. If PRNr'?4.7N Set Ongeldig="X"  Quit ; alleen als het product is ingevuld
+	. New KortT
 	. Set KortT=$P(^KPR(PRNr,0),D)
 	. Set:KortT'?@$P(UitzRec,D,15) Ongeldig="X" 
 	If $L($P(UitzRec,D,16)) Do  Quit:Ongeldig="X" Ongeldig ; Callback
@@ -197,3 +198,4 @@
 	Quit Result
  
 
+