&НаСервере
Функция ПодключитьБазуНаСервере(Соединение = "")
Объект.ФайловаяБазаДанных=Ложь;
Объект.Сервер="srv1с";
Объект.База="buh";
Объект.ИмяПользователя="Obmen";
Объект.Пароль="1qaz";  
// Подключение к 1С
Если Объект.ФайловаяБазаДанных Тогда
СтрокаПодключения = "file='" + Объект.ПутьКБазе + "'; usr='" + Объект.ИмяПользователя + "'; pwd='" + Объект.Пароль + "';";
Иначе
СтрокаПодключения =  "srvr='" + Объект.Сервер + "'; ref='" + Объект.База + "'; usr='" + Объект.ИмяПользователя + "'; pwd='" + Объект.Пароль + "';";
КонецЕсли;
Попытка
V8 = Новый COMObject("V83.COMConnector");
Соединение = V8.Connect(СтрокаПодключения);
ЕстьСоединение = Истина;
Исключение
ЕстьСоединение = Ложь;
Сообщить(ОписаниеОшибки());
КонецПопытки;
Возврат Соединение;
КонецФункции
&НаСервере
Процедура ОбновитьДанныеПлатежейНаСервере()
Соединение = ПодключитьБазуНаСервере();
Запрос = Новый Запрос;
Запрос.Текст = 
"ВЫБРАТЬ
|ПоступлениеБезналичныхДенежныхСредствРасшифровкаПлатежа.Ссылка КАК Ссылка,
|ПоступлениеБезналичныхДенежныхСредствРасшифровкаПлатежа.ОснованиеПлатежа КАК ОснованиеПлатежа,
|ПоступлениеБезналичныхДенежныхСредствРасшифровкаПлатежа.Сумма КАК Сумма
|ИЗ
|Документ.ПоступлениеБезналичныхДенежныхСредств.РасшифровкаПлатежа КАК ПоступлениеБезналичныхДенежныхСредствРасшифровкаПлатежа
|ГДЕ
|НЕ ПоступлениеБезналичныхДенежныхСредствРасшифровкаПлатежа.ОснованиеПлатежа ССЫЛКА Документ.ЗаказКлиента";
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
УИД = ВыборкаДетальныеЗаписи.Ссылка.УникальныйИдентификатор();
СсылкаНаДок = Соединение.Документы.ПоступлениеНаРасчетныйСчет.ПолучитьСсылку(Соединение.NewObject("УникальныйИдентификатор",Строка(УИД))); 
//Сообщить(СсылкаНаДок.Номер);
Для каждого СтрокаИсточник Из СсылкаНаДок.РасшифровкаПлатежа Цикл  
//Сообщить("Счет: "+Строка(СтрокаИсточник.СчетНаОплату.Номер)); 
УИД = Соединение.String(СтрокаИсточник.СчетНаОплату.УникальныйИдентификатор());
текДок= Документы.ЗаказКлиента.ПолучитьСсылку(Новый УникальныйИдентификатор(УИД));
Если ЗначениеЗаполнено(текДок) Тогда
Сообщить(текДок);
текОбъект=ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();
текОбъект.РасшифровкаПлатежа[0].ОснованиеПлатежа= текДок;
текОбъект.РасшифровкаПлатежа[0].Заказ= текДок;
текОбъект.Записать(РежимЗаписиДокумента.Проведение);
КонецЕсли;
КонецЦикла;
КонецЦикла;  
КонецПроцедуры
&НаКлиенте
Процедура ОбновитьДанныеПлатежей(Команда)
ОбновитьДанныеПлатежейНаСервере();
КонецПроцедуры
   

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

// ПРОЦЕДУРЫ И ФУНКЦИИ ДЛЯ РАБОТЫ С ДЕРЕВОМ ЗНАЧЕНИЙ



// Функция формирует значение нового ключа строки табличной части.

//

// Параметры:

// Дерево - дерево значений

//

Функция ПолучитьНовыйКлючСтрокиДерева(Дерево, СписокКлючей = Неопределено) Экспорт



    Если СписокКлючей = Неопределено Тогда

        СписокКлючей = Новый СписокЗначений;

        СписокКлючей.Добавить(0);

    КонецЕсли;

    Для Каждого СтрокаДерева Из Дерево.Строки Цикл

        СписокКлючей.Добавить(СтрокаДерева.КлючСтроки);

        ПолучитьНовыйКлючСтрокиДерева(СтрокаДерева, СписокКлючей);

        СписокКлючей.СортироватьПоЗначению(НаправлениеСортировки.Убыв);

        МаксКлюч = СписокКлючей[0].Значение + 1;

    КонецЦикла;

    Возврат МаксКлюч;



