// Описание констант 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