Главбух - форум бухгалтеров, бухгалтерский форум про налоговый учет ОСНО, УСНО, ЕНВД, форум 1С.


Вернуться   Главбух форум бухгалтеров, бухгалтерский форум Главбух по налогам, учету, 1С. > Автоматизация > Программы: 1C 7.7


Ответ
 
Опции темы Поиск в этой теме Опции просмотра
Старый 19.10.2011, 06:23   #1
статус: бухгалтер
 
Аватар для aleksandr-tymen
 
Регистрация: 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);
Таб.Показать("Сформировать");
КонецЦикла;
aleksandr-tymen вне форума   Ответить с цитированием
Старый 21.10.2011, 21:25   #2
Заблокирован
 
Регистрация: 10.12.2009
Адрес: Москва. Люблино
Сообщений: 211
Спасибо: 1
По умолчанию Re: Помогите с модулем

Выделите весь блок и нажмите ТЕКСТ - БЛОК - ФОРМАТИРОВАТЬ. Вы увидите, где незакрыты циклы или ЕСЛИ. Кроме того, если у Вас
//__________________________________________________ _*
ТЗ = СоздатьОбъект("ТаблицаЗначений");
ТЗ.НоваяКолонка("Товар", "Справочник.Номенклатура"); и далее

стоит после Конца процедуры, то этот кусок надо вернуть в процедуру.
dimalf вне форума   Ответить с цитированием
Старый 21.10.2011, 21:50   #3
Модератор
 
Аватар для Youlia
 
Регистрация: 05.08.2009
Адрес: Первопрестольная
Сообщений: 25,854
Спасибо: 287
По умолчанию Re: Помогите с модулем

Цитата:
Сообщение от dimalf Посмотреть сообщение
стоит после Конца процедуры
ооооо.... ееее..)))
Youlia вне форума   Ответить с цитированием
2020
Glavbyh.ru
Ответ



« Предыдущая тема | Следующая тема »

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Полезности: Что лучше: ООО или ИП? калькулятор НДС Книги по бухгалтерскому учету Иностранец в России: на что стоит обратить внимание при трудоустройстве
Какие понятия и определения используются в спорах о взыскании неосновательного обогащения в коттеджных поселках

Текущее время: 07:42. Часовой пояс GMT +3.


Реклама на форуме Главбух.ру

Правила форума


Goon Каталог сайтов
Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot