Процедура ИзменитьДвиженияДокумента(ДокументСсылка)

 // прочитаем набор записей регистра по документу	

 НаборЗаписей = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();

 НаборЗаписей.Отбор.Регистратор.Установить(ДокументСсылка);

 НаборЗаписей.Прочитать();    





 Если НаборЗаписей.Количество() = 0 Тогда

  Возврат;

 КонецЕсли;

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

 Для каждого Запись из НаборЗаписей Цикл

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

  Если Запись.СчетДт.НалоговыйУчет Тогда

   Запись.СуммаНУДт = Запись.Сумма;

  КонецЕсли;

  Если Запись.СчетКт.НалоговыйУчет Тогда

   Запись.СуммаНУКт = Запись.Сумма;

  КонецЕсли;

 КонецЦикла;

 // установим признак обмена данными

 НаборЗаписей.ОбменДанными.Загрузка = Истина;

 НаборЗаписей.Записать();

 // установим признак ручной корректировки документа,

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

 ДокументОбъект = ДокументСсылка.ПолучитьОбъект();

 ДокументОбъект.ОбменДанными.Загрузка = Истина;

 ДокументОбъект.РучнаяКорректировка   = Истина;

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

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

 НаборЗаписей.ОбменДанными.Загрузка = Истина;

ДокументОбъект.ОбменДанными.Загрузка = Истина;   

 Если ОбменДанными.Загрузка Тогда



Возврат;



КонецЕсли;   

 //стрТаблицаЕдиницИзмерения - таблица в строке с колонками.

//GUIDЕдиницы

//Базовая - булево

//Коэффициент

//ЕдиницаИзмерения - код классификатора Единиц измерения.

//Утверждено - булево

//******************************

//ТаблицаГабаритов С колонками

//ВидУпаковки (строковое значение)

//Длина

//ширина

//высота

//объем

//ОбъемныйВес

//Вес

//ФормаОснования

//ВесБрутто

//*****************************



//стрСтруктураРеквизитов - структура с праметрами

//Наименование

//код

//ПометкаУдаления

//ВидТовара - идентификатор перечисления

//GUIDПроизводителя - GUID производителя

//СтавкаНДС - число ставка

//Жив - булево

