EXEC sp_rename 'v8users', 'v8users_old'

GO

UPDATE Params

SET FileName = 'users.usr_old'

WHERE FileName = 'users.usr'

GO   

 DROP TABLE v8users

GO

EXEC sp_rename 'v8users_old', 'v8users'

GO

UPDATE Params

SET FileName = 'users.usr'

WHERE FileName = 'users.usr_old'

GO   

 ALTER TABLE v8users RENAME TO v8users_old;

UPDATE Params SET FileName = 'users.usr_old' WHERE FileName = 'users.usr';   

 DROP TABLE v8users;

ALTER TABLE v8users_old RENAME TO v8users;

UPDATE Params SET FileName = 'users.usr' WHERE FileName = 'users.usr_old';   

  &НаКлиенте

Процедура ОбработатьВыборФайла(Результат, Адрес, ВыбранноеИмяФайла, ДополнительныеПараметры) Экспорт

Если Не Результат Тогда

 Возврат; 

КонецЕсли;

// Много кода обработки

//...

//...

//...





// ОБНОВИМ динамический список файлы

Элементы.Файлы.Обновить();



// для обновления Реквизитов

ЭтаФорма.Прочитать();



// Обновление данных

ЭтаФорма.ОбновитьОтображениеДанных();



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

 &НаСервере

//Текст - содержание текстового файла

//Разделитель - символ разделителя

//ЕстьЗакрывающийСимвол - последнее значение заканчивается разделителем

Функция ПреобразоватьТекстВТЗ(Текст,Разделитель,ЕстьЗакрывающийСимвол)

	

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

	

	МаксимальноеКвоРазделителей = 0;

	Для НомерСтроки=1 по Текст.КоличествоСтрок() Цикл

		Стр = Текст.ПолучитьСтроку(НомерСтроки);

		КвоРазделителей = СтрЧислоВхождений(Стр,Разделитель);

		Если  КвоРазделителей > МаксимальноеКвоРазделителей Тогда

	          МаксимальноеКвоРазделителей = КвоРазделителей;

		КонецЕсли;	  

	КонецЦикла;	

	

	КвоКолонок = ?(ЕстьЗакрывающийСимвол = Истина,МаксимальноеКвоРазделителей,МаксимальноеКвоРазделителей+1);

	Ном = 0;

	Пока Ном < КвоКолонок Цикл

		 Ном = Ном+1;

		 ИмяКолонки = "Колонка"+Ном;

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

	КонецЦикла;

	

	Для НомерСтроки=1 по Текст.КоличествоСтрок() Цикл

		

		Стр = Текст.ПолучитьСтроку(НомерСтроки);

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

		

		Ном = 0;

		Пока Найти(Стр,Разделитель) > 0 Цикл

			Ном = Ном+1;

			ПозицияРазделителя = Найти(Стр,Разделитель);

			//получим значение

			ТекЗначение = ЛЕВ(Стр,ПозицияРазделителя - 1);

			Стр = Прав(Стр,СтрДлина(Стр) - ПозицияРазделителя);

			

			//теперь запишем значения

			ИмяКолонки = "Колонка"+Ном;

			НоваяСтрока[ИмяКолонки] = ТекЗначение;

		КонецЦикла;

		

		Если ЕстьЗакрывающийСимвол = Ложь Тогда

			ИмяКолонки = "Колонка"+(Ном+1);

			НоваяСтрока[ИмяКолонки] = Стр;

		КонецЕсли;

		

	КонецЦикла;

	

	Возврат  ТаблицаЗначений;

	

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

   

 &НаСервере

//Текст - содержание текстового файла

//Разделитель - символ разделителя

//ЕстьЗакрывающийСимвол - последнее значение заканчивается разделителем

