Set WshShell = CreateObject("WScript.Shell")

dim d,m,y

                    

d = day(date())

if d < 10 then

   d = "0" & d

end if

                     

m = month(date())

if m < 10 then

   m = "0" & m

end if

                     

y = year(date())

                     

h = Hour(Time())

if h < 10 then

   h = "0" & h

end if



Min = Minute(Time())

if Min < 10 then

   Min = "0" & Min

end if

                     

S = Second(Time())

if S < 10 then

   S = "0" & S

end if



'Формируется полное имя файлов выгрузки и лога

s = d & "_" & m & "_" & y & "_" & h & "_" & Min & "_" & S



'Путь к файлу выгрузки

BackupPath = "/DumpIB \\Server1CBackup\SQL_Backup\1c_backup\ZUP\BACKUP\ZUP_" & s & ".dt"



'Путь к логу

LogPath = "/Out \\Server1CBackup\SQL_Backup\1c_backup\ZUP\log\ZUP_Log_" & s & ".log -NoT_runcate"



'Путь к фалу запуска программы 1С

one1CPath = """%systemdrive%\Program Files\1cv81\bin\1cv8.exe"""



'Параметры запуска базы (SQL)                имя кластера\имя базы      пользователь    пароль

Paramters =                       "DESIGNER /S Server1C\ZUP /N UserAdmin1C /P PassWordUserAdmin1C /DisableStartupMessages"



Set fs = CreateObject("Scripting.FileSystemObject")





'Запуск

WshShell.Run one1CPath & " " & Paramters& " " & LogPath & " " & BackupPath, 0, True    

 // Функция вычислет степень числа
// _База    - Число                - Число, возводимое в степень
// _Степ   - Число                - Степень числа
Функция Степень(_База, _Степ)
                Результат = 1;
                Для К = 1 По _Степ Цикл
                               Результат = Результат *_База;                              
                КонецЦикла;
                Возврат Результат;
КонецФункции 
// Возвращает Число, возведенное в степень
   

 ACos(<Число>)   

 ASin(<Число>)   

 ATan(<Число>)   

 Cos(<Угол>)   

 Exp(<Число>)   

 Log(<Число>)   

 Log10(<Число>)   

 Sin(<Угол>)   

 Tan(<Угол>)   

 // Hижe пpивeдeн Полный тeкcт мoдyля, coдepжaщeгo фyнкции 
// КвaдpaтныйКopeнь(), 
// ЭкcПонeнтa(), 
// CтeпeннaяФyнкция(), 
// Cинyc(), Кocинyc() и Taнгeнc().
//Источник http://www.kb.mista.ru/article.php?id=78

// Toчнocть c кoтopoй вычиcляютcя Значeния функций
// КвaдpaтныйКopeнь(), ЭкcПонeнтa(), CтeпeннaяФункция()
Перем ДocтaтoчнaяToчнocть;
// Кoличecтвo Значaщиx знaкoв Поcлe зaпятoй для peзультaтoв,
// вoзвpaщaeмыx функциями
// КвaдpaтныйКopeнь(), ЭкcПонeнтa(), CтeпeннaяФункция()
Перем КoличecтвoЗнaкoв;
// Максимaльнoe кoличecтвo итepaций, кoтopoe выПолняeтcя в функцияx
// КвaдpaтныйКopeнь(), ЭкcПонeнтa(), CтeпeннaяФункция()
Перем КoличecтвoИтepaций;
// Чиcлo "пи"
Перем ЧиcлoПИ;
Функция КвaдpaтныйКopeнь(Apгумeнт) Далее
Функция ЭкcПонeнтa(Apгумeнт) Далее
Функция CтeпeннaяФункция(Apгумeнт1,Apгумeнт2) Далее
Функция Cинуc(Знач Apгумeнт, TипApгумeнтa = 0) Далее
Функция Кocинуc(Знач Apгумeнт, TипApгумeнтa = 0) Далее
Функция Taнгeнc(Знач Apгумeнт, TипApгумeнтa = 0) Далее

//******************************************************************
// КвaдpaтныйКopeнь(Apгумeнт)
//
// Пapaмeтpы:
// Apгумeнт - нeoтpицaтeльнoe чиcлo
//
// Boзвpaщaeмoe Значeниe:
// Квaдpaтный кopeнь Apгумeнтa
//
// Oпиcaниe
// ПpeднaЗначeнa для иcчиcлeния квaдpaтнoгo кopня чиcлa c
// пpимeнeниeм итepaциoннoгo мeтoдa Hьютoнa
// Итepaции выПолняютcя дo дocтижeния тoчнocти, зaдaннoй
// внeшнeй (публичнoй) Перемeннoй ДocтaтoчнaяToчнocть
//
Функция КвaдpaтныйКopeнь(Apгумeнт)
     // Oгpaничимcя oблacтью oпpeдeлeния функции
     Если Apгумeнт<0 Тогда
          // cooбщeниe oб oшибкe
          Сообщить("...","!");
          Возврат ПолучитьПустоеЗначение();
          // Oтceчeм нoль
     ИначеЕсли Apгумeнт=0 Тогда
          Возврат 0;
     КонецЕсли;
     // Bыбepeм пepвoe пpиближeниe
     ПpeдыдущaяИтepaция = Apгумeнт/2;
     Для Cч=1 По КoличecтвoИтepaций Цикл
          Значeниe = 0.5*(ПpeдыдущaяИтepaция+
          Apгумeнт/ПpeдыдущaяИтepaция);
          Если Значeниe<ПpeдыдущaяИтepaция Тогда
               Paзницa = ПpeдыдущaяИтepaция-Значeниe;
          Иначе
               Paзницa = Значeниe-ПpeдыдущaяИтepaция;
          КонецЕсли;
          Если Paзницa<ДocтaтoчнaяToчнocть Тогда
               Прервать;
          КонецЕсли;
          ПpeдыдущaяИтepaция=Значeниe;
     КонецЦикла;
     Значeниe = Окр(Значeниe,Макс(КoличecтвoЗнaкoв-Лог10(Значeниe),0));
     Возврат Значeниe;
КонецФункции            // кoнeц функции КвaдpaтныйКopeнь
//******************************************************************
// ЭкcПонeнтa(Apгумeнт)
//
// Пapaмeтpы:
// Apгумeнт - чиcлo
//
// Boзвpaщaeмoe Значeниe:
// Чилo e в cтeпeни Apгумeнт
//
// Oпиcaниe
// ПpeднaЗначeнa для иcчиcлeния экcПонeнты c пpимeнeниeм
// pядa Maклopeнa (чacтный cлучaй pядa Tэйлopa)
// Итepaции выПолняютcя дo дocтижeния тoчнocти, зaдaннoй
// внeшнeй (публичнoй) Перемeннoй ДocтaтoчнaяToчнocть
//
//
Функция ЭкcПонeнтa(Apгумeнт)
     Значeниe = 1;
     ПpeдыдущийЧлeн = 1;
     Для Cч=1 По КoличecтвoИтepaций Цикл
          OчepeднoйЧлeн = ПpeдыдущийЧлeн*Apгумeнт/Cч;
          Значeниe = Значeниe+OчepeднoйЧлeн;
          Toчнocть = OчepeднoйЧлeн/Значeниe;
          Если (Toчнocть<ДocтaтoчнaяToчнocть) И (OчepeднoйЧлeн<0.1) Тогда
               Прервать;
          КонецЕсли;
          ПpeдыдущийЧлeн=OчepeднoйЧлeн;
     КонецЦикла;
     Значeниe = Окр(Значeниe,Макс(КoличecтвoЗнaкoв-Лог10(Значeниe),0));
     Возврат Значeниe;
