Index: vhConsistency/Checks/DOM/VKP/VerzendwijzeVertalingen.cls.xml =================================================================== diff -u -r52305 -r52306 --- vhConsistency/Checks/DOM/VKP/VerzendwijzeVertalingen.cls.xml (.../VerzendwijzeVertalingen.cls.xml) (revision 52305) +++ vhConsistency/Checks/DOM/VKP/VerzendwijzeVertalingen.cls.xml (.../VerzendwijzeVertalingen.cls.xml) (revision 52306) @@ -63,11 +63,10 @@ While ResultSetIterator.HasNext() { Set VerzendwijzeId = ResultSetIterator.Next().GetData(1) + Set Verzendwijze = ..GeefVerzendwijze(VerzendwijzeId) While OmschrijvingsTalenIterator.HasNext() { Set OmschrijvingsTaal = OmschrijvingsTalenIterator.Next() - Set Verzendwijze = ..GeefVerzendwijze(VerzendwijzeId) If ($$$Not(..HeeftOmschrijvingVolgensTaal(Verzendwijze, OmschrijvingsTaal))) { - Set IsVerzendwijzeGewijzigd = $$$True Set Melding = "Geen '" _ OmschrijvingsTaal _ "' gevonden voor Verzendwijze '" _ Verzendwijze.GeefID() _ "'." If (OmschrijvingsTaal = ..#OmschrijvingNederlands) { Set VoorlopigeOmschrijving = ..GeefVoorlopigeOmschrijvingVolgensTaal(OmschrijvingsTaal) @@ -79,6 +78,7 @@ } Set $Property(Verzendwijze, OmschrijvingsTaal) = VoorlopigeOmschrijving + Set IsVerzendwijzeGewijzigd = $$$True Set Melding = Melding _ " Voorlopig ingevuld met: '" _ VoorlopigeOmschrijving _ "'." ;Do ..VoegMeldingToe(Melding) W !,Melding