Проблема с выводом поставщиков, столбцы должны появлять в зависимости от самого большего количества поставщиков на одну номенклатуру,но максимум 3.
Счетчик=ТаблНомПост[3].Поставщик;
пока Счетчик<>0 Цикл
Область = ВхМакет.ПолучитьОбласть(_ИмяСекции + "|Поставщик");
Если _ИмяГр = "ОснПоставщик" тогда
СтруктураОтбора = Новый Структура("Номенклатура,ВариантИсполнения", ВхЗапрВыб.Номенклатура, ВхЗапрВыб.ВариантИсполнения);
МассивПост=ТаблНомПост.НайтиСтроки(СтруктураОтбора);
Сч=1;
Для Каждого стр из МассивПост цикл
//Область = ВхМакет.ПолучитьОбласть(_ИмяСекции + "|Поставщик");
Если _ИмяГр = "ОснПоставщик" Тогда
Область.Параметры.ЗначениеГрСтрПостав = стр.Поставщик;
ВхТаблДок.Присоединить(Область);
Сч=Сч+1;
КонецЕсли;
Если Сч = 3 Тогда
Прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;
Если _ИмяГр = "Номенклатура" тогда
Отбор=Новый Структура("Номенклатура",ВхЗапрВыб.Номенклатура);
МассивПост=ТаблНомПост.НайтиСтроки(Отбор);
Сч1=1;
Для Каждого стр из МассивПост цикл
//Область = ВхМакет.ПолучитьОбласть(_ИмяСекции + "|Поставщик");
Если _ИмяГр = "Номенклатура" И НЕ ВхЗапрВыб.РазрешитьНесколькоВариантовИсполнения
Тогда
Область.Параметры.ЗначениеГрСтрПостав = стр.НоменклатураПоставщика;
ВхТаблДок.Присоединить(Область);
Сч1=Сч1+1;
КонецЕсли;
Если Сч1 = 3 Тогда
Прервать;
КонецЕсли;
КонецЦикла;
// ВхТаблДок.Присоединить(Область);
КонецЕсли;
Если _ИмяГр = "Номенклатура" или _ИмяГр = "ВариантИсполнения" тогда
СтруктураОтбора = Новый Структура("Номенклатура,ВариантИсполнения", ВхЗапрВыб.Номенклатура, ВхЗапрВыб.ВариантИсполнения);
МассивПост=ТаблНомПост.НайтиСтроки(СтруктураОтбора);
Сч2=1;
Для Каждого стр из МассивПост цикл
//Область = ВхМакет.ПолучитьОбласть(_ИмяСекции + "|Поставщик");
Если _ИмяГр = "Номенклатура" Тогда
Область.Параметры.ЗначениеГрСтрПостав = стр.НоменклатураПоставщика;
ВхТаблДок.Присоединить(Область);
Сч2=Сч2+1
Иначе Если
_ИмяГр = "ВариантИсполнения" тогда
Область.Параметры.ЗначениеГрСтрПостав = стр.ВариантИсполненияПоставщика;
ВхТаблДок.Присоединить(Область);
Сч2=Сч2+1
КонецЕсли;
КонецЕсли;
Если Сч2 = 3 Тогда
Прервать;
КонецЕсли;
//ВхТаблДок.Присоединить(Область);
КонецЦикла;
//ВхТаблДок.Присоединить(Область);
КонецЕсли;
//ВхТаблДок.Присоединить(Область);
Счетчик=Счетчик-1;
КонецЦикла;
ПоказатьПрикрепленные файлы:
По теме из базы знаний
- Отчёт на разных листах (а-ля EXCEL), управляемые формы + выгрузка в Excel без COM
- "Меньше копипаста!", или как Вася универсальную процедуру писал
- Программная корректировка при выводе отчета СКД
- Отражение зарплаты в бухучете: вывод изменений при перезаполнении и свертка таблиц
- Чтоб в СКД по таблице значений был порядок!
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот