Controle van usernaam en wachtwoord + alle bijhorende rechten BL.EC.Common,BL.Derde.Derde,BL.Sys.Proxy 1 %RegisteredObject 0 Errorcodes begint van 1xxx vanaf 15xx is het een ernstige fout TG:WWTeKort TG:WWTeLang TG:WWOudFoutief TG:ToegangNotExist TG:NoSave TG:GeenKlanten Errorcode identiek aan errGeenKlanten TG:MeerdereKlanten TG:Gebruikers TG:Email TG:InvalObj TG:MWWMax Berichten/teksten begint van 1xxx vanaf 10xx gaat het over berichten/teksten TG:MWWSubject TG:MWWBodyStart TG:MWWBodyEnd TG:MWWUser TG:MWWWachtw TG:MWWVerstuurd VHISIE Mail New Password 6 10 Terug vinden van een wachtwoord Controle of een bepaalde klant toegelaten is, volgende controles worden uitgevoerd : 1. Klant is de klant waartoe de persooon behoort 2. Klant behoort tot de lijst van klanten in Toegang 3. De regio van de klant behoort tot de lijst van Regios in Toegang 4. De KlantVan van de klant behoort tot de lijst van KlantenVan in Toegang Commerciel nonaktieve klanten zijn niet toegelaten. KLNr,Session 1 1 ; meer dan 1 klant Quit:objToegang.Regio.Count() 1 ; 1 of meer regios Quit:objToegang.KlantenVan.Count() 1 ; 1 of meer klantvan's Quit 0 ]]> Criteria,ZoekType BL.EC.pxXMLDataSet Alleen die klanten toegelaten tot de sessie worden opgenomen in de dataset
Criteria : Te zoeken waarde ZoekType :
  Leeg = DerdeNaam of DerdeNr
  "W" = Woonplaats
  "P" = Postkode
  "S" = Straat SQLQuery : optioneel het select-statement : SELECT Nummer, Naam en Woonplaats FROM ...]]> %Query Criteria:%String,ZoekType:%String,SQLQuery:%String 1 %Status 1 ZoekKlantExecute %Status 1 ZoekKlantExecute %Status Klant,objToegang:Derde.EC.Toegang Encryptie 0=Plain, 1 = MD5 \10*10 -> Encoding 10 = Base64 en 20 = Hex]]> 1 GebruikersNaam,WachtWoordOrig,EncryptType,Domein EmailAdres:%String,Taal:%String,Domein:%String,ClientIP:%String pxStatus 1 Do Quit $$$errCreate(..#errMeerdereKlanten) . Set Body="Requested email : "_EmailAdres . Set Body=Body_$C(13,10)_"ToegangIDs : "_$$ListToPieces^vhLib(ToegangIDs,"; ") . Set Body=Body_$C(13,10)_"KLNrs : "_$$ListToPieces^vhLib(KLNrs,"; ") . Set SendStatus=$$SendMiniMail^vhLib("VHISIE@VH.be",$LB("EC_Administrators@vanhoecke.be"),"VHISIE Error MailWachtWoord : Meerdere klanten",Body) If $LL(ToegangIDs)>1 Quit $$$errCreate(..#errMeerdereGebruikers) ;Wachtwoord wijzigen en emailen naar gebruiker Set oToegang=..OpenID($LI(ToegangIDs,1)) Quit:'$isObject(oToegang) $$$errCreateWithText(..#errInvalidObj,$LI(ToegangIDs,1)) Set WachtWoord=..GenerateWachtWoord() Do ..SetWachtWoord(oToegang,WachtWoord) Do ..Save(oToegang) Set SendStatus=..MailWachtWoord(oToegang,WachtWoord,EmailAdres) If '$$$ISOK(SendStatus) Do . Set Status=$$$errCreateWithText(..#errEmail," ["_EmailAdres_" - "_$$ParseStatus^vhLib(SendStatus)_"]") Set:Status="" Status=$$$errCreate(..#msgMWWVerstuurd) Quit Status ]]> Versturen van de usernaam en wachtwoord naar het emailadres oToegang:Derde.EC.Toegang,WachtWoord:%String,EmailAdres:%String,Taal:%String,FromEmailAdres:%String %Status d ##class(BL.EC.Toegang).%New().RenewAllWachtwoordV32() Versturen van de usernaam en wachtwoord naar het emailadres oToegang:Derde.EC.Toegang,WachtWoord:%String,EmailAdres:%String %Status d ##class(BL.EC.Toegang).%New().SetBlankEmailV32() Tijdelijke routine - PV - 29/09/2007 2181 . ;Wachtwoord wijzigen . Set oToegang=..OpenID(ID) . ;w oToegang . ;Quit:'$isObject(oToegang) . Set Email=oToegang.GetEmail() . Set KLNr=oToegang.GetKlant(oToegang.PersID,oToegang.Klanten) . Set KLId=$G(^KK1(KLNr)) . Quit:KLId="" . Quit:$P(^KKL(KLId,2),D,10) ; non akt . Quit:$L($P(^KKL(KLId,0),D,30)) ; non akt of verwijderd . Quit:'$P(^KKL(KLId,0),D,20) ; geen regio . Quit:$$GetKlantType^KLANT5(KLNr)="Z" ; Non akt . Quit:$$GetKlantType^KLANT5(KLNr)=0 ; Non akt . Set All=All+1 . Quit:EmailAdres["@" . Write !,ID, " ",UserNaam,*9,KLNr,*9,$P(^KK1(KLNr)," "),*9,EmailAdres,! . Set Email=..GetMailLijst(KLNr) . Quit:Email="" . Set oToegang.EmailAdres=Email . Set Ok=oToegang.%Save() w $$ParseStatus^vhLib(Ok) &sql(CLOSE SBE) w "Cnt:",Cnt," All:",All,! ]]> Tijdelijke routine - PV - 29/09/2007 KLNr Cnt) "" Write "SET",$LI($LI(List,K),1)_":"_$LI($LI(List,K),2),! Quit $LI($LI(List,K),2) ]]> ToegangID,WachtWoordOld,WachtWoordNew,EncryptTypeOld ..#WachtWoordMaxLengte Quit $$$errCreate(..#errWachtWoordTeLang) ; Opslaan ;Do ..SetWachtWoord(Toegang,WachtWoordNew) Set WachtWoordMD5Base64New=..TransformToMD5Base64(WachtWoordNew,EncryptTypeOld) ; ook het nieuwe is geëncrypteerd Set Toegang.WachtWoord=WachtWoordMD5Base64New Set Toegang.WachtWoordIntern="" ;..Encrypt(WachtWoordNew) Set OK=Toegang.%Save() If 'OK Set Status=$$$errCreateWithText(..#errToegangNoSave,$$ParseStatus^vhLib(OK)) Quit Status ]]> genereren van een wachtwoord opslaan van de geencrypteerde en gecodeerde wachtwoorden oToegang,WachtWoordOrig Encryptie 0=Plain, 1 = MD5 \10*10 -> Encoding 00 = Plain, 10 = Base64 en 20 = Hex]]> 1 WachtWoordOrig,EncryptType WachtWoordOrig WachtWoordBase64 1 KLNr,Domein %String d ##class(BL.EC.Toegang).KlantHasToegang() 1 KLNr,Domein,TranslateToUserNaam Verwijderen van de toegang voor een persoon Domein is optioneel indien niet meegegeven worden alle toegang voor die persoon verwijderd PersID,Domein controle en Opslaan van een Toegang Toegang:Derde.EC.Toegang %Status Openen van een toegang via het ToegangsID 1 ToegangID Derde.EC.Toegang Openen van een toegang via de persoonsId en het domein Domein is optioneel en gedefault naar Van Hoecke PersID,Domein Derde.EC.Toegang Creëert een nieuwe Toegang PersID,Domein Derde.EC.Toegang Geeft een $LB van alle domeinen waarvoor het PersID gedefinieerd is Indien leeg dan nog geen gedefinieerd PersID %String Query van de domeinen voor een bep. PersID %Query PersID SELECT ID, Domein FROM Derde_EC.Toegang WHERE PersID=:PersID ORDER BY Domein d ##class(BL.EC.Toegang).tmpChangeToegang(4) 1 ToegangID