// "ПутьКФайлу" - строка. Полное имя файла в формате 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();

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

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

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

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



    Попытка



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

Procedure FileNameStartChoice(Element, StdProcessing)

	

	StdProcessing = False;

	DialogFile = New FileDialog(FileDialogMode.Open);

	DialogFile.Filter = "Файлы Microsoft Excel (*.xls)|*.xls";

	DialogFile.DefaultExt = "xls";

	If DialogFile.Choose() Then

		FileName = DialogFile.FullFileName;

	EndIf;

	

EndProcedure // FileNameStartChoice()

// Получить список листов текущей книги

Function GetSheets(ExcelApplication)

		

	ListS_electSheet = New ValueList;

	

	ListS_electSheet.Add(0, "Все листы");

	

	NumberSheet = 0;

	For FirstSheet = 1 To ExcelApplication.Worksheets.Count Do 

		

		NumberSheet = NumberSheet + 1;

		ListS_electSheet.Add(

							 NumberSheet, ExcelApplication.WorkSheets(NumberSheet).Name

							);

		

	EndDo;	

	

	Return ListS_electSheet; 

	

EndFunction // GetSheets()



// Преобразование XLS в MXL

Procedure ButtonExecuteClick()

	

	If IsBlankString(FileName) Then

		DoMessageBox("Не указано имя файла");

		Return;

	EndIf;	

	

		Try

		ExcelApplication = GetCOMObject(FileName); // Excel.Application

	Except

		DoMessageBox("Ошибка чтения файла: " + FileName + " возможно защищен паролем.");

		Return;

	EndTry;	

	

	S_electSheet = 0;

	S_electSheet = GetSheets(ExcelApplication).ChooseItem("Выберите лист", S_electSheet); 

	

	If S_electSheet = Undefined Then

		Return;

	EndIf;

	

	S_electNumberSheet1 = S_electSheet.Value; 

	S_electNumberSheet2 = S_electNumberSheet1;

	If S_electNumberSheet1 = 0 Then

		S_electNumberSheet1 = 1;

		S_electNumberSheet2 = ExcelApplication.Worksheets.Count	

	EndIf;

	

	frmProgressBar = GetForm("FormProgressBar");

	frmProgressBar.Caption = "Обрабатывается файл: " + FileName;

	frmProgressBar.Controls.ProgressBarAll.MaxValue = S_electNumberSheet2;

	frmProgressBar.Controls.ProgressBarAll.Value = 0; 

	

	For NumberSheet = S_electNumberSheet1 To S_electNumberSheet2 Do

		

		frmProgressBar.Open();

		

		SprDoc = New SpreadsheetDocument;

	

		Try

			WorkSheet = ExcelApplication.Sheets(NumberSheet).UsedRange;

		Except

			DoMessageBox(ErrorDescription());

			Return;

		EndTry;

		

		AllStrings 	= WorkSheet.Rows.Count; 	// Всего строк

		AllColumns 	= WorkSheet.Columns.Count; 	// Всего колонок

		AllCells	= AllStrings * AllColumns; 	// Все ячейки

		

		frmProgressBar.Controls.InfoProgressBarAll.Value = "Обрабатывается лист № " +

		                                                    NumberSheet + " из " +

															S_electNumberSheet2;

															   

		frmProgressBar.Controls.ProgressBarAll.Value = frmProgressBar.Controls.ProgressBarAll.Value + 1; 

		

		If AllCells < 2 Then

			Continue; // Пустой лист

		EndIf;

		

		frmProgressBar.Controls.ProgressBarCur.MaxValue = AllStrings;

		frmProgressBar.Controls.ProgressBarCur.Value = 0; 

		

		For CurrentString = 1 To AllStrings Do

			

			For CurrentColumn = 1  To AllColumns Do

				

				frmProgressBar.Controls.InfoProgressBarCur.Value = "Обрабатывается строка №: " +

				                                                   TrimAll(CurrentString) +

																   " из " + AllStrings +

																   ", колонка №: " +

																   TrimAll(CurrentColumn) +

																   " из " + AllColumns;

				

				Try

					CurrentCell = WorkSheet.Cells(

					                               CurrentString,

												   CurrentColumn

												  );

					SlcCell 	= SprDoc.Area(

					                           CurrentString,

					                           CurrentColumn,

											   CurrentString,

											   CurrentColumn

											  );

					

					SlcCell.RowHeight 	= CurrentCell.RowHeight; 

					SlcCell.ColumnWidth = CurrentCell.ColumnWidth; 

					

					// Горизонтальное положение

					SlcCell.HorizontalAlign = mListHorizontalAlign.Get(

					                                                    Format(CurrentCell.HorizontalAlignment, "NG=0")

																	   );

																	   

					// Вертикальное положение																	   

					SlcCell.VerticalAlign 	= mListVerticalAlign.Get(

					                                                  Format(CurrentCell.VerticalAlignment, "NG=0")

																	 );

																	 

					// Размещение текста																	 

					SlcCell.TextPlacement = ?(

					                           CurrentCell.WrapText = 0,

											   SpreadsheetDocumentTextPlacementType.Auto,

											   SpreadsheetDocumentTextPlacementType.Wrap

											  );

					

					FontCell = CurrentCell.Font;

					

					// Цвет фона

					SlcCell.BackColor 	= mColorRGB(

													 CurrentCell.Interior.Color

													);

					

					// Цвет текста

					SlcCell.TextColor 	= mColorRGB(

													 FontCell.Color

													);

					

					

					SlcCell.Font = New Font(

					                         FontCell.Name, 

					                         Number(FontCell.Size),

					                         ?(Number(FontCell.Bold) = 0,

											 False, True),

											 ?(Number(FontCell.Italic) = 0,

											 False, True),

											 ?(Format(Number(FontCell.Underline),"NG=0") = "-4142",

											 False, True),

											 ?(FontCell.Strikethrough, // Зачеркнутый шрифт

											 True, False)

											);

					

					SlcCell.Text = CurrentCell.Value;

					

					// Рамка

					Try

						SlcCell.LeftBorder 		= mStyleBorder(CurrentCell, 7);

						SlcCell.TopBorder 		= mStyleBorder(CurrentCell, 8);

						SlcCell.RightBorder 	= mStyleBorder(CurrentCell, 10);

						SlcCell.BottomBorder 	= mStyleBorder(CurrentCell, 9);

					Except

					EndTry;

					

					SlcCell.Details = CurrentCell.Formula;

					

					// Объединение ячеек

					If (CurrentCell.MergeCells <> 0) and

					   (Find(CurrentCell.MergeArea.Rows.Address(,, 2),

					    CurrentCell.Address(,, 2)) = 1) Then

						

						SlcCell = SprDoc.Area(

						                       CurrentString,

						                       CurrentColumn,

											   (CurrentString + CurrentCell.MergeArea.Rows.Count - 1),

											   (CurrentColumn + CurrentCell.MergeArea.Columns.Count - 1)

											  );

						SlcCell.Merge();

						

					EndIf;

						

				Except

					

					Message(ErrorDescription());

					

				EndTry;	

								

			EndDo;

			

			frmProgressBar.Controls.ProgressBarCur.Value = frmProgressBar.Controls.ProgressBarCur.Value + 1; 

			UserInterruptProcessing(); // Прерывание пользователя Ctrl+Break



		EndDo;

		

		SprDoc.Show("" + TrimAll(FileName) + ", лист " + NumberSheet,"");

		

	EndDo;	

	

	frmProgressBar.Close();

		

	ExcelApplication = "";

	

