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    

 Option Explicit



'Этот скрипт выполняет установку 1С 8.2 с помощью операций типа

'copy \\Server\Adm_1C_8_2\Null-Base\Zero_dblist.v8i %AppData%\1C\1CEStart\ibases.v8i

'\\Server\Adm_1C_8_2\Kadry_Zarplata_Buh\1cestart.exe Enterprise /F \\Server\d$\Adm_1C_8_2\Null-Base



'***** Необходимо изменить на реальный каталог установки,

'***** где лежат папки с дистрибутивами типа 8.2.10.77

Const DistrFolder="\\Server\Adm_1C_8_2\"

'Если тонкого клиента ставить не собираетесь из папки setuptc, то лучше ее удалите, т.к. инсталлер

'бывает путается, что ему ставить, и несмотря на все параметры начинает ставить тонкого клиента, когда его

'об этом не просят.



'***** Для каждго набора баз (отдела) свой подкаталог, в котором располагаются 1CESCmn, 1cestart.exe,

'***** common_dblist.v8i и этот скрипт Setup 1C8_2.vbs

Const DistrFolderOtdel="Kadry_Zarplata_Buh\"



'Т.к. отключить запуск 1С при выполнении 1CEStart нельзя (а нам нужна только установка), то кроме этого скрипта должна быть

'создана пустая база в каталоге \\Server\Adm_1C_8_2\Null-Base.

'Для надежности в модуле управляемого приложения базы можно прописать процедуру

'

'Процедура ПередНачаломРаботыСистемы(Отказ)

' // Вставить содержимое обработчика.

' ЗавершитьРаботуСистемы(Ложь);

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



'В эту же папку положить файл-пустышку общих баз Zero_dblist.v8i



Const myBase = "\\Server\Adm_1C_8_2\Null-Base"



Dim shortcutTarget : shortcutTarget = DistrFolder & DistrFolderOtdel & "1cestart.exe"

Dim WshShell

Dim strAppData

Dim objFSO

Dim strFolder1C, strFolder1CEStart, strFullFolderName, strFullFileName



'Сначала получим каталог пользователя

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

strAppData = WSHShell.SpecialFolders("AppData")



Set objFSO = CreateObject("Scripting.FileSystemObject")



'Проверим наличие папок у пользователя и при необходимости создадим

strFolder1C = "1C"

strFolder1CEStart = "1CEStart"

strFullFolderName =  objFSO.BuildPath(strAppData, strFolder1C)



If Not objFSO.FolderExists(strFullFolderName) Then

   objFSO.CreateFolder strFullFolderName

End If



