Index: APPS/PM/OL/ConsistentieChecker.cls.xml
===================================================================
diff -u -r994 -r1073
--- APPS/PM/OL/ConsistentieChecker.cls.xml	(.../ConsistentieChecker.cls.xml)	(revision 994)
+++ APPS/PM/OL/ConsistentieChecker.cls.xml	(.../ConsistentieChecker.cls.xml)	(revision 1073)
@@ -1,10 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-07 09:50:36">
+<Export generator="Cache" version="9">
 <Class name="APPS.PM.OL.ConsistentieChecker">
 <IncludeCode>DOM.PM.OL</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62188,35443.888363</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="CheckKenmerkenData">
@@ -13,11 +12,17 @@
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
 	
+	Set BLProdMulti=##class(BL.Kenm.ProdMulti).Create($$$OLKenmerkGroepID)
+
 	Do ##class(Prod.Kenmerk.Orgalux).SelectProductsAlle(.arUnIDs)
 	Set UnID = $Order(arUnIDs(""))
-	while (UnID '= "")
+	While (UnID '= "")
 	{
-		Do ..CheckProductForErrors(UnID,.Fouten)
+		Set Product = ##class(Prod.Kenmerk.Orgalux).%New(UnID)	
+		Do ..CheckProductForErrors(Product,.Fouten)
+		Do ..CheckProductForMultiples(Product,BLProdMulti,.Fouten)   ; Added by WimV on 21/04/2011 
+		If $Data(Fouten(UnID))  Set Fouten(UnID)=$LB(Product.GetKortTekst())
+
 		Set UnID = $Order(arUnIDs(UnID))
 	}
 	
@@ -27,22 +32,25 @@
 
 <Method name="CheckProductForErrors">
 <ClassMethod>1</ClassMethod>
-<FormalSpec><![CDATA[UnID:%Integer,&Fouten:%String]]></FormalSpec>
+<FormalSpec><![CDATA[Product:Prod.Kenmerk.Orgalux,&Fouten:%String]]></FormalSpec>
 <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 Product = ##class(Prod.Kenmerk.Orgalux).%New(UnID)	
+
+	Set Suffix=" is niet aanwezig"
 	if Product.IsActief() && Product.IsActiefVoorOrgaluxSite() && $listlength(Product.GetWebsites())
 	{
-		if (Product.GetTekstSleutel()="") Set Fouten(UnID,"TekstSleutel") = 1
-		if (Product.GetFotoSleutel()="") {  Set Fouten(UnID,"FotoSleutel kenmerkwaarde") = 1 }
+		if (Product.GetTekstSleutel()="") Set Fouten(UnID,"TekstSleutel"_Suffix) = 1
+		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,!
 			if (URL = "")
 			{
-				Set Fouten(UnID,"Foto URL in Res.VertalingLink") = 1
+				Set Fouten(UnID,"Foto URL in Res.VertalingLink"_Suffix) = 1
 			}
 			else
 			{
@@ -51,7 +59,7 @@
 				Do httprequest.Head("/"_$Piece(URL,"/",4,$Length(URL,"/")))
 				if (httprequest.HttpResponse.StatusCode '= "200")
 				{
-					Set Fouten(UnID,"Foto op de server ("_URL_")") = 1
+					Set Fouten(UnID,"Foto op de server ("_URL_")"_Suffix) = 1
 				}
 			}
 			
@@ -60,7 +68,7 @@
 			;w URL,!
 			if (URL = "")
 			{
-				Set Fouten(UnID,"Foto URL in Res.VertalingLink") = 1
+				Set Fouten(UnID,"Foto URL in Res.VertalingLink"_Suffix) = 1
 			}
 			else
 			{
@@ -69,28 +77,62 @@
 				Do httprequest.Head("/"_$Piece(URL,"/",4,$Length(URL,"/")))
 				if (httprequest.HttpResponse.StatusCode '= "200")
 				{
-					Set Fouten(UnID,"Foto op de server ("_URL_")") = 1
+					Set Fouten(UnID,"Foto op de server ("_URL_")"_Suffix) = 1
 				}
 			}
+			/*   */
 		}
-		if (Product.GetProductGroep()="") Set Fouten(UnID,"ProductGroep") = 1
-		if (Product.GetFotoSorteerSleutel(1)="") Set Fouten(UnID,"FotoSorteerSleutel") = 1
-		if ($ListLength(Product.GetMeubelToepassingen()) = 0) Set Fouten(UnID,"MeubelToepassingen") = 1
-		if ('Product.IsLosOnderdeel())&&($ListLength(Product.GetZoneToepassingen()) = 0) Set Fouten(UnID,"ZoneToepassingen") = 1
-		if (Product.GetMateriaal()="") Set Fouten(UnID,"Materiaal") = 1
-		if ('(Product.GetMateriaal()["WOODLINE") && Product.GetKleur()="") Set Fouten(UnID,"Kleur") = 1
-		if ($ListLength(Product.GetLadeFamilies()) = 0) Set Fouten(UnID,"LadeFamilies") = 1
+		if (Product.GetProductGroep()="") Set Fouten(UnID,"ProductGroep"_Suffix) = 1
+		if (Product.GetFotoSorteerSleutel(1)="") Set Fouten(UnID,"FotoSorteerSleutel"_Suffix) = 1
+		if ($ListLength(Product.GetMeubelToepassingen()) = 0) Set Fouten(UnID,"MeubelToepassingen"_Suffix) = 1
+		if ('Product.IsLosOnderdeel())&&($ListLength(Product.GetZoneToepassingen()) = 0) Set Fouten(UnID,"ZoneToepassingen"_Suffix) = 1
+		if (Product.GetMateriaal()="") Set Fouten(UnID,"Materiaal"_Suffix) = 1
+		if ('(Product.GetMateriaal()["WOODLINE") && Product.GetKleur()="") Set Fouten(UnID,"Kleur"_Suffix) = 1
+		if ($ListLength(Product.GetLadeFamilies()) = 0) Set Fouten(UnID,"LadeFamilies"_Suffix) = 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")
 		if ( $length(URL) ) && ($$$UCase(URL) '[ "HTTP") {
-			Set Fouten(UnID,"FullURL") = 1	
+			Set Fouten(UnID,"FullURL"_Suffix) = 1	
 		}
 		*/
+	}
+]]></Implementation>
+</Method>
 
-		if $Data(Fouten(UnID)) Set Fouten(UnID)=$ListBuild(Product.GetKortTekst())
+<Method name="CheckProductForMultiples">
+<Description>
+Deze method controleert of er van dit product enkel multiples (UnID=PRNr.1, PRNr.2) of non-multiple kenmerken aanwezig zijn.
+Ter info :    multiples : UnID = PRNr.1, PRNr.2, ...  
+           non-multiple : UnID = PRNr  (dus SubID="") 
+Indien beide aanwezig in de KenmerkenData, dan is dit een conflict voor dit product. </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[Product:Prod.Kenmerk.Orgalux,BLProdMulti:BL.Kenm.ProdMulti,&Fouten:%String]]></FormalSpec>
+<Implementation><![CDATA[
+	#define UnIDHasKenmerken(%UnID)   ##class(Prod.Kenmerk.DataDefinitie).Exists(%UnID, $$$OLKenmerkGroepID)
+	
+	Set UnID=Product.GetID()
+	Set PRNr=BLProdMulti.GetCommonID(UnID)
+	Set SubID=BLProdMulti.GetSubID(UnID)
+	
+	If SubID="" {
+		// UnID is een non-multiple.  Zoeken of er ook multiples bestaan. 
+		Set lbUnIDs=BLProdMulti.GetMultiplesLB(PRNr)
+		If $L(lbUnIDs) {
+			// Conflict, want ook de multiples bestaan! 
+			Set Fouten(UnID,"Zowel multiples als non-multiple kenmerken gevonden") = 1
+		}
 	}
+	Else {
+		// UnID is een multiple kenmerkenset.  Zoeken of de non-multiple ook kenmerken bevat. 
+		If $$$UnIDHasKenmerken(PRNr) {
+			// Conflict, want ook de non-multiple bevat kenmerken! 
+			Set Fouten(UnID,"Zowel multiples als non-multiple kenmerken gevonden") = 1
+		}
+	}
+	
+	Quit
 ]]></Implementation>
 </Method>
 
@@ -109,7 +151,8 @@
 		while (Fout '= "")
 		{
 			Set AantalFouten = AantalFouten + 1
-			Set FoutHTML = FoutHTML_"<tr><td>"_Fout_" is niet aanwezig</td></tr>"
+			Set FoutMsg = Fout
+			Set FoutHTML = FoutHTML_"<tr><td>"_FoutMsg_"</td></tr>"
 			Set Fout = $Order(Fouten(UnID,Fout))
 		}
 		Set KortTekst = $ListGet(Fouten(UnID),1)
@@ -123,5 +166,4 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1458553221"/>
 </Export>