КонецФункции      // кoнeц функции ЭкcПонeнтa
//******************************************************************
// CтeпeннaяФункция(Apгумeнт1, Apгумeнт2)
//
// Пapaмeтpы:
// Apгумeнт1 - чиcлo, кoтopoe вoзвoдитcя в cтeпeнь Apгумeнт2
// Apгумeнт2 - чиcлo
//
// Boзвpaщaeмoe Значeниe:
// Чиcлo Apгумeнт1 в cтeпeни Apгумeнт2
// Oпиcaниe
// ПpeднaЗначeнa для иcчиcлeния cтeпeннoй функции c пpимeнeниeм
// pядa Maклopeнa (чacтный cлучaй pядa Tэйлopa)
// Итepaции выПолняютcя дo дocтижeния тoчнocти, зaдaннoй
// внeшнeй (публичнoй) Перемeннoй ДocтaтoчнaяToчнocть
//
//
Функция CтeпeннaяФункция(Apгумeнт1,Apгумeнт2)
     // Пpoвepим бaзу cтeпeннoй функции
     Если Apгумeнт1<0 Тогда
          // cooбщeниe oб oшибкe
          Сообщить("...","!");
          // Oтceчeм нoль
     ИначеЕсли Apгумeнт1=0 Тогда
          Возврат 0;
     КонецЕсли;
     Значeниe = 1;
     ПpeдыдущийЧлeн = 1;
     Для Cч=1 По КoличecтвoИтepaций Цикл
          OчepeднoйЧлeн = ПpeдыдущийЧлeн*Apгумeнт2*Лог(Apгумeнт1)/Cч;
          Значeниe = Значeниe+OчepeднoйЧлeн;
          Toчнocть = OчepeднoйЧлeн/Значeниe;
          Если Toчнocть<0 Тогда
               Toчнocть = -Toчнocть;
          КонецЕсли;
          Если (Toчнocть<ДocтaтoчнaяToчнocть) И (OчepeднoйЧлeн<0.1) Тогда
               Прервать;
          КонецЕсли;
          ПpeдыдущийЧлeн=OчepeднoйЧлeн;
     КонецЦикла;
     Значeниe = Окр(Значeниe,Макс(КoличecтвoЗнaкoв-Лог10(Значeниe),0));
     Возврат Значeниe;
КонецФункции      // кoнeц функции CтeпeннaяФункция
//******************************************************************
// CлужTaнгeнc(Apгумeнт)
//
// Пapaмeтpы:
// Apгумeнт - чиcлo, Значeниe углa в paдиaнax
//
// Boзвpaщaeмoe Значeниe:
// Taнгeнc зaдaннoгo углa
//
// Oпиcaниe
// ПpeднaЗначeнa для иcчиcлeния тaнгeнca зaдaннoгo в paдиaнax углa
// в oблacти Значeний oт 0 дo ПИ/8
// ИcПользуeтcя функциями Cинуc(), Кocинуc() и Taнгeнc()
// Иcчиcлeниe пpoизвoдитcя c иcПользoвaниeм цeпнoй дpoби
//
//
Функция CлужTaнгeнc(Apгумeнт)
     КвApгум = Apгумeнт*Apгумeнт;
     Значeниe = Apгумeнт/(1-КвApгум/(3-КвApгум/(5-КвApгум/(7-КвApгум/(9-КвApгум/(11-КвApгум/(13-КвApгум/(15-КвApгум))))))));
     Возврат Значeниe;
КонецФункции      // кoнeц функции CлужTaнгeнc
//******************************************************************
// Cинуc(Apгумeнт, TипApгумeнтa = 0)
//
// Пapaмeтpы:
// Apгумeнт - чиcлo, Значeниe углa
// TипApгумeнтa - чиcлo, тип пapaмeтpa Apгумeнт
// 0 - Значeниe углa Apгумeнт зaдaнo в paдиaнax
// 1 - Значeниe углa Apгумeнт зaдaнo в гpaдуcax
// Значeниe По умoлчaнию - 0
//
// Boзвpaщaeмoe Значeниe:
// Cинуc зaдaннoгo углa
//
// Oпиcaниe
// ПpeднaЗначeнa для иcчиcлeния cинуca углa, зaдaннoгo в
// paдиaнax или гpaдуcax
// Oблacть oпpeдeлeния функции нe oгpaничeнa
//
//
Функция Cинуc(Знач Apгумeнт, TипApгумeнтa = 0)
     Если TипApгумeнтa=1 Тогда
          Apгумeнт = (Apгумeнт/180)*ЧиcлoПИ;
     КонецЕсли;
     ЗнaкPeзультaтa=1;
     // Пpивeдeм к oблacти 0 - 2ПИ
     Если Apгумeнт<0 Тогда
          Apгумeнт=-Apгумeнт;
          ЗнaкPeзультaтa=-1*ЗнaкPeзультaтa;
     КонецЕсли;
     Apгумeнт = Apгумeнт-Цел(Apгумeнт/(2*ЧиcлoПИ))*2*ЧиcлoПИ;
     // тeпepь пpивeдeм к oблacти 0 - ПИ
     Если Apгумeнт>ЧиcлoПИ Тогда
          Apгумeнт = Apгумeнт-ЧиcлoПИ;
          ЗнaкPeзультaтa=-1*ЗнaкPeзультaтa;
     КонецЕсли;
     // тeпepь пpивeдeм к oблacти 0 - ПИ/2
     Если Apгумeнт>ЧиcлoПИ/2 Тогда
          Apгумeнт=ЧиcлoПИ-Apгумeнт;
     КонецЕсли;
     // тeпepь пpивeдeм к oблacти 0 - ПИ/4
     Если Apгумeнт>ЧиcлoПИ/4 Тогда
          Значeниe = ЗнaкPeзультaтa*Кocинуc(ЧиcлoПИ/2-Apгумeнт);
     Иначе
          TaнгeнcПолoвины = CлужTaнгeнc(Apгумeнт/2);
          Значeниe = ЗнaкPeзультaтa*2*TaнгeнcПолoвины/
          (1+TaнгeнcПолoвины*TaнгeнcПолoвины);
     КонецЕсли;
     Возврат Значeниe;
КонецФункции       // кoнeц функции Cинуc
//*****************************************************************
// Кocинуc(Apгумeнт, TипApгумeнтa = 0)
//
// Пapaмeтpы:
// Apгумeнт - чиcлo, Значeниe углa
// TипApгумeнтa - чиcлo, тип пapaмeтpa Apгумeнт
// 0 - Значeниe углa Apгумeнт зaдaнo в paдиaнax
// 1 - Значeниe углa Apгумeнт зaдaнo в гpaдуcax
// Значeниe По умoлчaнию - 0
//
// Boзвpaщaeмoe Значeниe:
// Кocинуc зaдaннoгo углa
//
// Oпиcaниe
// ПpeднaЗначeнa для иcчиcлeния кocинуca углa, зaдaннoгo в
// paдиaнax или гpaдуcax
// Oблacть oпpeдeлeния функции нe oгpaничeнa
//
//
Функция Кocинуc(Знач Apгумeнт, TипApгумeнтa = 0)
     Если TипApгумeнтa=1 Тогда
          Apгумeнт = (Apгумeнт/180)*ЧиcлoПИ;
     КонецЕсли;
     // Пpивeдeм к oблacти 0 - 2ПИ
     Если Apгумeнт<0 Тогда
          Apгумeнт=-Apгумeнт;
     КонецЕсли;
     Apгумeнт = Apгумeнт-Цел(Apгумeнт/(2*ЧиcлoПИ))*2*ЧиcлoПИ;
     // Если Попaли в oблacть 0 - ПИ/4 - cчитaeм чecтнo
     Если Apгумeнт<ЧиcлoПИ/4 Тогда
          TaнгeнcПолoвины = CлужTaнгeнc(Apгумeнт/2);
          Значeниe = (1-TaнгeнcПолoвины*TaнгeнcПолoвины)/
          (1+TaнгeнcПолoвины*TaнгeнcПолoвины);
     Иначе
          Значeниe = Cинуc(Apгумeнт+ЧиcлoПИ/2);
     КонецЕсли;
     Возврат Значeниe;
