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

// Подготовить текст запроса для выборки данных из

// регистра сведений Курсы валют

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

SQL.Текст = "ВЫБРАТЬ

|КурсыВалют.Валюта,

|КурсыВалют.Курс,

|ДЕНЬГОДА(КурсыВалют.Период) КАК Точки

|ИЗ

|РегистрСведений.КурсыВалют КАК КурсыВалют

|ГДЕ

|КурсыВалют.Период МЕЖДУ &НачПериода И &КонПериода

|И КурсыВалют.Валюта.Наименование <> &исключитьРуб

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

|КурсыВалют.Период";



// Установить период выборки данных

SQL.УстановитьПараметр("НачПериода",НачПериода);

SQL.УстановитьПараметр("КонПериода",КонПериода);

// Исключить курсы валюты рубли



SQL.УстановитьПараметр("исключитьРуб","Руб.");   

 // Получить доступ к диаграмме, как элементу экранной формы

курсы = ЭлементыФормы.ГрафикКурсов;



// Подготовить элемент к формированию графика

// Сброить данные серий и точек

// Очистить старые значения графика

курсы.Очистить();

курсы.КоличествоСерий = 0;

курсы.КоличествоТочек = 0;

// Отключить обновление диаграммы на время вывода данных.

курсы.Обновление = Ложь;

// Задать заголовок диаграммы

курсы.ОбластьЗаголовка.Текст = "Анализатор курсов валют";



// Сформировать соответствие номеров серий и наименований валют

// Ключ - название валюты,

// Значение - номер серии

серии = Новый Структура;

серии.Вставить("БВЛ",0);

серии.Вставить("USD",1);

серии.Вставить("EUR",2);

серии.Вставить("GBP",3);



// Добавить в диаграмму серии графиков

Для каждого график из серии Цикл

серия = курсы.Серии.Добавить(Строка(график.Ключ));

серия.Маркер = ТипМаркераДиаграммы.Нет;

КонецЦикла;    

 

// Выполнить запрос и начать выборку

Query = SQL.Выполнить().Выбрать();



сменаТочки = 0;

Пока Query.Следующий() Цикл

// Добавляем новую точку после заполнения всех серий

Если сменаТочки <> Query.Точки Тогда

курсы.Точки.Добавить(Query.Точки);

сменаТочки = Query.Точки;

КонецЕсли;



Попытка

// Установка значения графика в точке и серии

курсы.УстановитьЗначение(

Курсы.Точки.Количество()-1,

серии[Строка(Query.Валюта)], Query.Курс);

Исключение

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

КонецЦикла;   

 // Заполнение расчетных значений для точек и серий

график = 0;

Пока график < Курсы.Точки.Количество() Цикл

// Создание графика бивалютной корзины

Корзина = (курсы.ПолучитьЗначение(график,серии["USD"]).Значение*0.55 +

курсы.ПолучитьЗначение(график,серии["EUR"]).Значение*0.45);

курсы.УстановитьЗначение(график,серии["БВЛ"], Корзина);

график = график + 1;

КонецЦикла;



// Обновить диаграмму в экранной форме.

курсы.Обновление = Истина;

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

 Процедура PNG(Кнопка)

// Получить картинку диаграммы

График = ЭлементыФормы.ГрафикКурсов.ПолучитьКартинку( 500, 300, ФорматКартинки.PNG );

// Записать картинку из 1С в PNG

График.Записать( "C:\TEMP\Диаграмма.png" );

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

 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С в XML используя

// запись сообщения обмена (XML Writer)

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



/////////////////////////////////////////

// Проверить выбор пользователя.

// Поле Документ ДОЛЖНО быть заполнено

Если НЕ ЗначениеЗаполнено(ДокументОбъект) Тогда

Предупреждение("Нужно выбрать документ.");

Возврат;

КонецЕсли;



/////////////////////////////////////////

// Проверить выбор пользователя.

// Поле Имя файла ДОЛЖНО быть заполнено

Если ПустаяСтрока(ИмяФайла) Тогда

Предупреждение("Укажите файл данных XML для выгрузки.");

Возврат;

КонецЕсли;



// Проверить возможность перезаписи текста

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

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

Ответ = Вопрос("Файл " + ИмяФайла + " существует. Заменить?",РежимДиалогаВопрос.ДаНет);

Если Ответ = КодВозвратаДиалога.Нет Тогда

Сообщить("Сохранение отменено.");

Возврат;

КонецЕсли;

КонецЕсли;



/////////////////////////////////////////

// Записать данные документа в XML используя

// последовательный доступ к тексту и XML сериализацию

ТекстФайл = Новый ЗаписьТекста(ИмяФайла, КодировкаТекста.UTF8);



// Преобразовать данные документа в формат XML

// страндарными средствами платформы 1С

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

ЗаписьXML.УстановитьСтроку();

