Помогите разобраться с массивом

 Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ВложенныйЗапрос.НоменклатурнаяГруппа,
| СУММА(ВложенныйЗапрос.С01001) КАК С01001,
| СУММА(ВложенныйЗапрос.С01006) КАК С01006,
...
|ИЗ
| (ВЫБРАТЬ
|  НезавершенноеПроизводствоБухгалтерскийУчетОстатки.НоменклатурнаяГруппа КАК НоменклатурнаяГруппа,
|  ВЫБОР
|   КОГДА НезавершенноеПроизводствоБухгалтерскийУчетОстатки.СтатьяЗатрат В ИЕРАРХИИ (&СтатьиМатПокупные)
|	ТОГДА НезавершенноеПроизводствоБухгалтерскийУчетОстатки.СтоимостьОстаток
|   ИНАЧЕ 0
|  КОНЕЦ КАК С01001,
| ....
|";

Для Каждого Стр Из ТабЗатрат Цикл
  Если ТаблицаОпераций <> Неопределено Тогда
   СтрокиБаза = ТаблицаОпераций.НайтиСтроки(Новый Структура("НоменклатурнаяГруппа", Стр.НоменклатурнаяГруппа));
  Иначе
   СтрокиБаза = Неопределено;
  КонецЕсли;
  Если СтрокиБаза = Неопределено ИЛИ СтрокиБаза.Количество() = 0 Тогда
   Если ТабИзделий <> Неопределено Тогда
	СтрокиБаза = ТабИзделий.НайтиСтроки(Новый Структура("НоменклатурнаяГруппа", Стр.НоменклатурнаяГруппа));
	ПоказательБазы = "Количество";
   Иначе
	СтрокиБаза = Неопределено;
   КонецЕсли;
  Иначе
   ПоказательБазы = "Сумма";
  КонецЕсли;
  МассивКоэффициентов = Новый Массив;
  Если СтрокиБаза <> Неопределено Тогда
   Для Каждого Ст Из СтрокиБаза Цикл
	Если Ст[ПоказательБазы] <> 0 Тогда
	 МассивКоэффициентов.Добавить(Ст[ПоказательБазы]);
	КонецЕсли;
   КонецЦикла;
  КонецЕсли;

  Если МассивКоэффициентов.Количество() = 0 Тогда
   НовСтр = ТабРезультат.Добавить();
   ЗаполнитьЗначенияСвойств(НовСтр, Стр);
   НовСтр.Номенклатура = Стр.НоменклатурнаяГруппа;
  
   Продолжить;
  КонецЕсли;

  МассивСуммС01001 = ОбщегоНазначения.РаспределитьПропорционально(Стр.С01001, МассивКоэффициентов, 2, Ложь);
  МассивСуммС01006 = ОбщегоНазначения.РаспределитьПропорционально(Стр.С01006, МассивКоэффициентов, 2, Ложь);
  МассивСуммС02000 = ОбщегоНазначения.РаспределитьПропорционально(Стр.С02000, МассивКоэффициентов, 2, Ложь);
  МассивСуммС03000 = ОбщегоНазначения.РаспределитьПропорционально(Стр.С03000, МассивКоэффициентов, 2, Ложь);
  ...

  Ин = 0;
  Для Каждого Ст Из СтрокиБаза Цикл
   НовСтр = ТабРезультат.Добавить();
   НовСтр.Номенклатура = Ст.Номенклатура;
   НовСтр.ХарактеристикаНоменклатуры = Ст.ХарактеристикаНоменклатуры;
   НовСтр.НоменклатурнаяГруппа = Стр.НоменклатурнаяГруппа;
   НовСтр.С01001 = МассивСуммС01001[Ин];
   НовСтр.С01006 = МассивСуммС01006[Ин];
   НовСтр.С02000 = МассивСуммС02000[Ин];
   НовСтр.С03000 = МассивСуммС03000[Ин];
   ....
   СтрКол = ТабИзделий.НайтиСтроки(Новый Структура("Номенклатура, ХарактеристикаНоменклатуры", Ст.Номенклатура, Ст.ХарактеристикаНоменклатуры));
   Если СтрКол.Количество() > 0 Тогда
	НовСтр.Количество = СтрКол[0].Количество;
	НовСтр.ЕдиницаИзмерения = СтрКол[0].ЕдиницаИзмерения;
   КонецЕсли;
  
   Ин = Ин + 1;
  КонецЦикла;
КонецЦикла;

Возврат ТабРезультат;

Сообщение отредактировал Fart: 20 февраля 2012 - 07:06

Если МассивСуммС01001.Количество() = 0 Тогда  //или <>0 ... как там лучше-то...

Сообщение отредактировал uza: 20 февраля 2012 - 08:01

 МассивКоэффициентов = Новый Массив;
  Если СтрокиБаза <> Неопределено Тогда
   Для Каждого Ст Из СтрокиБаза Цикл
Если Ст[ПоказательБазы] <> 0 Тогда
  МассивКоэффициентов.Добавить(Ст[ПоказательБазы]);
КонецЕсли;
   КонецЦикла;
  КонецЕсли;

 
....
Для Каждого Ст Из СтрокиБаза Цикл
// добавила
   Если Ст[ПоказательБазы] = 0 Тогда
    Продолжить;
   КонецЕсли;
// добавила
   НовСтр = ТабРезультат.Добавить();
   НовСтр.Номенклатура = Ст.Номенклатура;
   НовСтр.ХарактеристикаНоменклатуры = Ст.ХарактеристикаНоменклатуры;
   НовСтр.НоменклатурнаяГруппа = Стр.НоменклатурнаяГруппа;
   НовСтр.С01001 = МассивСуммС01001[Ин];
   НовСтр.С01006 = МассивСуммС01006[Ин];
   НовСтр.С02000 = МассивСуммС02000[Ин];
....

KatrineKA (21 февраля 2012 - 15:03) писал: