Событие MyChat Server: OnKanbanCommentAdd, размещение комментария к задаче на канбан-доске

Событие MyChat Server: OnKanbanCommentAdd, размещение комментария к задаче на канбан-доске

"Для разработчиков", "Серверные скрипты", "Скриптовые события", "Kanban events", "OnKanbanCommentAdd".

 

Событие, возникающее при размещении нового комментария к задаче на канбан-доске.

 

Шаблон события

function OnKanbanCommentAdd(iCID: int64; iUIN: integer; var sJSONData: string): boolean;
begin
  result := true;
  // your own code
end;

begin

end.

Вместо комментария может быть любой ваш код.

 

Описание параметров

Параметр

Тип

Значение

iCID

int64

Connection ID клиента-отправителя, уникальный сеансовый идентификатор в онлайн-структуре сетевых подключений к серверу;

iUIN

integer

уникальный идентификатор отправителя команды (число > 0);

sJSONData

string

изменяемый параметр, содержимое команды в виде текстовой JSON-строки:

 

Параметр sJSONData

Тип

Значение

ID

integer

идентификатор канбан-проекта, число;

CommentType

integer

тип комментария, число, по умолчанию 0 (написано человеком);

CommentText

string

текст комментария;

Files

object

JSON-объект в виде строки со списком приложенных файлов, необязательный параметр.

 
Возвращаемое значение

По умолчанию функция должна возвращать true, однако, если вы вернёте false, комментарий не будет размещён, а приложение получит ошибку #0332. Вы также можете отредактировать JSON-объект, изменив параметры команды на другие.

 

Пример

У пользователя есть настраиваемое меню, по клику на указанном пункте ("OpenPrivateSupport") должен запускаться скрипт и получать информацию от имени встроенного робота в приват, а также принудительно переключать фокус на приватный диалог с UIN=0.

procedure OnClientRemoteExec(iUIN, iCID: integer; sCmd, sData, sAppType: string);
begin
  if sCmd = 'OpenPrivateSupport' then begin
    mSendPrivateMessage(0, iUIN, 'Hello world. Custom data is:" ' + sData + '"', 1);
    mSetRemoteClientCurrentPlaceID(iUIN, 0, 1, false);
  end;  
end;

begin

end.

Ещё посмотреть

mSendPrivateMessage

mSetRemoteClientCurrentPlaceID