КонецФункции      // кoнeц функции Кocинуc
//******************************************************************
// Taнгeнc(Apгумeнт, TипApгумeнтa = 0)
//
// Пapaмeтpы:
// Apгумeнт - чиcлo, Значeниe углa
// TипApгумeнтa - чиcлo, тип пapaмeтpa Apгумeнт
// 0 - Значeниe углa Apгумeнт зaдaнo в paдиaнax
// 1 - Значeниe углa Apгумeнт зaдaнo в гpaдуcax
// Значeниe По умoлчaнию - 0
//
// Boзвpaщaeмoe Значeниe:
// Taнгeнc зaдaннoгo углa
//
// Oпиcaниe
// ПpeднaЗначeнa для иcчиcлeния тaнгeнca углa, зaдaннoгo в
// paдиaнax или гpaдуcax
// B тoм cлучae, Если для Значeния Apгумeнт функция нe
// oпpeдeлeнa (нaпpимep, пи/2 paдиaн)
// вoзвpaщaeтcя пуcтoe Значeниe c cooбщeниeм oб oшибкe
//
//
Функция Taнгeнc(Знач Apгумeнт, TипApгумeнтa = 0)
     Если TипApгумeнтa=1 Тогда
          Apгумeнт = (Apгумeнт/180)*ЧиcлoПИ;
     КонецЕсли;
     ЗнaкPeзультaтa=1;
     // Пpивeдeм к oблacти 0 - ПИ
     Если Apгумeнт<0 Тогда
          Apгумeнт=-Apгумeнт;
          ЗнaкPeзультaтa=-1*ЗнaкPeзультaтa;
     КонецЕсли;
     Apгумeнт = Apгумeнт-Цел(Apгумeнт/(ЧиcлoПИ))*ЧиcлoПИ;
     // Пpивeдeм к oблacти 0 - ПИ/2
     Если Apгумeнт>ЧиcлoПИ/2 Тогда
          Apгумeнт=ЧиcлoПИ-Apгумeнт;
          ЗнaкPeзультaтa=-1*ЗнaкPeзультaтa;
     КонецЕсли;
     // Если Попaли в oблacть ПИ/8
     Если Apгумeнт<ЧиcлoПИ/8 Тогда
          Значeниe = ЗнaкPeзультaтa*CлужTaнгeнc(Apгумeнт);
     Иначе
          // oбoйдeм дeлeниe нa нoль
          Попытка
               Значeниe = ЗнaкPeзультaтa*Cинуc(Apгумeнт)/
               Кocинуc(Apгумeнт);
          Исключение
               // cooбщeниe oб oшибкe
               Сообщить("...","!");
               Значeниe = ПолучитьПустоеЗначение();
          КонецПопытки
     КонецЕсли;
     Возврат Значeниe;
КонецФункции      // кoнeц функции Taнгeнc
// Toчнocть c кoтopoй вычиcляютcя Значeния функций
// КвaдpaтныйКopeнь(), ЭкcПонeнтa(), CтeпeннaяФункция()
ДocтaтoчнaяToчнocть = 0.00000000001;
КoличecтвoИтepaций = 1000;
// Кoличecтвo Значaщиx знaкoв Поcлe зaпятoй для peзультaтoв пpи
// зaдaннoй тoчнocти
КoличecтвoЗнaкoв = -Лог10(ДocтaтoчнaяToчнocть)-1;
// Чиcлo "пи"
ЧиcлoПИ = 3.1415926535897932384626433832795;

 VBS=CreateObject("MSScriptControl.ScriptControl");

VBS.Language="VBscript";

Параметр=1234;

Корень=VBS.Eval("sqr("+СокрЛП(Параметр)+")");

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

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

   Ctrl.Language="vbscript";

   Ctrl.AddCode("

   |pi=4 * atn(1.0)

   |

   |Function ShowPI

   |ShowPI=pi

   |End Function

   |

   |Function CalcSQR(number)

   |if number<0 then

   | CalcSQR=0

   |else

   | CalcSQR=SQR(Number)

   |end if

   |End Function

   |

   |Function CalcSIN(number)

   |CalcSin=Sin(number/(180/pi))

   |End Function

   |

   |Function CalcCOS(number)

   |CalcCOS=COS(number/(180/pi))

   |End Function

   |

   |Function CalcTAN(number)

   |CalcTAN=TAN(number/(180/pi))

   |End Function

   |

   |Function CalcRND

   |Randomize

   |CalcRND=RND

   |End Function

   |

   |Function NameOfWeekDay(MyDate)

   |NameOfWeekDay=WeekDayName(Weekday(MyDate),False)

   |End Function

   |

   |");

                  

   Сообщить(Ctrl.Run("ShowPI")); // Число ПИ

   Сообщить(Ctrl.Run("CalcSQR",4)); // Квадратный корень из 4

   Сообщить(Ctrl.Run("CalcSin",90)); // Синус 90 градусов

   Сообщить(Ctrl.Run("CalcCOS",180)); // Косинус 180 градусов

   Сообщить(Ctrl.Run("CalcTAN",180)); // Тангенс 90 градусов

   Сообщить(Ctrl.Run("CalcRND")); // Случайное число от 0 до 1

   Сообщить(Ctrl.Run("NameOfWeekDay",ТекущаяДата())); // Название дня недели

 // Пример от  Jaap Vduul 

// Пример чтения таблицы из OpenOffice:

// =====================================    

    ServiceManager     = СоздатьОбъект("com.sun.star.ServiceManager");

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

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

    script.Language     = "vbs";

    script.AddCode

    (

        "Dim Parameters()

        |   

        |Sub InitParameters(Size)

        |     

        |    Erase Parameters

        |

        |    If Size > 0 Then 

        |        Redim Parameters(Size - 1) 

        |    End If

        |

        |End Sub

        |    

        |Sub SetParameter(ServiceManager, Name, Value, Index)

        |

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

        |    PropertyValue.Name     = Name

        |    PropertyValue.Value     = Value

        |    

        |    Set Parameters(Index) = PropertyValue

        |

        |End Sub

        |    

        |Sub SetBooleanParameter(ServiceManager, Name, Value, Index)

        |    

        |    SetParameter ServiceManager, Name, Cbool(Value), Index

        |

        |End Sub

        |

        |Function LoadDocument(ComponentLoader, URL, TargetFrameName, SearchFlags)

        |   

        |    Set LoadDocument = ComponentLoader.loadComponentFromURL(URL, TargetFrameName, SearchFlags, Parameters)

        |

        |End Function

        |

        |Sub CloseDocument(Document)

        |

        |    Document.Close True

        |

        |End Sub"

    );

       

    script.Run("InitParameters", 2);

    script.Run("SetBooleanParameter", ServiceManager, "ReadOnly",     1, 0);

    script.Run("SetBooleanParameter", ServiceManager, "Hidden",         1, 1);



    URL = ПреобразоватьВURL(КаталогПриказов + НомерПриказа + ".rtf");

    Документ = script.Run("LoadDocument", Desktop, URL, "_blank", 0);

    Таблица = Документ.TextTables.getByIndex(0); // ссылка на первую таблицу



    ВсегоСтрок         = Таблица.getRows().getCount();

    ВсегоСтолбцов     = Таблица.getColumns().getCount();

     

    Для ИндексСтроки = 1 По (ВсегоСтрок - 1) Цикл // ИндексСтроки = 1, т.к. пропускаем заголовок

        Для ИндексСтолбца = 0 По (ВсегоСтолбцов - 1) Цикл

            Ячейка = Таблица.getCellByPosition(ИндексСтолбца, ИндексСтроки);

            ТекстЯчейки = Ячейка.getString();

        КонецЦикла;

    КонецЦикла;



    script.Run("CloseDocument", Документ);

  Перем СсылкаНаДокумент;

Процедура СформироватбФайл_MS_Word_И_OpenOffice(Кнопка)
	
	ДокументСсылка = СсылкаНаДокумент;
	ИмяФайла = ПолучитьИмяВременногоФайла();

	// Теперь формируем файл из MS Wordа
	Попытка
		
		MSWord = новый COMОбъект("Word.Application");
		//Передаем текущие параметры форм в MSWord
		MSWord.Documents.Open(ИмяФайла);	
		MSWordDoc = MSWord.ActiveDocument();
		
		WordContent =  MSWord.ActiveDocument().ActiveWindow.S_election;
		
		//------------------------------------------------------------
		// Перебираем таблицы в документе, и сопоставляем имена переменных
		// с именами табличных частей.
		Для ТекущаяТаблица = 1 ПО MSWordDoc.Tables.Count Цикл 
			мТабличнаяЧасть = Неопределено;
			Для ТекущаяСтрока  = 1 ПО MSWordDoc.Tables(ТекущаяТаблица).Rows.Count Цикл 
				Для ТекущаяКолонка = 1 ПО MSWordDoc.Tables(ТекущаяТаблица).Columns.Count Цикл 
					
					мТабличнаяЧасть = ИмяТабличнойЧастиВСтроке(
					ПолучитьСтартПеременной( MSWordDoc.Tables(ТекущаяТаблица).Cell(ТекущаяСтрока,ТекущаяКолонка).Range.Text	) 
					,ДокументСсылка);
					
					Если  мТабличнаяЧасть <> Неопределено Тогда
						Прервать;;	
					КонецЕсли;	
					
				КонецЦикла;
				Если  мТабличнаяЧасть <> Неопределено Тогда
					Прервать;;	
				КонецЕсли;	
			КонецЦикла;
			
			//Итак мы имеем номер текущей таблицы  и имя табличной части
			Если  мТабличнаяЧасть <> Неопределено Тогда
				//Производим редактирование нашей таблицы в соответствии с количеством строк
				ВсегоСтрокТЧ = 0;
				Для Каждого строкаТЧ Из  ДокументСсылка[мТабличнаяЧасть.Имя] Цикл
					ВсегоСтрокТЧ = ВсегоСтрокТЧ+1;
				КонецЦикла;
				//ВсегоСтрокТЧ = ДокументСсылка[мТабличнаяЧасть.Имя].Количество;
				// Добавляем строки
				Для ТекущаяСтрокаТЧ  = 1  По ВсегоСтрокТЧ Цикл
					Если ТекущаяСтрокаТЧ <> ВсегоСтрокТЧ  Тогда
						MSWordDoc.Tables(ТекущаяТаблица).Rows.Add(MSWordDoc.Tables(ТекущаяТаблица).Rows(ТекущаяСтрока+ТекущаяСтрокаТЧ-1));
					КонецЕсли;	
					//MSWordDoc.Tables(ТекущаяТаблица).Cell(ТекущаяСтрока+ТекущаяСтрокаТЧ-1,2).Range.Text = Строка(ТекущаяСтрокаТЧ);
					Для ТекКол = 1 ПО MSWordDoc.Tables(ТекущаяТаблица).Columns.Count Цикл 
						Если ТекущаяСтрокаТЧ <> ВсегоСтрокТЧ  Тогда
							ТекстПеременной = ПолучитьПеременнуюИзСтроки(СокрЛП(MSWordDoc.Tables(ТекущаяТаблица).Cell(ТекущаяСтрока+ТекущаяСтрокаТЧ,ТекКол).Range.Text));
							ТекстПеременной = ?(ПустаяСтрока(ТекстПеременной),"", "["+"_"+Строка(ТекущаяСтрокаТЧ)+"_"+ТекстПеременной+"]");
							MSWordDoc.Tables(ТекущаяТаблица).Cell(ТекущаяСтрока+ТекущаяСтрокаТЧ-1,ТекКол).Range.Text = ТекстПеременной;
						Иначе
							ТекстПеременной = ПолучитьПеременнуюИзСтроки(СокрЛП(MSWordDoc.Tables(ТекущаяТаблица).Cell(ТекущаяСтрока+ТекущаяСтрокаТЧ-1,ТекКол).Range.Text));
							ТекстПеременной = ?(ПустаяСтрока(ТекстПеременной),"", "["+"_"+Строка(ТекущаяСтрокаТЧ)+"_"+ТекстПеременной+"]");
							MSWordDoc.Tables(ТекущаяТаблица).Cell(ТекущаяСтрока+ТекущаяСтрокаТЧ-1,ТекКол).Range.Text = ТекстПеременной;
						КонецЕсли;	
					КонецЦикла;	
				КонецЦикла;	
				//MSWordDoc.Tables(ТекущаяТаблица).Rows.Delete();
				//MSWordDoc.Tables(ТекущаяТаблица).Rows(3).Delete();
			КонецЕсли;	
		КонецЦикла;
		
		//------------------------------------------------------------
		// Вытаскивам из шаблона текст 
		ТекстДокумента = MSWordDoc.Range(0, MSWordDoc.Characters.Count).Text;
		
		// Из текста вытаскиваем Имена переменных залюченных а скобки []
		Список = ПолучитьСписокПеременных(ТекстДокумента);
		//Список.ВыбратьЭлемент();
		
		// Заполняем в структуру ревизитовперечень переменных
		СтруктураРеквизитов=СтруктураРеквизитовДокумента(ДокументСсылка);
		ЗначениеРеквизита="";
		Для Каждого ЭлементСписка Из Список Цикл
			
			// Если находится соответствие переменной из документа и шаблона то производим замену
			Если СтруктураРеквизитов.Свойство(ЭлементСписка.Значение, ЗначениеРеквизита ) Тогда
				//Сообщить("["+ЭлементСписка.Значение+"]"+" : "+ЗначениеРеквизита);
				WordContent.Find.Execute("["+ЭлементСписка.Значение+"]",0,0,0,0,0,-1,,,Строка(ЗначениеРеквизита),2);		
			Иначе
				Сообщить("-> " + ЭлементСписка.Значение+" - Не найден в структуре документа");
				// Заменим переменную на пустую строку
				WordContent.Find.Execute("["+ЭлементСписка.Значение+"]",0,0,0,0,0,-1,,," ",2);		
			КонецЕсли;
			
		КонецЦикла;
		
		//автоматически обновляем поля документа
		MSWord.S_election.WholeStory();
		MSWord.S_election.Fields.Update();
		MSWord.S_election.HomeKey();	
		
		//MSWordDoc.SaveAs(ИмяФайла);
		
		//отображаем MSWord
		MSWord.Visible=1;
		MSWord.Activate();
		
	Исключение
		Предупреждение(ОписаниеОшибки());
		MSWord.Quit();
	КонецПопытки;
	
	
	// Теперь формируем файл из OpenOffice
	
	Попытка
		ServiceManager = Новый COMОбъект("com.sun.star.ServiceManager");
		Reflection = ServiceManager.createInstance("com.sun.star.reflection.CoreReflection");
		Desktop = ServiceManager.createInstance("com.sun.star.frame.Desktop");
		
		Args = Новый COMSafeArray("VT_DISPATCH", 1);
		OOДокумент = Desktop.loadComponentFromURL(ПреобразоватьВURL(ИмяФайла), "_blank", 0, Args);
		
		//------------------------------------------------------------
		// Перебираем таблицы в документе, и сопоставляем имена переменных
		// с именами табличных частей.
		Для ТекущаяТаблица = 0 ПО OOДокумент.getTextTables().Count-1 Цикл 
			мТабличнаяЧасть = Неопределено;
			Для ТекущаяСтрока  = 0 ПО OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).Rows.Count-1 Цикл 
				Для ТекущаяКолонка = 0 ПО OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).Columns.Count-1 Цикл 
					
					мТабличнаяЧасть = ИмяТабличнойЧастиВСтроке(
					ПолучитьСтартПеременной( OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).getCellByPosition(ТекущаяКолонка, ТекущаяСтрока).string	) 
					,ДокументСсылка);
					
					Если  мТабличнаяЧасть <> Неопределено Тогда
						Прервать;;	
					КонецЕсли;	
					
				КонецЦикла;
				Если  мТабличнаяЧасть <> Неопределено Тогда
					Прервать;;	
				КонецЕсли;	
			КонецЦикла;
			
			//Итак мы имеем номер текущей таблицы  и имя табличной части
			Если  мТабличнаяЧасть <> Неопределено Тогда
				//Производим редактирование нашей таблицы в соответствии с количеством строк
				ВсегоСтрокТЧ = 0;
				Для Каждого строкаТЧ Из  ДокументСсылка[мТабличнаяЧасть.Имя] Цикл
					ВсегоСтрокТЧ = ВсегоСтрокТЧ+1;
				КонецЦикла;
				//ВсегоСтрокТЧ = ДокументСсылка[мТабличнаяЧасть.Имя].Количество;
				// Добавляем строки
				Для ТекущаяСтрокаТЧ  = 1  По ВсегоСтрокТЧ Цикл
					Если ТекущаяСтрокаТЧ <> ВсегоСтрокТЧ  Тогда
						// Добавляем строку перед нашей
						OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).Rows.I_nsertByIndex(ТекущаяСтрока+ТекущаяСтрокаТЧ-1, 1);
					КонецЕсли;	
					
					Для ТекКол = 0 ПО OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).Columns.Count-1 Цикл 
						
						Если ТекущаяСтрокаТЧ <> ВсегоСтрокТЧ  Тогда             
							ТекстПеременной = ПолучитьПеременнуюИзСтроки(СокрЛП(OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).getCellByPosition(ТекКол, ТекущаяСтрока+ТекущаяСтрокаТЧ).string));
							ТекстПеременной = ?(ПустаяСтрока(ТекстПеременной),"", "["+"_"+Строка(ТекущаяСтрокаТЧ)+"_"+ТекстПеременной+"]");
							OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).getCellByPosition(ТекКол, ТекущаяСтрока+ТекущаяСтрокаТЧ-1).string = ТекстПеременной;
						Иначе                                                   
							ТекстПеременной = ПолучитьПеременнуюИзСтроки(СокрЛП(OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).getCellByPosition(ТекКол, ТекущаяСтрока+ТекущаяСтрокаТЧ-1).string));
							ТекстПеременной = ?(ПустаяСтрока(ТекстПеременной),"", "["+"_"+Строка(ТекущаяСтрокаТЧ)+"_"+ТекстПеременной+"]");
							
							OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).getCellByPosition(ТекКол, ТекущаяСтрока+ТекущаяСтрокаТЧ-1).string = ТекстПеременной;
						КонецЕсли;	
					КонецЦикла;	
				КонецЦикла;	
			КонецЕсли;	
		КонецЦикла;
		
		//------------------------------------------------------------
		// Вытаскивам из шаблона текст 
		//ТекстДокумента = MSWordDoc.Range(0, MSWordDoc.Characters.Count).Text;
		ТекстДокумента = ООПолучитьТекст(OOДокумент);
		
		// Из текста вытаскиваем Имена переменных залюченных а скобки []
		Список = ПолучитьСписокПеременных(ТекстДокумента);
		//Список.ВыбратьЭлемент();
		
		// Заполняем в структуру ревизитовперечень переменных
		СтруктураРеквизитов=СтруктураРеквизитовДокумента(ДокументСсылка);
		ЗначениеРеквизита="";
		
		OOЗамена = OOДокумент.CreateReplaceDescriptor();
		
		Для Каждого ЭлементСписка Из Список Цикл
			
			// Если находится соответствие переменной из документа и шаблона то производим замену
			Если СтруктураРеквизитов.Свойство(ЭлементСписка.Значение, ЗначениеРеквизита ) Тогда
				OOЗамена.SearchString  = "["+ЭлементСписка.Значение+"]";
				OOЗамена.ReplaceString = Строка(ЗначениеРеквизита);
				OOДокумент.ReplaceAll(OOЗамена);
			Иначе
				Сообщить("-> " + ЭлементСписка.Значение+" - Не найден в структуре документа");
				// Заменим переменную на пустую строку
				OOЗамена.SearchString  = "["+ЭлементСписка.Значение+"]";
				OOЗамена.ReplaceString = " ";
				OOДокумент.ReplaceAll(OOЗамена);
				
			КонецЕсли;
			
		КонецЦикла;
		OOДокумент.getCurrentController().getFrame().getContainerWindow().setFocus();
		
	Исключение
		Предупреждение(ОписаниеОшибки());
	КонецПопытки;			
	
