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