Функция ПреобразоватьТекстВТЗ(Текст,Разделитель,ЕстьЗакрывающийСимвол)

	

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

	

	МаксимальноеКвоРазделителей = 0;

	Для НомерСтроки=1 по Текст.КоличествоСтрок() Цикл

		Стр = Текст.ПолучитьСтроку(НомерСтроки);

		КвоРазделителей = СтрЧислоВхождений(Стр,Разделитель);

		Если  КвоРазделителей > МаксимальноеКвоРазделителей Тогда

	          МаксимальноеКвоРазделителей = КвоРазделителей;

		КонецЕсли;	  

	КонецЦикла;	

	

	КвоКолонок = ?(ЕстьЗакрывающийСимвол = Истина,МаксимальноеКвоРазделителей,МаксимальноеКвоРазделителей+1);

	Ном = 0;

	Пока Ном < КвоКолонок Цикл

		 Ном = Ном+1;

		 ИмяКолонки = "Колонка"+Ном;

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

	КонецЦикла;

	

	Для НомерСтроки=1 по Текст.КоличествоСтрок() Цикл

		

		Стр = Текст.ПолучитьСтроку(НомерСтроки);

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

		

		Ном = 0;

		Пока Найти(Стр,Разделитель) > 0 Цикл

			Ном = Ном+1;

			ПозицияРазделителя = Найти(Стр,Разделитель);

			//получим значение

			ТекЗначение = ЛЕВ(Стр,ПозицияРазделителя - 1);

			Стр = Прав(Стр,СтрДлина(Стр) - ПозицияРазделителя);

			

			//теперь запишем значения

			ИмяКолонки = "Колонка"+Ном;

			НоваяСтрока[ИмяКолонки] = ТекЗначение;

		КонецЦикла;

		

		Если ЕстьЗакрывающийСимвол = Ложь Тогда

			ИмяКолонки = "Колонка"+(Ном+1);

			НоваяСтрока[ИмяКолонки] = Стр;

		КонецЕсли;

		

	КонецЦикла;

	

	Возврат  ТаблицаЗначений;

	

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

   

  //Пример кода

Перем Подключились;

Перем COMОбъект;



Функция ПолучитьНом(Выборка)

	

	Ном = Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(Выборка.Номенклатура));

	

	Если Ном.Пустая() Тогда

		ВвестиЗначение(Ном, "Выберите номенклатуру " + СокрЛП(Выборка.Номенклатура), Тип("СправочникСсылка.Номенклатура"));

	КонецЕсли;

	

	Возврат Ном;

	

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





Функция ПодключитьсяКCRM()

	

	Подключились = Истина;

	

	Попытка

		Подкл = Новый COMОбъект("V82.COMConnector");

		COMОбъект = Подкл.Connect("Srvr=""Server1"";Ref=""TradeUT"";Usr=""ObmenBot"";Pwd=""12345""");

	Исключение

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

		Подключились = Ложь;

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

	

	Возврат Подключились;

	

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



Процедура Реализации_Анализ(Элемент)

	

	Если не Подключились Тогда

		Если не ПодключитьсяКCRM() Тогда

			Возврат;

		КонецЕсли;

	КонецЕсли;

	

	Запрос = COMОбъект.NewObject("Запрос");

	

	Запрос.Текст = ПолучитьМакет("ЗапросПродажи").ПолучитьТекст();

	

	Запрос.УстановитьПараметр("Дата1", НачалоДня(ДатаНач));

	Запрос.УстановитьПараметр("Дата2", КонецДня(ДатаКон));

	

	глРезультатЗапросаПродажи = Запрос.Выполнить();

	

	Выборка = глРезультатЗапросаПродажи.Выбрать(COMОбъект.ОбходРезультатаЗапроса.ПоГруппировкам);

	

	ДокРеал = Документы.РеализацияТоваровУслуг;

	СпрКонтр = Справочники.Контрагенты;

	

	ТаблицаДокументов.Очистить();

	

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

		ОбработкаПрерыванияПользователя();

		Стр = ТаблицаДокументов.Добавить();

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

		Стр.Документ = ДокРеал.НайтиПоНомеру(Стр.Номер, Стр.Дата);

		Стр.ТекстКонтрагент = Выборка.КонтрагентНаименование + ", ИНН " + Выборка.ИННКонтрагента;

		Если не ПустаяСтрока(Выборка.ИННКонтрагента) Тогда

			ВыборкаКонтр = СпрКонтр.Выбрать(,, Новый Структура("ИНН", Выборка.ИННКонтрагента));

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

				Если не ЗначениеЗаполнено(Стр.Контрагент) или ВыборкаКонтр.КПП = Выборка.КППКонтрагента Тогда

					Стр.Контрагент = ВыборкаКонтр.Ссылка;

				КонецЕсли;

			КонецЦикла;

		КонецЕсли;

		

	КонецЦикла;

	

	ЭлементыФормы.кнЗагрузитьШаг1.Доступность = Истина;

	ЭлементыФормы.ИндикаторРеал.МаксимальноеЗначение = ТаблицаДокументов.Количество(); 

	

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