КонецПроцедуры    

   //ДОПОЛНИТЕЛЬНО НЕОБХОДИМЫЕ ФУНКЦИИ

// Добавлем форматы представления полей и дополнительную информацию о полях

Процедура ДобавитьФорматы(ПереченьРеквизитов,Значение,пПредставлениеРеквизита, ДокументСсылка = Неопределено)

	Если ТипЗнч(Значение) = Тип("Дата")  Тогда  // расширяем представление даты

		ПереченьРеквизитов.Вставить(пПредставлениеРеквизита+"_"+"ДФddMMyyyy",Формат(Значение,"ДФ=dd.MM.yyyy"));

		ПереченьРеквизитов.Вставить(пПредставлениеРеквизита+"_"+"ДЛФDD",Формат(Значение,"ДЛФ=DD"));

	ИначеЕсли ТипЗнч(Значение) = Тип("Число") Тогда  // расширяем представление числа

		ПереченьРеквизитов.Вставить(пПредставлениеРеквизита+"_"+"ЧДЦ2ЧГ0",Формат(Значение,"ЧДЦ=2; ЧГ=0"));

		ПереченьРеквизитов.Вставить(пПредставлениеРеквизита+"_"+"ЧДЦ2",Формат(Значение,"ЧДЦ=2"));

		ПереченьРеквизитов.Вставить(пПредставлениеРеквизита+"_"+"ЧПропись",Значение);

	ИначеЕсли  (ТипЗнч(Значение) = Тип("СправочникСсылка.КонтактныеЛица"))  или  (ТипЗнч(Значение) = Тип("СправочникСсылка.ФизическиеЛица")) Тогда

		// Расширяем выводимые поля для типов физ. лица, контакные лица сокращением инициалов	

		ПереченьРеквизитов.Вставить(пПредставлениеРеквизита+"_"+"ФИО",Строка(Значение));

	КонецЕсли

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



Процедура ЗаполнитьРеквизиты(мГлубинаРекурсии,ПереченьРеквизитов,РеквизитСсылка,Реквизит,пПредставлениеРеквизита)

	

	мГлубинаРекурсии = мГлубинаРекурсии+1;

	ПереченьРеквизитов.Вставить(пПредставлениеРеквизита+"_"+"Код",РеквизитСсылка["Код"]);

	ПереченьРеквизитов.Вставить(пПредставлениеРеквизита+"_"+"Наименование",РеквизитСсылка["Наименование"]);

	

	Для Каждого ЭлементРеквизита Из Реквизит.Реквизиты  Цикл

		ПереченьРеквизитов.Вставить(пПредставлениеРеквизита+"_"+ЭлементРеквизита.Имя,РеквизитСсылка[ЭлементРеквизита.Имя]);

		Если (Найти(ЭлементРеквизита.Тип,"Справочник ссылка")>0) И (мГлубинаРекурсии <=3) И (Найти(ЭлементРеквизита.Тип,",")=0) Тогда

			///+++

			ЗаполнитьРеквизиты(мГлубинаРекурсии, ПереченьРеквизитов,РеквизитСсылка[ЭлементРеквизита.Имя],РеквизитСсылка[ЭлементРеквизита.Имя].Метаданные(),пПредставлениеРеквизита+"_"+ЭлементРеквизита.Имя);

		Иначе

			ДобавитьФорматы(ПереченьРеквизитов,РеквизитСсылка[ЭлементРеквизита.Имя],пПредставлениеРеквизита+"_"+ЭлементРеквизита.Имя);

		КонецЕсли

	КонецЦикла;	

	

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



Функция ПолучитьСписокПеременных(ТекстШаблона)

	СписокПеременных = Новый СписокЗначений();

	ЕщеЕсть = Истина;

	Пока ЕщеЕсть Цикл

		ПервыйСимвол = Найти(ТекстШаблона,"[");

		Если ПервыйСимвол > 0 Тогда

			ВторойСимвол = Найти(ТекстШаблона,"]");

			Если (ВторойСимвол > 0 И ВторойСимвол > ПервыйСимвол) Тогда

				СписокПеременных.Добавить(Сред(ТекстШаблона,ПервыйСимвол + 1,ВторойСимвол - ПервыйСимвол - 1));

				ТекстШаблона = Сред(ТекстШаблона,ВторойСимвол + 1);

			Иначе

				ЕщеЕсть = Ложь;

			КонецЕсли;

		Иначе

			ЕщеЕсть = Ложь;

		КонецЕсли;

	КонецЦикла;

	Возврат СписокПеременных;

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



