JBL + 2011-05-18 Do ##class(vhConsistency.ConsistencyCheck).VoerUit(0,1,"vhConsistency.Checks.Email") 1 vhConsistency.Check %Boolean 0 %Boolean 1 %Status ResultSet:%String,Titel:%String,Teller:%Integer,TellerNotValid:%Integer W") Set GlobalNode = $ZSTRIP(rset.Data("GlobalNode"),"<>W") Set Teller = Teller + 1 if $p(Teller/100,".",2)="" w Teller,! Set ValidMail = ##class(TECH.Mail).Check(Email, ..#DoeNsLookUp,..#CacheNsLookUp) If ('ValidMail){ Set Feedback = $P($$ParseStatus^vhLib(ValidMail),":",2) Set TellerNotValid = TellerNotValid + 1 Do ..VoegMeldingToe($C(9)_"'"_$$LCVT^vhLib(Email)_"' niet correct door "_Feedback_" voor : "_rset.Data("Melding")_", GlobalNode : "_GlobalNode) Set Status = $$$ERROR($$$GeneralError,"Geen correct email door "_Feedback_": "_Email) } } If ('Status){ Do ..VoegMeldingToe($C(9)_"Email "_Titel_" fouten : "_TellerNotValid_" / "_Teller) }Else{ Do ..VoegMeldingToe($C(9)_"OK") } Quit Status ]]> Iterator:TECH.ListIterator,Teller:%Integer,TellerNotValid:%Integer %Status W") Set ValidMail = ##class(TECH.Mail).Check(Mail, ..#DoeNsLookUp,..#CacheNsLookUp) If ('ValidMail){ Set Feedback = $P($$ParseStatus^vhLib(ValidMail),":",2) Do ..VoegMeldingToe($C(9)_Regio_$C(9)_KlantLev.GeefNummer()_$C(9)_"'"_$$LCVT^vhLib(Mail)_"'"_$C(9)_" door "_Feedback) Set TellerNotValid = TellerNotValid + 1 Set Status = $$$ERROR($$$GeneralError,"Geen correct email "_KlantLev.GeefNummer()_" door "_Feedback_" : "_Mail) }Else{ Set $ZTRAP = "GeenZetEmail" Do KlantLev.ZetEmail(Mail) Do ..VoegMeldingToe($C(9)_"Aangepast mailadres : '"_$$LCVT^vhLib(Mail)_"'") Do KlantLev.Save() GeenZetEmail } } Set Teller = Teller + 1 } Set PersonenIt = ##class(TECH.ListIterator).%New(KlantLev.GeefPersonen()) While PersonenIt.HasNext(){ Set Persoon = PersonenIt.Next() Set Mail = Persoon.GeefEmail() If (Mail'= "") { if $p(Teller/100,".",2)="" w Teller,! Set ValidMail = ##class(TECH.Mail).Check(Mail, ..#DoeNsLookUp,..#CacheNsLookUp) If ('ValidMail){ Set Feedback = $P($$ParseStatus^vhLib(ValidMail),":",2) Do ..VoegMeldingToe($C(9)_Regio_$C(9)_KlantLev.GeefNummer()_$C(9)_$$LCVT^vhLib(Mail)_$C(9)_" door "_Feedback_" ( Persoon : "_Persoon.GeefNaam()_" "_Persoon.GeefVoornaam()_" )") Set TellerNotValid = TellerNotValid + 1 Set Status = $$$ERROR($$$GeneralError,"Geen correct email "_KlantLev.GeefNummer()_" door "_Feedback_": "_Mail) } Set Teller = Teller + 1 } } } Quit Status ]]> %SQLQuery Select 'KlantID:' || Klanten || ', UserNaam:' || UserNaam AS Melding, ID AS GlobalNode, EmailAdres AS Email From Derde_EC.Toegang where EmailAdres IS NOT NULL %SQLQuery Select eMail AS Email, ID AS GlobalNode, ID || ' ' || Naam As Melding From Res.InternePersoon where eMail IS NOT NULL %SQLQuery Select EmailAdres As Email, ID AS GlobalNode, Adres_Naam As Melding From Derde_Agenda.Eindgebruiker where EmailAdres IS NOT NULL