Index: EWORDS2.mac.rou
===================================================================
diff -u -r734 -r921
--- EWORDS2.mac.rou	(.../EWORDS2.mac.rou)	(revision 734)
+++ EWORDS2.mac.rou	(.../EWORDS2.mac.rou)	(revision 921)
@@ -60,7 +60,7 @@
  
 BLDAOL(KLNr,CONSNr,ORDNr,OLUNr,Qty) 
  ; Terugnames, zonder WMS en manueel krijgen onmiddellijk status afgewerkt.
- New OLNr,OLRec,PRNr,KPRNr,ZndSt
+ New OLNr,OLRec,PRNr,KPRNr,ZndSt,LinkPRNr
  Set OLNr=^ORD("IU",ORDNr,OLUNr)
  Set OLRec=^KOD(KLNr,"F",ORDNr,OLNr)
  Set PRNr=$P(OLRec,D,2)
@@ -85,7 +85,7 @@
  Quit
  
 SingleKind(MPRNr) ; SOPR producten
-	NEw BSKey,Cnt,BSRec
+	NEw BSKey,Cnt,BSRec,LinkPRNr
 	Set BSKey=""
 	Set Cnt=0
 	For  Set BSKey=$O(^PRBS("BS",MPRNr,BSKey)) Quit:BSKey=""  Do
@@ -112,7 +112,7 @@
  
 BLDOL(KLNr,CONSNr,ORDNr,OLUNr,Qty,BOQty,BOLwk) 
  ; Verwerken van een orderlijn met eventuele opslitsing in verschillende kindproducten
- New OLNr,OLRec,PRNr,KPRNr,ManOpsl,ManChk
+ New OLNr,OLRec,PRNr,KPRNr,ManOpsl,ManChk,LinkPRNr
  Set OLNr=^ORD("IU",ORDNr,OLUNr) ; Misschien veranderd door BACKORD, daarom terug ophalen
  Set OLRec=^KOD(KLNr,"F",ORDNr,OLNr)
  Set PRNr=$P(OLRec,D,2)