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