Как проверить и провести документы в 1С без движений в регистре?

[Odineski]

как сдать проверку сразу сех документов из моего запроса ВЫБРАТЬ
DISTINCT Реализация.Ссылка КАК Ссылка
ПОМЕСТИТЬ ВТ_Доки
ИЗ
Документ.ВозвратТоваровПоставщику КАК Реализация
ВНУТРЕННЕЕ СОЕДИНЕНИЕ Документ.ВозвратТоваровПоставщику.Товары КАК РеализацияТовары
ПО РеализацияТовары.Ссылка = Реализация.Ссылка
ГДЕ
Реализация.Проведен
И Реализация.Дата МЕЖДУ &НачалоПериода И &КонецПериода
//И Реализация.статус <> Значение(Перечисление.СтатусыПеремещенийТоваров.Принято)
И РеализацияТовары.Номенклатура.ТипНоменклатуры = ЗНАЧЕНИЕ(Перечисление.ТипыНоменклатуры.Товар)
;

ВЫБРАТЬ
ВТ_Доки.Ссылка КАК Ссылка
ИЗ
ВТ_Доки КАК ВТ_Доки
ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ТоварыНаСкладах КАК ТоварыНаСкладах
ПО ВТ_Доки.Ссылка = ТоварыНаСкладах.Регистратор
ГДЕ
ТоварыНаСкладах.Регистратор ЕСТЬ NULL

[Odin — Одинэсник]

Ваш запрос уже выбирает все проведенные документы, по которым нет движений в регистре ТоварыНаСкладах. Чтобы обработать каждый найденный документ, нужно выполнить результат запроса и в цикле передать ссылку в проверку.

## 1. Запрос для получения документов без движений

Лучше ограничить проверку регистра условием по нужному виду регистратора. Сам запрос можно оставить таким:

1С (Код)

|ВЫБРАТЬ РАЗЛИЧНЫЕ | Реализация.Ссылка КАК Ссылка |ПОМЕСТИТЬ ВТ_Доки |ИЗ | Документ.ВозвратТоваровПоставщику КАК Реализация | ВНУТРЕННЕЕ СОЕДИНЕНИЕ Документ.ВозвратТоваровПоставщику.Товары КАК РеализацияТовары | ПО РеализацияТовары.Ссылка = Реализация.Ссылка |ГДЕ | Реализация.Проведен | И Реализация.Дата МЕЖДУ &НачалоПериода И &КонецПериода | И РеализацияТовары.Номенклатура.ТипНоменклатуры = | ЗНАЧЕНИЕ(Перечисление.ТипыНоменклатуры.Товар) |; | |//////////////////////////////////////////////////////////////////////////////// | |ВЫБРАТЬ | ВТ_Доки.Ссылка КАК Ссылка |ИЗ | ВТ_Доки КАК ВТ_Доки | ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ТоварыНаСкладах КАК ТоварыНаСкладах | ПО ВТ_Доки.Ссылка = ТоварыНаСкладах.Регистратор |ГДЕ | ТоварыНаСкладах.Регистратор ЕСТЬ NULL

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

|ВЫБРАТЬ РАЗЛИЧНЫЕ |    Реализация.Ссылка КАК Ссылка |ПОМЕСТИТЬ ВТ_Доки |ИЗ |    Документ.ВозвратТоваровПоставщику КАК Реализация |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ Документ.ВозвратТоваровПоставщику.Товары КАК РеализацияТовары |        ПО РеализацияТовары.Ссылка = Реализация.Ссылка |ГДЕ |    Реализация.Проведен |    И Реализация.Дата МЕЖДУ &НачалоПериода И &КонецПериода |    И РеализацияТовары.Номенклатура.ТипНоменклатуры = |        ЗНАЧЕНИЕ(Перечисление.ТипыНоменклатуры.Товар) |; | |//////////////////////////////////////////////////////////////////////////////// | |ВЫБРАТЬ |    ВТ_Доки.Ссылка КАК Ссылка |ИЗ |    ВТ_Доки КАК ВТ_Доки |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ТоварыНаСкладах КАК ТоварыНаСкладах |        ПО ВТ_Доки.Ссылка = ТоварыНаСкладах.Регистратор |ГДЕ |    ТоварыНаСкладах.Регистратор ЕСТЬ NULL

Параметры запроса нужно установить обязательно:

1С (Код)

Запрос.УстановитьПараметр("НачалоПериода", НачалоПериода); Запрос.УстановитьПараметр("КонецПериода", КонецПериода);

1 2	Запрос.УстановитьПараметр("НачалоПериода", НачалоПериода); Запрос.УстановитьПараметр("КонецПериода", КонецПериода);

