Попытка

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

Исключение

    Сообщить("ВНИМАНИЕ! TOpenOffice не установлен или недостаточно прав доступа!

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

    Возврат;

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



ТабДокумент = ПечатьЦенника(ВидЦенника);

ИмяФайла = ПутьДляСохранения+"\"+ТабДокумент.ИспользуемоеИмяФайла+".xls";

ТабДокумент.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.XLS97);

   

МакетОформления = Неопределено;

// Откроем табличный документ



Excel.Workbooks.Open(ИмяФайла);

КнигаExcel = Excel.Workbooks.Item(Excel.Workbooks.Count);



ЛистExcel = КнигаExcel.WorkSheets.Item(1);



КнигаExcel.Activate();

ЛистExcel.Activate();



//Установка полей

//Значение - points. Придется делать пересчет (100 points = 3.8 inches)

ЛистExcel.PageSetup.LeftMargin   = 28;

ЛистExcel.PageSetup.RightMargin  = 28;

ЛистExcel.PageSetup.TopMargin    = 25;

ЛистExcel.PageSetup.BottomMargin = 25;



//Установка ориентации

Если ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт Тогда

    ЛистExcel.PageSetup.Orientation = 2;

Иначе

    ЛистExcel.PageSetup.Orientation = 1;

КонецЕсли;

   

//Установка масштаба печати

ЛистExcel.PageSetup.Zoom = ТабДокумент.МасштабПечати;



//Сохранение в Мои документы

КнигаExcel.Save();

   

//Покажем книгу на экран

Excel.Visible = 1;

   

//Отключаем COM - соединение

Excel.Quit();    

 Попытка

   СервисМанагер = Новый  COMОбъект("Com.Sun.Star.ServiceManager");

Исключение

   Сообщить("Не могу создать объект Open Office!

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

   Возврат;

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

   

ТабДокумент = ПечатьЦенника(ВидЦенника);



ИмяФайла = ПутьДляСохранения+"\"+ТабДокумент.ИспользуемоеИмяФайла+".xls";

ТабДокумент.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.XLS97);

      

МакетОформления = Неопределено;

// Откроем табличный документ

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

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

   Скрипт.eval("Massiv=new Array()");             

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

   Скрипт.AddObject("СервисМанагер",СервисМанагер);

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

   Скрипт.eval("Massiv[0].Name='Hidden'");

   Скрипт.eval("Massiv[0].Value=true");

Стол = СервисМанагер.createInstance("com.sun.star.frame.Desktop");