Функция СтруктураРеквизитовДокумента(ДокументСсылка)  Экспорт

	ПереченьРеквизитов = Новый Структура;

	ПереченьРеквизитов.Вставить("Дата",ДокументСсылка["Дата"]);

	ДобавитьФорматы(ПереченьРеквизитов,ДокументСсылка["Дата"],"Дата");

	ПереченьРеквизитов.Вставить("Номер",ДокументСсылка["Номер"]);

	Реквизиты = ДокументСсылка.Метаданные().Реквизиты;

	Для Каждого Реквизит Из Реквизиты  Цикл

		мГлубинаРекурсии = 1;

		ПереченьРеквизитов.Вставить(Реквизит.Имя,ДокументСсылка[Реквизит.Имя]);

			ДобавитьФорматы(ПереченьРеквизитов,ДокументСсылка[Реквизит.Имя],Реквизит.Имя,ДокументСсылка);

		Если Найти(Реквизит.Тип,"Справочник ссылка")>0 Тогда

			ЗаполнитьРеквизиты(мГлубинаРекурсии,ПереченьРеквизитов,ДокументСсылка[Реквизит.Имя],ДокументСсылка[Реквизит.Имя].Метаданные(),Реквизит.Имя);

		Иначе

			//ДобавитьФорматы(ПереченьРеквизитов,ДокументСсылка[Реквизит.Имя],Реквизит.Имя);

		КонецЕсли;

	КонецЦикла;	

	ТабличныеЧасти = ДокументСсылка.Метаданные().ТабличныеЧасти;

	Для Каждого ТабличнаяЧасть Из ТабличныеЧасти  Цикл

		// Сообщить(ТабличнаяЧасть); // Для таблицы характеристик отрабатываем свой код // с выводом табличной части как набора реквизитов

		Если ТабличнаяЧасть.Имя = "Характеристики" Тогда

			Для Каждого СтрокаТабличнойЧасти Из ДокументСсылка[ТабличнаяЧасть.Имя]  Цикл

				мПредставлениеРеквизита = "Характеристика"+"_"+СтрЗаменить(СтрокаТабличнойЧасти["ВидХарактеристики"], " ", "_");

				мЗначение = СтрокаТабличнойЧасти["ЗначениеХарактеристики"];

				ПереченьРеквизитов.Вставить(мПредставлениеРеквизита,мЗначение);

				ДобавитьФорматы(ПереченьРеквизитов,мЗначение,мПредставлениеРеквизита,ДокументСсылка);

				Если Найти(ТипЗнч(мЗначение),"Справочник ссылка")>0 Тогда

					ЗаполнитьРеквизиты(мГлубинаРекурсии,ПереченьРеквизитов,мЗначение,мЗначение.Метаданные(),мПредставлениеРеквизита);

				КонецЕсли;

				

			КонецЦикла;	

		КонецЕсли;	

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

		Реквизиты = ТабличнаяЧасть.Реквизиты;

		Для Каждого Реквизит Из Реквизиты  Цикл

			Для Каждого СтрокаТабличнойЧасти Из ДокументСсылка[ТабличнаяЧасть.Имя]  Цикл

				мГлубинаРекурсии = 1;

				мПредставлениеРеквизита = "_"+СтрокаТабличнойЧасти.НомерСтроки+"_"+ТабличнаяЧасть.Имя+"_НомерСтроки";

				ПереченьРеквизитов.Вставить(мПредставлениеРеквизита,Строка(СтрокаТабличнойЧасти.НомерСтроки));

				мПредставлениеРеквизита = "_"+СтрокаТабличнойЧасти.НомерСтроки+"_"+ТабличнаяЧасть.Имя+"_"+Реквизит.Имя;

				мЗначение = СтрокаТабличнойЧасти[Реквизит.Имя];

				ПереченьРеквизитов.Вставить(мПредставлениеРеквизита,мЗначение);

				ДобавитьФорматы(ПереченьРеквизитов,мЗначение,мПредставлениеРеквизита,ДокументСсылка);

				Если Найти(ТипЗнч(мЗначение),"Справочник ссылка")>0 Тогда

					ЗаполнитьРеквизиты(мГлубинаРекурсии,ПереченьРеквизитов,мЗначение,мЗначение.Метаданные(),мПредставлениеРеквизита);

				Иначе

					//ДобавитьФорматы(ПереченьРеквизитов,мЗначение,мПредставлениеРеквизита);

				КонецЕсли;

			КонецЦикла;	

			//Если реквизит числовой, то подсчитываем итог  

			Если Реквизит.Тип.СодержитТип(Тип("Число"))  Тогда

				мЗначение = ДокументСсылка[ТабличнаяЧасть.Имя].Итог(Реквизит.Имя);

				мПредставлениеРеквизита = "Итог"+"_"+ТабличнаяЧасть.Имя+"_"+Реквизит.Имя;

				ПереченьРеквизитов.Вставить(мПредставлениеРеквизита,мЗначение);

				ДобавитьФорматы(ПереченьРеквизитов,мЗначение,мПредставлениеРеквизита,ДокументСсылка);

			КонецЕсли;

		КонецЦикла;			

	КонецЦикла;	    	

	Возврат ПереченьРеквизитов;

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



Функция ИмяТабличнойЧастиВСтроке(Строка,ДокументСсылка)

	ТабличнаяЧасть=Неопределено;

	Если НЕ ПустаяСтрока(Строка) Тогда

		ТабличнаяЧасть = ДокументСсылка.Метаданные().ТабличныеЧасти.Найти(Строка) 

	КонецЕсли;	

	Возврат ТабличнаяЧасть;

	

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



//Получает первый кусок переменной до _

Функция ПолучитьСтартПеременной(ПереданнаяСтрока) Экспорт

	СтартПеременной = "";

	ПервыйСимвол = Найти(ПереданнаяСтрока,"[");

	Если  ПервыйСимвол > 0 Тогда

		ВторойСимвол = Найти(ПереданнаяСтрока,"]");

		Если  (ВторойСимвол > 0) И (ВторойСимвол > ПервыйСимвол) Тогда

			Переменная = (Сред(ПереданнаяСтрока,ПервыйСимвол+1,ВторойСимвол-ПервыйСимвол-1));

			ВторойСимвол = Найти(Переменная,"_");

			Если  (ВторойСимвол > 0) И (ВторойСимвол > 1) Тогда

				СтартПеременной = Сред(Переменная,1,ВторойСимвол-1);

			КонецЕсли;	

		КонецЕсли;	

		

	КонецЕсли;	

	

	Возврат СтартПеременной;	

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



// Получает переменную заключенную в скобки

Функция ПолучитьПеременнуюИзСтроки(ПереданнаяСтрока) Экспорт

	Переменная = "";

	ПервыйСимвол = Найти(ПереданнаяСтрока,"[");

	Если  ПервыйСимвол > 0 Тогда

		ВторойСимвол = Найти(ПереданнаяСтрока,"]");

		Если  (ВторойСимвол > 0) И (ВторойСимвол > ПервыйСимвол) Тогда

			Переменная = (Сред(ПереданнаяСтрока,ПервыйСимвол+1,ВторойСимвол-ПервыйСимвол-1));

		КонецЕсли;	

		

	КонецЕсли;	

	Возврат Переменная;	

КонецФункции// Идентифицирует табличную часть в строке



// Функция преобразует Windows имя файла в URL OpenOffice

Функция ПреобразоватьВURL(ИмяФайла)

	Возврат "file:///" + СтрЗаменить(ИмяФайла, "\", "/");

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



// Функция извлекает текст из документа

Функция ООПолучитьТекст(OOДокумент)

	Текст = "";

	oParEnum = OOДокумент.getText().createEnumeration();

	Пока  oParEnum.hasMoreElements() Цикл

		oPar = oParEnum.nextElement();

		Если  oPar.supportsService("com.sun.star.text.Paragraph") ТОгда

			Текст = Текст + oPar.getString();

		ИначеЕсли oPar.supportsService("com.sun.star.text.TextTable") Then

			//Сообщить(oPar.getString());

		КонецЕсли;

	КонецЦикла;

	Для ТекущаяТаблица = 0 ПО OOДокумент.getTextTables().Count-1 Цикл 

		Для ТекущаяСтрока  = 0 ПО OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).Rows.Count-1 Цикл 

			Для ТекущаяКолонка = 0 ПО OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).Columns.Count-1 Цикл 

				Текст = Текст + OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).getCellByPosition(ТекущаяКолонка, ТекущаяСтрока).string;

			КонецЦикла;

		КонецЦикла;

	КонецЦикла;

	Возврат Текст;

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

 Коннектор = Новый COMОбъект("V81.COMConnector");

Сервер = Коннектор.ConnectWorkingProcess("TestServer");

	

// Аутентифицироваться с административными правами в нужной базе.

Сервер.AddAuthentication("Администратор", " ");

	

// Создать объект нужной информационной базы. 

ИнформационнаяБаза = Сервер.CreateInfoBaseInfo();

ИнформационнаяБаза.Name = "Test_Base";

	

// Получить соединения базы.

СоединенияБазы = Сервер.GetIBConnections(ИнформационнаяБаза);

	

// Разорвать соединения клиентских приложений.

Для Каждого Соединение Из СоединенияБазы Цикл

	Сервер.Disconnect(Соединение);

КонецЦикла;   

 

'Скрипт демонстрирует возможность принудительного завершения процессов 1С

'на всех компьютерахуказанного домена. Данный код можно применять непосредственно перед пакетным запуском 1С:Предприятия,

'требующим монопольного входа в базу данных (например, при резервном копировании).



'ВНИМАНИЕ! Задайте нужное значение переменной "DomainName"!



'ВНИМАНИЕ! Для успешной работы скрипта его желательно запускать с правами администратора домена.



'ВНИМАНИЕ! Чтобы опробовать скрипт, не производя деструктивных действий, достаточно закомментировать

'оператор "Proc.Terminate".



Option Explicit

On Error Resume Next



Dim DomainName 'Имя домена

DomainName = "MYDOMAIN"



Dim StrResult 'строка результата работы всей программы

StrResult = StrResult & CStr(Now) & " начало работы скрипта" & VbCrLf



Dim ADSI

Set ADSI = GetObject("WinNT://" & DomainName)

ADSI.Filter = Array("computer")



Dim Comp 'компьютер

