Вход | Регистрация

1С:Предприятие :: 1С:Предприятие 8 общая

Как заполнить табличную часть Word из ТЧ документа?

Как заполнить табличную часть Word из ТЧ документа?
Я
   SkillUp
 
04.07.18 - 10:01
Шапка заполнена, можно ли как-то через Вставка>закладка?
 
 
   SkillUp
 
1 - 04.07.18 - 10:01
Заолняю Шаблон макета в Word!!!!!
   Остап Сулейманович
 
2 - 04.07.18 - 10:05
(0) В Ворде нет табличных частей. В Ворде есть таблицы. И методы для работы с ними. Ну если мы говорим о Ворде, который их MSO.
Может у вас свой личный Ворд с табличными частями?
   SkillUp
 
3 - 04.07.18 - 10:09
(2) В Ворде есть таблицы - согласен! Как заполнить?!
   Масянька
 
4 - 04.07.18 - 10:10
(3) Код 7.7 - разгребай:

        КоммерческоеПредложение.ВыбратьСтроки();

        // заполнение таблицы номенклатуры        

        
        Для СчетчикЦикла = 1 По КоммерческоеПредложение.КоличествоСтрок() Цикл
            
            Если (СчетчикЦикла <> КоммерческоеПредложение.КоличествоСтрок()) Тогда
                мОбъект.Tables(2).Rows.Add(мОбъект.Tables(2).Rows(СчетчикЦикла));        // добавляем строку в конец таблицы

            КонецЕсли;
            
            КоммерческоеПредложение.ПолучитьСтрокуПоНомеру(СчетчикЦикла);
            
            мОбъект.Tables(2).Cell(СчетчикЦикла,1).Range.Text = КоммерческоеПредложение.НомерСтроки;
            мОбъект.Tables(2).Cell(СчетчикЦикла,2).Range.Text = СокрЛП(КоммерческоеПредложение.Номенклатура.ПолнНаименование);
            мОбъект.Tables(2).Cell(СчетчикЦикла,3).Range.Text = СокрЛП(Формат(КоммерческоеПредложение.Количество, "Ч010.2"));
            мОбъект.Tables(2).Cell(СчетчикЦикла,4).Range.Text = Строка(КоммерческоеПредложение.Единица);
            мОбъект.Tables(2).Cell(СчетчикЦикла,5).Range.Text = глФрм(КоммерческоеПредложение.Цена);
            мОбъект.Tables(2).Cell(СчетчикЦикла,6).Range.Text = глФрм(КоммерческоеПредложение.СуммаНДС);
            мОбъект.Tables(2).Cell(СчетчикЦикла,7).Range.Text = глФрм(КоммерческоеПредложение.Сумма);
        КонецЦикла;
        
        // итоги

        мОбъект.Tables(3).Cell(1,2).Range.Text = СокрЛП(Формат(КоммерческоеПредложение.Итог("Количество"), "Ч010.2"));
        мОбъект.Tables(3).Cell(1,5).Range.Text = глФрм(КоммерческоеПредложение.Итог("СуммаНДС"));
        мОбъект.Tables(3).Cell(1,6).Range.Text = глФрм(КоммерческоеПредложение.Итог("Сумма"));
        
        // итоговая строка

        мСтрокаВсего = Строковые.стрФразаПрописью(КоммерческоеПредложение.КоличествоСтрок(), "наименован") +
                       ", на сумму " + глСуммаПрописью(КоммерческоеПредложение.Итог("Сумма"), глРубли) + ".";
        мОбъект.Find.Execute("[СтрокаВсего]",0,0,,,,,,,СокрЛП(мСтрокаВсего),2);
   Serg_1960
 
5 - 04.07.18 - 10:13
Не надо "разгребать" - надо уметь пользоваться поиском :)
Например: http://catalog.mista.ru/public/65996/
   SkillUp
 
6 - 04.07.18 - 10:17
(4) (5)  СПАСИБО!

Список тем форума
Рекламное место пустует  Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Рекламное место пустует