DOM.PM.OL 1 %RegisteredObject 0 Do ##class(APPS.PM.OL.ConsistentieChecker).CheckKenmerkenData() 1 1 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. 1 1 ") Set UnID = $Order(Fouten("")) while (UnID '= "") { Set AantalFouten = 0 Set FoutHTML = "" Set Fout = $Order(Fouten(UnID,"")) while (Fout '= "") { Set AantalFouten = AantalFouten + 1 Set FoutMsg = Fout Set FoutHTML = FoutHTML_""_FoutMsg_"" Set Fout = $Order(Fouten(UnID,Fout)) } Set KortTekst = $ListGet(Fouten(UnID),1) Do Output.WriteLine(""_UnID_""_KortTekst_"") Do Output.WriteLine(FoutHTML) Set UnID = $Order(Fouten(UnID)) } Do Output.WriteLine("") set lbMailTo = $$PiecesToList^vhLib(##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.PM.OL.ConsistentieChecker_MailNaar"),";") Do SendMiniMail^vhLib.Mail($$$SystemMail("OL Controle"),lbMailTo,"Consistency erros in de kenmerken data orgalux website",Output,1,1) ]]>