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

Contents

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

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

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

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

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

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())"