Главбух - форум бухгалтеров, бухгалтерский форум про налоговый учет ОСНО, УСНО, ЕНВД, форум 1С. |
![]() |
#1 |
статус: бухгалтер
Регистрация: 26.01.2011
Адрес: Новый Уренгой
Сообщений: 30
Спасибо: 0
|
![]()
подскажите что не так в модуле выдает ошибку
Таб.Показать("Сформировать");<<?>> {Отчет.ДвижениеТоваров.Форма.Модуль(79)}: Обнаружено логическое завершение исходного текста модуля вот модуль //******************************************* Процедура Сформировать() Док = СоздатьОбъект("Документ"); Док.ВидыДляВыбора("ПоступлениеТМЦ, РеализацияТМЦ"); Док.ВыбратьДокументы(НачДата, КонДата); Пока Док.ПолучитьДокумент() = 1 Цикл Если Док.Проведен() = 1 Тогда Если Док.Вид() = "ПоступлениеТМЦ" Тогда Движение = "Поступление "; Иначе Движение = "Списание "; КонецЕсли; Док.ВыбратьСтроки(); Пока Док.ПолучитьСтроку() = 1 Цикл Сообщить(Движение + "товара:" + Док.Товар + СимволТабуляции + "Количество: " + Док.Количество); КонецЦикла; КонецЕсли; КонецЦикла; КонецПроцедуры //__________________________________________________ _* ТЗ = СоздатьОбъект("ТаблицаЗначений"); ТЗ.НоваяКолонка("Товар", "Справочник.Номенклатура"); ТЗ.НоваяКолонка("Покупка", "Число", "10", "2"); ТЗ.НоваяКолонка("Продажа", "Число", "10", "2"); ТЗ.НоваяКолонка("СуммаПокупки", "Число","10", "2"); ТЗ.НоваяКолонка("СуммаПродажи", "Число","10", "2"); Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Сформировать"); Таб.ВывестиСекцию("Шапка"); Таб.Опции(0,0,Таб.ВысотаТаблицы(),0); Док = СоздатьОбъект("Документ"); Док.ВидыДляВыбора("ПокупкаТМЦ, РеализацияТМЦ"); Док.ВыбратьДокументы(НачДата, КонДата); Пока Док.ПолучитьДокумент() = 1 Цикл Если Док.Проведен() = 1 Тогда Док.ВыбратьСтроки(); Пока Док.ПолучитьСтроку() = 1 Цикл ТЗ.НоваяСтрока(); ТЗ.Товар = Док.Товар; Если Док.Вид() = "ПоступлениеТМЦ" Тогда ТЗ.Покупка = Док.Количество; ТЗ.СуммаПокупки = Док.Стоимость; Иначе ТЗ.Продажа = Док.Количество; ТЗ.СуммаПродажи = Док.Стоимость КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла; ТЗ.Свернуть("Товар", "Покупка, Продажа, СуммаПокупки, СуммаПродажи"); ТЗ.ВыбратьСтроки(); Пока ТЗ.ПолучитьСтроку() = 1 Цикл НомерСтроки = 0; Товар = ТЗ.Товар; КолвоПок = ТЗ.Покупка; КолвоПрод = ТЗ.Продажа; СуммаПок = ТЗ.СуммаПокупки; СуммаПрод = ТЗ.СуммаПродажи; Таб.ВывестиСекцию("Товар"); КонецЦикла; ИтогоКолвоПок = ТЗ.Итог("Покупка"); ИтогоКолвоПрод = ТЗ.Итог("Продажа"); ИтогоСуммаПок = ТЗ.Итог("СуммаПокупки"); ИтогоСуммаПрод = ТЗ.Итог("СуммаПродажи"); Таб.ВывестиСекцию("Подвал"); Таб.ТолькоПросмотр(1); Таб.Показать("Сформировать"); КонецЦикла; |
![]() |
![]() |
Опции темы | Поиск в этой теме |
Опции просмотра | |
|
|