вторую » Поиск

Результаты по ключевому слову: вторую

Перестал работать поиск в документах, справочниках и журналах Категория: 1С Общие вопросы - Управляемые формы и Такс…

Табличная часть ~ Как настроить отбор строк?

Часто возникает задача показать только нужные строки в табличной части документа или справочника (или другого объекта). Для этого можно использовать замечательное свойство:

в обычном приложении параметр для ОтборСтрок - Отбор...

в управляемом приложении - ФиксированнаяСтруктура

ОтборСтрок, которое входит в расширение табличного поля, связанного с табличной частью.

Управляемые формы

Код 1C v 8.3

 СписокЗаказовНаФорме.ОтборСтрок = Новый ФиксированнаяСтруктура("Клиент", СписокЗаказовНаФорме.ТекущиеДанные.Клиент);

пример:

Код 1C v 8.3

 СписокЗаказовНаФорме = ЭтаФорма.Элементы.СписокЗаказов; 

ТекНомер = Неопределено; 

Для НомерСтроки = 0 По СписокЗаказов.Количество()-1 Цикл 

Сообщение = Новый СообщениеПользователю; 

Если СписокЗаказовНаФорме.ПроверитьСтроку(НомерСтроки) Тогда 

СписокЗаказовНаФорме.ТекущаяСтрока = НомерСтроки; 

Если ТекНомер = Неопределено Тогда 

Если ЗначениеЗаполнено(СписокЗаказовНаФорме.ТекущиеДанные.Машина) Тогда 

ТекНомер = СписокЗаказовНаФорме.ТекущиеДанные.Машина; 

Иначе 

Сообщение = Новый СообщениеПользователю; 

Сообщение.Текст = "Установите нужный номер автомобиля в первой строке списка"; 

Сообщение.Поле = "СписокЗаказов[" + НомерСтроки + "].Машина"; 

Сообщение.Сообщить(); 

СписокЗаказовНаФорме.ОтборСтрок = Новый ФиксированнаяСтруктура("Клиент", СписокЗаказовНаФорме.ТекущиеДанные.Клиент); 

Возврат; 

КонецЕсли; 

Иначе 

СписокЗаказовНаФорме.ТекущиеДанные.Машина = ТекНомер; 

КонецЕсли; 

КонецЕсли; 

КонецЦикла;

или такой динамический отбор

Код 1C v 8.3

 ЭлементОтбора = Список.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));

ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ИмяПоляОтбора");

ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;

ЭлементОтбора.Использование = Истина;

ЭлементОтбора.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Недоступный;

ЭлементОтбора.ПравоеЗначение = ЗначениеПоляОтбора;





//очистка отбора (подставьте свои элементы) 

&НаКлиенте

Процедура ОчиститьОтбор(Команда)

    этаформа.Список.Отбор.Элементы.Очистить();

КонецПроцедуры

Обычные формы

Использовать его очень просто:

Код 1C v 8.х

 //установить отбор 

ЭлементыФормы.ИмяТабПоля.ОтборСтрок.Колонка1.Установить(ЗначениеОтбора); 



//отключить отбор 

ЭлементыФормы.ИмяТабПоля.ОтборСтрок.Колонка1.Установить(,Ложь);

или 2-й вариант:

Код 1C v 8.х

 ЭлементыФормы.ИмяТабПоля.ОтборСтрок.Колонка1.Использование = Истина; 

ЭлементыФормы.ИмяТабПоля.ОтборСтрок.Колонка1.ВидСравнения = ВидСравнения.Равно; 

ЭлементыФормы.ИмяТабПоля.ОтборСтрок.Колонка1.Значение = ЗначениеОтбора;

А теперь конкретные примеры:

Код 1C v 8.х

 //выбрать строки с ценой = 100 

ЭлементыФормы.тпТовары.ОтборСтрок.Цена.Установить(100); 



-------- 

//выбрать строки с ценой 100 и опр. валютой 

ЭлементыФормы.тпТовары.ОтборСтрок.Валюта.Установить(ВалютаУпр); 

ЭлементыФормы.тпТовары.ОтборСтрок.Цена.Установить(200); 



-------- 

//выбрать строки с ценой >= 100 (неравенство) 

ЭлементыФормы.тпТовары.ОтборСтрок.Цена.Использование = Истина; 

ЭлементыФормы.тпТовары.ОтборСтрок.Цена.ВидСравнения = ВидСравнения.БольшеИлиРавно; 

ЭлементыФормы.тпТовары.ОтборСтрок.Цена.Значение = 100; 