## 2. Проверка всех найденных документов

Например, если нужно просто вывести список документов без движений:

1С (Код)

Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); КоличествоДокументов = 0; Пока Выборка.Следующий() Цикл КоличествоДокументов = КоличествоДокументов + 1; Сообщить( "Нет движений в регистре ТоварыНаСкладах: " + Строка(Выборка.Ссылка)); КонецЦикла; Сообщить( "Всего документов без движений: " + Строка(КоличествоДокументов));

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать();   КоличествоДокументов = 0;   Пока Выборка.Следующий() Цикл КоличествоДокументов = КоличествоДокументов + 1; Сообщить( "Нет движений в регистре ТоварыНаСкладах: " + Строка(Выборка.Ссылка)); КонецЦикла;   Сообщить( "Всего документов без движений: " + Строка(КоличествоДокументов));

## 3. Если для каждого документа нужно вызвать свою проверку

Допустим, у вас есть процедура:

1С (Код)

ПроверитьДокумент(СсылкаДокумента);

1	ПроверитьДокумент(СсылкаДокумента);

Тогда вызов всех документов будет таким:

1С (Код)

Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); Пока Выборка.Следующий() Цикл ПроверитьДокумент(Выборка.Ссылка); КонецЦикла;

1 2 3 4 5 6 7 8

Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать();   Пока Выборка.Следующий() Цикл ПроверитьДокумент(Выборка.Ссылка); КонецЦикла;

Например:

1С (Код)

Процедура ПроверитьДокумент(СсылкаДокумента) Экспорт Если Не ЗначениеЗаполнено(СсылкаДокумента) Тогда Возврат; КонецЕсли; Сообщить( "Проверяется документ: " + Строка(СсылкаДокумента)); // Здесь размещается ваша проверка КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11 12 13

Процедура ПроверитьДокумент(СсылкаДокумента) Экспорт Если Не ЗначениеЗаполнено(СсылкаДокумента) Тогда Возврат; КонецЕсли; Сообщить( "Проверяется документ: " + Строка(СсылкаДокумента)); // Здесь размещается ваша проверка КонецПроцедуры

## 4. Если нужно повторно провести все найденные документы

Если задача состоит в том, чтобы перепровести документы и сформировать движения, можно получить объект документа и записать его с проведением:

1С (Код)

Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); Пока Выборка.Следующий() Цикл СсылкаДокумента = Выборка.Ссылка; ОбъектДокумента = СсылкаДокумента.ПолучитьОбъект(); Попытка ОбъектДокумента.Записать( РежимЗаписиДокумента.Проведение); Сообщить( "Документ проведен: " + Строка(СсылкаДокумента)); Исключение Сообщить( "Ошибка проведения документа " + Строка(СсылкаДокумента) + ": " + ОписаниеОшибки()); КонецПопытки; КонецЦикла;

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать();   Пока Выборка.Следующий() Цикл СсылкаДокумента = Выборка.Ссылка; ОбъектДокумента = СсылкаДокумента.ПолучитьОбъект(); Попытка ОбъектДокумента.Записать( РежимЗаписиДокумента.Проведение); Сообщить( "Документ проведен: " + Строка(СсылкаДокумента)); Исключение Сообщить( "Ошибка проведения документа " + Строка(СсылкаДокумента) + ": " + ОписаниеОшибки()); КонецПопытки; КонецЦикла;

Но для массового проведения лучше использовать транзакцию и блокировку, особенно если документов много.

## 5. Вариант с транзакцией

1С (Код)

НачатьТранзакцию(); Попытка Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); Пока Выборка.Следующий() Цикл ОбъектДокумента = Выборка.Ссылка.ПолучитьОбъект(); ОбъектДокумента.Записать( РежимЗаписиДокумента.Проведение); КонецЦикла; ЗафиксироватьТранзакцию(); Исключение ОтменитьТранзакцию(); ВызватьИсключение; КонецПопытки;

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

НачатьТранзакцию();   Попытка Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); Пока Выборка.Следующий() Цикл ОбъектДокумента = Выборка.Ссылка.ПолучитьОбъект(); ОбъектДокумента.Записать( РежимЗаписиДокумента.Проведение); КонецЦикла; ЗафиксироватьТранзакцию(); Исключение ОтменитьТранзакцию(); ВызватьИсключение; КонецПопытки;

Минус этого варианта в том, что при ошибке в одном документе будут отменены изменения по всем документам. Поэтому для массовой обработки обычно безопаснее проводить каждый документ отдельно.

## 6. Рекомендуемый вариант для массового проведения

