Controle van usernaam en wachtwoord + alle bijhorende rechten persistent BL.EC.Common 1 %Persistent 0 Login 2.0 %Library.Status Transfer GebruikersNaam,Data,Options,Version,Taal 0 ",$LB("OV_WSH_DYNAPLUG@vanhoecke.be"),"Dynalog bestelling ["_GebruikersNaam_"]",Body) If $$$ISOK(SendStatus) Do . If $D(%ECSession) $$$AddToLogSimple("Login success ("_GebruikersNaam_")") . ;Set Status=##class(pxStatus).Create($$$OK) . Set Status=##class(pxStatus).%New() . Set Status.Status=$$$OK Else Do . Set ErrStr=$$ParseStatus^vhLib(SendStatus)_" ("_GebruikersNaam_")" . If $D(%ECSession) $$$AddErrorToLogSimple($$ParseStatus^vhLib(SendStatus)_" ("_GebruikersNaam_")") . ;Set Status=##class(pxStatus).Create($$$errTransfer_" [Taal:"_Taal_", Code: "_ErrStr_"]") . Set Status=##class(pxStatus).%New() . Set Status.Status=$$$errTransfer_" [Taal:"_Taal_", Code: "_ErrStr_"]" If Version=..#LastVersion Do . Set Status.RedirectURL="http://res.vanhoecke.be/WebShop/Dynalog/DynaPlugSuccess_"_Taal_".htm" Else Do . Set Status.RedirectURL="http://res.vanhoecke.be/WebShop/Dynalog/DynaPlugSuccessAndUpdate_"_Taal_".htm" //Status.NewVersionURL="http://...exe " Quit Status ]]> %Library.CacheStorage ^BL.EC.DynaLogD DynaLogDefaultData ^BL.EC.DynaLogD ^BL.EC.DynaLogI ^BL.EC.DynaLogS listnode %%CLASSNAME UserKey Login