EndProcedure // ButtonExecuteClick()

   

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

//Покажем открываемый документ

Wk.Visible = Истина; Wk.Documents.Open("D:\file.doc"); 

Документ = Wk.ActiveDocument();

// перебирая строки выводим текст 

Для н = 1 по Документ.Sentences.Count Цикл

	Текст=Документ.Sentences(н).Text;

	Сообщить(Текст);  	

КонецЦикла;	

Документ.Close(); 

Wk.Quit();	

   

 ПоказатьОповещениеПользователя("Документ не записан!", 

                                                      "http://doc.ru", 

                                                       "О правилах заполнения документа, читайте здесь!", 

                                                       БиблиотекаКартинок.Важно);   

 #Если Клиент Тогда

			Форма = Источник.ПолучитьФорму();

			Если Форма.Открыта() Тогда

				ПоказатьОповещениеПользователя("Ошибка", ПолучитьНавигационнуюСсылку(Источник.Ссылка), "Не указана организация. Невозможно распределить платежи по документам расчетов с контрагентом", БиблиотекаКартинок.Ошибка32);

			КонецЕсли;

		#КонецЕсли

   

 WshShell=СоздатьОбъект("WScript.Shell");

WshShell.Popup("Текст сообщения",,"Текст заголовка",20);

  //Процедура выводит или убирает сообщение мессенджера и иконку, в зависимости от бПарам

Процедура ВывестиСообщениеМессенджера(бПарам = Истина) Экспорт

#Если Клиент Тогда    

 

    сКаталог = СокрЛП(Константы.КаталогПолногоДоступа.Получить())+"БП\MessageService";

    ИмяФайла    = сКаталог + "\autohotkey.exe";

    Файл        = Новый Файл(ИмяФайла);

    

    ИмяФайлаИНИ = сКаталог + "\autohotkey.ini";

    

    Если бПарам Тогда

        ИмяФайлаИНИ_Задачи = сКаталог + "\autohotkey_Yes.ini";

    Иначе

        ИмяФайлаИНИ_Задачи = сКаталог + "\autohotkey_No.ini";

    КонецЕсли;

    

    ФайлИНИ_Задачи = Новый Файл(ИмяФайлаИНИ_Задачи);

    

    Если Файл.Существует() И ФайлИНИ_Задачи.Существует() Тогда

        

        Попытка                                                                      

            КопироватьФайл(ИмяФайлаИНИ_Задачи,ИмяФайлаИНИ);

            ЗапуститьПриложение(ИмяФайла, сКаталог);

            Если бПарам Тогда 

                ПараметрыСеанса.бСостояниеМессенджера = Истина;

            Иначе

                ПараметрыСеанса.бСостояниеМессенджера = Ложь;

            КонецЕсли;

        Исключение

            

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

        

    КонецЕсли;