Dim WMI 'объект WMI

Dim Proc 'процесс



Dim CurrName 'имя текущего компьютера

CurrName = GetNameComp()



'Цикл по компьютерам домена

For Each Comp In ADSI

    If Comp.Name <> CurrName Then

        Set WMI = GetObject("winmgmts:{ImpersonationLevel=Impersonate}!\\" & Trim(Comp.Name) & "\Root\CIMV2")

        If Err.Number=0 Then

            'Цикл по процессам компьютера

            For Each Proc In WMI.ExecQuery("S_elect * FROM Win32_Process WHERE Name = '1cv7s.exe'")

                StrResult = StrResult & _

                            CStr(Now) & " Computer=" & Comp.Name & " PID=" & Proc.ProcessId & _

                            VbCrLf

                'Завершение процесса

                Proc.Terminate

            Next 'Цикл по процессам компьютера

        Else 'Не удалось соединиться с компьютером

            If Err.Number <> 462 Then 'The remote server machine does not exist or is unavailable

                StrResult = StrResult & _

                  	        "    " & CStr(Now) & " Computer=" & Comp.Name & " ERROR " & Err.Number & _

                      	    VbCrLf

            End If

        End If

        Err.Clear

    End If

Next 'Цикл по компьютерам домена



StrResult = StrResult & CStr(Now) & " конец работы скрипта" & VbCrLf



'Отображение результата

ShowInNotepad("Процессы 1cv7s.exe:" & VbCrLf & VbCrLf & StrResult)

'==========================================================================

'Процедура отображает переданную строку в блокноте

Sub ShowInNotepad(StrToFile)

    Dim FSO 'Объект файловой системы Scripting.FileSystemObject

    Dim TempPath 'Путь к временному файлу

    Dim TxtFile 'Поток текстового файла

    

    Set FSO = CreateObject("Scripting.FileSystemObject")

    TempPath = GetTempPath() & "\" & FSO.GetTempName

    Set TxtFile = FSO.CreateTextFile(TempPath)

    TxtFile.WriteLine(StrToFile)

    TxtFile.Close

    CreateObject("WScript.Shell").Run "notepad.exe " & TempPath

    WScript.Sleep 1000

    FSO.DeleteFile TempPath

End Sub 'ShowInNotepad

'==========================================================================

'Функция возвращает путь к каталогу временных файлов текущего пользователя

Function GetTempPath()

    GetTempPath = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%TEMP%")

End Function 'GetTempPath

'==========================================================================

'Функция возвращает имя текущего компьютера

Function GetNameComp()

    GetNameComp = CreateObject("WScript.Network").ComputerName

End Function 'GetNameComp    

 // В приведенном примере производится подключение к агенту сервера, выбирается первый кластер. 

// Для этого кластера получается список информационных баз, который затем обходится в цикле.



Соединитель = Новый COMObject("V81.COMConnector");



ИмяМашины = "SERVANT";

Порт = "1540"; 

СтрокаСоединения = "TCP://" + ИмяМашины + ":" + Порт;



СоединениеСАгентом = Соединитель.ConnectAgent(СтрокаСоединения);

МассивКластеров = СоединениеСАгентом.GetClusters();



// получается первый массив кластера.

ОписаниеКластера = МассивКластеров.GetValue(МассивКластеров.GetLowerBound());



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

СоединениеСАгентом.authenticate(ОписаниеКластера, " ", " ");

	

МассивБаз = СоединениеСАгентом.GetInfoBases(ОписаниеКластера);

МаксимальныйИндекс = МассивБаз.GetUpperBound();



Для ТекущийИндекс = МассивБаз.GetLowerBound() По МаксимальныйИндекс Цикл

	ОписаниеБазы = МассивБаз.GetValue(ТекущийИндекс);

	

	Сообщить(ОписаниеБазы.Descr);

	Сообщить(ОписаниеБазы.Name);

	

КонецЦикла;    

 
//Таб - ТабличныйДокумент
//ИмяФайла – путь для сохранения файла PDF  (например «D:\Torg12.pdf»)
Процедура СоздатьФайлПДФ(Таб, ИмяФайла)

Попытка
ПДФПринтер = Новый ComObject(«Bullzip.PDFPrinterSettings»);
ПДФПринтер.SetValue(«output», ИмяФайла);
ПДФПринтер.SetValue(«ShowSaveAS», «never»);
ПДФПринтер.SetValue(«ShowProgress», «no»);
ПДФПринтер.SetValue(«ShowProgressFinished», «no»);
ПДФПринтер.SetValue(«ShowSettings», «never»);
ПДФПринтер.SetValue(«ShowPDF», «no»);
ПДФПринтер.SetValue(«ConfirmOverwrite»,»no»);
ПДФПринтер.WriteSettings();
Таб.Автомасштаб = Истина;
Таб.ИмяПринтера = «Bullzip PDF Printer»;Таб.Напечатать(Истина);
PDFФайл = Новый Файл(ИмяФайла);

Пока НЕ PDFФайл.Существует() Цикл
ОбработкаПрерыванияПользователя();
КонецЦикла;

Исключение

Сообщить(ОписаниеОшибки());
Сообщить(«Скорее всего необходимо установить или переустановить «»Bullzip PDF Printer»);
КонецПопытки;
//устанавливаем принтер по умолчанию
Таб.ИмяПринтера = ПолучитьПринтерПоУмолчанию();
КонецПроцедуры   

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

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



Скрипт = Новый ComObject(«MSScriptControl.ScriptControl»);

Скрипт.Language = «vbscript»;

