ТаблицаЗначений
Показывать по
10
20
40
сообщений
- 1
- 2
13.04.2011
13:22
#2
"неужели синтаксис-помощник запретели?
Для каждого СтрокаТЗ ИЗ ТЗ Цикл"
// Здесь что то делаем
КонецЦикла;
13.04.2011
14:02
#3
пора открывать курсы обучения встроенному языку 1С:Предприятие 8 через форум видимо
)))
13.04.2011
14:05
#4
"Ну да, народ вообще обленился! Вот только жалко, что денежного возмещения не будет. ;)"
13.04.2011
14:13
#5
Спасибо за помощь и за критику, у меня очередной вопрос, при выводе отчета не выводится последняя строчка, в чем я опять с тупила...............
13.04.2011
14:16
#6
Наверное в том, что не привела код! Я все же не телепат, чтобы вот так с ходу догадатся что ты там написала!?
13.04.2011
14:24
#7
"Процедура КнопкаСформироватьНажатие(Кнопка)
ТЗОбороты = Новый ТаблицаЗначений;
ТЗОбороты.Колонки.Добавить("Контрагент");
ТЗОбороты.Колонки.Добавить("ОбДт");
ТЗОбороты.Колонки.Добавить("ОбКт");
мТабДок = ЭлементыФормы.ДокументРезультат;
мТабДок.Очистить();
Макет = ЭтотОбъект.ПолучитьМакет("Макет");
//выведем заголовок
ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");
ОбластьМакета.Параметры.Организация = Организация;
ОбластьМакета.Параметры.ДатаНачала = НачПериода;
ОбластьМакета.Параметры.ДатаКонца = КонПериода;
мТабДок.Вывести(ОбластьМакета);
ОбластьМакета = Макет.ПолучитьОбласть("Шапка");
мТабДок.Вывести(ОбластьМакета);
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Дата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;"
ТЗОбороты = Новый ТаблицаЗначений;
ТЗОбороты.Колонки.Добавить("Контрагент");
ТЗОбороты.Колонки.Добавить("ОбДт");
ТЗОбороты.Колонки.Добавить("ОбКт");
мТабДок = ЭлементыФормы.ДокументРезультат;
мТабДок.Очистить();
Макет = ЭтотОбъект.ПолучитьМакет("Макет");
//выведем заголовок
ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");
ОбластьМакета.Параметры.Организация = Организация;
ОбластьМакета.Параметры.ДатаНачала = НачПериода;
ОбластьМакета.Параметры.ДатаКонца = КонПериода;
мТабДок.Вывести(ОбластьМакета);
ОбластьМакета = Макет.ПолучитьОбласть("Шапка");
мТабДок.Вывести(ОбластьМакета);
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Дата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;"
- 1
- 2
гонит отчет Анализ начислений налогов и взносовБухгалтерия 8 редакция 2.0 налоговый учет по счетам расчетов с контрагентами
Читают тему
(гостей: 1)