a-sitnikov

&НаКлиенте
Процедура Загрузить(Команда)
	
    ОписаниеОповещения = Новый ОписаниеОповещения("ЗагрузитьЗавершение", ЭтотОбъект);
    НачатьПомещениеФайлаНаСервер(ОписаниеОповещения,,,, ИмяФайла , УникальныйИдентификатор);
	
КонецПроцедуры

&НаКлиенте
Процедура ЗагрузитьЗавершение(ОписаниеФайла, ДопПараметры) Экспорт

a-sitnikov

#Область ОбработчикиСобытийФормы

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	
	Параметры.Свойство("ДополнительнаяОбработкаСсылка", ДополнительнаяОбработкаСсылка);
	
	ВыполнятьвФоне = Истина;
	

a-sitnikov

Процедура ОбъединитьОбластиПоЗначению(ТабДокумент, Начало, Конец, Колонка)
	
	ПредЗначение = ТабДокумент.Область(Начало, Колонка, Начало, Колонка).Текст; 
	ПредНачало   = Начало;
	Для Счетчик = Начало + 1 По Конец Цикл
		
		ТекЗначение = ТабДокумент.Область(Счетчик, Колонка, Счетчик, Колонка).Текст;
		Если ТекЗначение <> ПредЗначение Тогда 
			
			Если ПредНачало < Счетчик - 1 Тогда

a-sitnikov

Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
	
	СтандартнаяОбработка = Ложь;
	ДокументРезультат.Очистить();
	
	ВнешниеНаборыДанных = Новый Структура;
	ВнешниеНаборыДанных.Вставить("Данные", ПолучитьТаблицуДанных());
	
	КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
	МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, КомпоновщикНастроек.ПолучитьНастройки(), ДанныеРасшифровки);

a-sitnikov

СтруктураПересчетаСуммы = ОбработкаТабличнойЧастиКлиентСервер.ПараметрыПересчетаСуммыНДСВСтрокеТЧ(Объект);

СтруктураДействий = Новый Структура;
СтруктураДействий.Вставить("ПересчитатьСуммуНДС",  СтруктураПересчетаСуммы);
СтруктураДействий.Вставить("ПересчитатьСуммуСНДС", СтруктураПересчетаСуммы);
СтруктураДействий.Вставить("ПересчитатьСумму");
СтруктураДействий.Вставить("ПересчитатьСуммуСУчетомРучнойСкидки",         Новый Структура("Очищать", Ложь));
СтруктураДействий.Вставить("ПересчитатьСуммуСУчетомАвтоматическойСкидки", Новый Структура("Очищать", Истина));
СтруктураДействий.Вставить("ЗаполнитьДубликатыЗависимыхРеквизитов", ЗависимыеРеквизиты());

a-sitnikov

cd /D "%~dp0"
cscript.exe erp.js

a-sitnikov

Функция ПолучитьДанныеРасшифровки(АдресРасшифровки, Расшифровка) Экспорт
	
	ДанныеРасшифровки = ПолучитьИзВременногоХранилища(АдресРасшифровки);
	ЭлементРасшифровки = ДанныеРасшифровки.Элементы[Расшифровка];
	
	СтруктураГруппировок = Новый Структура;
	ДобавитьГруппировкиРасшифровки(ЭлементРасшифровки.ПолучитьРодителей(), ДанныеРасшифровки, СтруктураГруппировок);
	
	МассивРесурсов = НайтиВсеРесурсыПоГруппировкам(ДанныеРасшифровки, ЭлементРасшифровки.ПолучитьРодителей());

a-sitnikov

&НаКлиенте
Процедура ЗаполнитьМарки(Команда)
	
	ОписаниеОповещения = Новый ОписаниеОповещения("ЗаполнитьМаркиЗавершение", ЭтотОбъект);
	ПоказатьВопрос(ОписаниеОповещения, "Заполнить марки?", РежимДиалогаВопрос.ДаНет,, КодВозвратаДиалога.Нет);
	
КонецПроцедуры

&НаКлиенте
Процедура ЗаполнитьМаркиЗавершение(Ответ, ДопПараметры) Экспорт

a-sitnikov

&НаКлиенте
Процедура Сохранить(Команда)
	
	Адрес = СохранитьНаСервере();
	Описание = Новый ОписаниеПередаваемогоФайла(Объект.ИмяФайла, Адрес);
	МассивОписаний = Новый Массив;
	МассивОписаний.Добавить(Описание);
	ПолучитьФайлы(МассивОписаний,,,Ложь);
	
	Состояние("Файл сохранен");

a-sitnikov

delete from [ИмяБазы].[dbo].[Config] where FileName = 'commit'
delete from [ИмяБазы].[dbo].[Config] where FileName = 'dbStruFinal'
delete from [ИмяБазы].[dbo].[Config] where FileName = 'DynamicallyUpdated' --(для версии 8.3)
delete from [ИмяБазы].[dbo].[Config] where FileName = 'dynamicCommit' --(для версии 8.3)
delete from [ИмяБазы].[dbo].[ConfigSave]