Процедура Реализации_Загрузить(Элемент)

	

	ЭлементыФормы.ИндикаторРеал.МаксимальноеЗначение = ТаблицаДокументов.Количество(); 

	ЗначениеИндикатораРеал = 0;

	

	ДокРеал = Документы.РеализацияТоваровУслуг;

	

	ВыборкаДок = глРезультатЗапросаПродажи.Выбрать(COMОбъект.ОбходРезультатаЗапроса.ПоГруппировкам);

	

	мСписокВидовДоговоров = Новый СписокЗначений;

	мСписокВидовДоговоров.Добавить(Перечисления.ВидыДоговоровКонтрагентов.СПокупателем);

	

	СпособЗаполненияЦен = Перечисления.СпособыЗаполненияЦен.ПоЦенамНоменклатуры;

	

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

		ЗначениеИндикатораРеал = ЗначениеИндикатораРеал + 1;

		

		СтрокаТаб = ТаблицаДокументов.Найти(ВыборкаДок.Номер, "Номер");

		

		Если СтрокаТаб <> Неопределено Тогда

			Если ЗначениеЗаполнено(СтрокаТаб.Документ) Тогда

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

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

				Док.Услуги.Очистить();

			Иначе

				Док = ДокРеал.СоздатьДокумент();

			КонецЕсли;

			

			

			Док.Дата = ВыборкаДок.Дата;

			Док.Номер = ВыборкаДок.Номер;

			Док.Контрагент = СтрокаТаб.Контрагент;

			

			ЗаполнениеДокументов.ЗаполнитьШапкуДокумента(Док, глЗначениеПеременной("глТекущийПользователь"), Док.мВалютаРегламентированногоУчета, "Продажа");

			ЗаполнениеДокументов.ПриИзмененииЗначенияКонтрагента(Док, мСписокВидовДоговоров);

			ЗаполнениеДокументов.ПриИзмененииЗначенияДоговора(Док, Док.ВалютаДокумента, Док.мВалютаРегламентированногоУчета, СпособЗаполненияЦен, Ценообразование.ПолучитьСтруктуруРеквизитовДокументаДляЦенообразования(Док), "Продажа", "Товары", Неопределено);

			

			Док.ЗаполнитьСчетаУчетаРасчетов();

			

			Док.УчитыватьНДС = Ложь;

			

			ВыборкаНом = ВыборкаДок.Выбрать(COMОбъект.ОбходРезультатаЗапроса.ПоГруппировкам);

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

				

				ОбработкаПрерыванияПользователя();

				

				Ном = ПолучитьНом(ВыборкаНом);

				

				Если ВыборкаНом.Идентификатор = 1 Тогда

					СтрокаТЧ = Док.Товары.Добавить();

					СтрокаТЧ.Номенклатура = Ном;

					Док.ЗаполнитьСчетаУчетаВСтрокеТабЧасти(СтрокаТЧ, "Товары", Истина);

				Иначе

					СтрокаТЧ = Док.Услуги.Добавить();

					СтрокаТЧ.Номенклатура = Ном;

					Док.ЗаполнитьСчетаУчетаВСтрокеТабЧастиУслуги(СтрокаТЧ, ИСТИНА);

					ОбработкаТабличныхЧастей.ЗаполнитьСодержаниеТабЧасти(СтрокаТЧ, Док);

				КонецЕсли;

				

					

				ОбработкаТабличныхЧастей.ЗаполнитьСтавкуНДСТабЧасти(СтрокаТЧ, Док);

				ОбработкаТабличныхЧастей.ЗаполнитьЕдиницуЦенуПродажиТабЧасти(СтрокаТЧ, Док, Док.мВалютаРегламентированногоУчета);

				

				СтрокаТЧ.Количество = ВыборкаНом.Количество;

				СтрокаТЧ.Сумма = ВыборкаНом.Сумма;

				СтрокаТЧ.Цена = СтрокаТЧ.Сумма / ?(ВыборкаНом.Количество = 0, 1, ВыборкаНом.Количество);

				

			КонецЦикла;

			

			Если не ВыборкаДок.ДоставкаОтдельно и ВыборкаДок.СтоимостьДоставкиПлан <> 0 Тогда

				СтрокаТЧ = Док.Товары.Добавить();

				СтрокаТЧ.Номенклатура = Док.Товары[0].Номенклатура;

				Док.ЗаполнитьСчетаУчетаВСтрокеТабЧасти(СтрокаТЧ, "Товары", Истина);

				ОбработкаТабличныхЧастей.ЗаполнитьСтавкуНДСТабЧасти(СтрокаТЧ, Док);

				ОбработкаТабличныхЧастей.ЗаполнитьЕдиницуЦенуПродажиТабЧасти(СтрокаТЧ, Док, Док.мВалютаРегламентированногоУчета);

				СтрокаТЧ.Сумма = - ВыборкаДок.СтоимостьДоставкиПлан;

				

				СтрокаТЧ = Док.Услуги.Добавить();

				СтрокаТЧ.Номенклатура = Справочники.Номенклатура.ТранспортныеУслуги;

				Док.ЗаполнитьСчетаУчетаВСтрокеТабЧастиУслуги(СтрокаТЧ, ИСТИНА);

				ОбработкаТабличныхЧастей.ЗаполнитьСодержаниеТабЧасти(СтрокаТЧ, Док);

				ОбработкаТабличныхЧастей.ЗаполнитьСтавкуНДСТабЧасти(СтрокаТЧ, Док);

				ОбработкаТабличныхЧастей.ЗаполнитьЕдиницуЦенуПродажиТабЧасти(СтрокаТЧ, Док, Док.мВалютаРегламентированногоУчета);

				СтрокаТЧ.Количество = 1;

				СтрокаТЧ.Цена = ВыборкаДок.СтоимостьДоставкиПлан;

				СтрокаТЧ.Сумма = ВыборкаДок.СтоимостьДоставкиПлан;

				

			КонецЕсли;

			

			Ош = Ложь;

			Попытка

				Док.Записать(?(Проводить, РежимЗаписиДокумента.Проведение, РежимЗаписиДокумента.Запись));

				Ош = Истина;

			Исключение

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

			

			Если Ош и Проводить Тогда

				Док.Записать(РежимЗаписиДокумента.Запись);

			КонецЕсли;

			

			СтрокаТаб.Документ = Док.Ссылка;

			

		КонецЕсли;

			

	КонецЦикла;

	

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



