Для Каждого стрТЧ из тДокументОбъект.Товары Цикл
тРасхождение = стрТЧ.КоличествоПоДокументу - стрТЧ.КоличествоУпаковок;
Если тРасхождение < 0 Тогда
стрТЧ.Действие = Перечисления.ВариантыДействийПоРасхождениямВАктеПослеОтгрузки.ТребуетсяДопоставка;
ИначеЕсли тРасхождение > 0 Тогда
стрТЧ.Действие = Перечисления.ВариантыДействийПоРасхождениямВАктеПослеОтгрузки.ВозвратПерепоставленного;
КонецЕсли;
КонецЦикла;
тДокументОбъект.Записать(РежимЗаписиДокумента.Запись);
А хоть что-то пишет?
Может об ошибке боишься нам написать?
Или забываешь заполнить тДокумент?
А может не нажимаешь на кнопку, которая выполняет команду "Показать"?