|
Logs out current user. Used with touch-screen interface. |
|
WinNr |
The window from where the user was logging off. |
OpenLogin |
Determines if new log-in window should be opened or not. |
|
global
updating procedure IVCashDClassTouchScreenButtonLogin()
begin
Integer wn;
if (UserCanAction("AllowNPTSIVLogout",true)) then begin
wn = CurWindow;
DeselectWIndow(wn,true);
switch (WindowState(wn)) begin
case Rs_normal:
SaveOpenedWindows;
LogoutUser(wn,true);
otherwise
SaveOpenedWindows;
LogoutUser(wn,true);
end;
end;
return;
end;
««