ЗаписатьXML(ЗаписьXML, ДокументОбъект.ПолучитьОбъект());



// Сохранить полученные XML Данные в текстовый документ

ТекстФайл.Записать(ЗаписьXML.Закрыть());

ТекстФайл.Закрыть();

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

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

/////////////////////////////////////////

// Проверить выбор пользователя.

// Поле Имя файла ДОЛЖНО быть заполнено

Если ПустаяСтрока(ИмяФайла) Тогда

Предупреждение("Укажите файл данных XML для загрузки!");

Возврат;

КонецЕсли;



/////////////////////////////////////////

// Проверка возможности чтения XML файла

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

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

Предупреждение("Указанный Вами файл " + ИмяФайла + " не найден!");

Возврат;

КонецЕсли;



/////////////////////////////////////////

// Прочитать XML файл используя стандартные

// средства платформы 1С XML Reader

попытка

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

ЧтениеXML.ОткрытьФайл(ИмяФайла);

НовыйОбъект = ПрочитатьXML(ЧтениеXML);

ДокументОбъект = НовыйОбъект.Ссылка;

Документ = НовыйОбъект.ПолучитьФорму();

Документ.Открыть();

исключение

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

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

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

 ВЫБРАТЬ

    ЗаказПокупателя.Ссылка КАК ЗаказПокупателя,

    ЗаказПокупателя.Дата КАК Дата,

    ЗаказПокупателя.ВалютаДокумента КАК ВалютаДокумента,

    ЗаказПокупателя.СуммаДокумента КАК СуммаДокумента

{ВЫБРАТЬ

    ЗаказПокупателя.*,

    Дата,

    ВалютаДокумента.*,

    СуммаДокумента}

ИЗ

    Документ.ЗаказПокупателя КАК ЗаказПокупателя

{ГДЕ

    ЗаказПокупателя.Ссылка.* КАК ЗаказПокупателя,

    ЗаказПокупателя.СуммаДокумента}   

 ВЫБРАТЬ

    &Дата КАК Дата,

    КурсыВалютСрезПоследних.Валюта КАК Валюта,

    КурсыВалютСрезПоследних.Курс КАК Курс,

    КурсыВалютСрезПоследних.Кратность КАК Кратность

{ВЫБРАТЬ

    Дата,

    Валюта.*,

    Курс,

    Кратность}

ИЗ

    РегистрСведений.КурсыВалют.СрезПоследних(&Дата, Валюта = &Валюта) КАК КурсыВалютСрезПоследних

{ГДЕ

    КурсыВалютСрезПоследних.Курс,

    КурсыВалютСрезПоследних.Кратность}   

 ВЫБРАТЬ

    ПродажиОбороты.Период КАК Дата,

    ПродажиОбороты.Контрагент КАК Контрагент,

    ПродажиОбороты.Номенклатура КАК Номенклатура,

    СУММА(ПродажиОбороты.КоличествоОборот) КАК Количество,

    СУММА(ПродажиОбороты.СтоимостьОборот) КАК Стоимость

ПОМЕСТИТЬ втБезЦены

ИЗ

    РегистрНакопления.Продажи.Обороты(&НачалоПериода, &КонецПериода, День, ) КАК ПродажиОбороты



СГРУППИРОВАТЬ ПО

    ПродажиОбороты.Период,

    ПродажиОбороты.Контрагент,

    ПродажиОбороты.Номенклатура



ИНДЕКСИРОВАТЬ ПО

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

    Дата,

    Контрагент

;



////////////////////////////////////////////////////////////////////////////////

ВЫБРАТЬ

    втБезЦены.Дата КАК Дата,

    втБезЦены.Контрагент КАК Контрагент,

    втБезЦены.Номенклатура КАК Номенклатура,

    втБезЦены.Количество,

    втБезЦены.Стоимость,

    МАКСИМУМ(ЦеныНоменклатуры.Период) КАК Период

ПОМЕСТИТЬ втМаксПериод

ИЗ

    втБезЦены КАК втБезЦены

        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНоменклатуры КАК ЦеныНоменклатуры

        ПО втБезЦены.Номенклатура = ЦеныНоменклатуры.Номенклатура

            И втБезЦены.Дата >= ЦеныНоменклатуры.Период



СГРУППИРОВАТЬ ПО

    втБезЦены.Дата,

    втБезЦены.Контрагент,

    втБезЦены.Номенклатура,

    втБезЦены.Количество,

    втБезЦены.Стоимость



ИНДЕКСИРОВАТЬ ПО

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

    Дата,

    Контрагент,

    Период

;



////////////////////////////////////////////////////////////////////////////////

ВЫБРАТЬ

    втМаксПериод.Дата,

    втМаксПериод.Контрагент,

    втМаксПериод.Номенклатура,

    втМаксПериод.Количество,

    втМаксПериод.Стоимость,

    ЦеныНоменклатуры.Цена

