Как блокировать диалоговое окно?

[worker-good]

Доброго времени суток!
В результате выполнения внешней обработки в конфигурации УПП, несколько раз выдается диалоговое сообщение: "Установить счета бух. и налогового учета в соответствии со значениями по умолчанию?" "Да", "Нет". Как изменить внешнюю обработку, чтобы диалоговое сообщение не выводилось, а все автоматически было "Да"?

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

[Victoriya]

Может как-то так: Ответ = КодВозвратаДиалога.Да;

[has]

Код Выделить Развернуть

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

[has]

нет, я поторопился. Надо вызывать процедуру в модуле документа

Код Выделить Развернуть

ЗаполнитьСчетаУчетаВТабЧасти(Док.Товары, "Товары", Истина, Истина);
Это для табличной части товары.

[has]

Т.е. будет как-то так, не проверял.

Код Выделить Развернуть

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