КонецФункции // ПолучитьНовыйКлючСтрокиДерева()



// Процедура обновляет ключи связи в дереве значений

//

Процедура ОбновитьКлючиСвязиВДеревеЗначений(Дерево) Экспорт



    Для Каждого СтрокаДерева Из Дерево.Строки Цикл

        Попытка

            СтрокаДерева.КлючСвязи = СтрокаДерева.Родитель.КлючСтроки;

        Исключение

            СтрокаДерева.КлючСвязи = 0;

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

        ОбновитьКлючиСвязиВДеревеЗначений(СтрокаДерева);

    КонецЦикла;



КонецПроцедуры // ОбновитьКлючиСвязиВДеревеЗначений()



// Процедура обновляет ключи связи в дереве значений

//

Процедура ОбновитьКлючиСтрокВДеревеЗначений(Дерево, КлючСтроки = 1) Экспорт



    Для Каждого СтрокаДерева Из Дерево.Строки Цикл

        СтрокаДерева.КлючСтроки = КлючСтроки;

        КлючСтроки = КлючСтроки + 1;

        ОбновитьКлючиСтрокВДеревеЗначений(СтрокаДерева, КлючСтроки);

    КонецЦикла;



КонецПроцедуры // ОбновитьКлючиСвязиВДеревеЗначений()



// Процедура выгружает данные из дерева значений в таблицу значений

// данные выгружаются только в таблицу со сходным набором реквизитов

//

Функция ВыгрузитьДеревоЗначенийВТаблицуЗначений(Дерево, Таблица = Неопределено) Экспорт



    Если Таблица = Неопределено Тогда

        Таблица = Новый ТаблицаЗначений;

        Для Каждого Колонка Из Дерево.Колонки Цикл

            Таблица.Колонки.Добавить(Колонка.Имя, Колонка.ТипЗначения);

        КонецЦикла;

    КонецЕсли;

    Для Каждого СтрокаДерева Из Дерево.Строки Цикл

        ЗаполнитьЗначенияСвойств(Таблица.Добавить(), СтрокаДерева);

        ВыгрузитьДеревоЗначенийВТаблицуЗначений(СтрокаДерева, Таблица);

    КонецЦикла;

    Возврат Таблица;



КонецФункции //ВыгрузитьДеревоЗначенийВТаблицуЗначений()



// Процедура выгружает данные из таблицы значений в дерево значений

// данные выгружаются только в таблицу со сходным набором реквизитов

//

// Параметры:

//

// КлючСтроки - имя колонки ТаблицыЗначений - уникальный идентификатор

// КлючСвязи - имя колонки ТаблицыЗначений - указатель привязки к строке Дерева,

// своего рода указатель на "Родителя"

//

Функция ВыгрузитьТаблицуЗначенийВДеревоЗначений(Таблица, КлючСтроки = "КлючСтроки", КлючСвязи = "КлючСвязи") Экспорт



    Дерево = Новый ДеревоЗначений;

    Для Каждого Колонка Из Таблица.Колонки Цикл

        Дерево.Колонки.Добавить(Колонка.Имя, Колонка.ТипЗначения);

    КонецЦикла;

    Для Каждого СтрокаТаблицы Из Таблица Цикл

        СтрокаГруппировки = Дерево.Строки.Найти(СтрокаТаблицы[КлючСвязи], КлючСтроки,Истина);

        Если СтрокаГруппировки = Неопределено Тогда

            ЗаполнитьЗначенияСвойств(Дерево.Строки.Добавить(), СтрокаТаблицы);

        Иначе

            ЗаполнитьЗначенияСвойств(СтрокаГруппировки.Строки.Добавить(), СтрокаТаблицы);

        КонецЕсли;

    КонецЦикла;

    Возврат Дерево;



КонецФункции //ВыгрузитьТаблицуЗначенийВДеревоЗначений()



// Процедура устанавливает значение во всем дереве значений

//

