Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
28 мар 2024, 20:49

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

Автор worker-good, 13 июл 2011, 09:15

0 Пользователей и 1 гость просматривают эту тему.

worker-good

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

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

Victoriya

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

has

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

has

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

has

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

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск