Index: vhConsistency/Checks/DOM/VKP/VerzendwijzeVertalingen.cls.xml
===================================================================
diff -u -r52294 -r52304
--- vhConsistency/Checks/DOM/VKP/VerzendwijzeVertalingen.cls.xml	(.../VerzendwijzeVertalingen.cls.xml)	(revision 52294)
+++ vhConsistency/Checks/DOM/VKP/VerzendwijzeVertalingen.cls.xml	(.../VerzendwijzeVertalingen.cls.xml)	(revision 52304)
@@ -3,12 +3,34 @@
 <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>
@@ -26,62 +48,124 @@
 <Method name="VoerUit">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	#dim Melding As %String = ""
 	#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 VoorlopigeOmschrijving As %String = ""
+	#dim Melding As %String = ""
 	
 	#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 Verzendwijze = ResultSetIterator.Next()
+		Set VerzendwijzeId = ResultSetIterator.Next().GetData(1)
 		While OmschrijvingsTalenIterator.HasNext() {
 			Set OmschrijvingsTaal = OmschrijvingsTalenIterator.Next()
+			Set Verzendwijze = ..GeefVerzendwijze(VerzendwijzeId)
 			If ($$$Not(..HeeftOmschrijvingVolgensTaal(Verzendwijze, OmschrijvingsTaal))) {
-				Set Melding = "Geen '"_OmschrijvingsTaal_"' gevonden voor Verzendwijze '"_Verzendwijze_"'"
-				Do ..VoegMeldingToe(Melding)
+				Set IsVerzendwijzeGewijzigd = $$$True
+				Set Melding = "Geen '" _ OmschrijvingsTaal _ "' gevonden voor Verzendwijze '" _ Verzendwijze.GeefID() _ "'."
+				If (OmschrijvingsTaal = ..#OmschrijvingNederlands) {
+					Set VoorlopigeOmschrijving = ..GeefVoorlopigeOmschrijvingVolgensTaal(OmschrijvingsTaal)
+					Set IsNederlandseOmschrijvingAanwezig = $$$False
+				} ElseIf IsNederlandseOmschrijvingAanwezig {
+					Set VoorlopigeOmschrijving = ..GeefNederlandseOmschrijving(Verzendwijze)
+				} Else {
+					Set VoorlopigeOmschrijving = ..GeefVoorlopigeOmschrijvingVolgensTaal(OmschrijvingsTaal)
+				}
+				
+				Set $Property(Verzendwijze, OmschrijvingsTaal) = VoorlopigeOmschrijving
+				Set Melding = Melding _ " Voorlopig ingevuld met: '" _ VoorlopigeOmschrijving _ "'."
+				;Do ..VoegMeldingToe(Melding)
+				W !,Melding
 			}
 		}
+		If IsVerzendwijzeGewijzigd {
+			Do Verzendwijze.Save()
+			Set IsVerzendwijzeGewijzigd = $$$False
+		}
 		Do OmschrijvingsTalenIterator.Reset()
+		Set VoorlopigeOmschrijving = ""
+		Set IsNederlandseOmschrijvingAanwezig = $$$True
 	}
 	
 	Quit (..GeefAantalMeldingen()=0)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefSqlStatement">
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "SELECT * FROM DOM_VKP.VerzendWijze"
-]]></Implementation>
-</Method>
-
 <Method name="GeefOmschrijvingsTalenLijst">
 <Private>1</Private>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	#dim OmschrijvingsTalenLijst As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	
-	Do OmschrijvingsTalenLijst.Insert("OmschrijvingDuits")
-	Do OmschrijvingsTalenLijst.Insert("OmschrijvingEngels")
-	Do OmschrijvingsTalenLijst.Insert("OmschrijvingFrans")
-	Do OmschrijvingsTalenLijst.Insert("OmschrijvingNederlands")
+	Do OmschrijvingsTalenLijst.Insert(..#OmschrijvingNederlands)
+	Do OmschrijvingsTalenLijst.Insert(..#OmschrijvingDuits)
+	Do OmschrijvingsTalenLijst.Insert(..#OmschrijvingEngels)
+	Do OmschrijvingsTalenLijst.Insert(..#OmschrijvingFrans)
 	
 	Quit OmschrijvingsTalenLijst
 ]]></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>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ($$$Not($Property(Verzendwijze, OmschrijvingsTaal)) = "")
+<Implementation><![CDATA[	Quit ($$$HasLength($Property(Verzendwijze, OmschrijvingsTaal)))
 ]]></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>
+</Method>
+
+<Method name="GeefNederlandseOmschrijving">
+<FormalSpec>Verzendwijze:DOM.VKP.VerzendWijze</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Property(Verzendwijze, ..#OmschrijvingNederlands)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVoorlopigeOmschrijvingVolgensTaal">
+<FormalSpec>OmschrijvingsTaal:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim VoorlopigeOmschrijvingVolgensTaal As %String = ""
+	
+	If (OmschrijvingsTaal = ..#OmschrijvingNederlands) {
+		Set VoorlopigeOmschrijvingVolgensTaal = "Geen omschrijving voorzien momenteel"
+	} ElseIf (OmschrijvingsTaal = ..#OmschrijvingDuits) {
+		Set VoorlopigeOmschrijvingVolgensTaal = "Derzeit ist keine Beschreibung verfügbar"
+	} ElseIf (OmschrijvingsTaal = ..#OmschrijvingEngels) {
+		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
+]]></Implementation>
+</Method>
 </Class>