Index: vhConsistency/Checks/DOM/VKP/VerzendwijzeVertalingen.cls.xml
===================================================================
diff -u -r52314 -r52467
--- vhConsistency/Checks/DOM/VKP/VerzendwijzeVertalingen.cls.xml	(.../VerzendwijzeVertalingen.cls.xml)	(revision 52314)
+++ vhConsistency/Checks/DOM/VKP/VerzendwijzeVertalingen.cls.xml	(.../VerzendwijzeVertalingen.cls.xml)	(revision 52467)
@@ -3,42 +3,15 @@
 <Class name="vhConsistency.Checks.DOM.VKP.VerzendwijzeVertalingen">
 <Super>vhConsistency.Check</Super>
 
-<Parameter name="OmschrijvingNederlands">
-<Type>%String</Type>
-<Default>OmschrijvingNederlands</Default>
-</Parameter>
-
-<Parameter name="OmschrijvingDuits">
-<Type>%String</Type>
-<Default>OmschrijvingDuits</Default>
-</Parameter>
-
-<Parameter name="OmschrijvingEngels">
-<Type>%String</Type>
-<Default>OmschrijvingEngels</Default>
-</Parameter>
-
-<Parameter name="OmschrijvingFrans">
-<Type>%String</Type>
-<Default>OmschrijvingFrans</Default>
-</Parameter>
-
-<Property name="QueryAPI">
-<Type>TECH.Query.QueryAPI</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
 <Description>
 Do ##class(vhConsistency.Checks.DOM.VKP.VerzendwijzeVertalingen).%New().VoerUit()</Description>
-<FormalSpec>QueryAPI:TECH.Query.QueryAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Do ##super()
-	Set ..QueryAPI = $$$Inject(QueryAPI, ##class(TECH.Query.impl.QueryAPI).%New())
 	Set ..SkipCheck = $$$True
 	
 	Quit $$$OK
@@ -51,33 +24,36 @@
 	#dim Verzendwijze As DOM.VKP.VerzendWijze
 	#dim IsNederlandseOmschrijvingAanwezig As %Boolean = $$$True
 	#dim IsVerzendwijzeGewijzigd As %Boolean = $$$False
-	#dim VerzendwijzeId, OmschrijvingsTaal As %String
+	#dim OmschrijvingTaal As DOM.enu.Taal
+	#dim Omschrijving, VerzendwijzeId As %String
 	#dim VoorlopigeOmschrijving As %String = ""
 	#dim Melding As %String = ""
 	
-	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(..GeefSqlStatement()))
+	
+	#dim ResultSet As %ResultSet = ##class(%ResultSet).%New("DOM.VKP.VerzendWijze:Extent")
+	Do ResultSet.Execute()
 	#dim ResultSetIterator As TECH.Iterator = ##class(TECH.ResultSetIterator).%New(ResultSet)
 	