Подключились = Ложь;   

 Процедура ОбработкаПроведения(Отказ, Режим)

 

	Движения.Хозрасчетный.Очистить();

	Движения.Хозрасчетный.Записать();

	Движения.Хозрасчетный.Записывать = Истина;

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

		Запрос = Новый Запрос;       //проверяем сколько осталось на складе1

		Запрос.Текст = "ВЫБРАТЬ

		|	ХозрасчетныйОстатки.КоличествоОстатокДт

		|ИЗ

		|	РегистрБухгалтерии.Хозрасчетный.Остатки КАК ХозрасчетныйОстатки

		|ГДЕ

		|	ХозрасчетныйОстатки.Счет = &Счет

		|	И ХозрасчетныйОстатки.Субконто1 = &Субконто1

		|	И ХозрасчетныйОстатки.Субконто2 = &Субконто2";

		Запрос.УстановитьПараметр("Счет",ПланыСчетов.Хозрасчетный.ТоварыНаСкладах);  //41.1

		Запрос.УстановитьПараметр("Субконто1",ТекСтрокаТовары.Номенклатура);

		Запрос.УстановитьПараметр("Субконто2",Склад1);

		Выборка = Запрос.Выполнить().Выбрать();

		Если Выборка.Следующий() Тогда

			Если Выборка.КоличествоОстатокДт < ТекСтрокаТовары.Количество Тогда

				Сообщить("На складе1 остака: " + СокрЛП(Выборка.КоличествоОстатокДт)); 

				Отказ = Истина;

				Возврат;

			КонецЕсли;   

		Иначе

			Сообщить("нет остатка на складе1"); 

			Отказ = Истина;

			Возврат;

		КонецЕсли;   



		Движение = Движения.Хозрасчетный.Добавить();

		Движение.СчетКт = ПланыСчетов.Хозрасчетный.ТоварыНаСкладах;      //Списываем

		Движение.СчетДт = ПланыСчетов.Хозрасчетный.ТоварыНаСкладах;      //приходуем

		Движение.Период = Дата;

		Движение.КоличествоКт = ТекСтрокаТовары.Количество;

		Движение.ДатаЗаписи = Дата;

		Движение.Содержание = "Перемещение";

		

		БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт,Движение.СубконтоКт,

                "Номенклатура",ТекСтрокаТовары.Номенклатура);

		БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт,Движение.СубконтоКт,

                "Склады",Склад1);

		

		БухгалтерскийУчет.УстановитьСубконто(Движение.СчетДт,Движение.СубконтоДт,

                "Номенклатура",ТекСтрокаТовары.Номенклатура);

		БухгалтерскийУчет.УстановитьСубконто(Движение.СчетДт,Движение.СубконтоДт,

                "Склады",Склад2);

		//Или так

		//Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура] = Номенклатура;

		//Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады] = Склад1;

		//Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура] = Номенклатура;

		//Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады] = Склад2;

	КонецЦикла;



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

 Функция СведенияОВнешнейОбработке() Экспорт



    ПараметрыРегистрации = Новый Структура;

    МассивНазначений = Новый Массив;

    МассивНазначений.Добавить("Документ.СчетФактураВыданныйАванс");



    ПараметрыРегистрации.Вставить("Вид", "ЗаполнениеОбъекта");

    ПараметрыРегистрации.Вставить("Назначение", МассивНазначений);

    ПараметрыРегистрации.Вставить("Наименование", "Заполнить документ");

    ПараметрыРегистрации.Вставить("Версия", "1.0");

    ПараметрыРегистрации.Вставить("БезопасныйРежим", Истина);

    ПараметрыРегистрации.Вставить("Информация", "Дополнительная обработка табличной части к документу счет-фактура выданный аванс");



    ТаблицаКоманд = ПолучитьТаблицуКоманд();



    ДобавитьКоманду(ТаблицаКоманд,

    "Заполнить документ",

    "Заполнить документ",

    "ВызовКлиентскогоМетода",

    Истина);



    ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд);



    Возврат ПараметрыРегистрации;

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



