Test

Hello World

Re: booking

ss

Re: Test

Code

 
 if _GetLogin then
    begin
      xUser:=CurrentUser.UserName;
      if xUser='' then Exit;
 
      if CheckUserRight(USERS_DOUBLE_AUTH, False) then
      begin
        ClearLogin;
        if _GetLogin then
        begin
          if xUser=CurrentUser.UserName then
            ClearLogin;
        end;
      end;
    end;

Re: Test

Quote by farshad:Code

 
 if _GetLogin then
    begin
      xUser:=CurrentUser.UserName;
      if xUser='' then Exit;
 
      if CheckUserRight(USERS_DOUBLE_AUTH, False) then
      begin
        ClearLogin;
        if _GetLogin then
        begin
          if xUser=CurrentUser.UserName then
            ClearLogin;
        end;
      end;
    end;