Консультация № 108370
07.11.2007, 10:27
0.00 руб.
0 1 1
Здравствуйте уважаемые эксперты! Бухгалтерия 7.7 типовая. Как мне сделать как в типовой Журнал-ордер по субконто, только если дебет. корр.счет 90.1, то ещё добавить столбцы по корсубконто (ВидыНоменклатуры)?

Приложение:
Процедура Сформировать_Колонки(Ит, Таб, Стр) Таб.ВывестиСекцию(Стр+"|Начало"); Ит.ВыбратьКорСчета(1, 1); Пока Ит.ПолучитьКорСчет() = 1 Цикл Таб.ПрисоединитьСекцию(Стр+"|КорСчет_Дт"); Ит.ВыбратьКорСубконто(, -1, 1); Пока Ит.ПолучитьКорСубконто() = 1 Цикл Таб.ПрисоединитьСекцию(Стр+"|КорСубконто1_Дт"); КонецЦикла; КонецЦикла; Таб.ПрисоединитьСекцию(Стр+"|Оборот_Дт"); Ит.ВыбратьКорСчета(1, 2); Пока Ит.ПолучитьКорСчет() = 1 Цикл Таб.ПрисоединитьСекцию(Стр+"|КорСчет_Кт"); Ит.ВыбратьКорСубконто(, -1, 2); Пока Ит.ПолучитьКорСубконто() = 1 Цикл Таб.ПрисоединитьСекцию(Стр+"|КорСубконто1_Кт"); КонецЦикла; КонецЦикла; Таб.ПрисоединитьСекцию(Стр+"|Оборот_Кт"); Таб.ПрисоединитьСекцию(Стр+"|Конец");КонецПроцедурыПроцедура Сформировать()Перем КорСч; Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Сформировать"); Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,, 1); Если КорСч="90.1.1" Тогда Сообщить("90"); Ит.ИспользоватьКорСубконто(ВидыСубконто.ВидыНоменклатуры,, 1); Иначе Ит.ИспользоватьКорСубконто(,, 1); КонецЕсли; Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "62.1",КорСч,, 3,, "С"); Таб.ВывестиСекцию("Заголовок"); Сформировать_Колонки(Ит, Таб, "Шапка"); Таб.Опции(0,0,Таб.ВысотаТаблицы(),0); Ит.ВыбратьСубконто(ВидыСубконто.Контрагенты); Пока Ит.ПолучитьСубконто(ВидыСубконто.Контрагенты) = 1 Цикл Сформировать_Колонки(Ит, Таб, "Субконто1"); КонецЦикла; Сформировать_Колонки(Ит, Таб, "Подвал"); Таб.ТолькоПросмотр(1); Таб.Показать("Сформировать","");КонецПроцедуры

Обсуждение

Неизвестный
07.11.2007, 11:38
общий
это ответ
Здравствуйте, Darina!

1. У Вас задается переменная КорСч и потом нигде не присваевается ей значение. Несмотря на это потом следует проверка <i>Если КорСч="90.1.1" Тогда</i> и эта же переменная используется в запросе. Если КорСч это реквизит диалога, то нужно удалить объявление переменной.
2. Судя по структуре отчета, Вы явно пользовались конструктором запросов, вся остальная часть вроде без ошибок.
Форма ответа