Документация iSZN

Местоположение: guide => design => api => server => packages

pkUsr.sql

Настройки пользователей

WriteSettingSection

PROCEDURE WriteSettingSection(sUserName VARCHAR2 := NULL, sSectionName VARCHAR2, SValues uszn.pkGen.TStringMap4000);

Описание

Производит запись настроек пользователя в r_settings. Если sUserName=null, то используется имя текущего

  • пользователя.

ResetUserSettings

PROCEDURE ResetUserSettings(sUserName VARCHAR2 := NULL);

Описание

Уничтожает все настройки пользователя sUserName. Если sUserName=null, то используется имя текущего пользователя.

Поиск людей/коллективов

PSearchPastQuery_Add

PROCEDURE PSearchPastQuery_Add(
  iID PLS_INTEGER, iUserID PLS_INTEGER, KindNum PLS_INTEGER, sDesc CLOB,
  iExecTimes PLS_INTEGER, iPeopleCount PLS_INTEGER, iCollCount PLS_INTEGER, dExecStart DATE, dExecEnd DATE,
  sSQLText CLOB);
-- Обновляет запись в r_psearch_past_queries.
PROCEDURE PSearchPastQuery_Update(
  iID PLS_INTEGER, iExecTimes PLS_INTEGER, iPeopleCount PLS_INTEGER, iCollCount PLS_INTEGER,
  dExecStart DATE, dExecEnd DATE);
-- Удаляет запись из r_psearch_past_queries.
PROCEDURE PSearchPastQuery_Delete(iID PLS_INTEGER);
 
END;
 
/
CREATE OR REPLACE PACKAGE BODY uszn.pkUsr IS
 
/********************************************************************************************************************/
PROCEDURE WriteSettingSection(sUserName VARCHAR2 := NULL, sSectionName VARCHAR2, SValues uszn.pkGen.TStringMap4000) IS
  -- iStatus: 0=лишняя, 1=новая, 2=нужно обновить, 3=без изменений
  TYPE TSettingRec IS RECORD(sName VARCHAR2(255), sValue VARCHAR2(4000), rRowID ROWID, iStatus PLS_INTEGER);
  TYPE TSettingTbl IS TABLE OF TSettingRec INDEX BY BINARY_INTEGER;

Описание

Добавляет запись в r_psearch_past_queries.

PSearchPastQuery_Update

PROCEDURE PSearchPastQuery_Update(
  iID PLS_INTEGER, iExecTimes PLS_INTEGER, iPeopleCount PLS_INTEGER, iCollCount PLS_INTEGER,
  dExecStart DATE, dExecEnd DATE);
-- Удаляет запись из r_psearch_past_queries.
PROCEDURE PSearchPastQuery_Delete(iID PLS_INTEGER);
 
END;
 
/
CREATE OR REPLACE PACKAGE BODY uszn.pkUsr IS
 
/********************************************************************************************************************/
PROCEDURE WriteSettingSection(sUserName VARCHAR2 := NULL, sSectionName VARCHAR2, SValues uszn.pkGen.TStringMap4000) IS
  -- iStatus: 0=лишняя, 1=новая, 2=нужно обновить, 3=без изменений
  TYPE TSettingRec IS RECORD(sName VARCHAR2(255), sValue VARCHAR2(4000), rRowID ROWID, iStatus PLS_INTEGER);
  TYPE TSettingTbl IS TABLE OF TSettingRec INDEX BY BINARY_INTEGER;
  SettingTbl TSettingTbl;
  sUser      VARCHAR2(30);
  iUserID    PLS_INTEGER;
  sName      VARCHAR2(255);
  iStatus    PLS_INTEGER;

Описание

Обновляет запись в r_psearch_past_queries.

PSearchPastQuery_Delete

PROCEDURE PSearchPastQuery_Delete(iID PLS_INTEGER);

Описание

Удаляет запись из r_psearch_past_queries.