strFullFolderName =  objFSO.BuildPath(strAppData & "\" &strFolder1C, strFolder1CEStart)



If Not objFSO.FolderExists(strFullFolderName) Then

   objFSO.CreateFolder strFullFolderName

End If



'Если файл со списокм баз уже есть, то затирать его не будем

strFullFileName = objFSO.BuildPath(strFullFolderName, "ibases.v8i")

If Not objFSO.FileExists(strFullFileName) Then

'Скопируем пустой список общих баз из папки с пустой базой,

'чтобы при запуске не задавались рядовому пользователю вопросы типа "Скопировать список баз из 8.1?"

objFSO.CopyFile  myBase & "\" & "Zero_dblist.v8i", strAppData & "\1C\1CEStart\ibases.v8i", True

Set objFSO = Nothing

End If



'Теперь установка

'Указан параметр nterprise вместо Enterprise, чтобы подавить запуск самой 1С из-за ошибки параметра

'т.к. нужна только инсталляция. Вот такая хитрость.

WshShell.run(shortcutTarget & " nterprise /F " & myBase)

Set WshShell = Nothing   

 ТабДок = ЭлементыФормы.ПолеТабличногоДокумента;

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

 ТабДок = ЭлементыФормы.ПолеТабличногоДокумента;

НашаСводнаяТаблица = ТабДок.ВстроенныеТаблицы.СводнаяТаблица1;   

 Запрос = Новый Запрос ("

| ВЫБРАТЬ

|      Номенклатура,

|      ПодразделениеКомпании,

|      СуммаПродажи

| ИЗ

|      РегистрНакопления.ПродажиКомпании

| 

| ИТОГИ СУММА(СуммаПродажи) ПО

|      Номенклатура ИЕРАРХИЯ,

|      ПодразделениеКомпании ИЕРАРХИЯ

| ");



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



ТабДок = ЭлементыФормы.ПолеТабличногоДокумента1;

СводТаб = ТабДок.ВстроенныеТаблицы.СводнаяТаблица1; 

СводТаб.ИсточникДанных = РезультатЗапроса; //самое важное!

СводТаб.ОтображатьПоля = Истина;   

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

СводТаб.Колонки.Добавить(СводТаб.Поля.ПодразделениеКомпании);

СводТаб.Данные.Добавить(СводТаб.Поля.СуммаПродажи);   

 СводТаб.Обновление = Ложь;

СводТаб.Строки.Добавить(СводТаб.Поля.ПодразделениеКомпании);

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

СводТаб.Данные.Добавить(СводТаб.Поля.СуммаПродажи);

СводТаб.Обновление = Истина;   

 СтруктураДанных = СводТаб.ПолучитьЗначения(ТабДок.Область("R4C3:R4C3"));   

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

Запись.ОткрытьФайл(ПутьКФайлу);

Запись.ЗаписатьОбъявлениеXML();

// формируем корневой элемент

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

Выборка = Справочники.Клиенты.Выбрать();

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

	// для каждого клиента формируем свой элемент

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

	// запишем код клиента в атрибут тега

	Запись.ЗаписатьАтрибут("Код", Строка(Выборка.Код));

	// Наименование клиента запишем в текст элемента

	Запись.ЗаписатьТекст(Выборка.Наименование);

	// закрываем элемент клиента

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

КонецЦикла;

// закрываем корневой элемент xml-документа

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

// закрыть файл

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

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

Чтение.ОткрытьФайл(ПутьКФайлу);

Спр="";

// чтение осуществляется по одному тегу

Пока Чтение.Прочитать() Цикл

	// анализируем тип элемента и его имя

	Если Чтение.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда

		Если Чтение.Имя="Клиент" Тогда

			// создаем новый элемент справочника

			Спр = Справочники.Клиенты.СоздатьЭлемент();

// читаем атрибуты

			Пока Чтение.ПрочитатьАтрибут() Цикл

				Если Чтение.Имя="Код" Тогда

					Спр.Код = Число(Чтение.Значение);

				КонецЕсли;

КонецЦикла;

		КонецЕсли;

	ИначеЕсли Чтение.ТипУзла = ТипУзлаXML.Текст Тогда

		// заполняем наименование созданного ранее элемента

		Спр.Наименование = Чтение.Значение;

	ИначеЕсли Чтение.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда

		// требуется записать информацию про клиента

		Спр.Записать();

	КонецЕсли;

КонецЦикла;   

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

  Если ЗагрузитьВнешнююКомпоненту(КаталогПрограммы()+"v7plus.dll")<>1 Тогда

    Предупреждение("Компонента не обнаружена");

    Возврат;

  КонецЕсли;

  Анализатор=СоздатьОбъект("AddIn.XMLParser");

  Корень=Анализатор.СоздатьДокумент();

  План=Корень.СоздатьПодчиненныйЭлемент("ПланСчетов");

  Счет=СоздатьОбъект("Счет.Основной");

  Родитель=СоздатьОбъект("Счет.Основной");

  Счет.ВыбратьСчета();

  Пока Счет.ПолучитьСчет()=1 Цикл

    // если это счет, а не субсчет

    Если Счет.Уровень()=1 Тогда

      Родитель.НайтиПоКоду(Счет.Код);

      СчетXML=План.СоздатьПодчиненныйЭлемент("Счет");

      СчетXML.УстановитьАтрибут("Код", Счет.Код);

      СчетXML.УстановитьАтрибут("Валютный", Счет.Валютный);

      СчетXML.УстановитьАтрибут("Количественный", Счет.Количественный);

      СчетXML.УстановитьАтрибут("Забалансовый", Счет.Забалансовый);

      Если Счет.Активный=1 Тогда

        СчетXML.УстановитьАтрибут("вид","активный");

      ИначеЕсли Счет.Активный=2 Тогда

        СчетXML.УстановитьАтрибут("вид","пассивный");

      Иначе

        СчетXML.УстановитьАтрибут("вид","активно-пассивный");

      КонецЕсли;

      СчетXML.Значение=Счет.Наименование;

    Иначе

      Если Счет.ПринадлежитГруппе(Родитель)=1 Тогда

        СубсчетXML=СчетXML.СоздатьПодчиненныйЭлемент("Субсчет");

        СубсчетXML.УстановитьАтрибут("Код", Счет.Код);

        // аналогично устанавливаем все атрибуты на элемент СубсчетXML

        СубсчетXML.Значение=Счет.Наименование;

      КонецЕсли;

    КонецЕсли;

  КонецЦикла;

  Корень.Записать(КаталогПрограммы()+"plan.xml");

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

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

  Если ЗагрузитьВнешнююКомпоненту(КаталогПрограммы()+"v7plus.dll")<>1 Тогда

    Предупреждение("Внешняя компонента не найдена");

    Возврат;

  КонецЕсли;

  Анализатор=СоздатьОбъект("AddIn.XMLParser");

  Файл=Анализатор.СоздатьДокумент();

  Файл.Загрузить(КаталогПрограммы()+"plan.xml");

  План=Файл.ВыбратьУзел("ПланСчетов");

  кол=План.КоличествоПодчиненных();

  Счет=СоздатьОбъект("Счет.Основной");

  Для инд=1 по кол Цикл

    СчетXML=План.ПолучитьПодчиненныйПоНомеру(инд);

    КолСубсчетов=СчетXML.КоличествоПодчиненных();

    // подчиненным элементом является и содержимое элемента

    Если КолСубсчетов>1 Тогда

      Счет.Новый(1);

    Иначе

      Счет.Новый(0);

    КонецЕсли;

    Счет.Код=СчетXML.ПолучитьАтрибут("Код");

    Счет.Наименование=СчетXML.Значение;

    Счет.Валютный=СчетXML.ПолучитьАтрибут("Валютный");

    Счет.Количественный=СчетXML.ПолучитьАтрибут("Количественный");

    Счет.Забалансовый=СчетXML.ПолучитьАтрибут("Забалансовый");

    Если СчетXML.ПолучитьАтрибут("вид")="активный" Тогда

      Счет.Активный=1;

    ИначеЕсли СчетXML.ПолучитьАтрибут("вид")="пассивный" Тогда

      Счет.Активный=2;

    Иначе

      Счет.Активный=3;

    КонецЕсли;

    Счет.Записать();

    Если КолСубсчетов>1 Тогда

      Счет1=СоздатьОбъект("Счет.Основной");

      Для инд1=2 По кол_субсчетов Цикл

        Субсчет=СчетXML.ПолучитьПодчиненныйПоНомеру(инд1);

        Счет1.Новый(0);

        Счет1.Код=Субсчет.ПолучитьАтрибут("Код");

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

        Счет1.Записать();

      КонецЦикла;

    КонецЕсли;

  КонецЦикла;

  МоментСразуПослеДокумента = Новый Граница(ДокументСсылка,ВидГраницы.Включая)    

  // Пример создает момент времени по дате и ссылке на объект в базе данных. 

Момент = Новый МоментВремени(ТекДокумент.Дата, ТекДокумент.Ссылка);    

  Граница = Новый Граница(Дата, ВидГраницы.Включая);

Запрос.УстановитьПараметр("КонГраница", Граница);   

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

Запрос.Текст = 

"ВЫБРАТЬ

|	ВзаиморасчетыСРаботникамиОрганизацийОстатки.Физлицо,

|	ВзаиморасчетыСРаботникамиОрганизацийОстатки.СуммаВзаиморасчетовОстаток

|ИЗ

|	РегистрНакопления.ВзаиморасчетыСРаботникамиОрганизаций.Остатки(&МомВрем, Физлицо = &Физик) КАК ВзаиморасчетыСРаботникамиОрганизацийОстатки";

МомВрем = Документы.НачислениеЗарплатыРаботникамОрганизаций.НайтиПоНомеру("00012","31.12.2009 23:59:59");

Запрос.УстановитьПараметр("МомВрем", Новый Граница(МомВрем.МоментВремени(), ВидГраницы.Включая));

Запрос.УстановитьПараметр("Физик", Справочники.ФизическиеЛица.НайтиПоКоду("365"));	

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

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

Запрос.Текст = 

"ВЫБРАТЬ

|	ВзаиморасчетыСРаботникамиОрганизацийОстатки.Физлицо,

|	ВзаиморасчетыСРаботникамиОрганизацийОстатки.СуммаВзаиморасчетовОстаток

|ИЗ

|	РегистрНакопления.ВзаиморасчетыСРаботникамиОрганизаций.Остатки(&МомВрем, Физлицо = &Физик) КАК ВзаиморасчетыСРаботникамиОрганизацийОстатки";

МомВрем = Документы.НачислениеЗарплатыРаботникамОрганизаций.НайтиПоНомеру("00012","31.12.2009 23:59:59");

Запрос.УстановитьПараметр("МомВрем", Новый Граница(МомВрем.МоментВремени(), ВидГраницы.Исключая));

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

Запрос.УстановитьПараметр("Физик", Справочники.ФизическиеЛица.НайтиПоКоду("365"));	

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