Index: zTryout/JWI/GroupnaamCorrectie.cls.xml
===================================================================
diff -u -r39854 -r40378
--- zTryout/JWI/GroupnaamCorrectie.cls.xml	(.../GroupnaamCorrectie.cls.xml)	(revision 39854)
+++ zTryout/JWI/GroupnaamCorrectie.cls.xml	(.../GroupnaamCorrectie.cls.xml)	(revision 40378)
@@ -71,6 +71,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkSubLijnByID">
+<FormalSpec>ID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Lijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%OpenId(ID)
+	w !,"ID " _ID
+	If $IsObject(Lijn) {
+		w !,ID_" gevonden"
+		Do ..VerwerkSubLijn(Lijn)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkSubLijn">
 <FormalSpec>Sublijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Implementation><![CDATA[
@@ -101,6 +113,7 @@
 				Do ##class(TECH.Context.RuntimeContext).Instance().ZetTaal(Taal)
 				
 				Set GroepNaam = ..GeefGroepNaamDTOIngegevenKenmerken(Sublijn.GeefIngegevenKenmerken(),Taal)
+				w !,"groepnaam result ->" _GroepNaam
 				try {
 					Do ..Service.WijzigMaatwerkLijn(Sublijn.GeefWinkelkar().%Id(),Sublijn.%Id(),..Converter.NaarDataTransferObject(Sublijn.GeefIngegevenKenmerken()),Sublijn.Aantal,GroepNaam,Sublijn.ProjectReferentie)
 				} catch {
@@ -118,7 +131,9 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	set grn = ##class(APPS.EC.Winkelkar.impl.GroepNaamVoorIngegevenKenmerkenBepaler).%New()
-	Quit grn.GeefGroepNaam(IngegevenKenmerken,Taal,##class(DOM.enu.Taal).Nederlands())
+	#dim GroepNaam As %String = grn.GeefGroepNaam(IngegevenKenmerken,Taal,##class(DOM.enu.Taal).Nederlands())
+	w !,"groepnaam -> " _GroepNaam
+	Quit GroepNaam
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/EC/Winkelkar/GroepLijn.cls.xml
===================================================================
diff -u -r30741 -r40378
--- DOM/EC/Winkelkar/GroepLijn.cls.xml	(.../GroepLijn.cls.xml)	(revision 30741)
+++ DOM/EC/Winkelkar/GroepLijn.cls.xml	(.../GroepLijn.cls.xml)	(revision 40378)
@@ -50,7 +50,7 @@
 	while (Iterator.HasNext() && (Groep = "")) {
 		set Lijn = Iterator.Next()
 		
-		if (Lijn.%Extends("DOM.EC.Winkelkar.GroepLijn")) {
+		if $IsObject(Lijn) && (Lijn.%Extends("DOM.EC.Winkelkar.GroepLijn")) {
 			#dim GroepLijn As DOM.EC.Winkelkar.GroepLijn = Lijn
 			
 			if (GroepLijn.Naam = GroepNaam) {
Index: DOM/EC/Winkelkar/Winkelkar.cls.xml
===================================================================
diff -u -r38989 -r40378
--- DOM/EC/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 38989)
+++ DOM/EC/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 40378)
@@ -317,7 +317,10 @@
 	#dim LijnIterator = ..Root.SublijnIterator()
 	While (LijnIterator.HasNext())
 	{
-		Do LijnIterator.Next().Accept(Visitor)
+		#dim WinkelkarLijn As DOM.EC.Winkelkar.Lijn = LijnIterator.Next()
+		if $IsObject(WinkelkarLijn) {
+			Do WinkelkarLijn.Accept(Visitor)
+		}
 	}
 	Do Visitor.Finalize()