Функция СинхронизироватьТовар(GUIDтовара, GUIDродителя, этоГруппа, Уровень, стрСтруктураРеквизитов, стрТаблицаЕдиницИзмерения,стрТаблицаТНВЭД)

	Попытка

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

		ТоварСсылка = Справочники.Товары.НайтиПоРеквизиту("GUIDтовара",СокрЛП(GUIDтовара));

		Если СокрЛП(GUIDродителя)<>"" тогда

			ТоварРодитель = Справочники.Товары.НайтиПоРеквизиту("GUIDтовара",СокрЛП(GUIDродителя));

		иначе

			ТоварРодитель = Справочники.Товары.ПустаяСсылка();

		КонецЕсли;

		

		Если ТоварРодитель.Пустая() и Уровень<>"0" тогда

			Если СтруктураРеквизитов.ПометкаУдаления тогда

				Возврат "ОК";

			КонецЕсли;

			возврат "0 Не найден родитель товара";

		КонецЕсли;

		Если СокрЛП(GUIDтовара) = "" тогда

			возврат "0 Не верный ГУИД товара";

		КонецЕсли;

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

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

			ТоварСсылка = Справочники.Товары.НайтиПоКоду(СтруктураРеквизитов.Код);

		КонецЕсли;

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

			

			Если этоГруппа="1" тогда 

				ТоварОбъект = Справочники.Товары.СоздатьГруппу();

			иначе

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

			КонецЕсли;

			ТоварОбъект.GUIDтовара = GUIDтовара;

		иначе

			ТоварОбъект = ТоварСсылка.ПолучитьОбъект();

			ТоварОбъект.GUIDтовара = GUIDтовара;

		КонецЕсли;

		ТоварОбъект.Родитель = ТоварРодитель;

		

		ТоварОбъект.Наименование = СтруктураРеквизитов.Наименование;

		

		ТоварОбъект.Код = СтруктураРеквизитов.Код;

		.....................

		Если этоГруппа="1" тогда 

		иначе

			Если СтруктураРеквизитов.менеджер <> "" тогда

				......................

			КонецЕсли;

			//

			Если ТоварОбъект.Производитель.Пустая() тогда

				Если СтруктураРеквизитов.Производитель<>"" тогда

					ТекПроизводитель = справочники.Производители.НайтиПоНаименованию(СтруктураРеквизитов.Производитель);

					Если ТекПроизводитель.Пустая() тогда

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

					иначе

						НовПроизводитель = ТекПроизводитель.ПолучитьОбъект();

					КонецЕсли;

					НовПроизводитель.GUID = СтруктураРеквизитов.GUIDПроизводителя;

					НовПроизводитель.Наименование = СтруктураРеквизитов.Производитель;

					НовПроизводитель.Записать();

					ТоварОбъект.Производитель = НовПроизводитель.ссылка;

				КонецЕсли;

			КонецЕсли;

			ТоварОбъект.СтавкаНДС = Справочники.СтавкиНДС.НайтиПоНаименованию(СтруктураРеквизитов.СтавкаНДС,Истина);

			

		КонецЕсли;

		

		ТоварОбъект.Записать();

		ТоварОбъект.УстановитьПометкуУдаления(СтруктураРеквизитов.ПометкаУдаления,Ложь);

		ТоварСсылка = ТоварОбъект.Ссылка;

		ТоварОбъект = Null;

		

		//Синхронизируем Единицы измерения

		ТаблицаЕдиниц = ЗначениеИзСтрокиВнутр(стрТаблицаЕдиницИзмерения);

		Для каждого строка из ТаблицаЕдиниц цикл

			ЕдиницаСсылка = Справочники.ЕдиницыИзмерения.НайтиПоРеквизиту("GUIDЕдиницы",строка.GUIDЕдиницы);

			Если не ЕдиницаСсылка.Пустая() тогда

				ЕдиницаОбъект = ЕдиницаСсылка.ПолучитьОбъект();

				ЕдиницаОбъект.УстановитьПометкуУдаления(строка.ПометкаУдаления,Ложь);

			иначе

				Если строка.ПометкаУдаления тогда

					продолжить; 

				КонецЕсли;

				ЕдиницаОбъект = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();

				ЕдиницаОбъект.GUIDЕдиницы = строка.GUIDЕдиницы;

			КонецЕсли;

			

			ЕдиницаОбъект.Код = строка.Код; 

			ЕдиницаОбъект.Наименование = строка.Наименование; 

			....................

			

			ЕдиницаОбъект.Габариты.Очистить();

			ТаблицаГабаритов = ЗначениеИзСтрокиВнутр(строка.ТаблицаГабаритов);

			Для каждого строкаГабаритов из ТаблицаГабаритов цикл

				НовСтрока = ЕдиницаОбъект.Габариты.Добавить();

				............................

				НовСтрока.Примечание = строкаГабаритов.Примечание;

			КонецЦикла;

			ЕдиницаОбъект.Записать();

			Если строка.Базовая тогда

				ТоварОбъект = ТоварСсылка.ПолучитьОбъект();

				ТоварОбъект.БазоваяЕдиницаИзмерения = ЕдиницаОбъект.Ссылка;

				ТоварОбъект.Записать();

			КонецЕсли;

		КонецЦикла;

		

		ТоварОбъект = ТоварСсылка.ПолучитьОбъект();

		ТоварОбъект.ВремяСинхронизации = ТекущаяДата();

		ТоварОбъект.Синхронизирован = истина;

		ТоварОбъект.Записать();

	исключение

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

		Возврат ОписаниеОшибки();

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

	//Если все прошло успешно сообщим методу вызвашему веб сервис об успешном выполнении.

	Возврат "ОК";

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

 Процедура ПередЗаписью(Отказ)

	#Если не ВнешнееСоединение тогда                          

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

		Если передавать = истина тогда

			Синхронизирован = Ложь; 

		КонецЕсли;

	#КонецЕсли

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



Процедура ПриЗаписи(Отказ)

	#Если не ВнешнееСоединение тогда

		Если Константы.СинхронизироватьБазы.Получить() и передавать тогда

			Синхронизация();

		КонецЕсли;

	#КонецЕсли

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



