Вывод в табличный документ ячеек с объединение по группировке

Группировка измерений в заголовках СКД
Пример переноса справочников, документов и движений через Эксель и "Конвертацию данных 2" из оптовой учетной системы 1С 7.7 Комплексной 4.2 и розничной учетной системы Рарус Торговый комплекс -> в 1С 8.3 ЕРП 2.4 (расширение и дополнительные реквизиты)
Программная корректировка при выводе отчета СКД
По-настоящему свои макеты в отчетах СКД. Исследование процесса компоновки и генерация кода отчета
Модель СКД

2. dhurricane 25.05.19 07:41 Сейчас в теме

(1) Принцип простой, как если бы мы это делали вручную: сначала выводим строки как есть, а затем объединяем ячейки с одинаковой номенклатурой. Примерно так:

НомерКолонкиТовара = 1;

Пока ВыборкаПоТоварам.Следующий() Цикл

	// Запоминаем, сколько строк уже вывели в отчет до сих пор.
	ПерваяСтрока = ДокументРезультат.ВысотаТаблицы + 1;
	
	// Выводим все документы по номенклатуре в отчет.
	ВыборкаПоПартиям = ВыборкаПоТоварам.Выбрать();
	Пока ВыборкаПоПартиям.Следующий() Цикл
	
		ОбластьСтроки.Параметры.Заполнить(ВыборкаПоПартиям);
		ДокументРезультат.Вывести(ОбластьСтроки);
		
	КонецЦикла;
	
	// Объединяем ячейки номенклатуры
	ПоследняяСтрока = ДокументРезультат.ВысотаТаблицы;
	
	Если ПерваяСтрока <> ПоследняяСтрока Тогда
		Ячейки = ДокументРезультат.Область(ПерваяСтрока, НомерКолонкиТовара, ПоследняяСтрока, НомерКолонкиТовара);
		Ячейки.Объединить();
	КонецЕсли;
	
КонецЦикла;

Показать

2. dhurricane 25.05.19 07:41 Сейчас в теме

(1) Принцип простой, как если бы мы это делали вручную: сначала выводим строки как есть, а затем объединяем ячейки с одинаковой номенклатурой. Примерно так:

НомерКолонкиТовара = 1;

Пока ВыборкаПоТоварам.Следующий() Цикл

	// Запоминаем, сколько строк уже вывели в отчет до сих пор.
	ПерваяСтрока = ДокументРезультат.ВысотаТаблицы + 1;
	
	// Выводим все документы по номенклатуре в отчет.
	ВыборкаПоПартиям = ВыборкаПоТоварам.Выбрать();
	Пока ВыборкаПоПартиям.Следующий() Цикл
	
		ОбластьСтроки.Параметры.Заполнить(ВыборкаПоПартиям);
		ДокументРезультат.Вывести(ОбластьСтроки);
		
	КонецЦикла;
	
	// Объединяем ячейки номенклатуры
	ПоследняяСтрока = ДокументРезультат.ВысотаТаблицы;
	
	Если ПерваяСтрока <> ПоследняяСтрока Тогда
		Ячейки = ДокументРезультат.Область(ПерваяСтрока, НомерКолонкиТовара, ПоследняяСтрока, НомерКолонкиТовара);
		Ячейки.Объединить();
	КонецЕсли;
	
КонецЦикла;

Показать