eComm+

Модулі для BAS / 1С* - розроблено в Україні!

Инструменты пользователя

Инструменты сайта


ecommdeliverybitrix

СоздатьОбновитьДокумент модуль Б_ОбменССайтомСерверЗагрузкиДанных

Если НазваниеДокумента = "ЗаказКлиента" тогда
			Документ.ЗаполнитьЭтапыГрафикаОплаты();
			
			//++ eComm+
			СкладНовойПочты = ПолучитьЗначениеРеквизитаДокумента(ДокументXML.ЗначенияРеквизитов, "СкладНовойПочты");
			Если ЗначениеЗаполнено(СкладНовойПочты) Тогда
				
				Документ.ДополнительныеСвойства.Вставить("eComm", Новый Структура());
				
				СтруктураКонтактов = ДокументXML.Контрагент;
				СтруктураКонтактов.Вставить("Телефон"	, eCommСерверДоработки.ТелефонИзКонтактнойИнформации(ДокументXML.Контрагент));
				Документ.ДополнительныеСвойства.eComm.Вставить("Контакты", СтруктураКонтактов);
				
				СтруктураДоставки = Новый Структура("СервисДоставки, ИдОтделения, ЗаСчетОтправителя", "Новая Почта", СкладНовойПочты, ДоставкаЗаСчетОтправителя);
				Документ.ДополнительныеСвойства.eComm.Вставить("Доставка", СтруктураДоставки);
				
				СтруктураОплаты = Новый Структура("НаложенныйПлатеж", Ложь);
				Документ.ДополнительныеСвойства.eComm.Вставить("Оплата", СтруктураОплаты);
				
			КонецЕсли;
			//--
			
		КонецЕсли;
		                      
		СкладГруппа = Справочники.Склады.ЭтоГруппаИСкладыИспользуютсяВТЧДокументовПродажи(Документ.Склад);
		СкладыСервер.ЗаполнитьСкладыВТабличнойЧасти(Документ.Склад, СкладГруппа, Документ.Товары, Ложь);
		
	КонецЕсли;
	
	Если ОсновныеНастройкиДокумента.РежимЗаписиДокументов = "Проводить оперативно" тогда
		ДокументСозданИзменен = ЗаписьИПроведениеДокумента(ПараметрыОбмена, Документ, ?(ДокументОтменен, Ложь, Истина), Истина);
	ИначеЕсли ОсновныеНастройкиДокумента.РежимЗаписиДокументов = "Проводить не оперативно" тогда
		ДокументСозданИзменен = ЗаписьИПроведениеДокумента(ПараметрыОбмена, Документ, ?(ДокументОтменен, Ложь, Истина), Ложь);
		
	Иначе
		
		лПроводитьДокумент = ПроверкаНаПроведениеПоДополнительнымУсловиям(НазваниеДокумента, ДокументОтменен, ДокументXML, Документ);
		
		ДокументСозданИзменен = ЗаписьИПроведениеДокумента(ПараметрыОбмена, Документ, лПроводитьДокумент, Ложь);
		
	КонецЕсли;
	
	//++ eComm+
	Если НазваниеДокумента = "ЗаказКлиента" 
		И Документ.ДополнительныеСвойства.Свойство("eComm") Тогда
		eCommСерверПереопределяемый.ПослеЗаписиЗаказаКлиента(Новый Структура("Используется_eCommДоставка", Истина), Документ, Истина);
	КонецЕсли;
	//--
	
	Если ДокументСозданИзменен тогда 
		ЗаписьСтатусовИУдалениеЗагруженныхДокументов(ПараметрыОбмена, ДокументXML, ОсновныеНастройкиДокумента, Документ, НовыйДокумент, ДокументОтменен);
	КонецЕсли;
ecommdeliverybitrix.txt · Последнее изменение: 2021/03/14 10:04 — webmaster