ИЗ

    втМаксПериод КАК втМаксПериод

        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНоменклатуры КАК ЦеныНоменклатуры

        ПО втМаксПериод.Номенклатура = ЦеныНоменклатуры.Номенклатура

            И втМаксПериод.Период = ЦеныНоменклатуры.Период

ГДЕ

    ЦеныНоменклатуры.ТипЦен = &ТипЦен

АВТОУПОРЯДОЧИВАНИЕ   

 C:\Program Files\1cv8\bin\1cv8.exe" CONFIG /F"C:\DemoTrd2" /N"Федоров (администратор)" /P"" /OutD:\my\log.txt /ReduceEventLogSize 2004-12-26 -saveAsC:\OldLog.elf    

 ВЫБРАТЬ

    ПродажиОбороты.Период КАК Дата,

    ПродажиОбороты.Контрагент КАК Контрагент,

    ПродажиОбороты.Номенклатура КАК Номенклатура,

    ПродажиОбороты.КоличествоОборот КАК Количество,

    ПродажиОбороты.СтоимостьОборот КАК Стоимость

{ВЫБРАТЬ

    Дата,

    Контрагент.*,

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

    Количество,

    Стоимость}

ИЗ

    РегистрНакопления.Продажи.Обороты({(&НачалоПериода)},

{(&КонецПериода)}, День, ) КАК ПродажиОбороты

{ГДЕ

    ПродажиОбороты.Период,

    ПродажиОбороты.Контрагент.*,

    ПродажиОбороты.Номенклатура.*,

    ПродажиОбороты.КоличествоОборот,

    ПродажиОбороты.СтоимостьОборот}   

 ВЫБРАТЬ

    &Дата КАК Дата,

    ЦеныНоменклатурыСрезПоследних.Номенклатура КАК Номенклатура,

    ЦеныНоменклатурыСрезПоследних.Цена КАК Цена

{ВЫБРАТЬ

    Дата,

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

    Цена}

ИЗ

    РегистрСведений.ЦеныНоменклатуры.СрезПоследних(

            &Дата,

            Номенклатура = &Номенклатура

                И ТипЦен = &ТипЦен) КАК ЦеныНоменклатурыСрезПоследних

{ГДЕ

    (&Дата),

    ЦеныНоменклатурыСрезПоследних.Номенклатура.*,

    ЦеныНоменклатурыСрезПоследних.Цена}   

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

        Сообщить("Работайте без ошибок ");

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

 Процедура ПриЗавершенииРаботыСистемы()

        Сообщить("Работайте без ошибок ");

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

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

//или

Процедура ПередЗавершениемРаботыСистемы()   

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

        Сообщить("все");

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



Процедура ПриЗавершенииРаботыСистемы()

        Сообщить("Пока!");

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

    

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

//или

Процедура ПередЗавершениемРаботыСистемы()   

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

        Сообщить("все");

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



Процедура ПриЗавершенииРаботыСистемы()

        Сообщить("Пока!");

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

 Функция ПолучитьВажныеРеквизиты(ВидКонтрагента)



МассивРеквизитов = Новый Массив;



Если ВидКонтрагента = Перечисления.ВидыКонтрагентов.Поставщик Тогда

МассивРеквизитов.Добавить("ВидКонтрагента");

МассивРеквизитов.Добавить("ЮрАдрес");

МассивРеквизитов.Добавить("ИНН");

МассивРеквизитов.Добавить("ТипЦен");

МассивРеквизитов.Добавить("ЛимитКледита");



ИначеЕсли ВидКонтрагента = Перечисления.ВидыКонтрагентов.Покупатель Тогда

МассивРеквизитов.Добавить("ВидКонтрагента");

МассивРеквизитов.Добавить("ЮрАдрес");

МассивРеквизитов.Добавить("ФактАдрес");

МассивРеквизитов.Добавить("ПроцентБонусов");



ИначеЕсли ВидКонтрагента = Перечисления.ВидыКонтрагентов.Банк Тогда

МассивРеквизитов.Добавить("ВидКонтрагента");

МассивРеквизитов.Добавить("ЮрАдрес");

МассивРеквизитов.Добавить("ИНН");

МассивРеквизитов.Добавить("БИК");



ИначеЕсли ВидКонтрагента = Перечисления.ВидыКонтрагентов.Налоговая Тогда

МассивРеквизитов.Добавить("ВидКонтрагента");

МассивРеквизитов.Добавить("ЮрАдрес");

МассивРеквизитов.Добавить("ИНН");

МассивРеквизитов.Добавить("КодИФНС");



КонецЕсли;



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

   

 «ОбработкаПолученияДанныхВыбора»   

 Справочники.Номенклатура.Печать(ТабДок, Ссылка)