IF (SESSION.CURRENTEXECUTIONMODE = EXECUTIONMODE::Standard) AND (SESSION.CURRENTCLIENTTYPE =CLIENTTYPE::Windows) THEN BEGIN
ActiveSession.SETRANGE("User ID",USERID);
ActiveSession.SETRANGE("Client Type",ActiveSession."Client Type"::"Windows Client");
ActiveSession.SETFILTER("Session ID", '<>%1', SESSIONID);
IF ActiveSession.FINDFIRST THEN IF CONFIRM(OpenNewSessionConf)
THEN
STOPSESSION(ActiveSession."Session ID")
ELSE
ERROR(TooManyOpenSessionsErr);
END;