-------- 

//выбрать строки с ценой от 100 до 200 (интервал) 

ЭлементыФормы.тпТовары.ОтборСтрок.Цена.Использование = Истина; 

ЭлементыФормы.тпТовары.ОтборСтрок.Цена.ВидСравнения = ВидСравнения.Интервал; 

ЭлементыФормы.тпТовары.ОтборСтрок.Цена.ЗначениеС = 100; 

ЭлементыФормы.тпТовары.ОтборСтрок.Цена.ЗначениеПо = 200; 



-------- 

//выбрать строки с определенными товарами по списку 



ЭлементыФормы.тпТовары.ОтборСтрок.Товар.Использование = Истина; 

ЭлементыФормы.тпТовары.ОтборСтрок.Товар.ВидСравнения = ВидСравнения.ВСписке; 

ЭлементыФормы.тпТовары.ОтборСтрок.Товар.Значение.Добавить(Товар1); 

ЭлементыФормы.тпТовары.ОтборСтрок.Товар.Значение.Добавить(Товар2);

Подчиненные табличные части в 8.х

С помощью свойства ОтборСтрок можно реализовать подчиненные (связанные) табличные части. При смене текущей строки в первой табличной части вторая табличная часть показывает только связанную информаци. Например, таким образом можно реализовать работу с комплектами: 1-я таб. часть - комплекты, вторая - состав комплекта.

Во второй табличной части должна быть колонка - идентификационный признак, связывающий ее с первой табличной частью. Таких колонок может быть несколько (составной ключ);

В событии ПриАктивизацииСтроки для первого табличного поля пишем:

Код 1C v 8.х

 ЭлементыФормы.СоставКомплекта.ОтборСтрок.Комплект.Установить(Комплект);

При добавлении новой строки во вторую табличную часть, нужно следить за тем, чтобы идентификационная колонка была установлена.

Обращаю ваше внимание, что при таком отборе не используются индексы и для больших табличных частей возможно замедление работы.
Еще раз напомню, что ОтборСтрок входит в расширение табличного поля табличной части, т.е. табличное поле должно быть связано с табличной частью. Если же оно связано с динамическим списком типа СправочникСписок, то здесь нужно использовать свойство Отбор для объекта типа СправочникСписок.

Если понадобилось перебрать строки, вошедшие в отбор, то это можно сделать, только заново перебрав все строки и проверив условие отбора для каждой строки. Перебрать строки табличного поля, которые сейчас на экране - невозможно.

Категория: Работа с Формой (Диалог) и её элементами

Как заполнить табличную часть формы программно?

Нужно по кнопке Заполнить - сформировать данные для заполнения табличных частей и заполнить их.

Форма имеет вид:

Рядом с кнопкой Записать и закрыть добавлена кнопка Заполнить документ, код ее команды:

Код 1C v 8.2 УП

 // Код заполнения ТЧ

&НаСервере

