#НаСервере

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

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

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

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

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

 

   Адрес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>"; 

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

 Option Explicit

Const Server = "62.76.65.113" ' Здесь мы зададим ip нашего общего ресурса (можно задать через имя компьютера)



If Ping (Server) = True Then ' проверим доступно ли место

Dim ProductCod 'код продукта (Смотри в каталоге каждого дистрибутива платформы в файле setup.ini

Dim DistrFolder 'каталог в которм находится дистрибутив платформы

Dim cmdLine 'Параметры запуска дистрибутива



'Деинсталируем предыдущие платформы

cmdLine = "REMOVE=ALL"



ProductCod = "{375C3BB1-6F1E-4D93-9AF7-6A379133CA81}"

DistrFolder= "\\" & Server & "\1s\8.2.10.73\"

    If Ustanovlena(ProductCod) Then ' Здесь и далее идет проверка на наличие установленной данной версии платформы

    SdelatEto ProductCod, DistrFolder + "1CEnterprise 8.2.msi", cmdLine

    'Иногда папка остается в каталоге installer после удаления - исправим это

    UdalitFolder ProductCod

    End If

    

ProductCod = "{8150646B-4F88-4415-AF2A-F96199E3DA37}"

DistrFolder= "\\" & Server & "\1s\8.2.10.77\"

    If Ustanovlena(ProductCod) Then 

    SdelatEto ProductCod, DistrFolder + "1CEnterprise 8.2.msi", cmdLine

    End If



'Установим текущую платформу

ProductCod = "{3D5173F0-371D-4B5D-B96A-9340D7F30431}"

DistrFolder= "\\" & Server & "\1s\8.2.10.82\"

cmdLine = "TRANSFORMS=adminstallrelogon.mst;1049.mst DESIGNERALLCLIENTS=0 THICKCLIENT=0 THINCLIENTFILE=1 THINCLIENT=1 WEBSERVEREXT=0 SERVER=0 CONFREPOSSERVER=0 CONVERTER77=0 SERVERCLIENT=0 LANGUAGES=RU" 

'В данном случае мне нужны только установленные тонкие клиенты, если надо больше - поменяйте на 1, то что надо установить   

    If Not Ustanovlena(ProductCod) Then ' Если текущая версия не установлена - установим ее

    SdelatEto ProductCod, DistrFolder + "1CEnterprise 8.2.msi", cmdLine

    End If    



ScopirovatSpisokBaz ' В любом случае обновим список ИБ (Вдруг или мы или пользователи, что-то поменяли)



End If  



Sub SdelatEto (ByVal productCode, ByVal msiPackage, ByVal CmdLine)

    On Error Resume Next

    Dim installer

    Set installer = Nothing

    Set installer = Wscript.CreateObject("WindowsInstaller.Installer")

    installer.UILevel = 2 'молчаливая установка (варианты смотрите в Руководстве администратора 8.2 стр.185

    installer.InstallProduct msiPackage,cmdLine

    Set installer = Nothing

End Sub



Sub UdalitFolder (ProductCod)

On Error Resume Next

Dim fso1, WSH1

set WSH1 = WScript.CreateObject("WScript.Shell")

Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")

fso1.DeleteFolder WSH1.ExpandEnvironmentStrings("%systemroot%") & "\Installer\" & ProductCod, True

End Sub



'Создаем список баз данных (копируем наш фал с сервера на клиент

Sub ScopirovatSpisokBaz

On Error Resume Next

Dim fso1, WSH1

Set WSH1 = WScript.CreateObject("WScript.Shell")

Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")

fso1.CopyFile "\\" & Server & "\1s\1CEStart\ibases.v8i",WSH1.ExpandEnvironmentStrings("%AppData%") & "\1C\1CEStart\ibases.v8i", True

End Sub



'создание ярлыка