Такой вариант не откатывает уже успешно проведенные документы, если следующий документ завершился ошибкой:

1С (Код)

Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); Пока Выборка.Следующий() Цикл СсылкаДокумента = Выборка.Ссылка; Попытка ОбъектДокумента = СсылкаДокумента.ПолучитьОбъект(); Если Не ОбъектДокумента.Проведен Тогда ОбъектДокумента.Записать( РежимЗаписиДокумента.Проведение); Сообщить( "Проведен документ: " + Строка(СсылкаДокумента)); Иначе // Для уже проведенного документа перепроведение обычно // выполняется записью с режимом проведения ОбъектДокумента.Записать( РежимЗаписиДокумента.Проведение); Сообщить( "Перепроведен документ: " + Строка(СсылкаДокумента)); КонецЕсли; Исключение Сообщить( "Не удалось провести документ " + Строка(СсылкаДокумента) + ". " + ОписаниеОшибки()); КонецПопытки; КонецЦикла;

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать();   Пока Выборка.Следующий() Цикл СсылкаДокумента = Выборка.Ссылка; Попытка ОбъектДокумента = СсылкаДокумента.ПолучитьОбъект(); Если Не ОбъектДокумента.Проведен Тогда ОбъектДокумента.Записать( РежимЗаписиДокумента.Проведение); Сообщить( "Проведен документ: " + Строка(СсылкаДокумента)); Иначе // Для уже проведенного документа перепроведение обычно // выполняется записью с режимом проведения ОбъектДокумента.Записать( РежимЗаписиДокумента.Проведение); Сообщить( "Перепроведен документ: " + Строка(СсылкаДокумента)); КонецЕсли; Исключение Сообщить( "Не удалось провести документ " + Строка(СсылкаДокумента) + ". " + ОписаниеОшибки()); КонецПопытки; КонецЦикла;

## 7. Если нужно только проверить наличие движений после проведения

После перепроведения исходный результат запроса уже не обновится. Нужно повторно выполнить запрос:

1С (Код)

Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); Если Не Выборка.Следующий() Тогда Сообщить("Документов без движений не найдено."); Иначе Пока Истина Цикл Сообщить( "По-прежнему нет движений: " + Строка(Выборка.Ссылка)); Если Не Выборка.Следующий() Тогда Прервать; КонецЕсли; КонецЦикла; КонецЕсли;

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать();   Если Не Выборка.Следующий() Тогда Сообщить("Документов без движений не найдено."); Иначе Пока Истина Цикл Сообщить( "По-прежнему нет движений: " + Строка(Выборка.Ссылка)); Если Не Выборка.Следующий() Тогда Прервать; КонецЕсли; КонецЦикла; КонецЕсли;

## 8. Важная проверка

В вашем запросе документ считается проблемным, если у него нет вообще ни одной записи в регистре ТоварыНаСкладах.

Если документ должен делать движения только по товарам определенного типа, это условие корректно:

1С (Код)

|И РеализацияТовары.Номенклатура.ТипНоменклатуры = | ЗНАЧЕНИЕ(Перечисление.ТипыНоменклатуры.Товар)

1 2	|И РеализацияТовары.Номенклатура.ТипНоменклатуры = |    ЗНАЧЕНИЕ(Перечисление.ТипыНоменклатуры.Товар)

Но если в документе есть и услуги, и товары, то наличие движений нужно проверять не просто по регистратору, а по конкретной номенклатуре. Иначе документ может иметь движения по одной строке, а другая товарная строка останется без движений.

Для простой проверки всех документов ваш основной алгоритм такой:

1С (Код)

Запрос.УстановитьПараметр("НачалоПериода", НачалоПериода); Запрос.УстановитьПараметр("КонецПериода", КонецПериода); Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); Пока Выборка.Следующий() Цикл ОбъектДокумента = Выборка.Ссылка.ПолучитьОбъект(); ОбъектДокумента.Записать( РежимЗаписиДокумента.Проведение); КонецЦикла;

1 2 3 4 5 6 7 8 9 10 11 12 13

Запрос.УстановитьПараметр("НачалоПериода", НачалоПериода); Запрос.УстановитьПараметр("КонецПериода", КонецПериода);   Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать();   Пока Выборка.Следующий() Цикл ОбъектДокумента = Выборка.Ссылка.ПолучитьОбъект(); ОбъектДокумента.Записать( РежимЗаписиДокумента.Проведение); КонецЦикла;

То есть запрос формирует список ссылок, а цикл Пока Выборка.Следующий() последовательно обрабатывает все найденные документы.

[Автор]

Записи