Index: EWORDS.mac.rou
===================================================================
diff -u -r48104 -r48105
--- EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 48104)
+++ EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 48105)
@@ -464,7 +464,8 @@
  Quit
  ;
 SAVE(NoAsk)
- New R,Ok,Count,VerzW,VerzDat,DOutDate,DOutTime,VerzZ,LevAdr,CONSNr,Send,ORDNr,ORDNrs,Check,Rembours,ChkBeletDone,OLU,LijnRec,ReturnLocal
+ New R,Ok,Count,VerzW,VerzDat,DOutDate,DOutTime,VerzZ,LevAdr,CONSNr,Send,ORDNr,Check,Rembours,ChkBeletDone,OLU,LijnRec,ReturnLocal
+ 
  Set Ok=0
  
  If $D(^HULP(%J,KLNr,"M","A")) {
@@ -514,11 +515,10 @@
 	 
 	 If 'DOutTime do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("DOutTime mag niet null zijn"))
 	 Set LevAdr=^HULP(%J,KLNr,"C","LA")
+	 
 	 Do BLDCONS^EWORDS2(KLNr,$NA(^HULP(%J,KLNr,"M")),CONSNr,$P(VerzW,";"),VerzDat,DOutDate_","_DOutTime,VerzZ,LevAdr,.ChkBeletDone) ; Creatie suborderlijnen
-	 Set (ORDNr,ORDNrs)=""
-	 For  Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr=""  Set ORDNrs=ORDNrs_";"_ORDNr
-	 Set $E(ORDNrs)=""
-	 Do STORE^LOG("ORDW",CONSNr,"O",ORDNrs)
+	 Do STORE^LOG("ORDW", CONSNr, "O", ##class(BL.Legacy.EWORDS.Save).GeefOrderNummers(CONSNr))
+
 	 Set ChkBeletDone=$G(ChkBeletDone)
 	 Do VERWERK^EWORDSS(CONSNr) ; Eventueel opsplitsen in groepen
 	 
Index: BL/Legacy/EWORDS/Save.cls.xml
===================================================================
diff -u
--- BL/Legacy/EWORDS/Save.cls.xml	(revision 0)
+++ BL/Legacy/EWORDS/Save.cls.xml	(revision 48105)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.Legacy.EWORDS.Save">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefOrderNummers">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ConsolidatieNummer:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim OrderNummer As %String = $Order(^ORDW("D", ConsolidatieNummer, "D", ""))
+ 	#dim OrderNummers As %String = ""
+ 		
+ 	While $$$Not(OrderNummer = "") {
+	 	Set OrderNummer = $Order(^ORDW("D", ConsolidatieNummer, "D", OrderNummer))
+	 	Set OrderNummers = OrderNummers _ ";" _ OrderNummer
+ 	}
+ 		
+ 	Set $Extract(OrderNummers, 1) = ""
+ 	
+ 	Quit OrderNummers
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>