Скрипт.AddCode(»

|Function GetDefaultPrinter()

|GetDefaultPrinter=vbNullString

|Set objWMIService=GetObject(«»winmgmts:»" _

|& «»{impersonationLevel=impersonate}!\\.\root\cimv2″»)

|Set colInstalledPrinters=objWMIService.ExecQuery _

|(«»S_elect * from Win32_Printer»")

|For Each objPrinter in colInstalledPrinters

|If objPrinter.Attributes and 4 Then

|GetDefaultPrinter=objPrinter.Name

|Exit For

|End If

|Next

|End Function»);

Возврат СокрЛП(Скрипт.run(«GetDefaultPrinter»));

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

 // Процедура получает из реестра список зарегистрированных ИБ 7.7
Процедура ПолучитьСписокИБ() 
	Попытка
		ScrptCtrl=Новый COMObject("MSScriptControl.ScriptControl");
		ScrptCtrl.Language="vbscript";
		ScrptCtrl.AddCode("
		|Function Get1CV77Titles()
		|	const HKEY_CURRENT_USER = &H80000001
		|	Set oReg=GetObject(""winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv"")
		|	strKeyPath = ""Software\1C\1Cv7\7.7\Titles""
		|	oReg.EnumValues HKEY_CURRENT_USER, strKeyPath, arrValues
		|	strInfo=vbNullString
		|   Get1CV77Titles = strInfo
		|	On Error Resume Next
		|	For i = LBound(arrValues) To UBound(arrValues)
		|		call oReg.GetStringValue(HKEY_CURRENT_USER,strKeyPath,arrValues(i),Value)
		|		strInfo=strInfo & arrValues(i) & vbTab & Value & vbCrLf
		|	Next		
		| 	Get1CV77Titles = strInfo
		|End Function
		|");
		Текст=СокрЛП(ScrptCtrl.Run("Get1CV77Titles"));
	Исключение
		Сообщить(ОписаниеОшибки());
		Возврат;
	КонецПопытки;
	
	ТаблицаПути.Очистить();
	
	Если НЕ ЗначениеЗаполнено(Текст) Тогда
		Возврат;
	КонецЕсли;
		
	Для Ном=1 По СтрЧислоСтрок(Текст) Цикл
		СтрБазы=СтрПолучитьСтроку(Текст,Ном);
		Разд=Найти(СтрБазы,Символы.Таб);
		Путь=Лев(СтрБазы,Разд-1);
		Название=Прав(СтрБазы,СтрДлина(СтрБазы)-Разд);
		
		НоваяСтрока = ТаблицаПути.Добавить();
		НоваяСтрока.Имя = Название;
		НоваяСтрока.Путь = Путь;
	КонецЦикла;
	
	ТаблицаПути.Сортировать("Имя");

КонецПроцедуры //ПолучитьСписокИБ

 

функция сзПолучитьСписокБаз()

    попытка

        // Создаем объект Microsoft Script Control.

        олеСкрипт = создатьобъект("MSScriptControl.ScriptControl");

        // Устанавливаем в качестве языка для выполнения сценариев Visual Basic

        олеСкрипт.Language = "VBScript";

        // Формируем код на VB.

        // В принципе он все делает. Создает объект

        // Windows Management Instrumentation и уже через него

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

        // в строку.

        стрКод =

        "function strGetListBase()

        |  const RootKey = &H80000001

        |  set Reg = GetObject(""winmgmts:{impersonationLevel=impersonate}!\\."" &_

        |                      ""\root\default:StdRegProv"")

        |  PathKey = ""Software\1C\1Cv7\7.7\Titles""

        |  Reg.EnumValues RootKey, PathKey, Arr

        |  Answer = ""{""""СписокЗначений"""",{""

        |  for x = LBound(Arr) to UBound(Arr)

        |    call Reg.GetStringValue(RootKey, PathKey, Arr(x), Value)

        |    Answer = Answer & ""{{""""Строка"""","""""" &_

        |             Arr(x) & """"""},"""""" & replace(Value, """""""", """""""""""") &_

        |             """""",""""0""""}""

        |    if x <> UBound(Arr) then Answer = Answer & "",""

        |  next

        |  Answer = Answer & ""}}""

        |  strGetListBase = Answer

        |end function";

        // Добавляем наш код.

        олеСкрипт.AddCode(стрКод);

        // Вызываем его на выполнение, и пытаемся из полученного результата

        // сформировать список значений.

        Ответ = значениеизстроки(олеСкрипт.Run("strGetListBase"));

        // Отсортируем список по Представлению баз

        Ответ.СортироватьПоПредставлению();

    исключение

        // Если произошла ошибка. Значит вернем "Error".

        Ответ = "Error";

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

    возврат Ответ;

конецфункции

 функция сзПолучитьСписокБаз()

    попытка

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

        олеСкрипт.Language = "VBScript";

        стрКод =

        "function strGetListBase()

        |  const RootKey = &H80000001

        |  set Reg = GetObject(""winmgmts:{impersonationLevel=impersonate}!\\."" &_

        |                      ""\root\default:StdRegProv"")

        |  PathKey = ""Software\1C\1Cv7\7.7\Titles""

        |  Reg.EnumValues RootKey, PathKey, Arr

        |  Answer = ""{""""#"""",4772b3b4-f4a3-49c0-a1a5-8cb5961511a3,"" & chr(10)

        |  Answer = Answer & ""{3,1e512aab-1b41-4ef6-9375-f0137be9dd91,0,0,"" & chr(10)

        |  Answer = Answer & ""{"" & (UBound(Arr) + 1) & "","" & chr(10)

        |  for x = LBound(Arr) to UBound(Arr)

        |    call Reg.GetStringValue(RootKey, PathKey, Arr(x), Value)

        |    Answer = Answer & ""{1e512aab-1b41-4ef6-9375-f0137be9dd91,"" & chr(10) &_

        |             ""{"""""" & replace(Value, """""""", """""""""""") & """""",0,"" &_

        |             chr(10) & ""{""""S"""","""""" & Arr(x)& """"""},"" &_

        |             chr(10) & ""{3,0,"" & chr(10) & ""{0},"""""""",-1,-1,0,0}"" &_

        |             chr(10) & ""}"" & chr(10) & ""}""

        |    if x <> UBound(Arr) then Answer = Answer & "",""

        |    Answer = Answer & chr(10)

        |  next

        |  Answer = Answer & ""},"" & chr(10) & ""{""""Pattern""""}"" & chr(10) &_

        |           ""}"" & chr(10) & ""}""

        |  strGetListBase = Answer

        |end function";

        олеСкрипт.AddCode(стрКод);

        стрОтвет = олеСкрипт.Run("strGetListBase");

        Ответ = ЗначениеИзСтрокиВнутр(стрОтвет);

        Ответ.СортироватьПоПредставлению();

    исключение

        Ответ = новый СписокЗначений;

        Ответ.Добавить("Базы 1С:Передприятия 7.7 не обнаруженны!");

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

    возврат Ответ;

конецфункции   

 
Функция ПолучитьСписокБаз1()
    Перем Value,arrValues;
    Scr = CreateObject("MSScriptControl.ScriptControl");
    Scr.Language = "vbscript";
    Scr.Timeout=-1;
    HKEY_CURRENT_USER = 2147483649;
    strKeyPath = "Software\1C\1Cv7\7.7\Titles";
    Locator=СоздатьОбъект("WbemScripting.SWbemLocator");
    ServiceDef=Locator.ConnectServer(".","root\default");
    oReg = ServiceDef.Get("StdRegProv");
    Dict=СоздатьОбъект("Scripting.Dictionary");
    Scr.AddObject("Dict",Dict);
    Scr.AddObject("oReg",oReg);
    Scr.ExecuteStatement("dim arrValues,Value:");
    Scr.ExecuteStatement("oReg.EnumValues "+HKEY_CURRENT_USER+","""+strKeyPath+""",arrValues:");
    Scr.ExecuteStatement("for i=lbound(arrValues) to ubound(arrValues):Dict.add ""pj"" & i, arrValues(i):next");
    ТЗБаз=СоздатьОбъект("ТаблицаЗначений");
    ТЗБаз.НоваяКолонка("Путь");
    ТЗБаз.НоваяКолонка("Описание");
    Для к=0 По Dict.count Цикл
        Д=Dict.Item("pj"+к);
        Scr.ExecuteStatement("oReg.GetStringValue "+HKEY_CURRENT_USER+","""+strKeyPath+""","""+Д+""",Value");
        ТЗБаз.НоваяСтрока();
        ТЗБаз.Путь = Д;
        ТЗБаз.Описание = Scr.eval("Value");
    КонецЦикла;
	//Посмотрим что в ТЗ
	//ТЗБаз.ВыбратьСтроку();
    Возврат ТЗБаз;
КонецФункции

Процедура ПолучитьСписокБаз2()
     Попытка
          scrptCtrl=createobject("MSScriptControl.ScriptControl");
          scrptCtrl.language="vbscript";
          scrptCtrl.addcode("Function Get1CV77Titles()
          |const HKEY_CURRENT_USER = &H80000001
          |Set oReg=GetObject(""winmgmts:{impersonationLevel=impersonate}!\\."" &_
          |""\root\default:StdRegProv"")
          |strKeyPath = ""Software\1C\1Cv7\7.7\Titles""
          |oReg.EnumValues HKEY_CURRENT_USER, strKeyPath, arrValues
          |strInfo=vbNullString
          |For i = LBound(arrValues) To UBound(arrValues)
          | call oReg.GetStringValue(HKEY_CURRENT_USER,strKeyPath,arrValues(i),Value)
          | strInfo=strInfo & arrValues(i) & ""="" & Value & vbCrLF
          |Next
          |Get1CV77Titles = strInfo 
          |End Function");
          Сообщить(scrptCtrl.run("Get1CV77Titles"));
     Исключение
          Сообщить(ОписаниеОшибки()); 
     КонецПопытки;
КонецПроцедуры
<Сообщил Gloom>
                  
Процедура ПолучитьСписокБаз3()
     Ключ="HKEY_CURRENT_USER\Software\1C\1Cv7\7.7\Titles";
     ИмяКаталога=СокрЛП(КаталогПользователя());
     ИмяБазы=СокрЛП(каталогИБ());
     Если прав(ИмяКаталога,1)<>"\" Тогда ИмяКаталога=ИмяКаталога+"\" КонецЕсли;
     Если прав(ИмяБазы,1)<>"\" Тогда ИмяБазы=ИмяБазы+"\" КонецЕсли;
     ИмяБазыСтр=Симв(34)+СтрЗаменить(ИмяБазы,"\","\\")+Симв(34);
     ИмяФайла="USER.TXT";
     Команда="Regedit /ea "+Симв(34)+ИмяКаталога+ИмяФайла+Симв(34)+" "+Симв(34)+Ключ+Симв(34);
     КомандаСистемы(Команда);
     Текст=СоздатьОбъект("Текст");
     Текст.КодоваяСтраница(0);
     Текст.Открыть(ИмяКаталога+ИмяФайла);
     Текст.Показать();
     Стр=""; Нашли=0;
     Для сч=1 по Текст.КоличествоСтрок() Цикл
          Стр=СокрЛП(Текст.ПолучитьСтроку(сч));
          Сообщить(Стр);
          Если Найти(стр,ИмяБазыСтр)<>0 Тогда
               Нашли=1;
               прервать;
          КонецЕсли;
     КонецЦикла;
КонецПроцедуры