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

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

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

|ИЗ 

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

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



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

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

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

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

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

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

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



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



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

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



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

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

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



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

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

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

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

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

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



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



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

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

КонецЕсли; 

   

 

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

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

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

ДокОперация.Ответственный = Ответственный;

ДокОперация.Содержание = Содержание;

ДокОперация.Комментарий = Комментарий;

ДокОперация.Записать();

ДокОперацияСсылка = ДокОперация.Ссылка;

   

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

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

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

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

    КодКонтрагента = СокрП(ДБФ.CA);

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

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

        Сообщить("Не найден контрагент с кодом " + КодКонтрагента, СтатусСообщения.Внимание);

    КонецЕсли;

    КодОС = СокрП(ДБФ.OS);

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

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

        Сообщить("Не найдено ОС с кодом " + КодОС, СтатусСообщения.Внимание);

    КонецЕсли;

    

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

    РегЗапись.Период = ДатаДокумента;

    РегЗапись.Регистратор = ДокОперацияСсылка;

    РегЗапись.Организация = Организация;

    РегЗапись.Содержание  = "Корректировка стоимости ОС с 0 стоимостью";

    РегЗапись.СчетДт = Сч001;

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

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

    РегЗапись.Сумма = ДБФ.Sum;

    

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

КонецЦикла;   

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

 //Необходимо изменить существующие проводки и добавить значение Субконто

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

Набор.Отбор.Регистратор.Установить(Объект.Ссылка);

Набор.Прочитать();

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

    

    Если Запись.СчетКт =  ПланыСчетов.Хозрасчетный.ПрочиеРасчетыСРазнымиДебиторамиИКредиторами Тогда

	// для переборов субконто

        Запись.СубконтоКт[Запись.СчетКт.ВидыСубконто[1]] = Объект.ДоговорКонтрагента;

	// указывая конкретное значение

	//Запись.СубконтоКт.Договоры = Объект.ДоговорКонтрагента;

    КонецЕСли;

  

КонецЦикла;

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

  // Перебор и замена реквизитов в проводках операции

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

   НаборЗаписейБУ.Отбор.Регистратор.Использование = Истина;

   НаборЗаписейБУ.Отбор.Регистратор.Значение = ОперацияБух;

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

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

      Если (ЗаписьБУ.СчетКт = ПланыСчетов.Типовой.ИндивидуальныйПодоходныйНалог) или

          (ЗаписьБУ.СчетКт = ПланыСчетов.Типовой.СоциальныйНалог) Тогда

         

         ВидСубк = ЗаписьБУ.СчетКт.ВидыСубконто[2].ВидСубконто;

         ЗаписьБУ.СубконтоКт.Вставить(ВидСубк, Контрагент);

      

         ЕстьИзменения = Истина;

      КонецЕсли;

   КонецЦикла;

   Если ЕстьИзменения Тогда

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

   КонецЕсли;   

 

// Задать выбираемые значения. 

ВыбранныйОтветственный = Справочники.Пользователи.НайтиПоНаименованию("Иванцова"); 

ВыбранныйКонтрагент = Справочники.Контрагенты.НайтиПоКоду("00027"); 

ВыбранныйДоговор = Справочники.ДоговорыКонтрагентов.НайтиПоКоду("00013"); 

ВыбранныйДокумент = Документы.ДокументРасчетовСКонтрагентом.НайтиПоНомеру(2, '20050101'); 

ВыбранныйСчет = Справочники.БанковскиеСчета.НайтиПоКоду("00001"); 

ВыбраннаяСтатья = Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоКоду("00002"); 

ВыбраннаяОрганизация = Справочники.Организации.НайтиПоКоду("00001"); 

ВыбраннаяВалюта = Справочники.Валюты.НайтиПоКоду(810); 



// Создать будущий регистратор. 

ДатаЗаписи = ТекущаяДата(); 

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

Документ.Дата = ДатаЗаписи; 

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

Документ.Ответственный = ВыбранныйОтветственный; 

Документ.Содержание = "Оплата поставщику"; 

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



// Создать набор записей. 

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



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



Движение = НаборЗаписей.Добавить(); 

Движение.Регистратор = Документ.Ссылка; 

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



// Заполнить счет дебета. 

Движение.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("60.01"); 



// Заполнить аналитику счета дебета. 

Движение.СубконтоДт.Контрагенты = ВыбранныйКонтрагент; 

Движение.СубконтоДт.Договоры = ВыбранныйДоговор; 

Движение.СубконтоДт.ДокументыРасчетовСКонтрагентами = ВыбранныйДокумент; 



// Заполнить счет кредита. 

Движение.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("51"); 



// Заполнить аналитику счета кредита. 

Движение.СубконтоКт.БанковскиеСчета = ВыбранныйСчет; 

Движение.СубконтоКт.СтатьиДвиженияДенежныхСредств = ВыбраннаяСтатья; 



// Балансовое измерение. 

Движение.Организация = ВыбраннаяОрганизация; 



// Балансовый ресурс. 

Движение.Сумма = 300000; 



// Реквизиты.Движение.НомерЖурнала = "БК"; 

Движение.Содержание = "Оплата поставщику"; 



// Записать набор записей. 

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