Index: vhConsistency/Checks/DOM/VKP/VerzendwijzeVertalingen.cls.xml
===================================================================
diff -u -r52304 -r52305
--- vhConsistency/Checks/DOM/VKP/VerzendwijzeVertalingen.cls.xml	(.../VerzendwijzeVertalingen.cls.xml)	(revision 52304)
+++ vhConsistency/Checks/DOM/VKP/VerzendwijzeVertalingen.cls.xml	(.../VerzendwijzeVertalingen.cls.xml)	(revision 52305)
@@ -48,20 +48,19 @@
 <Method name="VoerUit">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	#dim ResultSet As TECH.ResultSet
 	#dim Verzendwijze As DOM.VKP.VerzendWijze
 	#dim IsNederlandseOmschrijvingAanwezig As %Boolean = $$$True
 	#dim IsVerzendwijzeGewijzigd As %Boolean = $$$False
-	#dim VerzendwijzeId As %String = ""
-	#dim OmschrijvingsTaal As %String = ""
+	#dim VerzendwijzeId, OmschrijvingsTaal As %String
 	#dim VoorlopigeOmschrijving As %String = ""
 	#dim Melding As %String = ""
 	
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(..GeefSqlStatement()))
+	Set ResultSetIterator = ##class(TECH.ResultSetIterator).%New(ResultSet)
+	
 	#dim OmschrijvingsTalenLijst As %ListOfDataTypes = ..GeefOmschrijvingsTalenLijst()
 	Set OmschrijvingsTalenIterator = ##class(TECH.ListIterator).%New(OmschrijvingsTalenLijst)
 	
-	Set ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(..GeefSqlStatement()))
-	Set ResultSetIterator = ##class(TECH.ResultSetIterator).%New(ResultSet)
 	While ResultSetIterator.HasNext() {
 		Set VerzendwijzeId = ResultSetIterator.Next().GetData(1)
 		While OmschrijvingsTalenIterator.HasNext() {
@@ -89,6 +88,7 @@
 			Do Verzendwijze.Save()
 			Set IsVerzendwijzeGewijzigd = $$$False
 		}
+		
 		Do OmschrijvingsTalenIterator.Reset()
 		Set VoorlopigeOmschrijving = ""
 		Set IsNederlandseOmschrijvingAanwezig = $$$True
@@ -149,7 +149,7 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim VoorlopigeOmschrijvingVolgensTaal As %String = ""
+	#dim VoorlopigeOmschrijvingVolgensTaal As %String = "Geen OmschrijvingsTaal gevonden"
 	
 	If (OmschrijvingsTaal = ..#OmschrijvingNederlands) {
 		Set VoorlopigeOmschrijvingVolgensTaal = "Geen omschrijving voorzien momenteel"
@@ -159,8 +159,6 @@
 		Set VoorlopigeOmschrijvingVolgensTaal = "No description is currently provided"
 	} ElseIf (OmschrijvingsTaal = ..#OmschrijvingFrans) {
 		Set VoorlopigeOmschrijvingVolgensTaal = "Aucune description n'est actuellement fournie"
-	} Else {
-		Set VoorlopigeOmschrijvingVolgensTaal = "Geen OmschrijvingsTaal gevonden"
 	}
 	
 	Quit VoorlopigeOmschrijvingVolgensTaal