-	#dim OmschrijvingsTalenLijst As %ListOfDataTypes = ..GeefOmschrijvingsTalenLijst()
-	#dim OmschrijvingsTalenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OmschrijvingsTalenLijst)
+	#dim OmschrijvingTalenLijst As %ListOfDataTypes = ..GeefOmschrijvingTalenLijst()
+	#dim OmschrijvingTalenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OmschrijvingTalenLijst)
 	
 	While ResultSetIterator.HasNext() {
 		Set VerzendwijzeId = ResultSetIterator.Next().GetData(1)
 		Set Verzendwijze = ..GeefVerzendwijze(VerzendwijzeId)
-		While OmschrijvingsTalenIterator.HasNext() {
-			Set OmschrijvingsTaal = OmschrijvingsTalenIterator.Next()
-			If ($$$Not(..HeeftOmschrijvingVolgensTaal(Verzendwijze, OmschrijvingsTaal))) {
-				Set Melding = "Geen '" _ OmschrijvingsTaal _ "' gevonden voor Verzendwijze '" _ Verzendwijze.GeefID() _ "'."
-				If (OmschrijvingsTaal = ..#OmschrijvingNederlands) {
-					Set VoorlopigeOmschrijving = ..GeefVoorlopigeOmschrijvingVolgensTaal(OmschrijvingsTaal)
+		While OmschrijvingTalenIterator.HasNext() {
+			Set OmschrijvingTaal = OmschrijvingTalenIterator.Next()
+			If ($$$Not(..HeeftOmschrijvingVolgensTaal(Verzendwijze, OmschrijvingTaal))) {
+				Set Melding = "Geen omschrijving in '" _ OmschrijvingTaal _ "' gevonden voor Verzendwijze '" _ Verzendwijze.GeefID() _ "'."
+				If (OmschrijvingTaal = ##class(DOM.enu.Taal).Nederlands()) {
+					Set VoorlopigeOmschrijving = ..GeefVoorlopigeOmschrijvingVolgensTaal(OmschrijvingTaal)
 					Set IsNederlandseOmschrijvingAanwezig = $$$False
 				} ElseIf IsNederlandseOmschrijvingAanwezig {
 					Set VoorlopigeOmschrijving = ..GeefNederlandseOmschrijving(Verzendwijze)
 				} Else {
-					Set VoorlopigeOmschrijving = ..GeefVoorlopigeOmschrijvingVolgensTaal(OmschrijvingsTaal)
+					Set VoorlopigeOmschrijving = ..GeefVoorlopigeOmschrijvingVolgensTaal(OmschrijvingTaal)
 				}
-				
-				Set $Property(Verzendwijze, OmschrijvingsTaal) = VoorlopigeOmschrijving
+				Set Omschrijving = "Omschrijving" _ OmschrijvingTaal
+				Set $Property(Verzendwijze, Omschrijving) = VoorlopigeOmschrijving
 				Set IsVerzendwijzeGewijzigd = $$$True
 				Set Melding = Melding _ " Voorlopig ingevuld met: '" _ VoorlopigeOmschrijving _ "'."
 				Do ..VoegMeldingToe(Melding)
@@ -88,7 +64,7 @@
 			Set IsVerzendwijzeGewijzigd = $$$False
 		}
 		
-		Do OmschrijvingsTalenIterator.Reset()
+		Do OmschrijvingTalenIterator.Reset()
 		Set VoorlopigeOmschrijving = ""
 		Set IsNederlandseOmschrijvingAanwezig = $$$True
 	}
@@ -97,67 +73,60 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefOmschrijvingsTalenLijst">
+<Method name="GeefOmschrijvingTalenLijst">
 <Private>1</Private>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	#dim OmschrijvingsTalenLijst As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim OmschrijvingTalenLijst As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	
-	/// "OmschrijvingNederlands" moet bovenaan staan in de lijst, want dient mogelijk als backup voor andere OmschrijvingsTalen!!!
-	Do OmschrijvingsTalenLijst.Insert(..#OmschrijvingNederlands)
-	Do OmschrijvingsTalenLijst.Insert(..#OmschrijvingDuits)
-	Do OmschrijvingsTalenLijst.Insert(..#OmschrijvingEngels)
-	Do OmschrijvingsTalenLijst.Insert(..#OmschrijvingFrans)
+	/// "OmschrijvingNederlands" moet bovenaan staan in de lijst, want dient mogelijk als backup voor andere OmschrijvingTalen!!!
+	Do OmschrijvingTalenLijst.Insert(##class(DOM.enu.Taal).Nederlands())
+	Do OmschrijvingTalenLijst.Insert(##class(DOM.enu.Taal).Duits())
+	Do OmschrijvingTalenLijst.Insert(##class(DOM.enu.Taal).Engels())
+	Do OmschrijvingTalenLijst.Insert(##class(DOM.enu.Taal).Frans())
 	
-	Quit OmschrijvingsTalenLijst
+	Quit OmschrijvingTalenLijst
 ]]></Implementation>
 </Method>
 
-<Method name="GeefSqlStatement">
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "SELECT ID FROM DOM_VKP.VerzendWijze"
-]]></Implementation>
-</Method>
-
 <Method name="HeeftOmschrijvingVolgensTaal">
-<FormalSpec>Verzendwijze:DOM.VKP.VerzendWijze,OmschrijvingsTaal:%String</FormalSpec>
+<FormalSpec>Verzendwijze:DOM.VKP.VerzendWijze,OmschrijvingTaal:DOM.enu.Taal</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ($$$HasLength($Property(Verzendwijze, OmschrijvingsTaal)))
+<Implementation><![CDATA[	Quit ($$$HasLength(Verzendwijze.GeefOmschrijvingVertaald(OmschrijvingTaal)))
 ]]></Implementation>
 </Method>
 
 <Method name="GeefVerzendwijze">
 <FormalSpec>VerzendwijzeId:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.VKP.VerzendWijze</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.VKP.VerzendWijze).%OpenId(VerzendwijzeId)
+<Implementation><![CDATA[	Quit ##class(DOM.VKP.VerzendWijze).OpenId(VerzendwijzeId)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefNederlandseOmschrijving">
 <FormalSpec>Verzendwijze:DOM.VKP.VerzendWijze</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $Property(Verzendwijze, ..#OmschrijvingNederlands)
+<Implementation><![CDATA[	Quit Verzendwijze.GeefOmschrijvingVertaald(##class(DOM.enu.Taal).Nederlands())
 ]]></Implementation>
 </Method>
 
 <Method name="GeefVoorlopigeOmschrijvingVolgensTaal">
-<FormalSpec>OmschrijvingsTaal:%String</FormalSpec>
+<FormalSpec>OmschrijvingTaal:DOM.enu.Taal</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim VoorlopigeOmschrijvingVolgensTaal As %String = "Geen OmschrijvingsTaal gevonden"
+	#dim VoorlopigeOmschrijvingVolgensTaal As %String = "Geen OmschrijvingTaal gevonden"
 	
-	If (OmschrijvingsTaal = ..#OmschrijvingNederlands) {
+	If (OmschrijvingTaal = ##class(DOM.enu.Taal).Nederlands()) {
 		Set VoorlopigeOmschrijvingVolgensTaal = "Geen omschrijving voorzien momenteel"
-	} ElseIf (OmschrijvingsTaal = ..#OmschrijvingDuits) {
+	} ElseIf (OmschrijvingTaal = ##class(DOM.enu.Taal).Duits()) {
 		Set VoorlopigeOmschrijvingVolgensTaal = "Derzeit ist keine Beschreibung verfügbar"
-	} ElseIf (OmschrijvingsTaal = ..#OmschrijvingEngels) {
+	} ElseIf (OmschrijvingTaal = ##class(DOM.enu.Taal).Engels()) {
 		Set VoorlopigeOmschrijvingVolgensTaal = "No description is currently provided"
-	} ElseIf (OmschrijvingsTaal = ..#OmschrijvingFrans) {
+	} ElseIf (OmschrijvingTaal = ##class(DOM.enu.Taal).Frans()) {
 		Set VoorlopigeOmschrijvingVolgensTaal = "Aucune description n'est actuellement fournie"
 	}