Функция ПолучитьТаблицуКоманд()

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

  Команды.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка"));

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

  Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка"));

  Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"));

  Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка"));

  Возврат Команды;

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



Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь, Модификатор = "")

  НоваяКоманда = ТаблицаКоманд.Добавить();

  НоваяКоманда.Представление = Представление;

  НоваяКоманда.Идентификатор = Идентификатор;

  НоваяКоманда.Использование = Использование;

  НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение;

  НоваяКоманда.Модификатор = Модификатор;

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

 &НаКлиенте

Процедура ВыполнитьКоманду(ИдентификаторКоманды, ОбъектыНазначенияМассив) Экспорт

    //Спросим у пользователя разрешение на продолжение обработки

    Режим = РежимДиалогаВопрос.ДаНет;

    Текст = "Текущие данные документа будут заменены новыми без возможности восстановления.

    |Продолжить?";

    Ответ = Вопрос(Текст, Режим, 0);

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



        //Если пользователь дал разрешение на продолжение, то начнем перебирать все

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

        Для каждого Элемент из ОбъектыНазначенияМассив Цикл



            //Зададим ключ поиска документа, из которого вызвана данная обработка,

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

            //функции ОткрытьФорму()

            КлючПоиска = Новый Структура("Ключ", Элемент);



            //Но нам не надо открывать новую форму (окно) для изменяемого документа, а

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

            Окна = ПолучитьОкна();

            Для каждого Окно из Окна Цикл



                //Окно изменяемого документа будет точно не основным, а вспомогательным, поэтому

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

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

                //Наименование, номер и дата нужного документа - будем изменять

                Если НЕ Окно.Основное

                    И Найти(Окно.Заголовок, Элемент) Тогда

                    //Передадим ключ поиска (можно сказать ссылку на объект) и данные о найденном открытом окне

                    //в функцию ОткрытьФорму()

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

                    Форма = ОткрытьФорму("Документ.СчетФактураВыданныйАванс.Форма.ФормаДокумента",КлючПоиска,,,Окно);



                    //Далее мы получаем объект только, что повторно открытой формы и помещаем её в переменную

                    //В объекте содержатся все реквизиты (элементы) формы

                    НовыйОбъект = Форма.Объект;



                    //Мы помещаем объект формы в переменную,

                    //так как должны передать её в процедуру на сервере,

                    //где нельзя изменять объект формы, зато можно править переменную содержащую его

                    ЗаполнитьОбъект(НовыйОбъект);



                    //После выполнения процедуры на сервере мы получаем изменную переменную НовыйОбъект,

                    //которую необходимо передать в уже полученную нами форму

                    КопироватьДанныеФормы(НовыйОбъект, Форма.Объект);

                КонецЕсли;

            КонецЦикла;



        КонецЦикла;

    КонецЕсли;

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

 &НаСервере

