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

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

Необходимо выполнить поиск последних измененных документов.

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

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

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

CountDays = 30

User = Application.Connection.UserName

Sender.SearchCriteria.AddFrom ="SBEDocProtocol protocol, MBAnalit users"

Sender.SearchCriteria.AddWhere="protocol.EDocID = EDocuments.XRecID " &

  "and protocol.UserID = users.Analit " &

  "and (protocol.ActionType = 'C' or protocol.ActionType = 'E' " &

  "or protocol.ActionType = 'V' or protocol.ActionType = 'I' " &

  "or protocol.ActionType = 'K')" &

  "and users.Dop = '" & User & "' " &

  "and protocol.ActionDate > dateadd(day, -" & CountDays & ", getdate())"

Как разработать для веб-доступа