*
* Процедура login в систему - принимает в качестве параметров login и password
* выдает курсор с одной строкой в виде информации о клиенте
* (она находится в теле класса Web Service)
  PROCEDURE login(m.lclog,m.lcpsw) AS STRING
  IF !DBUSED('DBWS')
    OPEN DATABASE (gcWebSDat+'DBWS')
  ENDIF
  lcXMLa11=- 1 
  lcXMLa11=sp_user_login_xml(m.lclog,m.lcpsw)
  CLOSE DATABASES ALL
  RETURN (lcXMLa11)
  ENDPROC

PROCEDURE sp_user_login_xml
PARAMETERS m.User_nick, m.PASSWORD
PRIVATE m.lcXML
m.lcXML=- 1  && в случае неуспеха ответ в числовом виде
IF LEN(m.User_nick)>= 3  AND LEN(m.PASSWORD)> 3 
  SELECT User_ID, User_nick, admin FROM USERS WHERE  UPPER(USERS.User_nick)==UPPER(m.User_nick) ;
    AND UPPER(USERS.PASSWORD)==UPPER(m.PASSWORD) INTO CURSOR user_exists
  IF RECCOUNT('USER_EXISTS')> 0 
* у нас есть такой пользователь
    CURSORTOXML('user_exists',"lcXML", 1 , 1 , 0 ,"1")
  ENDIF
ENDIF
IF USED('USER_EXISTS')
  USE IN user_exists
ENDIF
IF USED('USERS')
  USE IN USERS
ENDIF
RETURN m.lcXML