Функция ЗаполнитьОбъект(НовыйОбъект)



    Если ТипЗнч(НовыйОбъект.ДокументОснование) = Тип("ДокументСсылка.ПоступлениеБезналичныхДенежныхСредств") Тогда



        Если НовыйОбъект.ДокументОснование.РасшифровкаПлатежа.Количество() > 0 Тогда

            НовыйОбъект.Авансы.Очистить();

        КонецЕсли;



        Для каждого СтрокаТЧ из НовыйОбъект.ДокументОснование.РасшифровкаПлатежа Цикл

            НоваяСтрока = НовыйОбъект.Авансы.Добавить();

            Если ЗначениеЗаполнено(СтрокаТЧ.СчетНаОплату) Тогда

                НоваяСтрока.Содержание = "Предварительная оплата" + ФормированиеПечатныхФорм.СформироватьЗаголовокДокумента(СтрокаТЧ.СчетНаОплату, НСтр("ru=' по счету на оплату'"));

            КонецЕсли;

            НоваяСтрока.Сумма = СтрокаТЧ.Сумма;

            НоваяСтрока.СтавкаНДС = Перечисления.СтавкиНДС.НДС18_118;

            ТекПроцентНДС = ЦенообразованиеКлиентСервер.ПолучитьСтавкуНДСЧислом(НоваяСтрока.СтавкаНДС);

            НоваяСтрока.СуммаНДС = ЦенообразованиеКлиентСервер.РассчитатьСуммуНДС(НоваяСтрока.Сумма, ТекПроцентНДС);

        КонецЦикла;

    КонецЕсли;



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

 Процедура ОбработкаПроведения(Отказ, Режим) 



    СторнируемыеДвижения = РегистрыБухгалтерии.Хозрасчетный.ВыбратьПоРегистратору(СторнируемыйДокумент); 

    

    Пока СторнируемыеДвижения.Следующий() Цикл 

        Проводка = Движения.Хозрасчетный.Добавить(); 

        Проводка.Период = Дата; 

        Проводка.СчетДт = СторнируемыеДвижения.СчетДт; 

        Проводка.СчетКт = СторнируемыеДвижения.СчетКт; 



        Для каждого Субконто Из СторнируемыеДвижения.СубконтоДт Цикл 

            Проводка.СубконтоДт[Субконто.Ключ] = Субконто.Значение; 

        КонецЦикла; 



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

            Проводка.СубконтоКт[Субконто.Ключ] = Субконто.Значение; 

        КонецЦикла; 



        Проводка.ВалютаДт = СторнируемыеДвижения.ВалютаДт; 

        Проводка.ВалютаКт = СторнируемыеДвижения.ВалютаКт; 

        Проводка.ВалютнаяСуммаДт = - СторнируемыеДвижения.ВалютнаяСуммаДт; 

        Проводка.ВалютнаяСуммаКт = - СторнируемыеДвижения.ВалютнаяСуммаКт; 

        Проводка.КоличествоДт = - СторнируемыеДвижения.КоличествоДт; 

        Проводка.КоличествоКт = - СторнируемыеДвижения.КоличествоКт; 

        Проводка.НомерЖурнала = СторнируемыеДвижения.НомерЖурнала; 

        Проводка.Организация = СторнируемыеДвижения.Организация; 

        Проводка.Содержание = СторнируемыеДвижения.Содержание; 

        Проводка.Сумма = - СторнируемыеДвижения.Сумма; 

    КонецЦикла; 



    Движения.Хозрасчетный.Записать(); 



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

   

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

