Поиск документов, созданных пользователем за последнюю неделю

Contents

Постановка задачи

Необходимо выполнить поиск электронных документов, созданных текущим пользователем за последнюю неделю.

Программный код

// Загрузить описание поиска и получить список критериев.

SearchFactory = Application.SearchFactory

SearchDesciption = SearchFactory.Load('EDOCUMENT_SEARCH')

Criteria = SearchDesciption.SearchCriteria

// Отобрать документы, автором которых является текущий пользователь.

AuthorCriterion = Criteria.Add('ISBEDocAuthor')

UserName = Application.Connection.UserName

AuthorCriterion.Add(ServiceFactory.GetUserByName(UserName).Code)

// Отобрать документы, созданные за последнюю неделю.

CreatedCriterion = Criteria.Add('ISBEDocCreateDate')

CreatedCriterion.AddRange(Today() - 7; Today())

// Выполнить поиск с запросом дополнительных критериев

// у пользователя.

SearchDesciption.Show(ssmBrowse; False)