
вот карточка счета

Процедура ОбработкаПроведения()
//___Сумма начисленного износа___
Если НачисленнаяАмортизация <> 0 Тогда
Операция.НоваяПроводка();
Операция.СодержаниеПроводки = "Списана начисл. аморт.";
Операция.НомерЖурнала = "ОС";
Операция.Дебет.Счет = ОС.Группа.СчетИзноса.Получить(ДатаДок);
Операция.Дебет.Субконто(1, ОС);
Операция.Дебет.Субконто(2, ОС.Подразделение.Получить(ДатаДок));
Операция.Дебет.Субконто(3, ОС.Мол.Получить(ДатаДок));
Операция.Кредит.Счет = ОС.Группа.СчетБал.Получить(ДатаДок);
Операция.Кредит.Субконто(1, ОС);
Операция.Кредит.Субконто(2, ОС.Подразделение.Получить(ДатаДок));
Операция.Кредит.Субконто(3, ОС.Мол.Получить(ДатаДок));
Операция.Сумма = НачисленнаяАмортизация;
КонецЕсли;
//___Остаточная стоимость___
Если ОстаточнаяСтоимость <> 0 тогда
Операция.НоваяПроводка();
Операция.СодержаниеПроводки = "Списана остат. стоим.";
Операция.НомерЖурнала = "ОС";
Операция.Дебет.Счет = глНайтиСчетик(СчетПоКоду("842",ПланыСчетов.Казахстан),ДатаДок);
Операция.Дебет.Субконто(1, ИздержкиОбращения);
Операция.Кредит.Счет = ОС.Группа.СчетБал.Получить(ДатаДок);
Операция.Кредит.Субконто(1, ОС);
Операция.Кредит.Субконто(2, ОС.Подразделение.Получить(ДатаДок));
Операция.Кредит.Субконто(3, ОС.Мол.Получить(ДатаДок));
Операция.Сумма = ОстаточнаяСтоимость;
КонецЕсли;
//Если ОС.НалоговаяГруппа.Выбран()=1 тогда
Ит=СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьПланСчетов(ВыбратьПланСчетов(ДатаДок));
Ит.ИспользоватьСубконто(ВидыСубконто.ОсновныеСредства, ОС, 2);
//Ит.ИспользоватьСубконто(ВидыСубконто.НалоговыеГруппыОС, ОС.НалоговаяГруппа, 2);
//Ит.ИспользоватьСубконто(ВидыСубконто.Подразделение, ОС, 2);
Ит.ВыполнитьЗапрос(,ДатаДок, глНайтиСчетик(СчетПоКоду("ОС",ПланыСчетов.Казахстан),ДатаДок));
ОстСтоим=Ит.СКД();
Операция.НоваяПроводка();
Операция.СодержаниеПроводки = "Списана остат. стоим.";
Операция.НомерЖурнала = "ОС";
//Операция.Дебет.Счет = СчетПоКоду("ОС2");
//Операция.Дебет.Субконто(1, ОС);
//Операция.Дебет.Субконто(2, ОС.НалоговаяГруппа);
Операция.Кредит.Счет = глНайтиСчетик(СчетПоКоду("ОС",ПланыСчетов.Казахстан),ДатаДок);
Операция.Кредит.Субконто(1, ОС);
Операция.Кредит.Субконто(2, ОС.Подразделение.Получить(ДатаДок));
Операция.Кредит.Субконто(3, ОС.Мол.Получить(ДатаДок));
// Операция.Кредит.Субконто(2, ОС.НалоговаяГруппа);
Операция.Сумма = ОстСтоим;
Операция.Содержание = "Списание ОС № "+СокрЛ(НомерДок);
Операция.СуммаОперации = БалансоваяСтоимость;
Операция.Записать();
КонецПроцедуры