поле агрегатного объекта не обнаружено номерплатрасчдок
v7: Поле агрегатного объекта не обнаружено
Есть справочник НормаОбмундирования, на него ссылается другой справочник НормыОбмундирования и документ РасчетКомпенсации.
Для уточнения расчета для некоторой номенклатуры я указал в какой период она действует, чтобы в документе считалось все верно. Т.е создал новые реквизиты ДатаНачала и ДатаОкончания.
В справочнике НормыОбмундирования есть такая процедура
Процедура ЗаполнитьСоставНормы()
Если Выбран()=0 Тогда
Возврат;
КонецЕсли;
СписокНормы.УдалитьСтроки();
Состав = СоздатьОбъект(«Справочник.СоставНормы»);
Состав.ИспользоватьВладельца(ТекущийЭлемент());
Состав.ПорядокНаименований();
Состав.ВыбратьЭлементы();
Пока Состав.ПолучитьЭлемент() = 1 Цикл
Если Состав.ПометкаУдаления() = 1 Тогда
Продолжить;
КонецЕсли;
СписокНормы.НоваяСтрока();
СписокНормы.Ссылка=Состав.ТекущийЭлемент();
СписокНормы.Обмундирование = Состав.Обмундирование;
СписокНормы.ТипОбмундирования = Состав.ТипОбмундирования;
СписокНормы.ДатаНачала = Состав.ДатаНачала; //добавлено мной
СписокНормы.ДатаОкончания = Состав.ДатаОкончания; //добавлено мной
СписокНормы.Количество = Состав.КоличествоНаОдного;
СписокНормы.СрокНоски = Состав.СрокНоски;
СписокНормы.СуммаКомпенсации = Состав.СуммаКомпенсации.Получить(РабочаяДата());
КонецЦикла;
КонецПроцедуры
Эта процедура заполняет табличную часть, которая на вкладке СписокНормы
Также я ссылаюсь на эти новые реквизиты справочника в документе, код
НормаОбмундирования.НоваяСтрока();
НормаОбмундирования.Обмундирование = СоставНормы.Обмундирование;
НормаОбмундирования.ЭтоГруппа = СоставНормы.Обмундирование.ЭтоГруппа();
НормаОбмундирования.Количество = СоставНормы.КоличествоНаОдного;
НормаОбмундирования.СрокНоски = СоставНормы.СрокНоски;
НормаОбмундирования.ДатаНач = СоставНормы.ДатаНачала; //добавлено мной
НормаОбмундирования.ДатаОконч = СоставНормы.ДатаОкончания; //Добавлено мной
Но при добавлении этих новых реквизитов ругается, что справочник, что документ, пишет, что Поле агрегатного объекта не обнаружено. Отладчик пишет тоже самое, просто не идет дальше, а доходит до этих строк, выдает насчет поле агрегатного объекта и пропускает всю процедуру, переходя к следующей. Вот как тут
Поле агрегатного объекта не обнаружено
При попытке вывести печатную форму появляется ошибка!
Поле агрегатного объекта не обнаружено (НомерСчетаОрганизации)
А я пытаюсь ввести расчетный счет, где я допускаю ошибку?
Р/с [Константа.НомерСчетаОрганизации]-так пишу в таблице
Помогите пожалуйста разобраться.
Спасибо.
Какой тип стоит у ячейки?
Извини за вопрос, но я не множко не понимаю, вот так у меня выглядит шапка:
Константа.НазваниеОрганизации
АдресТелефон
Идентификационный номер продавца (ИНН/КПП) [Константа.ИННОрганизации]
Р/с [Константа.НомерСчетаОрганизации]
Или подскажите где мне посмлтреть, что бы я могла ответить.
Посмотреть можно в макете печ.формы
Конфигурация какая, скажи, не таись.
1С: Бухгалтерия. Типовая конфигурация.
Извините, может я покажусь не умной в этом деле но я незнаю, я не понимаю.
ИНН и КПП смогла прописать.
Шутишь. Нет в типовой бухии такой константы «НомерСчетаОрганизации»!
Есть константа «ОсновнойБанковскийСчет»
А константа с таким названием есть?
Она не сказала какая 1С 7.7 или 8.0?
Читают тему:
Мероприятия
При использовании материалов активная прямая гиперссылка на перепечатанный материал обязательна.
Редакция БУХ.1С не несет ответственности за мнения и информацию, опубликованную в комментариях к материалам.
Редакция уважает мнение авторов, но не всегда разделяет его.
Мы используем файлы cookie, чтобы анализировать трафик, подбирать для вас подходящий контент и рекламу, а также дать вам возможность делиться информацией в социальных сетях. Если вы продолжите использовать сайт, мы будем считать, что вас это устраивает.
Тема: Поле агрегатного объекта не обнаружено
Опции темы
Поиск по теме
Отображение
Пожалуйста помогите, в 1с я полный ноль. Конфигурация Бух. учет, редакция 4.5 Мисофт 7.70.160531.
После обновления не могу создать счет протокол. При добавлении товара пишет:
Если партия.ПервыйИмпортер=1 Тогда
<Документ.ПротоколСчет.Фор� �а.Модуль(382)>: Поле агрегатного объекта не обнаружено (ПервыйИмпортер)
Что мне делать? Подскажите пожалуйста.
Ну для начала:
1. Открыть конфигуратор.
2. Найти и открыть модуль объекта Документ.ПротоколСчет
3. Посмотреть самому, а если непонятно, то скопировать сюда что же находится в области 382 строки и в области 481 (желательно «захватить» куски кода побольше)
Я смотрю, но не знаю что мне искать. Как оно должно правильно выглядеть.
Процедура Печать1()
таб=СоздатьОбъект(«ТАБЛИЦА» );
таб.ИсходнаяТаблица(«СчФак» );
Таб.ВывестиСекцию(«Шапка»);
ВыбратьСтроки();
ИтСуБНДС=0;
Пока ПолучитьСтроку()>0 Цикл
Если (Партия.Выбран()=1) и (ПустаяСтрока(Партия.Стран� �Происхождения)=0) Тогда
СтранПР = «, «+СокрП(СокрЛ(Партия.Страна� �роисхождения));
ИначеЕсли ПустаяСтрока(Товар.СтранаП роисхождения)=0 Тогда
СтранПР = «, «+СокрП(СокрЛ(Товар.СтранаП� �оисхождения));
Иначе
СтранПР=»»;
КонецЕсли;
ЦенаПер=ЦенаИзготовителя;
СумбНДС=Окр(ЦенаОтп*Количе� �тво,0,0);
ИтСуБНДС=СумбНДС+ИтСуБНДС;
Таб.ВывестиСекцию(«Строка»);
КонецЦикла;
Таб.ВывестиСекцию(«Итого»);
Таб.ВывестиСекцию(«Дно»);
Таб.ВывестиСекцию(«Дно1»);
Таб.ВывестиСекцию(«Дно2»);
Таб.ПараметрыСтраницы(1. 5,5, 5. 1);
Таб.Опции(0,0,0,0);
Таб.Показать() ;
КонецПроцедуры
Процедура ОбработкаПодбора(ВыбрТова� �)
Кол = 1;
Спис = СоздатьОбъект(«СписокЗначе ний»);
Спис.ДобавитьЗначение(Выбр Товар,»Товар»);
Если ПустоеЗначение(ТекущийДок� �мент()) = 1 Тогда //документ еще не записан
//Тогда передаем дату документа
Спис.ДобавитьЗначение(Дата Док,»Док»);
Иначе
//иначе позицию документа
Спис.ДобавитьЗначение(Теку щийДокумент(),»Док»);
КонецЕсли;
Спис.ДобавитьЗначение(Мест оХранения,»Склад»);
ОткрытьФормуМодально(«Обра ботка.ПодборПартий»,Спис);
Если ВвестиЧисло(Кол, «Введите количество», 14, 3) = 0 Тогда
Возврат;
ИначеЕсли Кол = 0 Тогда
Возврат;
КонецЕсли;
НоваяСтрока();
Товар = ВыбрТовар;
Прейскурант=Партия.Прейску рант;
Сертификат=Партия.Сертифик ат;
ПредпрИзготовитель=Товар.П редприятиеИзготовитель;
СтранаПроисхождения=Товар. СтранаПроисхождения;
//Единица=Товар.ЕдиницаИзмер ения;
Количество = Кол;
НдСПр=Товар.СтавкаНДС.Полу� �ить(ДатаДок).Ставка;
Если партия.выбран()=1 Тогда
Если партия.ПервыйИмпортер=1 Тогда
Себестоимость=Партия.Себес тоимость;
ЦенаИзготовителя=Партия.Це наОтп;
ЦенаОтп=Партия.ЦенаОтп;
Иначе
Себестоимость=Партия.Себес тоимость;
ЦенаИзготовителя=Партия.Це наИзготовителя;
ЦенаОтп=Партия.ЦенаОтп;
КонецЕсли;
//Надб=Партия.Надб;
//НадбавкаДругая=Партия.Надб авкаДругая;
Пересчет(«Товар»);
Пересчет2(); //Расчет надбавок
Иначе
//Себ=0;
//Если ВвестиЧисло(Себ, «Введите Себестоимость», 16, 2) = 0 Тогда
// Себестоимость=Себ;
//Иначе
Себестоимость=0;
//КонецЕсли;
//ЦенаИз=0;
//Если ВвестиЧисло(ЦенаИз, «Введите Цену Изготовителя», 16, 2) = 0 Тогда
// ЦенаИзготовителя=ЦенаИз;
//Иначе
ЦенаИзготовителя=0;
//КонецЕсли;
//ЦенаОп=0;
//Если ВвестиЧисло(ЦенаОп, «Введите Цену Оптовую», 16, 2) = 0 Тогда
// ЦенаОптовая=ЦенаОп;
//Иначе
ЦенаОптовая=0;
//КонецЕсли;
//НадбДр=0;
//НадбДр=0;
КонецЕсли;
Я смотрю, но не знаю что мне искать. Как оно должно правильно выглядеть.
Процедура Печать1()
таб=СоздатьОбъект(«ТАБЛИЦА» );
таб.ИсходнаяТаблица(«СчФак» );
Таб.ВывестиСекцию(«Шапка»);
ВыбратьСтроки();
ИтСуБНДС=0;
Пока ПолучитьСтроку()>0 Цикл
Если (Партия.Выбран()=1) и (ПустаяСтрока(Партия.Стран� �Происхождения)=0) Тогда
СтранПР = «, «+СокрП(СокрЛ(Партия.Страна� �роисхождения));
ИначеЕсли ПустаяСтрока(Товар.СтранаП роисхождения)=0 Тогда
СтранПР = «, «+СокрП(СокрЛ(Товар.СтранаП� �оисхождения));
Иначе
СтранПР=»»;
КонецЕсли;
ЦенаПер=ЦенаИзготовителя;
СумбНДС=Окр(ЦенаОтп*Количе� �тво,0,0);
ИтСуБНДС=СумбНДС+ИтСуБНДС;
Таб.ВывестиСекцию(«Строка»);
КонецЦикла;
Таб.ВывестиСекцию(«Итого»);
Таб.ВывестиСекцию(«Дно»);
Таб.ВывестиСекцию(«Дно1»);
Таб.ВывестиСекцию(«Дно2»);
Таб.ПараметрыСтраницы(1. 5,5, 5. 1);
Таб.Опции(0,0,0,0);
Таб.Показать() ;
КонецПроцедуры
Процедура ОбработкаПодбора(ВыбрТова� �)
Кол = 1;
Спис = СоздатьОбъект(«СписокЗначе ний»);
Спис.ДобавитьЗначение(Выбр Товар,»Товар»);
Если ПустоеЗначение(ТекущийДок� �мент()) = 1 Тогда //документ еще не записан
//Тогда передаем дату документа
Спис.ДобавитьЗначение(Дата Док,»Док»);
Иначе
//иначе позицию документа
Спис.ДобавитьЗначение(Теку щийДокумент(),»Док»);
КонецЕсли;
Спис.ДобавитьЗначение(Мест оХранения,»Склад»);
ОткрытьФормуМодально(«Обра ботка.ПодборПартий»,Спис);
Если ВвестиЧисло(Кол, «Введите количество», 14, 3) = 0 Тогда
Возврат;
ИначеЕсли Кол = 0 Тогда
Возврат;
КонецЕсли;
НоваяСтрока();
Товар = ВыбрТовар;
Прейскурант=Партия.Прейску рант;
Сертификат=Партия.Сертифик ат;
ПредпрИзготовитель=Товар.П редприятиеИзготовитель;
СтранаПроисхождения=Товар. СтранаПроисхождения;
//Единица=Товар.ЕдиницаИзмер ения;
Количество = Кол;
НдСПр=Товар.СтавкаНДС.Полу� �ить(ДатаДок).Ставка;
Если партия.выбран()=1 Тогда
Если партия.ПервыйИмпортер=1 Тогда
Себестоимость=Партия.Себес тоимость;
ЦенаИзготовителя=Партия.Це наОтп;
ЦенаОтп=Партия.ЦенаОтп;
Иначе
Себестоимость=Партия.Себес тоимость;
ЦенаИзготовителя=Партия.Це наИзготовителя;
ЦенаОтп=Партия.ЦенаОтп;
КонецЕсли;
//Надб=Партия.Надб;
//НадбавкаДругая=Партия.Надб авкаДругая;
Пересчет(«Товар»);
Пересчет2(); //Расчет надбавок
Иначе
//Себ=0;
//Если ВвестиЧисло(Себ, «Введите Себестоимость», 16, 2) = 0 Тогда
// Себестоимость=Себ;
//Иначе
Себестоимость=0;
//КонецЕсли;
//ЦенаИз=0;
//Если ВвестиЧисло(ЦенаИз, «Введите Цену Изготовителя», 16, 2) = 0 Тогда
// ЦенаИзготовителя=ЦенаИз;
//Иначе
ЦенаИзготовителя=0;
//КонецЕсли;
//ЦенаОп=0;
//Если ВвестиЧисло(ЦенаОп, «Введите Цену Оптовую», 16, 2) = 0 Тогда
// ЦенаОптовая=ЦенаОп;
//Иначе
ЦенаОптовая=0;
//КонецЕсли;
//НадбДр=0;
//НадбДр=0;
КонецЕсли;
Я смотрю, но не знаю что мне искать. Как оно должно правильно выглядеть.
Процедура Печать1()
таб=СоздатьОбъект(«ТАБЛИЦА» );
таб.ИсходнаяТаблица(«СчФак» );
Таб.ВывестиСекцию(«Шапка»);
ВыбратьСтроки();
ИтСуБНДС=0;
Пока ПолучитьСтроку()>0 Цикл
Если (Партия.Выбран()=1) и (ПустаяСтрока(Партия.Стран� �Происхождения)=0) Тогда
СтранПР = «, «+СокрП(СокрЛ(Партия.Страна� �роисхождения));
ИначеЕсли ПустаяСтрока(Товар.СтранаП роисхождения)=0 Тогда
СтранПР = «, «+СокрП(СокрЛ(Товар.СтранаП� �оисхождения));
Иначе
СтранПР=»»;
КонецЕсли;
ЦенаПер=ЦенаИзготовителя;
СумбНДС=Окр(ЦенаОтп*Количе� �тво,0,0);
ИтСуБНДС=СумбНДС+ИтСуБНДС;
Таб.ВывестиСекцию(«Строка»);
КонецЦикла;
Таб.ВывестиСекцию(«Итого»);
Таб.ВывестиСекцию(«Дно»);
Таб.ВывестиСекцию(«Дно1»);
Таб.ВывестиСекцию(«Дно2»);
Таб.ПараметрыСтраницы(1. 5,5, 5. 1);
Таб.Опции(0,0,0,0);
Таб.Показать() ;
КонецПроцедуры
Процедура ОбработкаПодбора(ВыбрТова� �)
Кол = 1;
Спис = СоздатьОбъект(«СписокЗначе ний»);
Спис.ДобавитьЗначение(Выбр Товар,»Товар»);
Если ПустоеЗначение(ТекущийДок� �мент()) = 1 Тогда //документ еще не записан
//Тогда передаем дату документа
Спис.ДобавитьЗначение(Дата Док,»Док»);
Иначе
//иначе позицию документа
Спис.ДобавитьЗначение(Теку щийДокумент(),»Док»);
КонецЕсли;
Спис.ДобавитьЗначение(Мест оХранения,»Склад»);
ОткрытьФормуМодально(«Обра ботка.ПодборПартий»,Спис);
Если ВвестиЧисло(Кол, «Введите количество», 14, 3) = 0 Тогда
Возврат;
ИначеЕсли Кол = 0 Тогда
Возврат;
КонецЕсли;
НоваяСтрока();
Товар = ВыбрТовар;
Прейскурант=Партия.Прейску рант;
Сертификат=Партия.Сертифик ат;
ПредпрИзготовитель=Товар.П редприятиеИзготовитель;
СтранаПроисхождения=Товар. СтранаПроисхождения;
//Единица=Товар.ЕдиницаИзмер ения;
Количество = Кол;
НдСПр=Товар.СтавкаНДС.Полу� �ить(ДатаДок).Ставка;
Если партия.выбран()=1 Тогда
Если партия.ПервыйИмпортер=1 Тогда
Себестоимость=Партия.Себес тоимость;
ЦенаИзготовителя=Партия.Це наОтп;
ЦенаОтп=Партия.ЦенаОтп;
Иначе
Себестоимость=Партия.Себес тоимость;
ЦенаИзготовителя=Партия.Це наИзготовителя;
ЦенаОтп=Партия.ЦенаОтп;
КонецЕсли;
//Надб=Партия.Надб;
//НадбавкаДругая=Партия.Надб авкаДругая;
Пересчет(«Товар»);
Пересчет2(); //Расчет надбавок
Иначе
//Себ=0;
//Если ВвестиЧисло(Себ, «Введите Себестоимость», 16, 2) = 0 Тогда
// Себестоимость=Себ;
//Иначе
Себестоимость=0;
//КонецЕсли;
//ЦенаИз=0;
//Если ВвестиЧисло(ЦенаИз, «Введите Цену Изготовителя», 16, 2) = 0 Тогда
// ЦенаИзготовителя=ЦенаИз;
//Иначе
ЦенаИзготовителя=0;
//КонецЕсли;
//ЦенаОп=0;
//Если ВвестиЧисло(ЦенаОп, «Введите Цену Оптовую», 16, 2) = 0 Тогда
// ЦенаОптовая=ЦенаОп;
//Иначе
ЦенаОптовая=0;
//КонецЕсли;
//НадбДр=0;
//НадбДр=0;
КонецЕсли;
Поле агрегатного объекта не обнаружено (Товар)
Здравствуйте!
Сразу оговорюсь, я не программист, я бухгалтер. Сегодня почему-то перестала работать обработка, печатающая товарный отчет ТОРГ-29. Вот что, пишет при попытке сформировать его:
Если Док.Товар=Ит.Операция.Дебет.Субконто(1) Тогда
Помогите! Что это может быть. Раньше обработка работала.
Максим, отчет делаю по документам поступления и реализации.
Tatitutu, (4) так вот найди там 55 строку и напиши код сдесь всей процедуры или функции строка принадлежащую.
Можно попонятнее, что надо сделать. Откуда взять этот код?
Tatitutu, Если Док.Товар=Ит.Операция.Дебет.Субконто(1) Тогда
Это все, что написано в этой строке.
Вот весь модуль обработки:
Процедура Сформировать()
Если ПустоеЗначение(Товар)=1 Тогда
Предупреждение(«Выберите товар»);
СтатусВозврата(0);
Возврат;
КонецЕсли;
Состояние(«Инициализация. «);
Приход=СоздатьОбъект(«ТаблицаЗначений»);
Приход.НоваяКолонка(«Документ», «Документ»);
Приход.НоваяКолонка(«Товар», «Справочник.Номенклатура»);
Приход.НоваяКолонка(«Цена», «Число», 15, 2);
Приход.НоваяКолонка(«Количество», «Число», 14, 3);
Приход.НоваяКолонка(«Сумма», «Число», 15, 2);
Расход=СоздатьОбъект(«ТаблицаЗначений»);
Расход.НоваяКолонка(«Документ», «Документ»);
Расход.НоваяКолонка(«Товар», «Справочник.Номенклатура»);
Расход.НоваяКолонка(«Количество», «Число», 14, 3);
Расход.НоваяКолонка(«Цена», «Число», 14, 3);
Рез=СоздатьОбъект(«ТаблицаЗначений»);
Рез.НоваяКолонка(«Документ», «Документ»);
Рез.НоваяКолонка(«Товар», «Справочник.Номенклатура»); // здесь не использутся, оставлено на будущее
Рез.НоваяКолонка(«Цена», «Число», 15, 2); // здесь не использутся, оставлено на будущее
Рез.НоваяКолонка(«Количество», «Число», 14, 3); // здесь не использутся, оставлено на будущее
Рез.НоваяКолонка(«Сумма», «Число», 15, 2);
Ит = СоздатьОбъект(«БухгалтерскиеИтоги»);
Ит.ИспользоватьПланСчетов(ОсновнойПланСчетов());
Ит.ИспользоватьСубконто(«Номенклатура»,Товар);
Ит.ВыполнитьЗапрос(Дата(1980,1,1), ВыбКонПериода, «41». 1, «Проводка», «СК»);
Состояние(«Анализ прихода. «);
// Подготавливаем приход
Ит.ВыбратьПериоды();
Пока Ит.ПолучитьПериод() = 1 Цикл
Если Ит.Операция.Дебет.Счет.ПринадлежитГруппе(СчетПоКоду(«41»))=1 Тогда
Док=Ит.Операция.Документ;
Док.ВыбратьСтроки();
Пока Док.ПолучитьСтроку()=1 Цикл
Если Док.Товар=Ит.Операция.Дебет.Субконто(1) Тогда
Приход.НоваяСтрока(1);
Приход.Документ=Док;
Приход.Товар=Док.Товар;
Приход.Цена=Док.Цена;
Если Док.ВариантРасчетаНалогов.СуммаВключаетНДС=1 Тогда
Приход.Цена=Приход.ЦенаЦена*5/6;
КонецЕсли;
Если Док.ВариантРасчетаНалогов.СуммаВключаетНП=1 Тогда
Приход.Цена=Приход.Цена/1.05;
КонецЕсли;
Приход.Количество=Док.Количество;
Приход.Сумма=Приход.Цена*Приход.Количество;
Прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
Состояние(«Группировка прихода. «);
Приход.Свернуть(«Документ,Товар,Цена», «Количество,Сумма»);
ПриходДляПечати=СоздатьОбъект(«ТаблицаЗначений»);
Приход.Выгрузить(ПриходДляПечати);
Состояние(«Анализ расхода. «);
// Подготавливаем расход
Ит.ВыбратьПериоды();
Пока Ит.ПолучитьПериод() = 1 Цикл
Если Ит.Операция.Кредит.Счет.ПринадлежитГруппе(СчетПоКоду(«41»))=1 Тогда
стр=0; кол=0;
Если Расход.НайтиЗначение(Ит.Операция.Документ, стр, кол)=0 Тогда
Док=Ит.Операция.Документ;
Док.ВыбратьСтроки();
Пока Док.ПолучитьСтроку()=1 Цикл
Расход.НоваяСтрока();
Расход.Документ=Док.ТекущийДокумент();
Расход.Товар=Док.Товар;
Расход.Количество=Док.Количество;
Расход.Цена=Док.Цена;
КонецЦикла;
КонецЕсли;
КонецЕсли;
КонецЦикла;
// Вычитаем расход из прихода и формируем новый расход с приходными ценами
ВсегоОбработать=Расход.КоличествоСтрок();
Пока Расход.КоличествоСтрок()>0 Цикл
Состояние(«Расчет результирующей таблицы. Выполнено «+(ВсегоОбработать-Расход.КоличествоСтрок())+» из «+ВсегоОбработать);
Расход.ПолучитьСтрокуПоНомеру(1);
стр=0; кол=0;
Если Приход.НайтиЗначение(Расход.Товар, стр, кол)=1 Тогда
Приход.ПолучитьСтрокуПоНомеру(стр);
Если Расход.Количество = Приход.Количество Тогда
Рез.НоваяСтрока();
Рез.Документ=Расход.Документ;
Рез.Товар=Расход.Товар;
Рез.Цена=Расход.Цена;
Рез.Количество=Приход.Количество;
Рез.Сумма=Рез.Цена*Рез.Количество;
Расход.Количество=Расход.Количество-Приход.Количество;
Приход.Количество=0;
КонецЕсли;
Иначе
Расход.УдалитьСтроку(1);
КонецЕсли;
Если Приход.Количество=0 Тогда
Приход.УдалитьСтроку(стр);
КонецЕсли;
Если Расход.Количество=0 Тогда
Расход.УдалитьСтроку(1);
КонецЕсли;
КонецЦикла;
Состояние(«Группировка результатов. «);
Рез.Свернуть(«Документ»,»Сумма,Количество»);
Состояние(«Формирование печатной формы. «);
// Формируем печатную форму
Таб=СоздатьОбъект(«Таблица»);
Таб.ИсходнаяТаблица(«Отчет»);
Таб.ВывестиСекцию(«Шапка»);
БИ=СоздатьОбъект(«БухгалтерскиеИтоги»);
БИ.Рассчитать(ВыбНачПериода,ВыбКонПериода);
ОстатокНачала=БИ.СНД(«41″,»С»,,Товар);
ОстатокНачалаКолво=БИ.СНД(«41″,»К»,,Товар);
ВсегоДоков=0;
Ит.ИспользоватьСубконто(«Номенклатура»,Товар);
Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, «41». 1, «Проводка», «СК»);
//ОстатокНачала=Ит.СНД();
//ОстатокНачалаКолво=Ит.СНД(«К»);
ПриходДляПечати.Свернуть(«Документ», «Сумма,Количество»);
ПриходДляПечати.ВыбратьСтроки();
Пока ПриходДляПечати.ПолучитьСтроку() = 1 Цикл
Док=ПриходДляПечати.Документ;
СуммаДока=ПриходДляПечати.Сумма;
КолвоДока=ПриходДляПечати.Количество;
Если Док.ДатаДок>=ВыбНачПериода Тогда
ИтогоПриход=ИтогоПриход+СуммаДока;
ИтогоПриходКолво=ИтогоПриходКолво+КолвоДока;
Если Док.Вид()=»ПродажаВРозницу» Тогда
Стр=Строка(Док.ПредставлениеВида());
Иначе
Стр=Строка(Док.Контрагент);
КонецЕсли;
Таб.ВывестиСекцию(«Строка»);
ВсегоДоков=ВсегоДоков+1;
КонецЕсли;
КонецЦикла;
Таб.ВывестиСекцию(«ИтогоПриход»);
Таб.ВывестиСекцию(«ВсегоПриход»);
Таб.ВывестиСекцию(«ШапкаРасхода»);
ИтогоРасход=0;
ИтогоРасходКолво=0;
Рез.ВыбратьСтроки();
Пока Рез.ПолучитьСтроку()=1 Цикл
Док=Рез.Документ;
СуммаДока=Рез.Сумма;
КолвоДока=Рез.Количество;
Если Док.ДатаДок>=ВыбНачПериода Тогда
ИтогоРасход=ИтогоРасход+СуммаДока;
ИтогоРасходКолво=ИтогоРасходКолво+КолвоДока;
Если Док.Вид()=»ТоварныйЧек» Тогда
Стр=Строка(Док.ПредставлениеВида());
Иначе
Стр=Строка(Док.Контрагент);
КонецЕсли;
Таб.ВывестиСекцию(«Строка»);
ВсегоДоков=ВсегоДоков+1;
КонецЕсли;
КонецЦикла;
Таб.ВывестиСекцию(«ИтогоРасход»);
Таб.ВывестиСекцию(«ОстатокКонца»);
// Таб.ВывестиСекцию(«ВсегоРасход»);
Таб.ВывестиСекцию(«Подвал»);
Если ВсегоДоков=0 Тогда
Предупреждение(«За указанный период движения по сч. 41 отсутствуют.»+РазделительСтрок+»Отчет не будет сформирован!»);
Иначе
Таб.Показать(«Товарный отчет за период с за период с «+Формат(ВыбНачПериода,»ДДДММММГГГГ»)+» по «+Формат(ВыбКонПериода,»ДДДММММГГГГ»));
КонецЕсли;
КонецПроцедуры
Процедура ПриОткрытии()
ВыбНачПериода = НачалоПериодаБИ();
ВыбКонПериода = КонецПериодаБИ();
КонецПроцедуры
Максим, обычная бухгалтерия, последний релиз.