update inbox list

vendor/scrivo/highlight.php/test/detect/isbl/default.txt

@@ -0,0 +1,27 @@
+  // Описание констант
+  ADD_EQUAL_NUMBER_TEMPLATE = "%s.%s = %s"
+  EMPLOYEES_REFERENCE = "РАБ"
+  /********************************************* 
+   *  Получить список кодов или ИД работников, *
+   *  соответствующих текущему пользователю    *
+   *********************************************/
+  Employees: IReference.РАБ = CreateReference(EMPLOYEES_REFERENCE; 
+    ArrayOf("Пользователь"; SYSREQ_STATE); MyFunction(FALSE; MyParam * 0.05))
+  Employees.Events.DisableAll
+  EmployeesTableName = Employees.TableName
+  EmployeesUserWhereID = Employees.AddWhere(Format(ADD_EQUAL_NUMBER_TEMPLATE; 
+    ArrayOf(EmployeesTableName; Employees.Requisites("Пользователь").SQLFieldName; 
+    EDocuments.CurrentUser.ID)))
+  Employees.Open()
+  Result = CreateStringList()
+  foreach Employee in Employees
+    if IsResultCode
+      Result.Add(Employee.SYSREQ_CODE)
+    else
+      Result.Add(Employee.SYSREQ_ID)
+    endif  
+  endforeach
+  Employees.Close()
+  Employees.DelWhere(EmployeesUserWhereID)
+  Employees.Events.EnableAll
+  Employees = nil