Импорт пользователей из другой программы1

Версия 3 osv
на апр 15, 2011 15:49.
<< Изменения с 2 по 3
по сравнению с
Версия 4 osv
на апр 15, 2011 15:56.
Изменения с 4 по 5 >>
Ключ
Эта строка удалена.
Это слово было удалено. Это слово было добавлено.
Эта строка добавлена.

Изменения (44)

просмотр истории страницы
...
----


Если у вас отображаетсяCannot perform operation -- DB is not open.

...
----


Как изменить другие поля и реквизиты:

...
*Code:*

\\ {code}


SET TERM ^ ;

CREATE PROCEDURE GLN2_USR_ADD ( &nbsp; &nbsp;

PARENT_ID INTEGER, &nbsp; &nbsp;
CREATE PROCEDURE GLN2_USR_ADD (

LOGIN VARCHAR(32), &nbsp; &nbsp;

NAME VARCHAR(128), &nbsp; &nbsp;
PARENT_ID INTEGER,

EMAIL VARCHAR(128), &nbsp; &nbsp;

NET_SIZE INTEGER, &nbsp; &nbsp;
LOGIN VARCHAR(32),

END_USER SMALLINT, &nbsp; &nbsp;

PSW VARCHAR(16), &nbsp; &nbsp;
NAME VARCHAR(128),

AD_IS INTEGER, &nbsp; &nbsp;

SUID NUMERIC(18,0), &nbsp; &nbsp;
EMAIL VARCHAR(128),

BALANCE NUMERIC(15,2), &nbsp; &nbsp;

COMMENT VARCHAR(1024), &nbsp; &nbsp;
NET_SIZE INTEGER,

ENABLED INTEGER, &nbsp; &nbsp;

END_USER SMALLINT,


PSW VARCHAR(16),


AD_IS INTEGER,


SUID NUMERIC(18,0),


BALANCE NUMERIC(15,2),


COMMENT VARCHAR(1024),


ENABLED INTEGER,


IP_STR VARCHAR(16)


)

RETURNS ( &nbsp; &nbsp;

RETURNS (


USER_ID INTEGER)


AS


begin


select user_id from gln_usr_add(:PARENT_ID,:LOGIN,:NAME,:EMAIL,:NET_SIZE,:END_USER,:PSW, :AD_IS,:SUID)


into user_id;

-\--{-}Обновим баланс(остаток на начало мес) пользователя-

-update users set enabled=:enabled, &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;ostatok=:BALANCE*10000000000 where id=:user_id; update users set{-}{-}установим ip адрес &nbsp; &nbsp; users.ip=uf_string2ip(:ip_str),-{-}отключим предупреждение приближения к лимиту &nbsp; &nbsp; users.limit_warning=null, \--Автоматический акт &nbsp; &nbsp; users.auto_account=1,-{-}Дата следующего автоматического акта &nbsp; &nbsp; users.next_auto_acount='01.07.2008',-{-}Сменим тип авторизации на подключение через агента &nbsp; &nbsp; users.auth_type=2,-{-}Сменим кеш поле тип авторизации на подключение через агента &nbsp; &nbsp; users.auth_type_cache=2,-{-}Разрешим почту &nbsp; &nbsp; users.allow_mail=1,-{-}Разрешим доступ к почте из интернет &nbsp; &nbsp; users.allow_mail_internet=1 &nbsp; &nbsp;where id=:user_id; /\* <-расскомментируйте этот блок{-}{-}Добавим атрибут комментарий INSERT INTO ATTRIBUTE_VALUES ( &nbsp; &nbsp; USER_ID, &nbsp; &nbsp; ATTRIBUTE_ID, &nbsp; &nbsp; ATTRIBUTE_VALUE) &nbsp; VALUES ( &nbsp; &nbsp; :USER_ID, &nbsp; &nbsp; 2, &nbsp; &nbsp; :comment);-\-
--Обновим баланс(остаток на начало мес) пользователя
update users set enabled=:enabled,
ostatok=:BALANCE*10000000000
where id=:user_id;

'Наименование' id=2*/ suspend; end\^ SET TERM ; ^ GRANT EXECUTE ON PROCEDURE GLN_USR_ADD TO PROCEDURE GLN2_USR_ADD; GRANT SELECT,UPDATE ON USERS TO PROCEDURE GLN2_USR_ADD; GRANT INSERT ON ATTRIBUTE_VALUES TO PROCEDURE GLN2_USR_ADD; GRANT EXECUTE ON PROCEDURE GLN2_USR_ADD TO SYSDBA;
update users set
--установим ip адрес
users.ip=uf_string2ip(:ip_str),
--отключим предупреждение приближения к лимиту
users.limit_warning=null,
--Автоматический акт
users.auto_account=1,
--Дата следующего автоматического акта
users.next_auto_acount='01.07.2008',
--Сменим тип авторизации на подключение через агента
users.auth_type=2,
--Сменим кеш поле тип авторизации на подключение через агента
users.auth_type_cache=2,
--Разрешим почту
users.allow_mail=1,
--Разрешим доступ к почте из интернет
users.allow_mail_internet=1
where id=:user_id;
\\
/* <-расскомментируйте этот блок
--Добавим атрибут комментарий
INSERT INTO ATTRIBUTE_VALUES (
USER_ID,
ATTRIBUTE_ID,
ATTRIBUTE_VALUE)
VALUES (
:USER_ID,
2,
:comment);


'Наименование' id=2

*/

suspend;

end

^

SET TERM ; ^

GRANT EXECUTE ON PROCEDURE GLN_USR_ADD

TO PROCEDURE GLN2_USR_ADD;

GRANT SELECT,UPDATE ON USERS TO PROCEDURE GLN2_USR_ADD;

GRANT INSERT ON ATTRIBUTE_VALUES TO PROCEDURE GLN2_USR_ADD;

GRANT EXECUTE ON PROCEDURE GLN2_USR_ADD TO SYSDBA;
{code}
GLN2_USR_ADD
\\
| | |

\\ ----
| *От:* 17 июня 2009 г. 14:39:15 | |

\\ ----
Если не подключается и пишет "Undefined service gds_db/tcp" Положить файл gds32.dll в system32, взять можно из каталога с ICSManagerВ файле C:WINDOWS\services проверьте наличие записи : gds_db 3050/tcp gds_db 3050/udpесли запись отсутствует то необходимо ее добавить и после этого продолжить установку клиентской части.\|


Если не подключается и пишет "Undefined service gds_db/tcp"

Положить файл gds32.dll в system32, взять можно из каталога с ICSManager

В файле C:WINDOWS\services проверьте наличие записи :

gds_db 3050/tcp

gds_db 3050/udp

если запись отсутствует то необходимо ее добавить и после этого продолжить установку клиентской части.\|