Функция Синхронизация()

	GUIDтовара = СокрЛП(ссылка.УникальныйИдентификатор());

	Если ссылка.Уровень()>0 тогда

		GUIDродителя = СокрЛП(ссылка.Родитель.УникальныйИдентификатор());

		Уровень = ссылка.Уровень()

	иначе

		GUIDродителя = "";

		Уровень = "0";

	КонецЕсли;

	Если ЭтоГруппа тогда

		СтрэтоГруппа = "1";

	иначе

		СтрэтоГруппа = "0";

	КонецЕсли;

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

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

	

	СтруктураРеквизитов.Вставить("Наименование",Наименование);

	СтруктураРеквизитов.Вставить("код",код);

	....................

	Если не ЭтоГруппа тогда

		Если ОсновнойПоставщик.Пустая() тогда

			......................

		иначе

			.....................

		КонецЕсли;

		

	КонецЕсли;

	

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

	

	ТаблицаЕдиницИзмерения = Новый ТаблицаЗначений;

	//GUIDЕдиницы

	//Базовая - булево

	//Коэффициент

	//ЕдиницаИзмерения - код классификатора Единиц измерения.

	//Утверждено - булево

	//ТаблицаГабаритов

	

	ТаблицаЕдиницИзмерения.Колонки.Добавить("Наименование");

	ТаблицаЕдиницИзмерения.Колонки.Добавить("Код");

	....................................

	Выборка = Справочники.ЕдиницыИзмерения.Выбрать(,ссылка);

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

		НовСтрока = ТаблицаЕдиницИзмерения.Добавить();

		НовСтрока.Наименование = Выборка.Наименование;

		НовСтрока.Код = Выборка.Код;

		..........................

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

		Для каждого колонка из Выборка.Габариты.Выгрузить().Колонки цикл

			ТаблицаГабаритов.Колонки.Добавить(колонка.Имя);

		КонецЦикла;

		Для каждого строка из Выборка.Габариты цикл

			НовСтрока1 = ТаблицаГабаритов.Добавить();

			Для каждого колонка из ТаблицаГабаритов.Колонки цикл

				НовСтрока1[колонка.Имя] = строка[колонка.Имя];

			КонецЦикла;

		КонецЦикла;

		

		НовСтрока.ТаблицаГабаритов = ЗначениеВСтрокуВнутр(ТаблицаГабаритов);

	КонецЦикла; 

	// т.к. наш вебсервис принимает в себя только строковые параметры, преобразуем наши таблицы в строки.

	стрТаблицаЕдиницИзмерения = ЗначениеВСтрокуВнутр(ТаблицаЕдиницИзмерения);

	

	есть = Ложь;

	колПопыток = 0;

	Пока не Есть и колПопытокцикл

		Попытка

			Определение = Новый WSОпределения(Константы.WebАдресМаркетинга.Получить()+"wssinhron.1cws"+"?wsdl",ПараметрыСеанса.Пользователь.Код,ПараметрыСеанса.Пользователь.ПарольЗакупок);

			Прокси = Новый WSПрокси(Определение, "www.market-sinhron.gor", "Синхронизация", "СинхронизацияSoap");

			Прокси.Пароль = ПараметрыСеанса.Пользователь.ПарольЗакупок;

			Прокси.Пользователь = ПараметрыСеанса.Пользователь.Код;

			Результат = Прокси.СинхронизироватьТовар(GUIDтовара, GUIDродителя, СтрЭтоГруппа, Уровень, стрСтруктураРеквизитов, стрТаблицаЕдиницИзмерения, стрТаблицаТНВЭД);

			Определение = Null;

			Прокси = Null;

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

		исключение

			колПопыток = колПопыток+1;

			Определение = Null;

			Прокси = Null;

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

	КонецЦикла;

	Если колПопыток=100 тогда

		#Если Клиент тогда

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

			Предупреждение("Ошибка синхронизации. отсутствует подключение.");

		#КонецЕсли

	КонецЕсли;

	передавать = ложь;

	сообщить(Результат);

	Если Лев(Результат,2)="ОК" тогда

		Синхронизирован = Истина;

		ВремяСинхронизации = ТекущаяДата();

		Записать();

	КонецЕсли;

	

	Если СокрЛП(Результат)="0 Не найден родитель товара" тогда

		#Если Клиент тогда

			Сообщить("вызов синхронизации родителя");

		#КонецЕсли

		ОбъектРодитель = родитель.ПолучитьОбъект();

		ОбъектРодитель.Записать();

		Записать();

	КонецЕсли;

	

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

 передавать = истина;

Синхронизация();   

 //В ходе выполнения некоторого кода открывается окно сообщений 

Сообщить("Сегодня: " +ТекущаяДата());



//Выполнение другой части кода



//Теперь нам необходимо закрыть окно сообщений

Wsh = Новый СОМОбъект("Wscript.shell");

//Wsh - переменная. Можно было дать любое другое имя, например Окно

Wsh.SendKeys("^+z");   //имитируем нажатие Ctrl+Z

Wsh.SendKeys("^+я");   //для случая, если текущей является русская раскладка клавиатуры   

 ОкладПриказа = СпрСотрудники.Оклад;