ТаблицаЗначений

Новая тема
Показывать по 10 20 40 сообщений
Подскажите как из ТаблицыЗначений в цикле получить строки???????????????7
"неужели синтаксис-помощник запретели?


Для каждого СтрокаТЗ ИЗ ТЗ Цикл
   // Здесь что то делаем
КонецЦикла;
"
пора открывать курсы обучения встроенному языку 1С:Предприятие 8 через форум видимо :))))
"Ну да, народ вообще обленился! Вот только жалко, что денежного возмещения не будет. ;)"
Спасибо за помощь и за критику, у меня очередной вопрос, при выводе отчета не выводится последняя строчка, в чем я опять с тупила...............
Наверное в том, что не привела код! Я все же не телепат, чтобы вот так с ходу догадатся что ты там написала!?
"Процедура КнопкаСформироватьНажатие(Кнопка)
ТЗОбороты = Новый ТаблицаЗначений;
ТЗОбороты.Колонки.Добавить("Контрагент");
ТЗОбороты.Колонки.Добавить("ОбДт");
ТЗОбороты.Колонки.Добавить("ОбКт");
мТабДок = ЭлементыФормы.ДокументРезультат;
мТабДок.Очистить();
Макет = ЭтотОбъект.ПолучитьМакет("Макет");
//выведем заголовок
ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");
ОбластьМакета.Параметры.Организация = Организация;
ОбластьМакета.Параметры.ДатаНачала = НачПериода;
ОбластьМакета.Параметры.ДатаКонца = КонПериода;
мТабДок.Вывести(ОбластьМакета);
ОбластьМакета = Макет.ПолучитьОбласть("Шапка");
мТабДок.Вывести(ОбластьМакета);
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Дата1",НачалоДня(НачПериода));
Запрос.УстановитьПараметр("Дата2",КонецДня(КонПериода));
Запрос.УстановитьПараметр("Организация",Организация);
Запрос.Текст =
"ВЫБРАТЬ РАЗРЕШЕННЫЕ
| ХозрасчетныйДвиженияССубконто.Период,
| ХозрасчетныйДвиженияССубконто.Регистратор КАК Документ,
| ХозрасчетныйДвиженияССубконто.СчетДт,
| ХозрасчетныйДвиженияССубконто.СчетКт,
| ХозрасчетныйДвиженияССубконто.Организация,
| ХозрасчетныйДвиженияССубконто.Сумма,
| ХозрасчетныйДвиженияССубконто.СубконтоКт1,
| ХозрасчетныйДвиженияССубконто.СубконтоДт1
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.ДвиженияССубконто(&Дата1, &Дата2, Организация В (&Организация), , ) КАК ХозрасчетныйДвиженияССубконто
|ГДЕ
| (ХозрасчетныйДвиженияССубконто.Организация В (&Организация)
|   И ХозрасчетныйДвиженияССубконто.Регистратор ССЫЛКА Документ.РеализацияТоваровУслуг
|    И (ХозрасчетныйДвиженияССубконто.СчетДт.Код = """"62.01""""
|     ИЛИ ХозрасчетныйДвиженияССубконто.СчетДт.Код = """"62.02""""
|      И ХозрасчетныйДвиженияССубконто.СчетКт.Код = """"76.09"""")
|   ИЛИ ХозрасчетныйДвиженияССубконто.Регистратор ССЫЛКА Документ.ПоступлениеНаРасчетныйСчет
|    И (ХозрасчетныйДвиженияССубконто.СчетДт.Код = """"51""""
|     И ХозрасчетныйДвиженияССубконто.СчетКт.Код = """"62.01""""
|      ИЛИ ХозрасчетныйДвиженияССубконто.СчетКт.Код = """"62.02"""")
|   ИЛИ ХозрасчетныйДвиженияССубконто.Регистратор ССЫЛКА Документ.СписаниеСРасчетногоСчета
|    И (ХозрасчетныйДвиженияССубконто.СчетДт.Код = """"62.01""""
|     ИЛИ ХозрасчетныйДвиженияССубконто.СчетДт.Код = """"62.02""""
|      И ХозрасчетныйДвиженияССубконто.СчетКт.Код = """"51"""")
|   ИЛИ ХозрасчетныйДвиженияССубконто.Регистратор ССЫЛКА Документ.ОперацияБух
|    И (ХозрасчетныйДвиженияССубконто.СчетДт.Код = """"76.09""""
|               И  ХозрасчетныйДвиженияССубконто.СчетКт.Код = """"60.01"""" )
|
|СГРУППИРОВАТЬ ПО
| ХозрасчетныйДвиженияССубконто.Период,
| ХозрасчетныйДвиженияССубконто.Регистратор,
| ХозрасчетныйДвиженияССубконто.СчетДт,
| ХозрасчетныйДвиженияССубконто.СчетКт,
| ХозрасчетныйДвиженияССубконто.Организация,
| ХозрасчетныйДвиженияССубконто.СубконтоКт1,
| ХозрасчетныйДвиженияССубконто.СубконтоДт1,
| ХозрасчетныйДвиженияССубконто.Сумма";
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий()Цикл
НоваяСтрока = ТЗОбороты.Добавить();
 НоваяСтрока.Контрагент = Выборка.СубконтоДт1;
 НоваяСтрока.ОбДт = Выборка.Сумма;
ЗОбороты.Свернуть("Контрагент","ОбДт");
Сообщить("Свернул обороты");
Для каждого СтрокаТЗОбороты ИЗ ТЗОбороты Цикл
мТабДок.Вывести(ОбластьМакета);
ОбластьМакета = Макет.ПолучитьОбласть("Строка");
ОбластьМакета.Параметры.Контрагент = СтрокаТЗОбороты.Контрагент;
ОбластьМакета.Параметры.ОбДт = СтрокаТЗОбороты.ОбДт;
КонецЦикла;
мТабДок.ТолькоПросмотр = Истина;
мТабДок.ОтображатьСетку= Ложь;
мТабДок.ОтображатьЗаголовки = Ложь;
мТабДок.ФиксацияСверху = 4;"
я туплю или цикла два, а "конец цикла" в тексте один?
Цикла 2 не полностью перенесла.
"мТабДок.Вывести(ОбластьМакета);
должен быть перед КонецЦикла"
Читают тему
(гостей: 1)

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