#КонецЕсли 

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

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

    Если Письмо.Основание.Пустая() Тогда

        Возврат

    КонецЕсли;



    // Открыть OpenOffice

    Попытка

        ServiceManager = Новый COMОбъект("com.sun.star.ServiceManager");

    Исключение

        Возврат // опен офис не установлен :-(

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



    // получим печатную форму и запишем её во временный XLS файл

    Заказ = Письмо.Основание.ПолучитьОбъект();



    //Получим печатную форму

    Расшифровка=Новый Структура;

    Расшифровка.Вставить("СсылкаНаВнешнююОбработку",Константы.ПФСчетаДляКлиента.Получить());

    Расшифровка.Вставить("ВидПечатнойФормы",Перечисления.ВидыДополнительныхВнешнихОбработок.ПечатнаяФорма);

    Расшифровка.Вставить("НомерСтроки",1);

    тд = УниверсальныеМеханизмы.НапечататьВнешнююФорму(Заказ, Расшифровка);



    ВременныйФайл =ПолучитьИмяВременногоФайла();

    ВременныйФайлXLS =ВременныйФайл + ".xls";

    ВременныйФайлPDF =ВременныйФайл + ".pdf";

    тд.Записать(ВременныйФайлXLS, ТипФайлаТабличногоДокумента.XLS97);



    // Преобразовываем временный xls файл В PDF

    Desktop        = ServiceManager.createInstance("com.sun.star.frame.Desktop");



    НастройкиОткрытия = Новый COMSafeArray("VT_VARIANT", 1);

    PropertyValue = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue");

    PropertyValue.Name = "Hidden";

    PropertyValue.Value = Истина;

    НастройкиОткрытия.SetValue(0, PropertyValue);

    ВременныйФайлXLS_какУРЛ = "file:///" + СтрЗаменить(ВременныйФайлXLS, "\", "/"); // приводим путь к файлу из виндового формата в опен офисный



    // Откроем файл в опене офисе

    ОпенОфис = Desktop.LoadComponentFromURL(ВременныйФайлXLS_какУРЛ, "_blank", 0, НастройкиОткрытия);



    //ПараметрыСтраницы = ОпенОфис.createInstance("com.sun.star.style.PageStyle");

    //ПараметрыСтраницы.ScaleToPagesX = 1;

    //

    // Установим масштаб, чтобы счёт помещался на одной странице вширь

    // страниц почему-то много, поэтому устанавливаем масштаб для всех

    Стили = ОпенОфис.StyleFamilies.getByName("PageStyles");

    Для поз = 0 по Стили.count - 1 Цикл

        МойСтиль = Стили.getByIndex(поз);

        МойСтиль.ScaleToPagesX = 1; // уместить на одной странице вширь

        //МойСтиль.PageScale = 50; // масштаб 50%

    КонецЦикла;



    НастройкиСохранения = Новый COMSafeArray("VT_VARIANT", 1);

    PropertyValue = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue");

    PropertyValue.Name = "FilterName";

    PropertyValue.Value = "calc_pdf_Export";

    НастройкиСохранения.SetValue(0, PropertyValue);



    ВременныйФайлPDF_какУРЛ = "file:///" + СтрЗаменить(ВременныйФайлPDF, "\", "/"); // приводим путь к файлу из виндового формата в опен офисный

    ОпенОфис.storeToURL(ВременныйФайлPDF_какУРЛ, НастройкиСохранения); // сохранили PDF файл

    ОпенОфис.close(-1);

    ОпенОфис = Неопределено;



    // С опеном офисом разобрались. Прикрепляем вложение к письму и удаляем временные файлы.

    //Файл = Новый Файл(ВременныйФайлPDF);

    объектПисьмо = Письмо.ПолучитьОбъект();

    стрВложение = объектПисьмо.Вложения.Добавить();

    стрВложение.ИмяФайла = "Счёт " + Строка(Заказ.Номер) + ".pdf";

    стрВложение.Файл = Новый ХранилищеЗначения(Новый ДвоичныеДанные(ВременныйФайлPDF));

    объектПисьмо.Записать();

    Попытка

        УдалитьФайлы(ВременныйФайлXLS);

        УдалитьФайлы(ВременныйФайлPDF);

    Исключение

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



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

 // Функция превращает табличный документ в PDF документ

// Возвращаемое значение: тип "Строка" - имя созданного PDF файла, 0 - в случае ошибки

// Параметры: ДанныеВыгрузки - Табличный или текстовый документ, который нужно выгрузить в PDF

//            ПутьВыгрузки - тип "Строка", путь для сохраниения PDF файла (без имени и расширения файла)

//            ИмяФайлаБезРасширения - тип "Строка", имя для вновь сформированного PDF файла

// Тестировалось на OpenOffice 3.x

Функция ВыгрузитьТабличныйДокументВPDF(ДанныеВыгрузки, ПутьВыгрузки, ИмяФайлаБезРасширения)       

    Если НЕ ЗначениеЗаполнено(ПутьВыгрузки) Тогда

        ПутьВыгрузки = КаталогВременныхФайлов();

    КонецЕсли;   

    ПутьВыгрузки         = ?(Прав(ПутьВыгрузки, 1) = "\", ПутьВыгрузки, ПутьВыгрузки + "\");

   

    РасширениеXSL         = ".xls";

    РасширениеPDF         = ".pdf";

    ПолноеИмяФайлаXLS     = ПутьВыгрузки + ИмяФайлаБезРасширения + РасширениеXSL;

    //Выгрузка данных печати в файл XLS   

#Если Клиент Тогда

    Состояние("Создание временного файла...");

#КонецЕсли

    Попытка

        Если         ТипЗнч(ДанныеВыгрузки) = Тип("ТабличныйДокумент") Тогда        

            ДанныеВыгрузки.Записать(ПолноеИмяФайлаXLS, "XLS");

        ИначеЕсли     ТипЗнч(ДанныеВыгрузки) = Тип("ТекстовыйДокумент") Тогда

            ДанныеВыгрузки.Записать(ПолноеИмяФайлаXLS, "XLS");

        Иначе

#Если Клиент Тогда

            Сообщить("Данные для выгрузки переданы в неподдерживаемом формате. Дальнейшее выполнение невозможно." + Символы.ПС + ОписаниеОшибки());

#КонецЕсли

            Возврат 0;

        КонецЕсли;

    Исключение

#Если Клиент Тогда

        Сообщить("Произошла ошибка при выгрузке временного файла. Возможно ошибка доступа к папке, в которую происходит запись." + Символы.ПС + ОписаниеОшибки());

#КонецЕсли

        Возврат 0;

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

   

    Попытка

#Если Клиент Тогда

        Состояние("Открытие компоненты OpenOffice...");

#КонецЕсли

        ServiceManager    = Новый COMОбъект("com.sun.star.ServiceManager");       

       

        Скрипт             = Новый COMОбъект("MSScriptControl.ScriptControl");

        Скрипт.language    = "javascript";

        Скрипт.AddObject("OpenOffice", ServiceManager);

       

        //Открытие временного файла без отображения его окна

#Если Клиент Тогда           

        Состояние("Открытие временного файла...");

#КонецЕсли

        Скрипт.eval("Массив=new Array()");       

        Массив             = Скрипт.eval("Массив");   

        Скрипт.eval("Массив[0] = OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue')");

        Скрипт.eval("Массив[0].Name     = 'Hidden'");

        Скрипт.eval("Массив[0].Value = true");

       

        Скрипт.AddCode("function SetItem(ind,val){Массив[ind]=val}");       

        Скрипт.AddObject("ServiceManager",ServiceManager);

        Desktop         = ServiceManager.createInstance("com.sun.star.frame.Desktop");       

        Document         = Desktop.LoadComponentFromURL("file:///" + ПолноеИмяФайлаXLS, "_blank", 0, Массив);

       

        //Сохранение в PDF встроенными средствами OpenOffice

#Если Клиент Тогда           

        Состояние("Запись в PDF...");

#КонецЕсли

        Скрипт.eval("Массив2=new Array()");       

        Массив2     = Скрипт.eval("Массив2");       

        Скрипт.eval("Массив2[0] = OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue')");       

        Скрипт.eval("Массив2[0].Name  = 'FilterName'");

        Скрипт.eval("Массив2[0].Value = 'writer_pdf_Export'");

       

        ПолноеИмяФайлаPDF         = "file:///" + СтрЗаменить(ПолноеИмяФайлаXLS, РасширениеXSL, РасширениеPDF);

        ПолноеИмяФайлаPDF         = СтрЗаменить(ПолноеИмяФайлаPDF, ВРег(РасширениеXSL), РасширениеPDF);

        ПолноеИмяФайлаPDF        = СтрЗаменить(ПолноеИмяФайлаPDF, "\", "/");       

               

        Document.storeToURL(ПолноеИмяФайлаPDF, Массив2);

        Document.close(-1);        //Закрыть документ

       

        //Контрольная очистка переменных

        Document     = Неопределено;

        Desktop     = Неопределено;

       

        //Удаление временного файла

#Если Клиент Тогда           

        Состояние("Удаление временного файла...");

#КонецЕсли       

        Попытка

            УдалитьФайлы(ПолноеИмяФайлаXLS);

        Исключение

#Если Клиент Тогда           

            Сообщить("Произошла ошибка при удалении временного файла. Возможно, потребуется удалить его вручную." + Символы.ПС + ОписаниеОшибки());

#КонецЕсли

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

       

        ПолноеИмяФайлаPDF = СтрЗаменить(ПолноеИмяФайлаPDF, "file:///", "");

        ПолноеИмяФайлаPDF = СтрЗаменить(ПолноеИмяФайлаPDF, "/", "\");

#Если Клиент Тогда

        Состояние("Выгрузка выполнена.");

        Предупреждение("Выгрузка выполнена." + Символы.ПС + ПолноеИмяФайлаPDF);       

#КонецЕсли

        Возврат ПолноеИмяФайлаPDF;

    Исключение

        Document.close(-1);

#Если Клиент Тогда

        Предупреждение(ОписаниеОшибки());

#КонецЕсли

        Возврат 0;

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

КонецФункции   

 Попытка



	// Создать объект.

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



Исключение	

	Сообщить("Не удалось инициализировать Excel");



	Возврат;



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

	

Попытка



	// В реальном примере путь может быть совершенно другим.

	Excel.Workbooks.Open("c:\doc.xls");



	// Запустить макрос с именем "Оформление".

	Excel.Run("Оформление");

	Excel.Visible = Истина;



Исключение	



	// Если произойдет ошибка, выводятся данные об ошибке и объект закрывается.

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

	Excel.Quit();



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

   

 #НаСервере

Процедура ОтправитьЗапросНаПоискКоординат()

   Город = Параметры.ОбъектПодбора.Город.Наименование;

   Страна = Параметры.ОбъектПодбора.Город.Владелец.Владелец.Наименование;

   Адрес = Параметры.ОбъектПодбора.Адрес;

   ПараметрПоиска = Страна + " " + Город + " " + Адрес;

 

   АдресOutput = ПолучитьИмяВременногоФайла();

   Ключ = Константы.КлючКарта.Получить();

   ТекстСсылки = "maps/geo?q=" + EncodeURL(ПараметрПоиска)+"&output=csv&oe=utf8&sensor=false&key=" + Ключ;

   ПроксиСервер = Неопределено;

   HTTPСервис = Новый HTTPСоединение("maps.google.com",,,,ПроксиСервер,Ложь);

   ПравильностьВыполнения = Истина;

 

   Попытка

      HTTPСервис.Получить(ТекстСсылки, АдресOutput);

   Исключение

      Сообщить(ОписаниеОшибки(), СтатусСообщения.Важное);

      ПравильностьВыполнения = Ложь;

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

 

   Если ПравильностьВыполнения Тогда

      // Распарсить результат ответа поиска

      Текст = Новый ТекстовыйДокумент;

      Текст.Прочитать(АдресOutput);

      РезультатПоиска = Текст.ПолучитьСтроку(1);

 

      КодРезультата = Лев(РезультатПоиска,3);

      РезультатПоиска = Сред(РезультатПоиска, 7, СтрДлина(РезультатПоиска));

 

      Если КодРезультата <> "200" Тогда

         Возврат;

      КонецЕсли;

 

      Широта = Число(Сред(РезультатПоиска,0,10));

      Долгота = Число(Сред(РезультатПоиска,12,10));

   КонецЕсли;

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

   

 if(!google.visualization) setTimeout(checkIfGoogleLoad, 1000);

      else drawMap();   

 #НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

   СсылкаНаБазу = ПолучитьНавигационнуюСсылкуИнформационнойБазы();

   APIГугла = Константы.КлючКарта.Получить();

 

   ТаблицаОбъектовДляВывода = Новый ТаблицаЗначений;

   ТаблицаОбъектовДляВывода.Колонки.Добавить("Наименование",Новый ОписаниеТипов("Строка"));

   ТаблицаОбъектовДляВывода.Колонки.Добавить("Город",Новый ОписаниеТипов("Строка"));

   ТаблицаОбъектовДляВывода.Колонки.Добавить("Адрес",Новый ОписаниеТипов("Строка"));

   ТаблицаОбъектовДляВывода.Колонки.Добавить("Широта",Новый ОписаниеТипов("Число",Новый КвалификаторыЧисла(10,6)));

   ТаблицаОбъектовДляВывода.Колонки.Добавить("Долгота",Новый ОписаниеТипов("Число",Новый КвалификаторыЧисла(10,6)));

   Если Параметры.ОтображатьСОтветственными Тогда

      ТаблицаОбъектовДляВывода.Колонки.Добавить("Ответственный",Новый ОписаниеТипов("Строка"));

   КонецЕсли;

 

   Для Каждого ТекЭлемент Из Параметры.ОбъектыДляОтображения Цикл

      КоординатыОбъекта = ОбщийМодульКартаСервер.ПолучитьКоординатыОбъекта(ТекЭлемент.Значение.ОбъектПосещения);

      Если КоординатыОбъекта = Неопределено Тогда

         Продолжить;

      Иначе

         НоваяСтрока = ТаблицаОбъектовДляВывода.Добавить();

         НоваяСтрока.Наименование = ТекЭлемент.Значение.ОбъектПосещения.Наименование;

         НоваяСтрока.Город = ТекЭлемент.Значение.ОбъектПосещения.Город.Наименование;

         НоваяСтрока.Адрес = ТекЭлемент.Значение.ОбъектПосещения.Адрес;

         НоваяСтрока.Широта = КоординатыОбъекта[0];

         НоваяСтрока.Долгота = КоординатыОбъекта[1];

         Если Параметры.ОтображатьСОтветственными Тогда

            НоваяСтрока.Ответственный = ТекЭлемент.Значение.Ответственный.Наименование;

         КонецЕсли;

      КонецЕсли;

   КонецЦикла;

 

   ТекстСкрипта = "data.addRows(" + Строка(ТаблицаОбъектовДляВывода.Количество()) + ");";

   Сч = 0;

   Для Каждого ТекСтрока Из ТаблицаОбъектовДляВывода Цикл

      ТекстСкрипта = ТекстСкрипта + " data.setCell(" + Строка(Сч) + ", 0, " +СтрЗаменить(Строка(ТекСтрока.Широта),",",".") + ");";

      ТекстСкрипта = ТекстСкрипта + " data.setCell(" + Строка(Сч) + ", 1, " +СтрЗаменить(Строка(ТекСтрока.Долгота),",",".") + ");";

      ТекстСкрипта = ТекстСкрипта + " data.setCell(" + Строка(Сч) + ", 2, '" +Строка(ТекСтрока.Наименование) + " "

      + Строка(ТекСтрока.Город) + " " + Строка(ТекСтрока.Адрес) + " " + ?(Параметры.ОтображатьСОтветственными, ".Ответственный: " + Строка(ТекСтрока.Ответственный), "") + " " + "');";

      Сч = Сч + 1;

   КонецЦикла;

СтраницаХТМЛ = "<html>

|  <head>

|    <script src=""http://maps.google.com/maps?file=api&v=2&key=" + APIГугла + """ type=""text/javascript""></script>

|    <script type=""text/javascript"" src=""http://www.google.com/jsapi""></script>

|  </head>

|

|  <body>

|    <div id=""map_div"" style=""width: 800px; height: 550px""></div>

|    <script type=""text/javascript"">

|

|      google.load(""visualization"", ""1"", {packages:[""map"">);

|      google.setOnLoadCallback(drawMap);

|      function checkIfGoogleLoad() {

|        if(!google.visualization) setTimeout(checkIfGoogleLoad, 1000);

|		else drawMap();

|      }

|      function drawMap() {

|        var data = new google.visualization.DataTable();

|        data.addColumn('number', 'Lat');

|        data.addColumn('number', 'Lon');

|        data.addColumn('string', 'Name');" + ТекстСкрипта + "

|        var map = new google.visualization.Map(document.getElementById('map_div'));

|        map.draw(data, {showTip: true, mapType: 'normal'});

|      }

|      checkIfGoogleLoad();

|    </script>

|  </body>

|</html>"; 

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

  Процедура КнопкаDOCНажатие(Элемент)

	

	ИмяФайла = ПолучитьИмяВременногоФайла("doc");

	Doc = ХранилищеФайла.Получить();

	

	Если Doc <> Неопределено Тогда

		

		Doc.Записать(ИмяФайла)

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

		Word.Documents.Open(ИмяФайла); 

		Word.Visible = Истина; 

		

		ДобавитьОбработчик Word.DocumentBeforeClose, ПередЗакрытиемДокументаWord;

		ДобавитьОбработчик Word.Quit, ВыходИзWord;

		

	КонецЕсли;

	

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



//Процедуры назначаемые обработчиками 

Процедура ПередЗакрытиемДокументаWord(Документ, Отмена)

   Документ.Save();	

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



Процедура ВыходИзWord()

   ШаблонДоговора = Новый ХранилищеЗначения(Новый ДвоичныеДанные(ИмяФайла));

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

 РабДата=Лев(СокрЛП(РабочаяДата),10);

    //НачПрошлогоМесяца=Лев(СокрЛП(НачалоМесяца(ДобавитьМесяц(РабочаяДата, -1 ))),10); 

    НачПрошлогоМесяца=Лев(СокрЛП(НачалоМесяца(РабочаяДата)),10);

    НачМесяца=Лев(СокрЛП(НачалоМесяца(РабочаяДата)),10);

   

    МойЗапрос = "    

    |S_elect SC172.DESCR, RG38027.SP38025, _1SJOURN.DOCNO, LEFT(_1SJOURN.DATE_TIME_IDDOC, 8) AS DATADOC, SUM(RG38027.SP38026) AS Ost

    |FROM RG38027, SC172, _1SJOURN, DH38011

    |WHERE (RG38027.SP38024 = SC172.ID) AND (CONVERT (DATETIME , RG38027.PERIOD) =  CONVERT (DATETIME , '"+НачПрошлогоМесяца+"')) AND

    |(RG38027.SP38025 = _1SJOURN.IDDOC) AND (RG38027.SP38025 = DH38011.IDDOC)

    |AND (DH38011.SP38005 = '    3Z   ')

    |GROUP BY SC172.DESCR, RG38027.SP38025, _1SJOURN.DOCNO, _1SJOURN.DATE_TIME_IDDOC

    |

    |U_nion ALL

    |

    |S_elect SC172.DESCR, RA38027.SP38025, _1SJOURN.DOCNO, LEFT(_1SJOURN.DATE_TIME_IDDOC, 8) AS DATADOC, SUM(RA38027.SP38026*(1-2*RA38027.DEBKRED)) AS Ost

    |FROM RA38027, SC172, _1SJOURN, DH38011

    |WHERE (RA38027.SP38024 = SC172.ID) AND (RA38027.IDDOC=_1SJOURN.IDDOC) AND

    |(CONVERT (DATETIME , LEFT(_1SJOURN.DATE_TIME_IDDOC,8)) <=  CONVERT (DATETIME , '"+РабДата+"')) AND

    |(CONVERT (DATETIME , LEFT(_1SJOURN.DATE_TIME_IDDOC,8)) >  CONVERT (DATETIME , '"+НачМесяца+"')) AND

    |(RA38027.SP38025 = _1SJOURN.IDDOC) AND (RA38027.SP38025 = DH38011.IDDOC)

    |AND (DH38011.SP38005 = '    3Z   ')

    |GROUP BY SC172.DESCR, RA38027.SP38025, _1SJOURN.DOCNO, _1SJOURN.DATE_TIME_IDDOC

    |HAVING SUM(RA38027.SP38026*(1-2*RA38027.DEBKRED)) > 0

    |ORDER BY SC172.DESCR";

    

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

    //Connection.Provider = Провайдер; 

    Connection.ConnectionString = мдСтрокаПодключения;

    

    //Сообщить(МойЗапрос); 

    

    Попытка

        Connection.Open();

    Исключение

        Сообщить("Подключение - bad!");

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



    RS = Новый COMОбъект("ADODB.Recordset");

    //RS.CursorType = 3; 

    RS.Open(МойЗапрос, Connection );

    

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

    ТЗ.Колонки.Добавить("КонтрагентНаименование", ПолучитьОписаниеТиповС(50),"Контрагент",30);

    ТЗ.Колонки.Добавить("ИДДокумента", ПолучитьОписаниеТиповС(10));

    ТЗ.Колонки.Добавить("НомерДок", ПолучитьОписаниеТиповС(10),"№ заявки",10);

    ТЗ.Колонки.Добавить("ДатаДок", ПолучитьОписаниеТиповС(10),"дата заявки",10);

    ТЗ.Колонки.Добавить("СуммаОстаток", ПолучитьОписаниеТиповЧ(10, 2),"Сумма",15);

    

    Пока RS.EOF() = 0 Цикл

        КонтрагентНаименование = RS.Fields("DESCR").Value;

        ИДДокумента = RS.Fields("SP38025").Value;

        НомерДок = RS.Fields("DOCNO").Value;

        ДатаДок = RS.Fields("DATADOC").Value;        

        СуммаОстаток = Число(RS.Fields("Ost").Value);

        

        Если СуммаОстаток = 0 Тогда

            RS.MoveNext();

            Продолжить;

        КонецЕсли;

        

        Стр=ТЗ.Добавить();

        

        Стр.КонтрагентНаименование = КонтрагентНаименование;

        Стр.ИДДокумента = ИДДокумента;

        Стр.НомерДок = НомерДок;

        Стр.ДатаДок = Дата(ДатаДок);        

        Стр.СуммаОстаток = СуммаОстаток;

        

        RS.MoveNext();

    КонецЦикла;   

 // Выгрузить в файл xml.

ЗаписьXML = Новый ЗаписьXML();



ЗаписьXML.ОткрытьФайл("c:\doc.xml");

ЗаписьXML.ЗаписатьНачалоЭлемента("Root");



// Получить объект по ссылке.

ВыгружаемыйОбъект = Документ.ПолучитьОбъект();



// С помощью средств сериализации записать объект в файл.

ЗаписатьXML(ЗаписьXML,ВыгружаемыйОбъект);

	

ЗаписьXML.ЗаписатьКонецЭлемента();



ЗаписьXML.Закрыть();    

 ЧтениеXML = Новый ЧтениеXML();



ЧтениеXML.ОткрытьФайл("c:\doc.xml");

// Текущим становится элемент Root.

ЧтениеXML.Прочитать();



// Текущим становится элемент с документом.

ЧтениеXML.Прочитать();



// Проверить, сможет ли с данным значением "справиться" система сериализации в данной базе.

Если ВозможностьЧтенияXML(ЧтениеXML) Тогда

	// Получить ДокументОбъект.РеализацияТоваровУслуг.

	ЗагружаемыйОбъект = ПрочитатьXML(ЧтениеXML);

	ЗагружаемыйОбъект.Записать();

КонецЕсли;	



ЧтениеXML.Закрыть();    

 Процедура Выгрузка(Элемент) 



	Путь = "c:\"; //реальный путь к каталогу, в котором создаются файлы 



	ЗаписьXML = Новый ЗаписьXML(); 

	ЗаписьXML.ОткрытьФайл(Путь + "выгрузка.xml"); 

	Узел = ПланыОбмена.Поставка.НайтиПоКоду("Маг1"); 



	ЗапСообщения = ПланыОбмена.СоздатьЗаписьСообщения(); 

	ЗапСообщения.НачатьЗапись(ЗаписьXML, Узел); 



	Выборка = ПланыОбмена.ВыбратьИзменения(Узел, ЗапСообщения.НомерСообщения); 



	Пока Выборка.Следующий() Цикл 

		Данные = Выборка.Получить(); 



		Если ТипЗнч(Данные) = Тип("ДокументОбъект.РеализацияТоваров") Тогда 

			ВыгрузкаРеализации(ЗаписьXML, Данные); 

	

		Иначе // все остальные объекты 

			ЗаписатьXML(ЗаписьXML, Данные); 

		КонецЕсли; 

	КонецЦикла; 



	ЗапСообщения.ЗакончитьЗапись(); 

	ЗаписьXML.Закрыть(); 



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





Процедура ВыгрузкаРеализации(ЗаписьXML, Документ) 



	ЗаписьXML.ЗаписатьНачалоЭлемента("DocumentObject.ПередачаТовара"); 



	ЗаписатьXML(ЗаписьXML, Документ.Ссылка.УникальныйИдентификатор(), "Ref", НазначениеТипаXML.Явное); 

	ЗаписатьXML(ЗаписьXML, Документ.ПометкаУдаления, "DeletionMark", НазначениеТипаXML.Явное); 

	ЗаписатьXML(ЗаписьXML, Документ.ВалютаДокумента, "ВалютаДокумента", НазначениеТипаXML.Явное); 



	// Остальные свойства документа. 



	// Табличная часть. 

	ЗаписьXML.ЗаписатьНачалоЭлемента("Товары"); 



	Для Каждого ТекСтрока Из Документ.Товары Цикл

		ЗаписьXML.ЗаписатьНачалоЭлемента("Row"); 



		ЗаписатьXML(ЗаписьXML, ТекСтрока.Номенклатура, "Номенклатура", НазначениеТипаXML.Явное); 

		ЗаписатьXML(ЗаписьXML, ТекСтрока.Количество, "Количество", НазначениеТипаXML.Явное); 



		// Остальные реквизиты табличной части. 



		ЗаписьXML.ЗаписатьКонецЭлемента(); 

	КонецЦикла; 



	ЗаписьXML.ЗаписатьКонецЭлемента(); 

	ЗаписьXML.ЗаписатьКонецЭлемента(); 



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





Процедура Загрузка(Элемент) 



	Путь = "c:\"; //реальный путь к каталогу, в котором создаются файлы 



	ЧтениеXML = Новый ЧтениеXML(); 

	ЧтениеXML.ОткрытьФайл(Путь + "выгрузка.xml"); 

	

	ЧтСообщения = ПланыОбмена.СоздатьЧтениеСообщения(); 

	ЧтСообщения.НачатьЧтение(ЧтениеXML); 



	ПланыОбмена.УдалитьРегистрациюИзменений(ЧтСообщения.Отправитель, ЧтСообщения.НомерСообщения); 



	Пока ВозможностьЧтенияДанных(ЧтениеXML) Цикл 

		Данные = ПрочитатьДанные(ЧтениеXML); 

		

		Если РазрешениеКоллизий(Данные) Тогда 

			Данные.ОбменДанными.Отправитель = ЧтСообщения.Отправитель; 

			Данные.ОбменДанными.Загрузка = Истина; 

			Данные.Записать(); 

		КонецЕсли; 

	КонецЦикла; 



	ЧтСообщения.ЗакончитьЧтение(); 

	ЧтениеXML.Закрыть(); 



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





Функция ВозможностьЧтенияДанных(ЧтениеXML) 



	ТипXML = ПолучитьXMLТип(ЧтениеXML); 



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

		Возврат Ложь; 

	КонецЕсли; 



	Если ТипXML.ИмяТипа = "DocumentObject.ПередачаТовара" И ТипXML.URIПространстваИмен = "" Тогда 

		Возврат Истина; 

	КонецЕсли; 



	Возврат ВозможностьЧтенияXML(ЧтениеXML); 



КонецФункции 





Функция ПрочитатьДанные(ЧтениеXML) 



	ТипXML = ПолучитьXMLТип(ЧтениеXML); 

	

	Если ТипXML.ИмяТипа = "DocumentObject.ПередачаТовара" И ТипXML.URIПространстваИмен = "" Тогда 

		Возврат ЧтениеРеализации(ЧтениеXML); 

	КонецЕсли; 



	Возврат ПрочитатьXML(ЧтениеXML); 



КонецФункции 





Функция ЧтениеРеализации(ЧтениеXML) 



	ЧтениеXML.Прочитать(); 



	// Работа со ссылкой документа. 

	ПолученнаяСсылка = ПрочитатьXML(ЧтениеXML); 

	Док = Документы.ПоступлениеТоваров.ПолучитьСсылку(Новый УникальныйИдентификатор(ПолученнаяСсылка)); 



	Документ = Док.ПолучитьОбъект(); 



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

		Документ = Документы.ПоступлениеТоваров.СоздатьДокумент(); 

		Документ.УстановитьСсылкуНового(Док);

		Документ.Дата = ТекущаяДата; 

		Документ.УстановитьНовыйНомер(); 

	КонецЕсли; 



	Документ.ПометкаУдаления = ПрочитатьXML(ЧтениеXML); 

	Документ.ВалютаДокумента = ПрочитатьXML(ЧтениеXML); 



	// Табличная часть "Товары. 

	// Построчное чтение. 

	ЧтениеXML.Прочитать(); 

	Документ.Товары.Очистить(); 



	Пока ЧтениеXML.Имя = "Row" Цикл 



		// Позиционируемся на узле с номенклатурой. 

		ЧтениеXML.Прочитать(); 

		НоваяСтрока = Документ.Товары.Добавить(); 

		НоваяСтрока.Номенклатура = ПрочитатьXML(ЧтениеXML); 

		НоваяСтрока.Количество = ПрочитатьXML(ЧтениеXML); 



		// Читаем конец узла Row. 

		ЧтениеXML.Прочитать(); 

	КонецЦикла; 



	// Читаем конец табличной части. 

	ЧтениеXML.Прочитать(); 



	// Читаем конец документа. 

	ЧтениеXML.Прочитать(); 



	Возврат(Документ); 



КонецФункции 





Функция РазрешениеКоллизий(Данные) 



	Если ТипЗнч(Данные) = Тип("ДокументОбъект.ПоступлениеТоваров") Тогда 



		Если Не Данные.ЭтоНовый() Тогда 

			СсылкаНаУзел = ПланыОбмена.Поставка.НайтиПоКоду("Опт"); 



			Если ПланыОбмена.ИзменениеЗарегистрировано(СсылкаНаУзел, Данные) Тогда 

				Возврат(Ложь); 

			КонецЕсли; 

		КонецЕсли; 

	КонецЕсли; 



	Возврат(Истина); 



КонецФункции    

 //black_doctor, надеюсь комунить пригодиться механизм 

//

//В примере описан механизм перехода между документами одного типа

//функции помещаються в общие , ну и от туда работают, для любого  документа 

//в качестве входящих параметров задаем ссылку на документ и ссылку на  текущую форму 



Процедура СледующийНажатие(док,ТекФорма) Экспорт

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

 Запрос.Текст = "ВЫБРАТЬ Первые 1

  | ОперацииЦБ.Ссылка КАК Ссылка

  |ИЗ

  | ";

  Запрос.Текст = Запрос.Текст+"Документ."+Док.ссылка.Метаданные().Имя+" 

КАК ОперацииЦБ

  |ГДЕ

  | ОперацииЦБ.МоментВремени > &МоментВремени

  |

  |УПОРЯДОЧИТЬ ПО

  | ОперацииЦБ.МоментВремени";

 Запрос.УстановитьПараметр("МоментВремени",док.МоментВремени());

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

 Если Результат.Количество()>0 тогда

 Формочка = Результат[0].Ссылка.ПолучитьОбъект().ПолучитьФорму();

 Формочка.ПоложениеОкна = ТекФорма.ПоложениеОкна;

 ТекФорма.Закрыть();

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

 Иначе Сообщить("Этот документ первый в списке документов",СтатусСообщения.Внимание);

 КонецЕсли;

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



Процедура ПредыдущийНажатие(док,ТекФорма) Экспорт

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

 Запрос.Текст = "ВЫБРАТЬ Первые 1

  | ОперацииЦБ.Ссылка КАК Ссылка

  |ИЗ

  | ";

  Запрос.Текст = Запрос.Текст+"Документ."+Док.ссылка.Метаданные().Имя+" 

КАК ОперацииЦБ

  |ГДЕ

  | ОперацииЦБ.МоментВремени < &МоментВремени

  |

  |УПОРЯДОЧИТЬ ПО

  | ОперацииЦБ.МоментВремени УБЫВ";

 Запрос.УстановитьПараметр("МоментВремени",док.МоментВремени());

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

 Если Результат.Количество()>0 тогда

 Формочка = Результат[0].Ссылка.ПолучитьОбъект().ПолучитьФорму();

 Формочка.ПоложениеОкна = ТекФорма.ПоложениеОкна;

 ТекФорма.Закрыть();

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

 Иначе Сообщить("Этот документ первый в списке документов",СтатусСообщения.Внимание);

 КонецЕсли;

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

  Процедура глУстановитьСвойстваЗакладкиСводка(текФайл, тОписание="", тАвтор="", тКлючевыеСлова="", тФирма="", тКатегория="", тЗаголовок="", тТема="") Экспорт



Попытка

ФайлДляУстановки = CreateObject("DSOFile.OleDocumentProperties");

ФайлДляУстановки.Open(текФайл);

ФайлДляУстановки.SummaryProperties.Author = тАвтор;

ФайлДляУстановки.SummaryProperties.Keywords = тКлючевыеСлова;

ФайлДляУстановки.SummaryProperties.Company = тФирма;

ФайлДляУстановки.SummaryProperties.Category = тКатегория;

ФайлДляУстановки.SummaryProperties.Comments = тОписание;

ФайлДляУстановки.SummaryProperties.Subject = тТема;

ФайлДляУстановки.SummaryProperties.Title = тЗаголовок;

ФайлДляУстановки.Save();

ФайлДляУстановки=0;



Исключение

Сообщить("Не удалось установить параметры файла, не зарегистрирована библиотека!","!!!");

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

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

 Процедура глПолучитьСвойстваЗакладкиСводка(текФайл) Экспорт



Попытка



ФайлДляУстановки = CreateObject("DSOFile.OleDocumentProperties");

ФайлДляУстановки.Open(текФайл);

тАвтор = ФайлДляУстановки.SummaryProperties.Author;

тКлючевыеСлова= ФайлДляУстановки.SummaryProperties.Keywords;

тФирма= ФайлДляУстановки.SummaryProperties.Company;

тКатегория= ФайлДляУстановки.SummaryProperties.Category;

тОписание= ФайлДляУстановки.SummaryProperties.Comments;

тТема= ФайлДляУстановки.SummaryProperties.Subject;

тЗаголовок= ФайлДляУстановки.SummaryProperties.Title;

ФайлДляУстановки=0;



Исключение

Сообщить("Не удалось прочитать параметры файла, не зарегистрирована библиотека!","!!!");

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



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