ВремПуть = СтрЗаменить(ПутьДляСохранения, "\", "/");

ВремПуть = СтрЗаменить(ВремПуть, " ", "%20");

УРЛ = "file:///"+ВремПуть+"/"+ТабДокумент.ИспользуемоеИмяФайла+".xls";



Документ = Стол.LoadComponentFromURL(УРЛ,"_blank",0,Массив);

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

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



Листы=Документ.getSheets();

ЛистДанные=Листы.getByIndex(0);



СтилиСтраницы=Документ.StyleFamilies.getByName("PageStyles");

ПараметрыСтраницы=СтилиСтраницы.getByName(ЛистДанные.PageStyle);



//Установка полей

ПараметрыСтраницы.LeftMargin   = ТабДокумент.ПолеСлева  * 100;

ПараметрыСтраницы.RightMargin  = ТабДокумент.ПолеСправа * 100;

ПараметрыСтраницы.TopMargin    = ТабДокумент.ПолеСверху * 100;

ПараметрыСтраницы.BottomMargin = ТабДокумент.ПолеСнизу  * 100;



//Установка ориентации

Если ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт Тогда

   ПараметрыСтраницы.IsLandscape = Истина;

   ПараметрыСтраницы.Width  = 29700;

   ПараметрыСтраницы.Height = 21000;

Иначе

   ПараметрыСтраницы.IsLandscape = Ложь;

   ПараметрыСтраницы.Width  = 21000;

   ПараметрыСтраницы.Height = 29700;

КонецЕсли;



//Установка масштаба печати

ПараметрыСтраницы.PageScale = ТабДокумент.МасштабПечати;



//Сохранение документа

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

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

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

Документ.Close(Истина);



//Отключаем COM - соединение

Стол.terminate();

   

  // maharbA

Функция Hex(Пар)

  Результат="";

  Пока Пар>0 Цикл

    Результат=Сред("0123456789ABCDEF",Пар+1,1)+Результат;

    Пар=Цел(Пар/16) ;

  КонецЦикла;

  Возврат ""+Результат;

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

Функция ПолучитьПринтерПоУмолчанию()

  ПринтерПоУмолчанию="";

  Scr = CreateObject("MSScriptControl.ScriptControl");

  Scr.Language = "javascript";

  Scr.Timeout=-1;

  КоллекцияПринтеров = Service.ExecQuery("S_elect Name,Attributes from Win32_Printer");

  Scr.AddObject("o",КоллекцияПринтеров);

  e=Scr.eval("new Enumerator(o);");

  Пока e.atEnd(0)=0 Цикл

    БайтАтрибута=Прав(Hex(e.item(0).Attributes),1);

    Если ((БайтАтрибута>"3") И (БайтАтрибута<"8")) или (БайтАтрибута>"B") Тогда

      ПринтерПоУмолчанию=e.item(0).Name;

      Прервать;

    КонецЕсли;

    e.moveNext(0);

  КонецЦикла;

  Возврат ПринтерПоУмолчанию;

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

   МСВорд = СоздатьОбъект("Word.Application"); 

	Документ = МСВорд.Documents;

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

	Документ = МСВорд.ActiveDocument();

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

	Диапазон = Документ.Paragraphs(Документ.Paragraphs.Count()).Range;

    //Добавим таблицу фиксированного размера 3х2

	Документ.Tables.Add(Диапазон,3,2);

	Документ.Tables(1).Range.S_elect(); 

	Выбор = МСВорд.S_election();

	Выбор.Style = "Сетка таблицы";

	//Установим ширину обоих колонок по 8 см

	Документ.Tables(1).Columns(1).Width= МСВорд.CentimetersToPoints(8);

	Документ.Tables(1).Columns(2).Width= МСВорд.CentimetersToPoints(8);

	//Заполнение

	Документ.Tables(1).Cell(1,1).Range.Text = "Это первая сирока, первая колонка";

	Документ.Tables(1).Cell(2,1).Range.Text = "";

	Документ.Tables(1).Cell(3,1).Range.Text = "";

	Документ.Tables(1).Cell(1,2).Range.Text = "";

	Документ.Tables(1).Cell(2,2).Range.Text = "";

	Документ.Tables(1).Cell(3,2).Range.Text = "Это третья строка, вторая колонка";



    //Добавим таблицу с произвольным количеством строк, для примера возьмем 4 колонки

	//Сначала выведем заголовок таблицы

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

	Диапазон = Документ.Paragraphs(Документ.Paragraphs.Count()).Range;

	Документ.Tables.Add(Диапазон,1,4);

	Документ.Tables(2).Range.S_elect(); 

	Выбор = МСВорд.S_election();

	Выбор.Style = "Сетка таблицы";

    Выбор.Rows.AllowBreakAcrossPages = 0; 

	//Зададим ширину колонок

	Документ.Tables(2).Columns(1).Width= МСВорд.CentimetersToPoints(2);

	Документ.Tables(2).Columns(2).Width= МСВорд.CentimetersToPoints(4);

	Документ.Tables(2).Columns(3).Width= МСВорд.CentimetersToPoints(4);

	Документ.Tables(2).Columns(4).Width= МСВорд.CentimetersToPoints(10);

	//Заполнение шапки таблицы

	Документ.Tables(2).Cell(1,1).Range.Paragraphs(1).Alignment = 1;

	Документ.Tables(2).Cell(1,1).Range.Text = "№";

	Документ.Tables(2).Cell(1,2).Range.Paragraphs(1).Alignment = 1;

	Документ.Tables(2).Cell(1,2).Range.Text = "Колонка 2";

	Документ.Tables(2).Cell(1,3).Range.Paragraphs(1).Alignment = 1;

	Документ.Tables(2).Cell(1,3).Range.Text = "Колонка 3";

	Документ.Tables(2).Cell(1,4).Range.Paragraphs(1).Alignment = 1;

	Документ.Tables(2).Cell(1,4).Range.Text = "Примечание";



        //Для документа можно так цикл организовать:

        //Предположим, что Док - это документ, тогда

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

	        Док.ПолучитьСтрокуПоНомеру(А);

        	Выбор.I_nsertRowsBelow(1); 

	        Документ.Tables(2).Cell(А+1,1).Range.Text = Строка(А);//номер строки

        	Документ.Tables(2).Cell(А+1,2).Range.Text = Док.РеквизитТабличнойЧастиДокумента1;

	        Документ.Tables(2).Cell(А+1,3).Range.Text = Док.РеквизитТабличнойЧастиДокумента2;

        	Документ.Tables(2).Cell(А+1,4).Range.Text = Док.РеквизитТабличнойЧастиДокумента3;

        КонецЦикла;



       //или выведем таблицу по таблице значений

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

    	//Добавим строку в таблицу

		Выбор.I_nsertRowsBelow(1); 

		Документ.Tables(2).Cell(А+1,1).Range.Text = Строка(А);//номер строки

		Документ.Tables(2).Cell(А+1,2).Range.Text = ТЗ.ПолучитьЗначение(А,1);

		Документ.Tables(2).Cell(А+1,3).Range.Text = ТЗ.ПолучитьЗначение(А,2);

		Документ.Tables(2).Cell(А+1,4).Range.Text = ТЗ.ПолучитьЗначение(А,3);

	КонецЦикла; 



        //Запишем Документ

	Документ.SaveAs("ПутьИИмяДокумента",0); 

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

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

	Док.ПолучитьСтрокуПоНомеру(А);

	Выбор.I_nsertRowsBelow(1); 

	Документ.Tables(2).Cell(А+1,1).Range.Text = Строка(А);//номер строки

	Документ.Tables(2).Cell(А+1,2).Range.Text = Док.РеквизитТабличнойЧастиДокумента1;

	Документ.Tables(2).Cell(А+1,3).Range.Text = Док.РеквизитТабличнойЧастиДокумента2;

	Документ.Tables(2).Cell(А+1,4).Range.Text = Док.РеквизитТабличнойЧастиДокумента3;

КонецЦикла;   

 //Emigachev Проверим дату на компе

	Если ТекущаяДата()<Дата(2009,1,1) Тогда 

		Предупреждение("Установите правильную дату!");

		//Открыть диалог установки Даты и Времени

		ЗапуститьПриложение("rundll32 shell32,Control_RunDLL timedate.cpl");

	КонецЕсли;   

 

echo off

cls

"C:\Program Files\1cv81\bin\1cv8.exe" ENTERPRISE /S"server\ESKM" /N"Admin" /P"ESKM" /DisableStartupMessages /C"ЗавершитьРаботуПользователей"

"C:\Program Files\1cv81\bin\1cv8.exe" CONFIG /S"server\ESKM" /N"Admin" /P"ESKM" /DisableStartupMessages /UpdateDBCfg /UC"ПакетноеОбновлениеКонфигурацииИБ"

"C:\Program Files\1cv81\bin\1cv8.exe" ENTERPRISE /S"server\ESKM" /N"Admin" /P"ESKM" /C"РазрешитьРаботуПользователей" /UC"ПакетноеОбновлениеКонфигурацииИБ"   

 

Функция ВытащитьДату(Стр)

	парсер=СоздатьОбъект("VBScript.RegExp");

	парсер.Global=-1;

	парсер.IgnoreCase =-1;  

	стрМес="Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec";

	парсер.Pattern="(\d\d)\s(("+стрМес+"))\s(\d{4})";

	рез = парсер.Execute(Стр);

	Если рез.Count>0 Тогда

		рез_ = рез.Item(0);

		чч=Число(рез_.Submatches(0));

		мст=рез_.Submatches(1);  

		где=Найти(стрМес,мст);

		мм=цел(где/4)+1;

		гг=Число(рез_.Submatches(3));  

		дат=Дата(гг,мм,чч);

	Иначе

		дат=0;

	КонецЕсли;

	Возврат дат;

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



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

	ТЗ=СоздатьОбъект("ТаблицаЗначений");

	ТЗ.НоваяКолонка("ИД","Число");

	ТЗ.НоваяКолонка("Дата","Дата"); 

	ТЗ.НоваяКолонка("Заголовок","Строка");

	ТЗ.НоваяКолонка("Ссылка","Строка");

	ТЗ.НоваяКолонка("Текст","Строка"); 

	

	Состояние("Получение данных с сайта www.buh.ru");

	

	//ТаймАут поставьте в зависимости от качества подключения

	ТаймАут=100000;

	

	IE=СоздатьОбъект("InternetExplorer.Application");

	IE.navigate("http://www.buh.ru/rss/rss-2.0.jsp");

	Пока IE.readyState<4 Цикл

		ТаймАут=ТаймАут-1;

		Если ТаймАут=0 Тогда

			Предупреждение("Не удалось получить данные с сайта www.buh.ru",10);

			Возврат;

		КонецЕсли;

	КонецЦикла;        

	

	//версия 0.1 для v7plus.dll 

	//ХМЛ=СоздатьОбъект("AddIn.XMLParser");  

	//ХМЛДок=ХМЛ.СоздатьДокумент();

	//ХМЛДок.Загрузить(oIE.document.XMLDocument); 

	//Выборка=ХМЛДок.ВыбратьУзлы("//item");

	//Для ии=0 По Выборка.КоличествоУзлов()-1 Цикл 

	//	ЭлНовость=Выборка.ПолучитьУзел(ии);

	//	ТЗ.НоваяСтрока();

	//	ТЗ.Дата=ВытащитьДату(ЭлНовость.ВыбратьУзел("./pubDate").Текст);

	//	ТЗ.Заголовок=ЭлНовость.ВыбратьУзел("./title").Текст;

	//	ТЗ.Ссылка=ЭлНовость.ВыбратьУзел("./link").Текст;

	//	ТЗ.Текст=ЭлНовость.ВыбратьУзел("./description").Текст;

	//КонецЦикла; 

	

	//версия 0.2 для MSXML

	ХМЛДок=СоздатьОбъект("MSXML2.DOMDocument");;

	ХМЛДок.async=0;

	ХМЛДок.resolveExternals=0;

	ХМЛДок.load(IE.document.XMLDocument); 

	Выборка=ХМЛДок.selectNodes("//item");

	Для ии=0 По Выборка.length-1 Цикл 

		ЭлНовость=Выборка.item(ии);

		ТЗ.НоваяСтрока();

		ТЗ.Дата=ВытащитьДату(ЭлНовость.selectSingleNode("./pubDate").text);

		ТЗ.Заголовок=ЭлНовость.selectSingleNode("./title").text;

		ТЗ.Ссылка=ЭлНовость.selectSingleNode("./link").text;

		ТЗ.Текст=ЭлНовость.selectSingleNode("./description").text;

	КонецЦикла; 

    //Все. Мы получили ТЗ с последними новостями

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

 

Процедура Сформировать(ДискДляЗаписи="E:\",АвтоИзвлечениеСД=0,АвтоЗакрытиеМастера=1)

    Перем Имя,Каталог;

    scr=СоздатьОбъект("MSScriptControl.ScriptControl");

    scr.language="javascript";

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

    scr.AddObject("Shell",shell);

    ИмяСлужбы="ImapiService";

    Если Shell.CanStartStopService(ИмяСлужбы)=0 Тогда

        Предупреждение("Вам недозволено записывать диски СД!",5);

        Возврат;

    КонецЕсли;

    scr.Eval("Shell.ServiceStart('"+ИмяСлужбы+"',true)");

    РасположениеФайла(Каталог,Имя);

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

        Возврат;

    КонецЕсли;

    fso=СоздатьОбъект("Scripting.FileSystemObject");

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

    КаталогДляЗаписи=wshshell.regread("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\CD Burning");

    fso.CopyFile(Каталог+Имя,КаталогДляЗаписи+"\"+Имя,-1);

    ДискДляЗаписиNS=shell.NameSpace(ДискДляЗаписи);

    wshshell.regwrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\CD Burning\Auto Eject",АвтоИзвлечениеСД,"REG_DWORD");

    wshshell.regwrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\CD Burning\Auto Close",АвтоЗакрытиеМастера,"REG_DWORD");

    scr.AddObject("Verbs",ДискДляЗаписиNS.items().item().verbs());

    e=scr.Eval("new Enumerator(Verbs)");

    Пока e.atEnd(0)=0 Цикл

        Если Найти(Нрег(e.item(0).name),"записать файлы на компакт-диск")>0 Тогда

            e.item(0).doit();

            Пока wshshell.appactivate("Мастер записи компакт-дисков")=0 Цикл

            КонецЦикла;

            wshshell.sendkeys("{ENTER}")

        КонецЕсли;

        e.moveNext(0);

    КонецЦикла;

    Пока wshshell.appactivate("Мастер записи компакт-дисков")=-1 Цикл

        ВвестиСтроку("","Пауза",1,0,1);

    КонецЦикла;

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

 

"C:\Program Files\Ahead\Nero\NeroCmd.exe" --no_user_interaction --write --real --iso Archive_1C --drivename M --force_erase_cdrw --dvd --dvd_high_compatibility --close_session --verify E:\Full_Archive_1C\*.* >H:\BackUp\Log\write.log