Index: APPS/PM/OL/ConsistentieChecker.cls.xml
===================================================================
diff -u -r2337 -r2646
--- APPS/PM/OL/ConsistentieChecker.cls.xml	(.../ConsistentieChecker.cls.xml)	(revision 2337)
+++ APPS/PM/OL/ConsistentieChecker.cls.xml	(.../ConsistentieChecker.cls.xml)	(revision 2646)
@@ -36,6 +36,12 @@
 <Implementation><![CDATA[
 	Set UnID=Product.GetID()   ; Modified by WimV on 21/04/2011 :  vroeger werd UnID als param doorgegeven en werd Product in deze method geopend. 
 	;w UnID,!
+	
+	Set TipsResultSet = ##class(%ResultSet).%New()
+	Do TipsResultSet.Prepare("SELECT ID FROM Prod_Kenmerk.DataDefinitie WHERE KenmerkGroep = 'OL' AND KenmerkNaam = 'BOWeten' AND UnID = ?")
+	
+	Set SleutelResultSet = ##class(%ResultSet).%New()
+	Do SleutelResultSet.Prepare("SELECT ID FROM Prod_Kenmerk.DataDefinitie WHERE KenmerkGroep = 'OL' AND KenmerkNaam = 'Sleutel' AND UnID = ?")
 
 	Set Suffix=" is niet aanwezig"
 	if Product.IsActief() && Product.IsActiefVoorOrgaluxSite() && $listlength(Product.GetWebsites())
@@ -44,7 +50,7 @@
 		if (Product.GetFotoSleutel()="") {  Set Fouten(UnID,"FotoSleutel kenmerkwaarde"_Suffix) = 1 }
 		else
 		{
-			/*   */
+			/* 
 			// Foto controleren
 			set URL = ##class(TECH.Files).AppendFile("http://res.vanhoecke.be/images/orgalux",Product.GetFotoBestand())
 			;w URL,!
@@ -80,7 +86,7 @@
 					Set Fouten(UnID,"Foto op de server ("_URL_")"_Suffix) = 1
 				}
 			}
-			/*   */
+		   */
 		}
 		if (Product.GetProductGroep()="") Set Fouten(UnID,"ProductGroep"_Suffix) = 1
 		if (Product.GetFotoSorteerSleutel(1)="") Set Fouten(UnID,"FotoSorteerSleutel"_Suffix) = 1
@@ -90,6 +96,36 @@
 		if ('(Product.GetMateriaal()["WOODLINE") && Product.GetKleur()="") Set Fouten(UnID,"Kleur"_Suffix) = 1
 		if ($ListLength(Product.GetLadeFamilies()) = 0) Set Fouten(UnID,"LadeFamilies"_Suffix) = 1
 		
+		Do TipsResultSet.Execute(UnID)
+		If (TipsResultSet.Next())
+		{
+			Set DataDefinitie = ##class(Prod.Kenmerk.DataDefinitie).%OpenId(TipsResultSet.Data("ID"))
+			Set TipsIterator = ##class(TECH.ListIterator).%New(DataDefinitie.Waarden)
+			While (TipsIterator.HasNext())
+			{
+				Set Tip = TipsIterator.Next()
+				Set Vertaling = ##class(Res.Vertaling).GetVertaling("PK",Tip,"K","N")
+				If (Vertaling = "") Set Fouten(UnID,"Vertaling tip "_Tip_" "_Suffix_" in het nederlands") = 1
+				Set Vertaling = ##class(Res.Vertaling).GetVertaling("PK",Tip,"K","F")
+				If (Vertaling = "") Set Fouten(UnID,"Vertaling tip "_Tip_" "_Suffix_" in het frans") = 1
+				Set Vertaling = ##class(Res.Vertaling).GetVertaling("PK",Tip,"K","D")
+				If (Vertaling = "") Set Fouten(UnID,"Vertaling tip "_Tip_" "_Suffix_" in het duits") = 1
+			}
+		}
+		
+		Do SleutelResultSet.Execute(UnID)
+		If (SleutelResultSet.Next())
+		{
+			Set DataDefinitie = ##class(Prod.Kenmerk.DataDefinitie).%OpenId(SleutelResultSet.Data("ID"))
+			Set Sleutel = DataDefinitie.Waarden.GetAt(1)
+			Set Vertaling = ##class(Res.Vertaling).GetVertaling("PK",Sleutel,"O","N")
+			If (Vertaling = "") Set Fouten(UnID,"Vertaling sleutel (productomschrijving) "_Sleutel_" "_Suffix_" in het nederlands") = 1
+			Set Vertaling = ##class(Res.Vertaling).GetVertaling("PK",Sleutel,"O","F")
+			If (Vertaling = "") Set Fouten(UnID,"Vertaling sleutel (productomschrijving) "_Sleutel_" "_Suffix_" in het frans") = 1
+			Set Vertaling = ##class(Res.Vertaling).GetVertaling("PK",Sleutel,"O","D")
+			If (Vertaling = "") Set Fouten(UnID,"Vertaling sleutel (productomschrijving) "_Sleutel_" "_Suffix_" in het duits") = 1
+		}
+		
 		/*
 		set URL = ##class(TECH.Files).AppendFile("http://res.vanhoecke.be/images/orgalux",Product.GetFotoBestand())
 		set URL = ##class(Prod.Kenmerk.DataDefinitie).GetFullURL("OL",UnID,"InfoSleutel","N","LI","WWW")
@@ -162,7 +198,7 @@
 	}
 	Do Output.WriteLine("</table>")
 	set lbMailTo = $$PiecesToList^vhLib(##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.PM.OL.ConsistentieChecker_MailNaar"),";")
-	Do SendMiniMailForced^vhLib.Mail($$$SystemMail("OL Controle"),lbMailTo,"Consistency erros in de kenmerken data orgalux website",Output,1,1)
+	Do SendMiniMail^vhLib.Mail($$$SystemMail("OL Controle"),lbMailTo,"Consistency erros in de kenmerken data orgalux website",Output,1,1)
 ]]></Implementation>
 </Method>
 </Class>