Как создать табличный документ в 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С