Процедура УстановитьЗначениеКолонкиДерева(Дерево, Колонка, Значение) Экспорт



    Для каждого СтрокаДерева Из Дерево.Строки Цикл

        СтрокаДерева[Колонка] = Значение;

        УстановитьЗначениеКолонкиДерева(СтрокаДерева, Колонка, Значение);

    КонецЦикла;



КонецПроцедуры //УстановитьЗначениеКолонкиДерева()



// Процедура копирует подчиненные строки дерева значений

//

Процедура СкопироватьПодчиненныеСтроки(СтрокаПриемник, СтрокаИсточник)



    Для каждого Строка Из СтрокаИсточник.Строки Цикл

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

        НоваяСтрока.КлючСвязи = СтрокаПриемник.КлючСтроки;

        ЗаполнитьЗначенияСвойств(НоваяСтрока, Строка);

        СкопироватьПодчиненныеСтроки(НоваяСтрока, Строка);

    КонецЦикла;



КонецПроцедуры // СкопироватьПодчиненныеСтроки()



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

//

Процедура ПеренестиСтрокиДереваЗначений(СтрокаПриемник, ВыделенныеСтроки) Экспорт



    Если НЕ СтрокаПриемник = Неопределено Тогда

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

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

            МассивСтрок.Добавить(СтрокаПереноса);

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

            СкопироватьПодчиненныеСтроки(НоваяСтрока, СтрокаПереноса);

            ЗаполнитьЗначенияСвойств(НоваяСтрока, СтрокаПереноса);

            НоваяСтрока.КлючСвязи = СтрокаПриемник.КлючСтроки;

        КонецЦикла;

        Для Каждого СтрокаДерева Из МассивСтрок Цикл

            Если СтрокаДерева.Родитель = Неопределено Тогда

                СтрокаДерева.Строки.Удалить(СтрокаДерева);

            Иначе

                СтрокаДерева.Родитель.Строки.Удалить(СтрокаДерева);

            КонецЕсли;

        КонецЦикла;

    КонецЕсли;



КонецПроцедуры //ПеренестиСтрокиДереваЗначений()   

 Схема = ЭлементыФормы.ГеоСхема; 

Схема.Обновление = Ложь; // Запретить обновление схемы. 



// Отобразить слои Регионы и Города. 

Схема.Слои.Регионы.Видимость = Истина; 

СлойГорода = Схема.Слои.Города; 

СлойГорода.Видимость = Истина; 



// Добавить новую серию для отображения данных источника. 

СерияИнформация = Схема.Слои.Города.Серии.Добавить("Информация"); 

СерияИнформация.Значение = "Информация"; 



// Сформировать таблицу значений источника данных. 

ИсточникДанныхГеоСхемы.Колонки.Добавить("ЗначениеГорода"); 

ИсточникДанныхГеоСхемы.Колонки.Добавить("СерияИнформация", Новый ОписаниеТипов("Строка")); 



// Добавить "справочную" колонку в истоник данных 

// (нужна только для "наглядности" работы с источником). 

ИсточникДанныхГеоСхемы.Колонки.Добавить("НазваниеГорода"); 



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

// для которой будут выводиться данные. 

ИсточникДанныхГеоСхемы.Добавить().СерияИнформация = "Информация"; 



// Задать тип источника данных 

Схема.Слои.Города.ТипОрганизацииИсточникаДанных = ТипОрганизацииИсточникаДанныхГеографическойСхемы.НаПересечении; 



// Задать тип отображения значений серии источника данных. 

СлойГорода.Серии.Информация.ТипОтображения = ТипОтображенияСерииСлояГеографическойСхемы.Текст; 



// Заполнить источник данных значениями всех объектов. 

Для Каждого Город Из СлойГорода.Объекты Цикл 

    Город.Видимость = Истина; 

    СтрокаИсточникаДанных = ИсточникДанныхГеоСхемы.Добавить(); 

    СтрокаИсточникаДанных.ЗначениеГорода = Город.Значение; 

    СтрокаИсточникаДанных.НазваниеГорода = СлойГорода.ПолучитьЗначение(Город, СлойГорода.Серии.Название).Значение; 

КонецЦикла; 

ЭлементыФормы.ИсточникДанныхГеоСхемы.СоздатьКолонки(); 

Схема.Обновление = Истина; // Обновить поле географической схемы. 



// Назначить источник данных. 

СлойГорода.ИсточникДанных = ИсточникДанныхГеоСхемы;