Главбух - форум бухгалтеров, бухгалтерский форум про налоговый учет ОСНО, УСНО, ЕНВД, форум 1С. |
|
19.10.2011, 06:23 | #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); Таб.Показать("Сформировать"); КонецЦикла; |
21.10.2011, 21:25 | #2 |
Заблокирован
Регистрация: 10.12.2009
Адрес: Москва. Люблино
Сообщений: 211
Спасибо: 1
|
Re: Помогите с модулем
Выделите весь блок и нажмите ТЕКСТ - БЛОК - ФОРМАТИРОВАТЬ. Вы увидите, где незакрыты циклы или ЕСЛИ. Кроме того, если у Вас
//__________________________________________________ _* ТЗ = СоздатьОбъект("ТаблицаЗначений"); ТЗ.НоваяКолонка("Товар", "Справочник.Номенклатура"); и далее стоит после Конца процедуры, то этот кусок надо вернуть в процедуру. |
21.10.2011, 21:50 | #3 |
Модератор
Регистрация: 05.08.2009
Адрес: Первопрестольная
Сообщений: 25,854
Спасибо: 287
|
Re: Помогите с модулем
|
2020 | |
Glavbyh.ru |
|
|
|