Sub createShurtcut

    Dim WshShell, oShellLink, ServerBD, NameBD

    ServerBD = "IZO-NoteBook"

    NameBD = "1C_Dec_82" 

    Set WshShell = WScript.CreateObject("WScript.Shell")

    Dim strDesktop : strDesktop = WshShell.SpecialFolders("Desktop")

    Set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & shortcutName & ".lnk")

    oShellLink.TargetPath = WSHShell.ExpandEnvironmentStrings("%ProgramFiles%") & "\1cv82\Common\1cestart.exe /S" & ServerBD & "\" & NameBD 'Если не указывать параметры, то будет появлятся стандартное окно выбора ИБ, если укажем, то сразу имя пользователя-пароль 

    oShellLink.WindowStyle = 1

    oShellLink.Description = shortcutName

    oShellLink.Save 

    Set oShellLink = Nothing

    Set WshShell = Nothing

End Sub



Function Ustanovlena(ProductCod)

On Error Resume Next

Dim fso1, oFolders, WSH1

set WSH1 = WScript.CreateObject("WScript.Shell")

Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")

Set oFolders = Nothing

Set oFolders = fso1.GetFolder(WSH1.ExpandEnvironmentStrings("%systemroot%") & "\Installer\" & ProductCod)

If OFolders  Is Nothing Then

Ustanovlena = False

Else

Ustanovlena = True

End If

End Function



Function Ping(strHost)

' Просто пингуем наш компутер, проверяя включен ли он

        Dim objPing, objRetStatus

        Set objPing = GetObject("winmgmts:\\.\root\CIMV2").ExecQuery _

        ("S_elect * FROM Win32_PingStatus WHERE address = '" & strHost & "'")

        for Each objRetStatus in objPing

          if IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode<>0 Then

            Ping = False

          Else

            Ping = True

          End If

        Next

End Function   

 Процедура ОбработкаЗаданий()

  ВыполнитьОбработкуЗаданий();

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



ПодключитьОбработчикОжидания("ОбработкаЗаданий", 3);   

 

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    

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

oWord.WindowState = 1;

oWord.Height = 0;

oWord.Width = 0;

myopendial = oWord.FileDialog(3);

myopendial.AllowMultiSelect = -1;

myopendial.Title = "Выбирайте файлы...";

Для i = 1 По myopendial.Filters.Count Цикл

       myopendial.Filters.Delete();

КонецЦикла;

myopendial.Filters.Add("1С файлы", "*.ert; *.mxl; *.txt", 1);

oWord.Visible=-1;

oWord.Activate();

myopendial.Show();

Для i = 1 По myopendial.SelectedItems.Count Цикл

   Сообщить(myopendial.SelectedItems.Item(i));

КонецЦикла;

oWord.Quit();

 // Сформировать почтовый профиль.

// При отправке нет необходимости указывать настройки, связанные с POP сервером.

ИПП = Новый ИнтернетПочтовыйПрофиль;

ИПП.АдресСервераSMTP = Константы.АдресСервераSMTP.Получить();

ИПП.ВремяОжидания = Константы.ВремяОжидания.Получить();

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

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

ИПП.Пользователь = Константы.Пользователь.Получить();

ИПП.ПользовательSMTP = Константы.ПользовательSMTP.Получить();

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



// Создать сообщение.

Сообщение = Новый ИнтернетПочтовоеСообщение;

Сообщение.Получатели.Добавить("file@server.ru");

Сообщение.Отправитель.Адрес = "test@serv.ru";

Сообщение.Тема = "Срочно в номер!";

Сообщение.Тексты.Добавить("Доброе время суток!");



Вложение = Новый ДвоичныеДанные(ПутьКФайлуВложения);

Сообщение.Вложения.Добавить(Вложение,"attach.txt");



// Подключиться и отправить.

Почта = Новый ИнтернетПочта;

Почта.Подключиться(ИПП);

Почта.Послать(Сообщение);

Почта.Отключиться();



// Формирование почтового профиля.

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

СостояниеПриема = "Подключение к серверу";

ИПП = Новый ИнтернетПочтовыйПрофиль;

ИПП.АдресСервераPOP3 = Константы.АдресСервераPOP3.Получить();

ИПП.ВремяОжидания = Константы.ВремяОжидания.Получить();

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

ИПП.Пользователь = Константы.Пользователь.Получить();

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



Соединение = Новый ИнтернетПочта;

Соединение.Подключиться(ИПП);

СостояниеПриема = "Получение выборки писем";

Выборка = Соединение.Выбрать(ЗабиратьССервера);

СостояниеПриема = "Создание документов - писем";

КоличествоВВыборке = Выборка.Количество();

Индекс = 1;



Для Каждого Письмо Из Выборка Цикл

ТекПозиция = Окр(Индекс * 100/КоличествоВВыборке);

Если ТекПозиция <> Позиция Тогда

Позиция = ТекПозиция;

КонецЕсли;



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

Док.Тема = Письмо.Тема;

СтрПолучатели = "";



Для Каждого Адрес Из Письмо.Получатели Цикл

СтрПолучатели = СтрПолучатели + Адрес.Адрес + ",";

КонецЦикла;



Док.Получатели = СтрПолучатели;

Если ТипЗнч(Письмо.Отправитель) = Тип("Строка") Тогда

Отправитель = Письмо.Отправитель;

Иначе

Отправитель = Письмо.Отправитель.Адрес;

КонецЕсли;



Док.Отправитель = Отправитель;

Содержание = "";



Для Каждого ТекстСообщения Из Письмо.Тексты Цикл

Содержание = Содержание + ТекстСообщения.Текст + Символы.ПС;

КонецЦикла;



Док.Содержание = Содержание;

Индекс = Индекс + 1;

Док.Записать();

КонецЦикла;



Соединение.Отключиться();    

 // Отправка почты

Почта = Новый Почта;

Почта.Подключиться("login", "password");



Сообщ = Новый ПочтовоеСообщение;

Сообщ.Текст = "Вот файл!";

Сообщ.Тема = "Срочно!!!";



Данные = Новый ДвоичныеДанные("c:\file.txt");

Сообщ.Вложения.Добавить(Данные,"file.txt");

Сообщ.Получатели.Добавить("file@server.ru");



Почта.Послать(Сообщ, Ложь);

Почта.Отключиться();



// Получим почту

Почта = Новый Почта;

Почта.Подключиться("login", "password");



Выборка = Почта.Выбрать(Истина, Ложь);

Для Каждого Сообщение Из Выборка Цикл

Сообщить("Тема: " + Строка(Сообщение.Тема));

Сообщить("Текст: " + Строка(Сообщение.Текст));



Для Каждого Вложение Из Сообщение.Вложения Цикл

   Сообщить(Строка(Вложение.Наименование));

КонецЦикла;

КонецЦикла;    

  // Загрузка файлов на FTP сервер

Процедура ЗагрузитьОтмеченные(Кнопка)

Сервер = Новый FTPСоединение(FTPServer);

Для Каждого Файл Из ПолеСписка Цикл

   Если Файл.Пометка Тогда

     Сервер.Получить(Файл.Значение.ПолноеИмя, "с:\temp" + Файл.Значение.ПолноеИмя);

     Файл.Пометка = Ложь;

   КонецЕсли;

КонецЦикла;

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



// Просмотр файлов на FTP сервере

Процедура Просмотреть(Кнопка)

Сервер = Новый FTPСоединение(FTPServer);

МассивФайлов = Сервер.НайтиФайлы("/","*.*");

Для Каждого Файл Из МассивФайлов Цикл

   Если Файл.ЭтоФайл() Тогда

     ПолеСписка.Добавить(Файл, Файл.Имя)

   КонецЕсли;

КонецЦикла;

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

  ПапкаКонтрагена = "Kontr";

    Попытка

        ИмяFTPСервера               = "*******";

        ПортFTPСоединения           = "21";

        ПользовательFTPСоединения   = "****" ;

        ПарольFTPСоединения         =  "*****" ;

        ПассивноеFTPСоединение      =  Ложь;

        Соединение = Новый FTPСоединение(ИмяFTPСервера, ПортFTPСоединения,ПользовательFTPСоединения,ПарольFTPСоединения, ,ПассивноеFTPСоединение);

        Массив = Соединение.НайтиФайлы("/"+ПапкаКонтрагена+"/", "");

        Если Массив.Количество() = 0 Тогда

           Соединение.СоздатьКаталог(ПапкаКонтрагена);           

         КонецЕсли;

        Соединение.УстановитьТекущийКаталог(ПапкаКонтрагена);

        Соединение.Записать(ИмяФайлаЗаписи, "file.txt"); 

    Исключение

        Сообщить("Ошибка записи файла на FTP!!!");

        Возврат ""; 

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

   

 

ВЫБРАТЬ

	СтраховыеВзносыСведенияОДоходах.Организация КАК Организация,

	НАЧАЛОПЕРИОДА(СтраховыеВзносыСведенияОДоходах.Период, МЕСЯЦ) КАК Месяц,

	СтраховыеВзносыСведенияОДоходах.ВидДохода КАК ВидДохода,

	СтраховыеВзносыСведенияОДоходах.ВидРасчета КАК ВидРасчета,

	СтраховыеВзносыСведенияОДоходах.Результат КАК ОБЩАЯ,

	ВЫБОР

		КОГДА СтраховыеВзносыСведенияОДоходах.ВидДохода.ВходитВБазуФСС

			ТОГДА СтраховыеВзносыСведенияОДоходах.Результат

		ИНАЧЕ 0

	КОНЕЦ КАК БАЗА_ФСС,

	ВЫБОР

		КОГДА СтраховыеВзносыСведенияОДоходах.ВидДохода.ВходитВБазуФОМС

			ТОГДА СтраховыеВзносыСведенияОДоходах.Результат

		ИНАЧЕ 0

	КОНЕЦ КАК БАЗА_ФОМС,

	ВЫБОР

		КОГДА СтраховыеВзносыСведенияОДоходах.ВидДохода.ВходитВБазуПФР

			ТОГДА СтраховыеВзносыСведенияОДоходах.Результат

		ИНАЧЕ 0

	КОНЕЦ КАК БАЗА_ПФР,

	ВЫБОР

		КОГДА СтраховыеВзносыСведенияОДоходах.ВидРасчета.КодДоходаФСС_НС <> &НеОблагается

				ИЛИ СтраховыеВзносыСведенияОДоходах.ВидРасчета.КодДоходаФСС_НС ЕСТЬ NULL 

			ТОГДА СтраховыеВзносыСведенияОДоходах.Результат

		ИНАЧЕ 0

	КОНЕЦ КАК БАЗА_ФСС_от_НС,

	ВЫБОР

		КОГДА СтраховыеВзносыСведенияОДоходах.ВидРасчета.КодДоходаФСС_НС = &НеОблагается		

			ТОГДА СтраховыеВзносыСведенияОДоходах.Результат

		ИНАЧЕ 0

	КОНЕЦ КАК БАЗА_Не_Облагаемая,

	СтраховыеВзносыСведенияОДоходах.Скидка КАК Скидка,

	СтраховыеВзносыСведенияОДоходах.Регистратор,

	СтраховыеВзносыСведенияОДоходах.ФизЛицо,

	СтраховыеВзносыСведенияОДоходах.ВидРасчета.КодДоходаФСС_НС

ИЗ

	РегистрНакопления.СтраховыеВзносыСведенияОДоходах КАК СтраховыеВзносыСведенияОДоходах

   

 

Процедура ДобавитьКоммент(Элемент)

 форм=обработки.HTML.ПолучитьФорму("Форма");

 текст = форм.ОткрытьМодально();

 если не Пустаястрока(текст) тогда

  комментарий="Добавил: "+глтекущийпользователь+" , Добавлено: "+текущаядата()+текст+комментарий;

 ЭлементыФормы.ПолеHTMLДокумента.УстановитьТекст(комментарий);

 конецесли; 

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

   

 

Процедура ВставитьПланГрафик(Кнопка)

 форм=обработки.HTML.ПолучитьФорму("ФормаПросмотра");

 форм.текст=ПланГрафик;

 текст=форм.ОткрытьМодально();

 ПланГрафик=текст+ПланГрафик;

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

   

 

Процедура ИсторияИзмененийПросмотр(Кнопка)

 форм=обработки.HTML.ПолучитьФорму("Просмотр");

 форм.текст=ИсторияИзменений;

 форм.ОткрытьМодально();

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