Запрос.Текст = "ВЫБРАТЬ 

|	ХозрасчетныйОстатки.СуммаОстатокДт 

|ИЗ 

|	РегистрБухгалтерии.Хозрасчетный.Остатки(&Период, Счет = &Счет, , 

|	Субконто1 = &Контрагент И Организация = &Организация И Субконто2 = &Договор) КАК ХозрасчетныйОстатки"; 



// Считаем что на счете ведется аналитика только в разрезе контрагентов 

// и договоров. 

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

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

Запрос.УстановитьПараметр("Договор", Договор); 

Запрос.УстановитьПараметр("Организация", Организация); 

Запрос.УстановитьПараметр("Счет", ПланыСчетов.Хозрасчетный.РасчетыСПокупателями); 



Выборка = Запрос.Выполнить().Выбрать(); 



Если Выборка.Следующий() Тогда 

    Документ = Документы.ОперацияБух.СоздатьДокумент(); 



    Документ.Дата = РабочаяДата; 

    Документ.Организация = Организация; 

    Документ.Содержание = "Погашение дебиторской задолженности"; 



    Проводка = Документ.Движения.Хозрасчетный.Добавить(); 

    Проводка.СчетДт = ПланыСчетов.Хозрасчетный.РасчетыСПокупателями; 

    Проводка.СчетКт = ПланыСчетов.Хозрасчетный.ПрочиеРасходы; 

    Проводка.СубконтоДт.Контрагенты = Контрагент; 

    Проводка.СубконтоДт.Договоры = Договор; 

    Проводка.Сумма = Выборка.СуммаОстатокДт; 



    Документ.СуммаОперации = Выборка.СуммаОстатокДт; 



    Форма = Документ.ПолучитьФорму(); 

    Форма.Открыть(); 

КонецЕсли; 

   

 Сч01_01 = ПланыСчетов.Хозрасчетный.ОСвОрганизации;

Сч02_01 = ПланыСчетов.Хозрасчетный.АмортизацияОС_01;

