Вывод списка обращений битрикс24(тема, дата, идентификатор, кто создал, список сообщений)

По рабочей задаче меня попросили сделать выгрузку информации о обращениях(раздел техподдержки битрикс24) определённых категорий, у пользователя который должен был просматривать отчёт не было прав администратора, чтобы не делать указанного пользователя администратором решили выгрузить отчёт используя скрипт из листинга ниже.

<?php
require($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/include/prolog_admin_before.php");

CModule::IncludeModule("support");
$by = "s_id";
$order = "DESC";
$tickets = \CTicket::GetList($by, $order, array(">=CREATED_USER_ID"=>1));//array(156,157,158,159,160,161,220)
echo "<table >\n";
while (($ticket = $tickets->fetch()) !== false) {
  $isFiltered = false;
  $mesObj = CTicket::GetMessageList(array("ID"),array(),array("TICKET_ID" => $ticket["ID"], "TICKET_ID_EXACT_MATCH" => "Y", "IS_MESSAGE" => "Y"),$isFiltered,"N");
  $message = "";while (($mesAr = $mesObj->fetch()) and isset($mesAr["MESSAGE"]) and (($mesAr["MESSAGE"]."") != "")) {if ($message != "") {$message .= "\n<hr />\n";}$message .= $mesAr["MESSAGE"];}
  if (in_array($ticket["CATEGORY_ID"],array(156,157,158,159,160,161,220))) {
  echo "<tr><td style=\"border: 1px solid black;\">" . $ticket["ID"] . "</td><td style=\"border: 1px solid black;\">" . $ticket["DATE_CREATE"] . "</td><td style=\"border: 1px solid black;\">" . $ticket["OWNER_NAME"] . "</td><td style=\"border: 1px solid black;\">" . $ticket["CATEGORY_NAME"] . "</td><td style=\"border: 1px solid black;\">" . $ticket["TITLE"] . "</td><td style=\"border: 1px solid black;\">" . $message . "</td></tr>\n";//var_dump($ticket);exit;//
  }
}
echo "</table>\n";

Комментарии