Процедура ЗаполнитьДокументНаСервере()

	ДокОбъект = РеквизитФормыВЗначение("Объект");

	Запрос = Новый Запрос;

	Запрос.Текст = 

		"ВЫБРАТЬ РАЗЛИЧНЫЕ

		|	ЗаказНаПроизводствоПродукция.Ссылка КАК ЗаказНаПроизводство,

		|	СпецификацииОперации.Операция,

		|	СпецификацииОперации.W1C_КоличествоОпераций,

		|	СпецификацииОперации.W1C_СтоимостьОднойОперации

		|ПОМЕСТИТЬ втЗаказОперацияСумма

		|ИЗ

		|	Документ.ЗаказНаПроизводство.Продукция КАК ЗаказНаПроизводствоПродукция

		|		ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Спецификации.Операции КАК СпецификацииОперации

		|		ПО ЗаказНаПроизводствоПродукция.Спецификация = СпецификацииОперации.Ссылка

		|ГДЕ

		|	ЗаказНаПроизводствоПродукция.Ссылка В

		|			(ВЫБРАТЬ РАЗЛИЧНЫЕ

		|				W1C_ОтчетПоВыработкеНачисления.ЗаказПроизводство

		|			ИЗ

		|				Документ.W1C_ОтчетПоВыработке.Начисления КАК W1C_ОтчетПоВыработкеНачисления

		|			ГДЕ

		|				W1C_ОтчетПоВыработкеНачисления.Ссылка.Дата МЕЖДУ &ДатаН И &ДатаК)

		|;

		|

		|////////////////////////////////////////////////////////////////////////////////

		|ВЫБРАТЬ

		|	W1C_ОтчетПоВыработкеНачисления.Ссылка.Организация,

		|	W1C_ОтчетПоВыработкеНачисления.Ссылка.Сотрудник,

		|	W1C_ОтчетПоВыработкеНачисления.ЗаказПроизводство,

		|	W1C_ОтчетПоВыработкеНачисления.Операция,

		|	W1C_ОтчетПоВыработкеНачисления.КоличествоПродукции КАК Количество,

		|	втЗаказОперацияСумма.W1C_СтоимостьОднойОперации КАК Цена,

		|	W1C_ОтчетПоВыработкеНачисления.Ссылка КАК ОтчетПоВыработке,

		|	втЗаказОперацияСумма.W1C_СтоимостьОднойОперации * W1C_ОтчетПоВыработкеНачисления.КоличествоПродукции КАК Сумма

		|ИЗ

		|	Документ.W1C_ОтчетПоВыработке.Начисления КАК W1C_ОтчетПоВыработкеНачисления

		|		ЛЕВОЕ СОЕДИНЕНИЕ втЗаказОперацияСумма КАК втЗаказОперацияСумма

		|		ПО W1C_ОтчетПоВыработкеНачисления.ЗаказПроизводство = втЗаказОперацияСумма.ЗаказНаПроизводство

		|			И W1C_ОтчетПоВыработкеНачисления.Операция = втЗаказОперацияСумма.Операция

		|ГДЕ

		|	W1C_ОтчетПоВыработкеНачисления.Ссылка.Дата МЕЖДУ &ДатаН И &ДатаК

		|	И W1C_ОтчетПоВыработкеНачисления.Ссылка.Организация = &Организация";





	Запрос.УстановитьПараметр("ДатаК", КонецМесяца(ДокОбъект.ПериодРегистрации));

	Запрос.УстановитьПараметр("ДатаН", НачалоМесяца(ДокОбъект.ПериодРегистрации));

	Запрос.УстановитьПараметр("Организация", ДокОбъект.Организация);





	РезультатЗапроса = Запрос.Выполнить();

	ДокОбъект.Рассчет.Загрузить(Запрос.Выполнить().Выгрузить());

	ОбновитьВыплату(ДокОбъект); //заполним данными вторую ТЧ

	ЗначениеВРеквизитФормы(ДокОбъект, "Объект");



КонецПроцедуры



&НаСервере

Процедура ОбновитьВыплату(ДокОбъект)

врТЗ = ДокОбъект.Рассчет.Выгрузить();

врТЗ.свернуть("Сотрудник","Сумма");

ДокОбъект.Начисления.Загрузить(врТЗ);

КонецПроцедуры

Второй вариант заполнения: Имеем ТЧ на форме, которую необходимо программно заполнить

и код в модуле документа:

Код 1C v 8.2 УП

 &НаСервере

 Процедура НайтиТопливоф()

    Запрос = Новый Запрос;

    Запрос.Текст = 

        "ВЫБРАТЬ

        |   СУММА(ПродажаТоплива.Номер) КАК Номер,

        |   ПродажаТоплива.ТипТоплива,

        |   СУММА(ПродажаТоплива.Количество) КАК Количество,

        |   СУММА(ПродажаТоплива.СуммаСНДС) КАК СуммаСНДС

        |ИЗ

        |   Документ.ПродажаТоплива КАК ПродажаТоплива

        |ГДЕ

        |   ПродажаТоплива.Цена <= &Цена

        |

        |СГРУППИРОВАТЬ ПО

        |   ПродажаТоплива.ТипТоплива";

 

    Запрос.УстановитьПараметр("Цена", Объект.Цена);

 

    Результат = Запрос.Выполнить();

     ВыборкаДетальныеЗаписи = Результат.Выбрать();

    Объект.ТЧ.Очистить();

    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл  

 	 НовСтр = Объект.ТЧ.Добавить();

         ЗаполнитьЗначенияСвойств(НовСтр, ВыборкаДетальныеЗаписи); //при условии что имена полей ТЧ и выборки совпадают

    КонецЦикла;

КонецПроцедуры

Категория: Управляемое приложение, Тонкий клиент

Полезные сведения о языке запросов 1С 8.х Категория: Запросы

Установить штрихкод в 1С Категория: Штрих-код (barcode)

Распределенная информационная база. Пошаговая инструкция и подводные камни. Категория: Конвертация данных, Обмен, Перенос

Работа с MS Word через OLE

В качестве примера использования можно указать вот такую ситуацию: в зависимости от типа клиента (договора, документа и т.п) формируются разные тексты договоров с разным количеством таблиц. В реальности, конечно должены использоваться и макет и описанные здесь динамические механизмы.
В моем примере я заранее создал новый пустой документ.
Тестировалось на Office 2007.

Код 1C v 8.х

 

// "ПутьКФайлу" - строка. Полное имя файла в формате MSWord.

// "Ссылка" - ДокументСсылка (в моем случае - счет).

Процедура ВыполнитьОбработку() Экспорт



    Попытка

        Объект = ПолучитьCOMОбъект(ПутьКФайлу);

        // Покажем документ. Для красоты.

        Объект.Application.Visible = 1;

        Word = Объект.Application;



        Doc = Объект.Application.Documents(1);

        Doc.Activate();



        // Готовим переменную в которой будет содержимое нашего документа

        // (текст, таблицы и проч).

        Text = Word.S_election;



        // Очистим документ

        // Ctrl-A

        Text.WholeStory();

        // Del

        Text.Delete(1, 1);

        // Двигаемся на 3 строки ниже. Документ пустой, поэтому добавляем

        // строки "Переводами коретки"



        Text.TypeText(Символы.ВК);

        Text.TypeText(Символы.ВК);

        Text.TypeParagraph(); // другой вариант того же действия

        // Выводим текст.

        Text.TypeText("Обычный текст, набранный первую очередь");



        // Курсор в конце строки

        // Эмулируем нажатие Shift+Home - выделяем строку

        Text.HomeKey(, 1);

        // Форматирование выделенной строки

        Text.Font.Bold = 9999998;

        Text.Font.Size = 14;

        Text.Font.Name = "Verdana";



        // Сдвигаем курсор. Сдвинуть курсор по строкам возможно, только,

        // если эти строки уже содержат текст, иначе ничего не произойдет.

        Text.MoveUp(,2);   // вверх на 2 строки

        //Word.S_election.MoveDown(,числострок); // вниз

        //Word.S_election.MoveLeft(,числострок); // влево

        //Word.S_election.MoveRight(,числострок);// вправо



        // Добавление текста. Текст выводится начиная с текщей позиции

        // курсора.

        Text.HomeKey(, 1);

        Text.TypeText("Обычный текст, набранный во вторую очередь");



        Text.MoveDown(,1); // вниз на 2 строки

        Text.EndKey(); // в конец строки

        Text.TypeParagraph(); // и в начало следующей строки



        // Очищаем форматирование

        Text.ClearFormatting();

        // Добавляем таблицу.

        // Получаем текущую позицию курсора

        Position = Text.Range();



        // Параметры: Позиция, число строк, число колонок,

        // последние 2 параметра отвечают за автоподбор высоты и отображение

        // границ таблицы

        Table = Doc.Tables.Add(Position, 1, 6, 1, 2);



        // Устанавливаем ширину колонок

        Table.Columns(1).PreferredWidth=10;

        Table.Columns(2).PreferredWidth=50;

        Table.Columns(3).PreferredWidth=10;

        Table.Columns(4).PreferredWidth=10;

        Table.Columns(5).PreferredWidth=10;

        Table.Columns(6).PreferredWidth=10;



        // Задаем заголовки колонок

        Row1=Table.Rows(1);

        Row1.Cells(1).Range.Text="№ п/п";

        Row1.Cells(2).Range.Text="Наименование";

        Row1.Cells(4).Range.Text="Кол-во";

        Row1.Cells(3).Range.Text="Ед. изм.";

        Row1.Cells(5).Range.Text="Цена,руб.";

        Row1.Cells(6).Range.Text="Сумма,руб.";



        // Построчно выводим содержимое таблицы Товары

        НомерСтроки = 1;

        Для каждого СтрокаТовары Из Ссылка.Товары Цикл

            Row=Table.Rows.Add();

            Row.Cells(1).Range.Text=НомерСтроки;

            // Выравнивание по левому краю

            Row.Cells(1).Range.ParagraphFormat.Alignment = 1;

            // В качестве текста можно передать только значение "простого" формата

            // все агрегатные объекты, переданные как текст, что нормально для платформы 1с

            // вызовут исключение.

            Row.Cells(2).Range.Text=СтрокаТовары.Номенклатура.Наименование

                   +?(ЗначениеЗаполнено(СтрокаТовары.ХарактеристикаНоменклатуры),

                   " ("+СтрокаТовары.ХарактеристикаНоменклатуры+")","");

            Row.Cells(4).Range.Text=Строка(СтрокаТовары.Количество);

            Row.Cells(4).Range.ParagraphFormat.Alignment = 1;

            Row.Cells(3).Range.Text=?(ЗначениеЗаполнено(СтрокаТовары.Номенклатура.БазоваяЕдиницаИзмерения)

                                  ,СтрокаТовары.Номенклатура.БазоваяЕдиницаИзмерения.Наименование,"-");

            Row.Cells(3).Range.ParagraphFormat.Alignment = 1;

            Row.Cells(5).Range.Text=Формат(СтрокаТовары.Цена,"ЧДЦ=2");

            Row.Cells(5).Range.ParagraphFormat.Alignment = 1;

            Row.Cells(6).Range.Text=Формат(СтрокаТовары.Сумма,"ЧДЦ=2");

            Row.Cells(6).Range.ParagraphFormat.Alignment = 1;

            НомерСтроки=НомерСтроки+1;

        КонецЦикла;



        // Задаем форматирование первой строки

        // Если сделать это сразу, то все новые строки таблицы будут

        // формироваться с тем же форматом

        Row1.Range.Font.Bold = 9999998;

        Row1.Range.Font.Size = 14;

        Row1.Range.Font.Name = "Verdana";

        Row1.Range.ParagraphFormat.Alignment = 1;



        // Последняя строка...

        Row = Table.Rows.Add();

        Row.Range.Font.Bold = 9999998;

        Row.Cells(1).Range.Text="Итого:";

    Исключение

        Doc.Save();

        Сообщить(ОписаниеОшибки());

        Объект.Application.Quit();

        Объект = Неопределено;

    КонецПопытки;



    Попытка // эта конструкция выдает исключительную ситуацию, но при этом

        // результат все-равно работает))

        // объединяем ячейки в конце таблицы

        Table.cell(НомерСтроки+1, 1).Merge(Table.cell(НомерСтроки+1, 5));

    Исключение

    КонецПопытки;



    Попытка

        Row.Cells(1).Range.ParagraphFormat.Alignment = 3;

        Row.Cells(2).Range.Text=Формат(Ссылка.Товары.Итог("Сумма"), "ЧДЦ=2");

        Row.Cells(2).Range.ParagraphFormat.Alignment = 1;



        Doc.Save();

        Объект.Application.Quit();

        Объект = Неопределено;

    Исключение

        Doc.Save();

        Сообщить(ОписаниеОшибки());

        Объект.Application.Quit();

        Объект = Неопределено;

    КонецПопытки;

КонецПроцедуры

Часто при создании документа из макета используют метод замены кусков текста. В примере представлен другой вариант выполнения того же действия - с использованием закладок. Также представлен пример построения нумерованного списка, вставки картинки, настройки ее параметров.
Пример использования описанных возможностей прост. При формировании коммерческого предложения бывает необходимо описать список условий, добавить изображение образца продукции.
Для отображения закладок включите эту опцию в настройках вашего Word'а.
В моем примере я заранее создал новый пустой документ, путь к документу и картинке прописан в тексте. Не забудте указать свои пути.

Код 1C v 8.х

 Процедура ВыполнитьОбработку() Экспорт



    Попытка



        //Объект = ПолучитьCOMОбъект(ПутьКФайлу);

        Объект = ПолучитьCOMОбъект("C:\Users\NKrylov\Desktop\Тест.docx");

        // Покажем документ.

        Объект.Application.Visible = 1;

        Word = Объект.Application;



        ThisDocument = Word.Documents(1);

        ThisDocument.Activate();



        // Отключим проверку грамматики и вывод информации о грамматических ошибках.

        ThisDocument.GrammarChecked=0;

        ThisDocument.ShowGrammaticalErrors=0;



        // Готовим переменную в которой будет содержимое документа (текст).

        S_election = Word.S_election;



        // Очистим документ

        // Ctrl-A

        S_election.WholeStory();

        // Del

        S_election.Delete(1, 1);



        // Уменьшим междустрочный интервал.

        S_election.ParagraphFormat.LineSpacingRule = 0; // 1 по умолчанию

        S_election.ParagraphFormat.SpaceAfter = 0;      // 10 по умолчанию



        // Разметим документ. Это можно сделать и предварительно в макете

        ThisDocument.Bookmarks.Add("Закладка1", S_election.Range());

        S_election.TypeParagraph();

        S_election.TypeText("34r3 ");

        S_election.HomeKey(, 1);

        ThisDocument.Bookmarks.Add("Закладка2", S_election.Range());

        S_election.EndKey();

        S_election.TypeParagraph();

        ThisDocument.Bookmarks.Add("Закладка3", S_election.Range());

        S_election.TypeParagraph();

        ThisDocument.Bookmarks.Add("Закладка4", S_election.Range());

        S_election.EndKey();



        // Так можно работать с текстом только в конкреной области документа - это и будет замена метода Find-Execute.

        ThisDocument.Bookmarks("Закладка3").Range.S_elect();

        S_election = Word.S_election;



        Bookmark = ThisDocument.Bookmarks("Закладка3");

        Table = ThisDocument.Tables.Add(Bookmark.Range(),1,5,1,2);

        Table.Rows(1).Cells(1).Range.Text = 1;

        Table.Rows(1).Cells(2).Range.Text = 2;

        Table.Rows(1).Cells(3).Range.Text = 3;

        Table.Rows(1).Cells(4).Range.Text = 4;

        Table.Rows(1).Cells(5).Range.Text = 5;



        // После вывода таблицы, появится "лишняя строка", удалим ее

        // в результате курсор встанет в область закладки 4

        S_election.MoveDown(, 1);

        S_election.Delete(1, 1);



        // Этот текст будет выведен не с последней позиции курсора, а в активной области.

        // в данном случае - в области закладки 2

        ThisDocument.Bookmarks("Закладка2").Range.S_elect();

        S_election = Word.S_election;

        Text = S_election.Range.Text;

        S_election.TypeText(Text + " sdcsdcs");

        // При выводе текста закладка "сбросилась". Восстановим.

        // "Победить" эту проблему я так и не смог((

        // Хотя на практике, закладка больше и не понадобится.

        // Дважды выводить текст в одну и ту же область - не имеет смысла.

        S_election.HomeKey(, 1);

        ThisDocument.Bookmarks.Add("Закладка2", S_election.Range());

        S_election.EndKey();



        // В области закладки 4 сформируем нумерованный список

        ThisDocument.Bookmarks("Закладка4").Range.S_elect();

        S_election = Word.S_election; // активная (выделенная) область будет начинаться

        // от закладки 4)



        // Добавим текст "для опытов"

        // 1

        S_election.TypeText("sdcsdcsdcsdc");

        S_election.TypeParagraph();

        // 2

        S_election.TypeText("sdcsdcsdcsdc");

        S_election.TypeParagraph();

        // 3

        S_election.TypeText("sdcsdcsdcsdc");

        S_election.TypeParagraph();

        // 4

        S_election.TypeText("sdcsdcsdcsdc");

        S_election.TypeParagraph();

        // Выделяем введенный текст

        S_election.MoveUp(,4,1);



        // Настроим шаблон объекта галереи списков

        // Галереи списков бывают несккольких типов, 2 - нумерованные списки

        ListTemplate = Word.ListGalleries(2).ListTemplates(1).ListLevels(1);

        // Формат нумератора списка - точка после символа нумерации

        ListTemplate.NumberFormat = "%1.";

        // стиль нумератора - арабские цифры

        ListTemplate.NumberStyle = 0; // wdListNumberStyleArabic

        // 4 - маленькие латинские буквы.

        // 2 - маленькие римские цифры.

        // 58- меленькие русские буквы.

        // Font = Template.Font; // можно указать форматирование текста списка



        // Применим шаблон к выделенному тексту

 S_election.Range.ListFormat.ApplyListTemplateWithLevel( Word.ListGalleries(2).ListTemplates(1));



        // Перейдем в конец текста

        S_election.EndKey(6);



        // Добавим картинку

        // Параметры: путь к файлу, создавать ссылку на картинку, сохранять с файлом

        Picture = S_election.InlineShapes.AddPicture("C:\Users\NKrylov\Desktop\Новый.bmp", Ложь, Истина);

        // Зададим размер

        Picture.Height = 100;

        Picture.Width  = 150;



        // Чтобы установить обтекание текста, конвертируем рисунок в фигуру

        Shape = Picture.ConvertToShape();

        Shape.WrapFormat.Type = 0; // по контуру...



        ThisDocument.Save();

        //Объект.Application.Quit();

        Объект = Неопределено;

    Исключение

        ThisDocument.Save();

        Сообщить(ОписаниеОшибки());

        //Объект.Application.Quit();

        Объект = Неопределено;

    КонецПопытки;



КонецПроцедуры

Автор: Крылов Николай

Категория: Работа с Microsoft Office и OpenOffice

Альтернативный перенос остатков между 7.7 и 8.1 (обработкой с ИТС ЗагрузкаДанныхИзТаблДокум)

Нашел альтернативный, практически моментальный способ переноса остатков между семерой и восьмерой (так и между восмерками). Не требуется никаких дополнительных усилий, программирования, писания обработок и т.д. и т.п.

На ИТС есть обработка под названием "ЗагрузкаДанныхИзТабличногоДокумента". Скачать ее можно здесь.

К примеру остатки по 41 счету:
1) перенести справочники любой обработкой обмена.
2) выкрутить в старой программе любой отчет по сальдо (в виде разбитых колонок - наименование, количество, сумма)
3) сохраняем его в эксель.
4) открываем восмерку, открываем обработку.

Выбираем опцию загрузки в документ, выбираем вид документа ВводНачальныхОстатков, соответствующую табличную часть. Дальше открываем экселевский файл. Обработка его считывает. Задаем настройки для колонок откуда чего брать (и что проставлять автоматом).

Нажимаем контроль. Обработка проверит все совпадения. После чего нажимаем загрузить.

Собственно всё. Ввод остатков готов.

В принципе так можно загрузить любые остатки во все что угодно.

Все это делается минут 15. Я только что узнал что у меня бухгалтерия занималась сейчас ручным вводом остатков по 41 счету в новую бухгалтерию. 3 тысячи строк. Уже вторую неделю сидели вбивали, сделали меньше пятой части, да еще как оказалось понаделали лишней номенклатуры и прочего.
Eugeneer

Категория: Конвертация данных, Обмен, Перенос

Создание документа Word без использования макетов и пример создания таблицы и её оформление.

Кроме прочего в статье присутствует пример создания таблицы с любым количеством колонок и столбцов. Несколько строк с форматированием текста и таблицы. Создание "объединенных" ячеек.

В качестве примера использования можно указать вот такую ситуацию: в зависимости от типа клиента (договора, документа и т.п) формируются разные тексты договоров с разным количеством таблиц. В реальности, конечно должены использоваться и макет и описанные здесь динамические механизмы.

В моем примере я заранее создал новый пустой документ.
Тестировалось на Office 2007.
Исп. переменные: "ПутьКФайлу" - строка. Полное имя файла в формате MSWord.
"Ссылка" - ДокументСсылка (в моем случае - счет).

Вот текст модуля:

Код 1C v 8.х

 Процедура ВыполнитьОбработку() Экспорт



    Попытка

        Объект = ПолучитьCOMОбъект(ПутьКФайлу);

        // Покажем документ. Для красоты.

        Объект.Application.Visible = 1;

        Word = Объект.Application;



        Doc = Объект.Application.Documents(1);

        Doc.Activate();



        // Готовим переменную в которой будет содержимое нашего документа

        // (текст, таблицы и проч).

        Text = Word.S_election;



        // Очистим документ

        // Ctrl-A

        Text.WholeStory();

        // Del

        Text.Delete(1, 1);

        // Двигаемся на 3 строки ниже. Документ пустой, поэтому добавляем

        // строки "Переводами коретки"



        Text.TypeText(Символы.ВК);

        Text.TypeText(Символы.ВК);

        Text.TypeParagraph(); // другой вариант того же действия

        // Выводим текст.

        Text.TypeText("Обычный текст, набранный первую очередь");



        // Курсор в конце строки

        // Эмулируем нажатие Shift+Home - выделяем строку

        Text.HomeKey(, 1);

        // Форматирование выделенной строки

        Text.Font.Bold = 9999998;

        Text.Font.Size = 14;

        Text.Font.Name = "Verdana";



        // Сдвигаем курсор. Сдвинуть курсор по строкам возможно, только,

        // если эти строки уже содержат текст, иначе ничего не произойдет.

        Text.MoveUp(,2);   // вверх на 2 строки

        //Word.S_election.MoveDown(,числострок); // вниз

        //Word.S_election.MoveLeft(,числострок); // влево

        //Word.S_election.MoveRight(,числострок);// вправо



        // Добавление текста. Текст выводится начиная с текщей позиции

        // курсора.

        Text.HomeKey(, 1);

        Text.TypeText("Обычный текст, набранный во вторую очередь");



        Text.MoveDown(,1); // вниз на 2 строки

        Text.EndKey(); // в конец строки

        Text.TypeParagraph(); // и в начало следующей строки



        // Очищаем форматирование

        Text.ClearFormatting();

        // Добавляем таблицу.

        // Получаем текущую позицию курсора

        Position = Text.Range();



        // Параметры: Позиция, число строк, число колонок,

        // последние 2 параметра отвечают за автоподбор высоты и отображение

        // границ таблицы

        Table = Doc.Tables.Add(Position, 1, 6, 1, 2);



        // Устанавливаем ширину колонок

        Table.Columns(1).PreferredWidth=10;

        Table.Columns(2).PreferredWidth=50;

        Table.Columns(3).PreferredWidth=10;

        Table.Columns(4).PreferredWidth=10;

        Table.Columns(5).PreferredWidth=10;

        Table.Columns(6).PreferredWidth=10;



        // Задаем заголовки колонок

        Row1=Table.Rows(1);

        Row1.Cells(1).Range.Text="№ п/п";

        Row1.Cells(2).Range.Text="Наименование";

        Row1.Cells(4).Range.Text="Кол-во";

        Row1.Cells(3).Range.Text="Ед. изм.";

        Row1.Cells(5).Range.Text="Цена,руб.";

        Row1.Cells(6).Range.Text="Сумма,руб.";



        // Построчно выводим содержимое таблицы Товары

        НомерСтроки = 1;

        Для каждого СтрокаТовары Из Ссылка.Товары Цикл

            Row=Table.Rows.Add();

            Row.Cells(1).Range.Text=НомерСтроки;

            // Выравнивание по левому краю

            Row.Cells(1).Range.ParagraphFormat.Alignment = 1;

            // В качестве текста можно передать только значение "простого" формата

            // все агрегатные объекты, переданные как текст, что нормально для платформы 1с

            // вызовут исключение.

            Row.Cells(2).Range.Text=СтрокаТовары.Номенклатура.Наименование

                   +?(ЗначениеЗаполнено(СтрокаТовары.ХарактеристикаНоменклатуры),

                   " ("+СтрокаТовары.ХарактеристикаНоменклатуры+")","");

            Row.Cells(4).Range.Text=Строка(СтрокаТовары.Количество);

            Row.Cells(4).Range.ParagraphFormat.Alignment = 1;

            Row.Cells(3).Range.Text=?(ЗначениеЗаполнено(СтрокаТовары.Номенклатура.БазоваяЕдиницаИзмерения)

                                  ,СтрокаТовары.Номенклатура.БазоваяЕдиницаИзмерения.Наименование,"-");

            Row.Cells(3).Range.ParagraphFormat.Alignment = 1;

            Row.Cells(5).Range.Text=Формат(СтрокаТовары.Цена,"ЧДЦ=2");

            Row.Cells(5).Range.ParagraphFormat.Alignment = 1;

            Row.Cells(6).Range.Text=Формат(СтрокаТовары.Сумма,"ЧДЦ=2");

            Row.Cells(6).Range.ParagraphFormat.Alignment = 1;

            НомерСтроки=НомерСтроки+1;

        КонецЦикла;



        // Задаем форматирование первой строки

        // Если сделать это сразу, то все новые строки таблицы будут

        // формироваться с тем же форматом

        Row1.Range.Font.Bold = 9999998;

        Row1.Range.Font.Size = 14;

        Row1.Range.Font.Name = "Verdana";

        Row1.Range.ParagraphFormat.Alignment = 1;



        // Последняя строка...

        Row = Table.Rows.Add();

        Row.Range.Font.Bold = 9999998;

        Row.Cells(1).Range.Text="Итого:";

    Исключение

        Doc.Save();

        Сообщить(ОписаниеОшибки());

        Объект.Application.Quit();

        Объект = Неопределено;

    КонецПопытки;



    Попытка // эта конструкция выдает исключительную ситуацию, но при этом

        // результат все-равно работает))

        // объединяем ячейки в конце таблицы

        Table.cell(НомерСтроки+1, 1).Merge(Table.cell(НомерСтроки+1, 5));

    Исключение

    КонецПопытки;



    Попытка

        Row.Cells(1).Range.ParagraphFormat.Alignment = 3;

        Row.Cells(2).Range.Text=Формат(Ссылка.Товары.Итог("Сумма"), "ЧДЦ=2");

        Row.Cells(2).Range.ParagraphFormat.Alignment = 1;



        Doc.Save();

        Объект.Application.Quit();

        Объект = Неопределено;

    Исключение

        Doc.Save();

        Сообщить(ОписаниеОшибки());

        Объект.Application.Quit();

        Объект = Неопределено;

    КонецПопытки;



КонецПроцедуры

Написал Nikola23 - http://infostart.ru/public/67727/

Категория: Работа с Microsoft Office и OpenOffice