profile="http://gmpg.org/xfn/11"> Как создать табличный документ в 1С:Предприятие без макета? | Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Как создать табличный документ в 1С:Предприятие без макета?

Как создать табличный документ в 1С:Предприятие без макета?
Табличный документ создаем при помощи конструктора. Данные получаем из результата запроса. Запрос выполняется к табличной части документа.
Такие исходные данные. Тогда программный код может быть таким:

Процедура ТабличныйДокументВ1СПредприятиеБезМакета()
	ТабДок=Новый ТабличныйДокумент;
	Итог = 0;
	Запрос = Новый Запрос;
	Запрос.Текст =
	"ВЫБРАТЬ
	|	РеализацияТоваровУслугТовары.Номенклатура,
	|	ПРЕДСТАВЛЕНИЕ(РеализацияТоваровУслугТовары.Номенклатура),
	|	РеализацияТоваровУслугТовары.Количество,
	|	РеализацияТоваровУслугТовары.Сумма
	|ИЗ
	|	Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары
	|ГДЕ
	|	РеализацияТоваровУслугТовары.Ссылка = &Ссылка";

	Запрос.УстановитьПараметр("Ссылка",ВыбДокумент);
	Результат = Запрос.Выполнить();
	К=2;
	ВыборкаДетальныеЗаписи = Результат.Выбрать();
	ТабДок.Область("R1"+"C1").Текст = "Накладная";
	ТабДок.Область("R2"+"C1").Текст = "Номенклатура";
	ТабДок.Область("R2"+"C2").Текст = "Количество";
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		ТабДок.Область("R"+(К+1)+"C1").Текст = ВыборкаДетальныеЗаписи.Номенклатура;
		ТабДок.Область("R"+(К+1)+"C2").Текст = ВыборкаДетальныеЗаписи.Количество;
		Итог = Итог+ВыборкаДетальныеЗаписи.Количество;
		К=К+1;
	КонецЦикла;
	ТабДок.Область("R"+(К+1)+"C1").Текст = "Итог:";
	ТабДок.Область("R"+(К+1)+"C2").Текст = Итог;
	Рамка = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 1);
	ТабДок.Область("R2C1:R2C2").Обвести(,Рамка,,Рамка);
	ТабДок.Область("R"+(К+1)+"C1:"+"R"+(К+1)+"C2").Обвести(,Рамка,,);
	ТабДок.ОтображатьСетку = Ложь;
	ТабДок.Показать();
КонецПроцедуры

Может вам интересно:
Как удалить все документы за определенный период (за определенную дату) в 1С:Предприятие 8.2?
Функция Формат (ТекЗначение,ФорматнаяСтрока) в 1С.
Функция СтрЧислоВхождений (ТекСтрока, ТекПодстрокаПоиска) в 1С.
Материалы в 1С
Режим записи документов в 1С

Комментарии запрещены.