|
Работа с ТЗ | ☑ | ||
---|---|---|---|---|
0
Black Dragon
12.12.13
✎
17:58
|
Доброго дня!
есть некая ТЗ, нужно исключить строку с номером 0 ТЗ = Новый ТаблицаЗначений; .... Для Каждого Стр ИЗ ТЗ Цикл Если ТЗ.Индекс(Стр) = 0 Тогда ...... Другие варианты имеются? |
|||
1
ДенисЧ
12.12.13
✎
17:59
|
тз.Удалить(тз[0])
|
|||
2
kvikster
12.12.13
✎
18:00
|
счетный цикл от 1 до количества
|
|||
3
МихаилМ
12.12.13
✎
18:00
|
ТЗ.Удалить(0);
|
|||
4
Black Dragon
12.12.13
✎
18:01
|
нельзя удалить, там специфические данные хранятся
|
|||
5
Wobland
12.12.13
✎
18:01
|
а чем она провинилась?
|
|||
6
Wobland
12.12.13
✎
18:01
|
(4) этоги штоль?
|
|||
7
Black Dragon
12.12.13
✎
18:02
|
нет, некое подобие заголовков колонок
колонки могут менять свои наименования, для этого |
|||
8
Wobland
12.12.13
✎
18:03
|
так и знал, что фигню изобрёл
|
|||
9
Black Dragon
12.12.13
✎
18:04
|
ну а как же без этого? :)
|
|||
10
Рэйв
12.12.13
✎
18:12
|
делай запрос без итогов. Чего опять через экватор на северный полюс то?6-)
|
|||
11
Classic
12.12.13
✎
18:24
|
(8)
Не помню где, но иногда заголовки не переносятся |
|||
12
Black Dragon
13.12.13
✎
09:55
|
(10) а запрос и так без итогов!
Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ХозрасчетныйОстатки.Счет КАК Счет, | ХозрасчетныйОстатки.Субконто1 КАК Номенклатура, | ХозрасчетныйОстатки.Организация КАК Организация, | ХозрасчетныйОстатки.КоличествоОстаток КАК Количество |ИЗ | РегистрБухгалтерии.Хозрасчетный.Остатки(&ДатаОстатков, Счет В ИЕРАРХИИ (&Счета), , ) КАК ХозрасчетныйОстатки |ГДЕ | ХозрасчетныйОстатки.Субконто1 В(&Номенклатура)"; СписокСчетов = Новый Массив; СписокСчетов.Добавить(ПланыСчетов.Хозрасчетный.НайтиПоКоду("10")); СписокСчетов.Добавить(ПланыСчетов.Хозрасчетный.НайтиПоКоду("41")); СписокСчетов.Добавить(ПланыСчетов.Хозрасчетный.НайтиПоКоду("43")); СписокТоваров = Новый Массив; Для Каждого Стр Из Объект.Товары Цикл СписокТоваров.Добавить(Стр.Номенклатура); КонецЦикла; Запрос.УстановитьПараметр("ДатаОстатков",Объект.Дата); Запрос.УстановитьПараметр("Счета",СписокСчетов); Запрос.УстановитьПараметр("Номенклатура",СписокТоваров); РезультатЗапроса = Запрос.Выполнить().Выгрузить(); РезультатЗапроса.Сортировать("Счет,Номенклатура,Организация"); // сформируем результирующую таблицу ТабИтогов = Новый ТаблицаЗначений; ТабИтогов.Колонки.Добавить("Номенклатура"); ТабИтогов.Колонки.Добавить("Фирма"); СписокСчетов = Новый Массив; Для Каждого Стр Из РезультатЗапроса Цикл Если ТабИтогов.Количество() = 0 Тогда // нет строк ТекСтрока = ТабИтогов.Добавить(); КонецЕсли; ИскЗнч = ТабИтогов.Найти(Стр.Счет); Если искЗнч = Неопределено Тогда НоваяКолонка = ТабИтогов.Колонки.Добавить(); ИндексКолонки = ТабИтогов.Колонки.Индекс(НоваяКолонка); ТекСтрока[ИндексКолонки] = Стр.Счет; СписокСчетов.Вставить(ИндексКолонки,Стр.Счет); КонецЕсли; КонецЦикла; РезультатЗапроса.Сортировать("Номенклатура,Организация"); Для Каждого Стр Из РезультатЗапроса Цикл ТекСтрока = ТабИтогов.Добавить(); ТекСтрока.Номенклатура = Стр.Номенклатура; ТекСтрока.Фирма = Стр.Организация; Инд = СписокСчетов.Найти(Стр.Счет); Если НЕ Инд = Неопределено Тогда ТекСтрока[Инд] = Стр.Количество; КонецЕсли; КонецЦикла; ТабИтогов.ВыбратьСтроку(); // выведем результат в табличный документ ТабДок = Новый ТабличныйДокумент; Макет = ПолучитьМакет("Макет"); СекцияШапка = Макет.ПолучитьОбласть("Шапка"); СекцияШапкаТаблицыНоменклатура = Макет.ПолучитьОбласть("загТабл|Номенклатура"); СекцияШапкаТаблицыСчета = Макет.ПолучитьОбласть("ЗагТабл|Счет"); СекцияШапка.Параметры.печДатаОстатков = Объект.Дата; СекцияШапка.Параметры.печНомерДок = Объект.Номер; СекцияШапка.Параметры.печДатаДок = Объект.Дата; ТабДок.Вывести(СекцияШапка); ТабДок.Вывести(СекцияШапкаТаблицыНоменклатура); Для Инд = 2 По СписокСчетов.Количество()-1 Цикл СекцияШапкаТаблицыСчета.Параметры.ПечСчет = СписокСчетов[Инд]; ТабДок.Присоединить(СекцияШапкаТаблицыСчета); КонецЦикла; СекцияСтрокаНоменклатура = Макет.ПолучитьОбласть("СтрокаНоменклатура|Номенклатура"); СекцияСтрокаОстатки = Макет.ПолучитьОбласть("СтрокаНоменклатура|Счет"); ТекТовар = Неопределено; Для Каждого Стр Из ТабИтогов Цикл Если НЕ ТабИтогов.Индекс(Стр) = 0 Тогда Если Стр.Номенклатура = ТекТовар Тогда // фирма СекцияФирма = Макет.ПолучитьОбласть("СтрокаФирма|Номенклатура"); СекцияФирма.Параметры.ПечФирма = Стр.Фирма; ТабДок.Вывести(СекцияФирма); СекцияФирмаКол = Макет.ПолучитьОбласть("СтрокаФирма|Счет"); СекцияФирмаКол.Параметры.ПечОст = Стр.Количество; ТабДок.Присоединить(СекцияФирмаКол); Иначе // номенклатура СекцияНоменклатура = Макет.ПолучитьОбласть("СтрокаНоменклатура|Номенклатура"); СекцияНоменклатура.Параметры.ПечНоменклатура = Стр.Номенклатура; ТабДок.Вывести(СекцияНоменклатура); СекцияНоменклатураКол = Макет.ПолучитьОбласть("СтрокаНоменклатура|Счет"); СекцияНоменклатураКол.Параметры.печКол = ""; ТабДок.Присоединить(СекцияНоменклатураКол); ТекТовар = Стр.Номенклатура; КонецЕсли; КонецЕсли; КонецЦикла; ТабДок.ТолькоПросмотр = Истина; ТабДок.Показать(); |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |