//Процедура кнопки очистить список значений

Процедура КоманднаяПанельОчистить(Кнопка)

	  СписокСотрудников.Очистить();

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



// Процедура открывает форму выбора сотрудников организации

// Параметры:

//	Владелец 			- владелец формы

//	Ключ 				- ключ, ссылка на объект из которого открывается форма

//	ЗакрыватьПриВыборе 	- Булево, закрывать ли нет

//	ГоловнаяОрганизация - головная организация

//

Процедура ОткрытьФормуВыбораСотрудника(Владелец, Ключ, ЗакрыватьПриВыборе, ГоловнаяОрганизация = Неопределено) Экспорт

	

	СтандартнаяОбработка = Ложь;

	

	Форма = Справочники.СотрудникиОрганизаций.ПолучитьФормуВыбора(, Владелец, Ключ);

	Форма.ЗакрыватьПриВыборе			= ЗакрыватьПриВыборе;

	

	//установим отборы по организации и виду договора

	Если ЗначениеЗаполнено(ГоловнаяОрганизация) Тогда

		Форма.Отбор.Организация.Установить(ГоловнаяОрганизация);

		Форма.Отбор.Организация.Использование = ЗначениеЗаполнено(ГоловнаяОрганизация);

	КонецЕсли;

		

	СписокДоговоров = Новый СписокЗначений;

	СписокДоговоров.Добавить(Перечисления.ВидыДоговоровСФизЛицами.ТрудовойДоговор);

	СписокДоговоров.Добавить(Перечисления.ВидыДоговоровСФизЛицами.Подряда);

	СписокДоговоров.Добавить(Перечисления.ВидыДоговоровСФизЛицами.Авторский);

	Форма.Отбор.ВидДоговора.ВидСравнения	= ВидСравнения.ВСписке;

	Форма.Отбор.ВидДоговора.Использование	= Истина;

	Форма.Отбор.ВидДоговора.Значение		= СписокДоговоров;

	//Открываем форму выбора

	Форма.Заголовок = "Выберите работников:";

	Форма.Открыть();

	

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



//Процедура кнопки подбор

Процедура КоманднаяПанельПодбор(Кнопка)

   // Процедура для подбора в табличное поля

   ОткрытьФормуВыбораСотрудника(ЭлементыФормы.ТабличноеПолеРаботники, ЭтотОбъект, Ложь, );

	

   // Процедура для подбора в список значений

   ОткрытьФормуВыбораСотрудника(ЭлементыФормы.СписокСотрудников, ЭтотОбъект, Ложь, );

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



//Обработка Выбора значения для списка значений

Процедура СписокСотрудниковОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)

	СтандартнаяОбработка = Ложь;

	Если ТипЗнч(ВыбранноеЗначение) = Тип("СправочникСсылка.СотрудникиОрганизаций") Тогда

		//Для того чтобы не было задвоений при выборе, наложим условие

		Если СписокСотрудников.НайтиПоЗначению(ВыбранноеЗначение) = Неопределено Тогда

			НоваяСтрока = СписокСотрудников.Добавить();

			НоваяСтрока.Значение = ВыбранноеЗначение;

		КонецЕсли;

	КонецЕсли;



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



//Обработка Выбора значения для табличного поля

Процедура ТабличноеПолеРаботникиОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)

	СтандартнаяОбработка = Ложь;

	

	Если ТипЗнч(ВыбранноеЗначение) = Тип("СправочникСсылка.СотрудникиОрганизаций") Тогда

		//Для того чтобы не было задвоений при выборе, наложим условие

		Если ТабличноеПолеРаботники.НайтиСтроки(Новый Структура("Работник", ВыбранноеЗначение)).Количество() = 0 Тогда

			НоваяСтрока = ТабличноеПолеРаботники.Добавить();

			НоваяСтрока.Работник = ВыбранноеЗначение;

			// далее можно описать заполнение других колонок табличного поля

		КонецЕсли;

	КонецЕсли;

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

 // 1-й вариант:

Процедура НоменклатураПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)

   СамаЯчейка = ОформлениеСтроки.Ячейки.ИмяЯчейки;

   СамаЯчейка.ОтображатьТекст = Истина;

   СамаЯчейка.Текст = "Лалала";

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



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

Процедура НоменклатураПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)

   ОформлениеСтроки.Ячейки.ИмяЯчейки.УстановитьТекст("Лалала");

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



// 3-й вариант:

Процедура НоменклатураПриПолученииДанных(Элемент, ОформленияСтрок)

   Для каждого ОформлениеСтроки Из ОформленияСтрок Цикл

    СамаЯчейка = ОформлениеСтроки.Ячейки.ИмяЯчейки;

    СамаЯчейка.ОтображатьТекст = Истина;

    СамаЯчейка.Текст = "Лалала";

   КонецЦикла;

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

   

 Ячейка = ОформлениеСтроки.Ячейки.ТипСобытия;

Ячейка.ОтображатьТекст    = Ложь;

Ячейка.ОтображатьФлажок   = Ложь;

Ячейка.ОтображатьКартинку = Истина;

Ячейка.ИндексКартинки = 1; 



// или другой пример:

ТЗ=Новый ТаблицаЗначений;

ТЗ.Колонки.Добавить("ПометкаУдаления",,"ПометкаУдаления");

ТЗ.Колонки.Добавить("Проведен",,"Проведен");

    

КолонкаКартинки=ЭлементыФормы.ТЗ.Колонки.Вставить(0,"<");

КолонкаКартинки.Имя="Картинка";

КолонкаКартинки.Ширина=5;

КолонкаКартинки.ДанныеКартинки="ИндексКартинки";

КолонкаКартинки.КартинкиСтрок= БиблиотекаКартинок.СостоянияДокумента;



Процедура ТЗПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)

Если ДанныеСтроки.Проведен Тогда

  ОформлениеСтроки.Ячейки.Картинка.ИндексКартинки=0;

ИначеЕсли НЕ ДанныеСтроки.Проведен Тогда

  ОформлениеСтроки.Ячейки.Картинка.ИндексКартинки=2;

ИначеЕсли ДанныеСтроки.ПометкаУдаления Тогда

  ОформлениеСтроки.Ячейки.Картинка.ИндексКартинки=1;

КонецЕсли;

   

 ОформлениеСтроки.Ячейки.Колонка2.ОтображатьФлажок= Истина;

ОформлениеСтроки.Ячейки.Колонка2.УстановитьТекст("");

ОформлениеСтроки.Ячейки.Колонка2.Флажок = Истина; 

   

 ОформлениеСтроки.Ячейки.<ИмяКолонки>.ЦветФона = Новый Цвет (255,100,100);

ОформлениеСтроки.Ячейки.<ИмяКолонки>.Шрифт = Новый Шрифт(,,Истина);   

 ОформлениеСтроки.Ячейки.Назв.ТолькоПросмотр = Истина;   

 Процедура Сформировать()

    Перем Имя,Путь;

    Если ФС.ВыбратьФайл(0,Имя,Путь,"","*.*|*.*","*")=0 Тогда

        Возврат;

    КонецЕсли;

    Файл=Путь+Имя;

    Стрим=СоздатьОбъект("ADODB.Stream");

    Стрим.Type=2;

    Стрим.charset="windows-1251";

    Стрим.Open();

    Стрим.LoadFromFile(Файл);

    Стрим.charset="utf-8";

    Стр=Лев(Стрим.ReadText(),255);

    Сообщить(Стр);

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



// еще способ

Процедура Сформировать()

    Перем Имя,Путь;

    Если ФС.ВыбратьФайл(0,Имя,Путь,"","*.*|*.*","*")=0 Тогда

        Возврат;

    КонецЕсли;

    Файл=Путь+Имя;

    УТФ16=КаталогВременныхФайлов()+_GetPerformanceCounter()+"-unicode.txt";

    ЦП1251=КаталогВременныхФайлов()+_GetPerformanceCounter()+"-cp1251.txt";

    БАТ=КаталогВременныхФайлов()+_GetPerformanceCounter()+".bat";

    Стр="@echo off

    |chcp 1251 > nul

    |chcp 65001 |>> """+УТФ16+""" cmd /u /c ""type """+Файл+""" & chcp 1251 > nul""

    |chcp 1251 > nul

    |type """+УТФ16+""" > """+ЦП1251+"""

    |chcp 866 > nul";

    Текст=СоздатьОбъект("Текст");

    Текст.ДобавитьСтроку(Стр);

    Текст.Записать(БАТ);

    КомандаСистемы(БАТ);

    Текст=СоздатьОбъект("Текст");

    Текст.Открыть(ЦП1251);

    Для Сч=1 По Текст.КоличествоСтрок() Цикл

        Сообщить(Лев(Текст.ПолучитьСтроку(Сч),255));

    КонецЦикла;

    ФС.УдалитьФайл(УТФ16);

    ФС.УдалитьФайл(ЦП1251);

    ФС.УдалитьФайл(БАТ);

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

 

ИсходноеЧисло = 13;

Результат = Формат(ИсходноеЧисло, "ЧЦ=5; ЧВН=; ЧГ=0");

//Результат = 00013   

 ТекстДляПроверки = "Данный текст садержит как минемум три ошипки !";



Процедура КнопкаВыполнитьНажатие(Кнопка)

   // Создадим объект MS Word, он должен быть установлен  

   Попытка

      Word = Новый COMОбъект("Word.Application");

   Исключение

      Предупреждение("Microsoft Word не установлен!",,"Ошибка!");

      Возврат;

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

   

   НетОшибок = Word.CheckSpelling(ТекстДляПроверки);

   Если НетОшибок Тогда // Все правильно  

      Сообщить("Нет ошибок");

   Иначе // текст содержит ошибки. Проверим каждое слово и выведем ошибочные.  

      Док = Word.Documents.Add(); // Создадим новый документ  

      Область = Док.Range(0,0); // Получим пустую область в начале документа  

      Область.I_nsertBefore(ТекстДляПроверки); // Добавим в документ текст  

      Для каждого Слово Из Область.Words Цикл

         СловоДляПроверки = СокрЛП(Слово.Text);

         НетОшибок = Word.CheckSpelling(СловоДляПроверки);

         Если НЕ НетОшибок Тогда // Слово ошибочно  

            // покажем возможные замены неправильного слова  

            СтрокаВариантов = "";

            // Получим варианты правописания  

            Варианты = Слово.GetSpellingSuggestions( ,1, ,0);

            Для каждого Вариант Из Варианты Цикл

               СтрокаВариантов = СтрокаВариантов + ", " + Вариант.Name;

            КонецЦикла;

            СтрокаВариантов = ". Варианты замены: " + Сред(СтрокаВариантов, 2);

            Сообщить("Ошибка в слове: " + СловоДляПроверки + СтрокаВариантов);

         КонецЕсли;

      КонецЦикла;

   КонецЕсли;

   Док.Close(0,,); // закроем документ без сохранения wdDoNotSaveChanges  

   Word.Quit(); // закроем Word  

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

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



    Попытка



        //Объект = Получить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();

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

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



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

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



    Попытка

        Объект = Получить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();

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

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



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

 //the_pal, через HTTPСоединение:



СерверИсточник       = HTTPserver;

Адрес               = "/price.asp";

ИмяВходящегоФайла = "c:\temp\input.html";



НТТР = Новый HTTPСоединение(СерверИсточник);

НТТР.Получить(Адрес, ИмяВходящегоФайла);



ВходящийФайл = Новый Файл(ИмяВходящегоФайла);