Сч83_01 = ПланыСчетов.Хозрасчетный.ПриростСтоимостиИмуществаПоПереоценке;

ДБФ = Новый XBase;

ДБФ.ОткрытьФайл(ИмяФайла);

Если ДБФ.Открыта() Тогда

    Попытка

        НачатьТранзакцию();

        

  ДокКорректировка = Документы.КорректировкаЗаписейРегистров.СоздатьДокумент();

        ЗаполнениеДокументов.ЗаполнитьШапкуДокумента(ДокКорректировка.ЭтотОбъект, ПараметрыСеанса.ТекущийПользователь);

        ДокКорректировка.Дата = Период;            



  НоваяСтрокаРегБух = ДокКорректировка.ТаблицаРегистровБухгалтерии.Добавить();

        НоваяСтрокаРегБух.Имя = "Хозрасчетный";

        НоваяСтрокаРегБух.Представление = "Журнал проводок (бухгалтерский учет)";

        

        ДокКорректировка.Записать();

        ДокКорректировкаСсылка = ДокКорректировка.Ссылка;

  

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

        НЗХозрасчетный.Отбор.Регистратор.Значение = ДокКорректировкаСсылка;

  

        ДБФ.Первая();

        Пока Не ДБФ.ВКонце() Цикл

            ОсновноеСредство = Справочники.ОсновныеСредства.НайтиПоКоду(СокрЛП(ДБФ.OS));

            Если ОсновноеСредство.Пустая() Тогда

                Сообщить("Не найдено ОС с кодом " + ДБФ.OS + "!", СтатусСообщения.Важное);

                Продолжить;

            КонецЕсли;



            ЗХозрасчетный = НЗХозрасчетный.Добавить();

            ЗХозрасчетный.Период = Период;

            ЗХозрасчетный.Регистратор = ДокКорректировкаСсылка;

            ЗХозрасчетный.Организация = Организация;

            ЗХозрасчетный.Содержание  = "Увеличение первоначальной стоимости ОС";

            ЗХозрасчетный.СчетДт = Сч01_01;

            ЗХозрасчетный.СчетКт = Сч83_01;     

            БухгалтерскийУчет.УстановитьСубконто(ЗХозрасчетный.СчетДт, ЗХозрасчетный.СубконтоДт, "ОсновныеСредства", ОсновноеСредство);

            БухгалтерскийУчет.УстановитьСубконто(ЗХозрасчетный.СчетКт, ЗХозрасчетный.СубконтоКт, "ОсновныеСредства", ОсновноеСредство);

            ЗХозрасчетный.Сумма = ДБФ.SumB;



            ЗХозрасчетный = НЗХозрасчетный.Добавить();

            ЗХозрасчетный.Период = Период;

            ЗХозрасчетный.Регистратор = ДокКорректировкаСсылка;

            ЗХозрасчетный.Организация = Организация;

            ЗХозрасчетный.Содержание  = "Увеличение накопленной амортизации ОС";

            ЗХозрасчетный.СчетДт = Сч83_01;

            ЗХозрасчетный.СчетКт = Сч02_01;     

            БухгалтерскийУчет.УстановитьСубконто(ЗХозрасчетный.СчетДт, ЗХозрасчетный.СубконтоДт, "ОсновныеСредства", ОсновноеСредство);

            БухгалтерскийУчет.УстановитьСубконто(ЗХозрасчетный.СчетКт, ЗХозрасчетный.СубконтоКт, "ОсновныеСредства", ОсновноеСредство);

            ЗХозрасчетный.Сумма = ДБФ.AmortB;



            ДБФ.Следующая();

        КонецЦикла;

        ДБФ.ЗакрытьФайл();

        НЗХозрасчетный.Записать();



        ЗафиксироватьТранзакцию();

    Исключение

        Сообщить(ОписаниеОшибки(), СтатусСообщения.ОченьВажное);

        ОтменитьТранзакцию();

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

КонецЕсли;