Списание.Помогите пожалуйста!Корректировка документа

"Неправильное списание выглядит так:<br>Амортизация ОС/ дебет 26/ кредит 02/-37991?66<br>Списана балансовая стоимость/дб 01.2/кр. 01.1/32857,66<br>Списана остаточная стоимость/дб 91.2/кр. 01.2/32857,66<br>Анужно сделать так:<br>Списана бал стоимость/кр01.2/дб 01.1<br>Списана амортизация/дб 02/01.2<br>И если Балансовая стоимость > Амортизации, то списать остаточную стоимость по дб 91.2 и по кредиту 01.2<br>Помогите пожалуйста, хотя бы примерно где что изменять<br>Это модуль списания, если поможет<br>Перем ПроцентЧС;<br><br>//******************************************************************************<br>// ДоначислениеАмортизацииДляЦелейНалоговогоУчета()<br>//<br>// Параметры:<br>// Нет.<br>//<br>// Вызывается из формул элементов диалога:<br>// Нет.<br>//<br>// Описание:<br>// Здесь описывается процедура.<br>//<br>Процедура ДоначислениеАмортизацииДляЦелейНалоговогоУчета(СведенияОбОбъекте)<br> <br> РассчитаннаяАмортизация = СведенияОбОбъекте.Получить("РассчитаннаяАмортизацияНалог");<br> <br> Если (РассчитаннаяАмортизация <> 0) И (ПроцентЧС = 1) Тогда<br> СчетИАналитикаДляОтнесенияРасходов = глПолучитьСчетРасходовДляЦелейНалоговогоУчета(ОсновноеСредство.ВидРасхода.Получить(ДатаДок), ОсновноеСредство.ЭлементРасхода.Получить(ДатаДок), ОсновноеСредство.Объект.Получить(ДатаДок), ДатаДок);<br> СчетРасходов = СчетИАналитикаДляОтнесенияРасходов.Получить("Счет");<br> Если ПустоеЗначение(СчетРасходов) = 1 Тогда<br> ТекстСообщения = "На закладке """"Налоговый учет"""" неверно указано направление отнесения расходов по начисленной амортизации для объекта: "<br> + ОсновноеСредство.Наименование + ", инв.№" + ОсновноеСредство.Код + ".";<br> глНеПроводить(Контекст, ТекстСообщения);<br> Возврат;<br> КонецЕсли;<br> СчетРасходов = глПолучитьСчетУчетаКосвенныхРасходовНУ(ДатаДок, ОсновноеСредство.СчетЗатрат.Получить(ДатаДок), ОсновноеСредство.Субконто1.Получить(ДатаДок), СчетРасходов);<br> <br> Операция.НоваяПроводка();<br> Операция.НомерЖурнала = "НУ";<br> Операция.СодержаниеПроводки = "Аморт.за "+Формат(ДатаДок,"Д ММММГГГГ");<br> Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);<br> Если ПустоеЗначение(СчетРасходов) = 0 Тогда<br> Операция.Дебет.Счет = СчетРасходов;<br> Операция.Дебет.Субконто(1, СчетИАналитикаДляОтнесенияРасходов.Получить("Субконто1"));<br> Операция.Дебет.Субконто(2, СчетИАналитикаДляОтнесенияРасходов.Получить("Субконто2"));<br> Операция.Дебет.Субконто(3, СчетИАналитикаДляОтнесенияРасходов.Получить("Субконто3"));<br> КонецЕсли;<br> Операция.Кредит.Счет = СчетПоКоду("Н05.02");<br> Операция.Кредит.Субконто(1, ОсновноеСредство);<br> Операция.Сумма = РассчитаннаяАмортизация;<br> КонецЕсли;<br> <br>КонецПроцедуры // ДоначислениеАмортизацииДляЦелейНалоговогоУчета()<br><br>//******************************************************************************<br>// СписаниеАмортизацииДляЦелейНалоговогоУчета()<br>//<br>// Параметры:<br>// Нет.<br>//<br>// Вызывается из формул элементов диалога:<br>// Нет.<br>//<br>// Описание:<br>// Здесь описывается процедура.<br>//<br>Процедура СписаниеАмортизацииДляЦелейНалоговогоУчета(СведенияОбОбъекте)<br>                                                                                      <br> РассчитаннаяАмортизация = СведенияОбОбъекте.Получить("РассчитаннаяАмортизацияНалог");<br> НачисленнаяАмортизацияНУ = РассчитаннаяАмортизация + СведенияОбОбъекте.Получить("НачисленнаяАмортизацияНалогКон");<br> <br> Если НачисленнаяАмортизацияНУ <> 0 Тогда<br> Операция.НоваяПроводка();<br> Операция.НомерЖурнала = "НУ";<br> Операция.СодержаниеПроводки = "Списана амортизация";<br> Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);<br> Операция.Дебет.Счет = СчетПоКоду("Н05.02");<br> Операция.Дебет.Субконто(1, ОсновноеСредство);<br> Операция.Кредит.Счет = СчетПоКоду("Н05.01");<br> Операция.Кредит.Субконто(1, ОсновноеСредство);<br> Операция.Сумма = НачисленнаяАмортизацияНУ*ПроцентЧС;<br> КонецЕсли;<br> <br>КонецПроцедуры // СписаниеАмортизацииДляЦелейНалоговогоУчета()<br><br>//******************************************************************************<br>// ВыбытиеОСДляЦелейНалоговогоУчета()<br>//<br>// Параметры:<br>// Нет.<br>//<br>// Вызывается из формул элементов диалога:<br>// Нет.<br>//<br>// Описание:<br>// Здесь описывается процедура.<br>//<br>Процедура ВыбытиеОСДляЦелейНалоговогоУчета(СведенияОбОбъекте)<br> <br> РассчитаннаяАмортизация = СведенияОбОбъекте.Получить("РассчитаннаяАмортизацияНалог");<br> КапВложенияНаправленныеНаРасходы =СведенияОбОбъекте.Получить("КапВложенияНаправленныеНаРасходы");<br> НачисленнаяАмортизацияНУ = РассчитаннаяАмортизация + СведенияОбОбъекте.Получить("НачисленнаяАмортизацияНалогКон");<br> ОстаточнаяСтоимость = СведенияОбОбъекте.Получить("БалансоваяСтоимостьНалогКон") - НачисленнаяАмортизацияНУ - КапВложенияНаправленныеНаРасходы;<br>              <br> Если ОстаточнаяСтоимость <> 0 Тогда<br> Операция.НоваяПроводка();<br> Операция.НомерЖурнала = "НУ";<br> Операция.СодержаниеПроводки = "Списание остаточной стоимости";<br> Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);<br> Операция.Дебет.Счет = СчетПоКоду("Н09");<br> Операция.Дебет.ВнереализационныеРасходы = Перечисление.ВнереализационныеРасходы.ПрочиеВнереализационныеРасходы;<br> Операция.Дебет.УсловияПоступленияИВыбытия = Перечисление.УсловияПоступленияИВыбытия.СписаниеИмущества;<br> Операция.Кредит.Счет = СчетПоКоду("Н05.01");<br> Операция.Кредит.ОсновныеСредства = ОсновноеСредство;<br> Операция.Кредит.УсловияПоступленияИВыбытия = Перечисление.УсловияПоступленияИВыбытия.СписаниеИмущества;<br> Операция.Сумма = ОстаточнаяСтоимость*ПроцентЧС;<br> КонецЕсли;<br> <br>КонецПроцедуры // ВыбытиеОСДляЦелейНалоговогоУчета()<br><br>//******************************************************************************<br>// ВключениеКапитальныхВложенийВРасходы()<br>//<br>// Описание:<br>// Включение не более 10% от капитальных вложений в состав расходов.<br>//<br>Процедура ВключениеКапитальныхВложенийВРасходы(СведенияОбОбъекте)<br> <br> КапВложенияНаправленныеНаРасходы = СведенияОбОбъекте.Получить("КапВложенияНаправленныеНаРасходы"); <br><br> Если КапВложенияНаправленныеНаРасходы <> 0 Тогда <br> СчетИАналитикаДляОтнесенияРасходов = глПолучитьСчетРасходовДляЦелейНалоговогоУчета(ОсновноеСредство.ВидРасхода.Получить(ДатаДок), ОсновноеСредство.ЭлементРасхода.Получить(ДатаДок), ОсновноеСредство.Объект.Получить(ДатаДок), ДатаДок);<br> СчетРасходов = СчетИАналитикаДляОтнесенияРасходов.Получить("Счет");<br> Операция.НоваяПроводка();<br> Операция.НомерЖурнала = "ОС";<br> Операция.СодержаниеПроводки = "Включение кап.вложений в расходы";<br> Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);<br> Если ПустоеЗначение(СчетРасходов) = 0 Тогда<br> Операция.Дебет.Счет = СчетРасходов;<br> Операция.Дебет.Субконто(1, СчетИАналитикаДляОтнесенияРасходов.Получить("Субконто1"));<br> Операция.Дебет.Субконто(2, СчетИАналитикаДляОтнесенияРасходов.Получить("Субконто2"));<br> Операция.Дебет.Субконто(3, СчетИАналитикаДляОтнесенияРасходов.Получить("Субконто3"));<br> КонецЕсли;<br> Операция.Кредит.Счет = СчетПоКоду("Н05.01");<br> Операция.Кредит.ОсновныеСредства = ОсновноеСредство;<br> Операция.Кредит.УсловияПоступленияИВыбытия = Перечисление.УсловияПоступленияИВыбытия.Другие;<br> Операция.Сумма = КапВложенияНаправленныеНаРасходы; <br> <br> Операция.НоваяПроводка();<br> Операция.НомерЖурнала = "ОС";<br> Операция.СодержаниеПроводки = "Включение кап.вложений в расходы";<br> Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);<br> Операция.Кредит.Счет = СчетПоКоду("Н05.КВ");<br> Операция.Кредит.ОсновныеСредства = ОсновноеСредство;<br> Операция.Сумма = КапВложенияНаправленныеНаРасходы;<br> КонецЕсли;<br> <br>КонецПроцедуры // ВключениеКапитальныхВложенийВРасходы()<br><br>//******************************************************************************<br>// Предопределенная процедура<br>//<br>Процедура ОбработкаПроведения()<br> <br> Сч01_1 = СчетПоКоду("01.1");<br> Сч01_2 = СчетПоКоду("01.2");<br> Сч83_1 = СчетПоКоду("83.1");<br> Сч84_1 = СчетПоКоду("84.1");<br> Сч91_2 = СчетПоКоду("91.2");<br> Сч99_1 = СчетПоКоду("99.1");<br> СчМЦ_01= СчетПоКоду("МЦ.01");<br> <br> НовыеПравилаВеденияНУ = глНовыеПравилаВеденияНУ(ДатаДок);<br><br> БухИтНПР = СоздатьОбъект("БухгалтерскиеИтоги");<br> БухИтНПР.ПериодМ(ДатаДок);<br>                         <br> СписокОС = СоздатьОбъект("СписокЗначений");<br> ВыгрузитьТабличнуюЧасть(СписокОС);<br> <br> БухИт = СоздатьОбъект("БухгалтерскиеИтоги");<br> БухИт.ИспользоватьСубконто(ВидыСубконто.ОсновныеСредства, СписокОС, 2);<br> БухИт.ВыполнитьЗапрос(, ТекущийДокумент(),"83.1, МЦ.01");<br> <br> Если ПроцентЧастичногоСписания<>0 Тогда<br> ПроцентЧС = ПроцентЧастичногоСписания/100;<br> Иначе<br> ПроцентЧС = 1;<br> КонецЕсли;<br> <br> ВыбратьСтроки();<br> Пока ПолучитьСтроку() = 1 Цикл<br> СведенияОбОС = глРасчетАмортизацииОС(ОсновноеСредство, ДатаДок);<br> НачисленнаяАмортизацияНач = СведенияОбОС.Получить("НачисленнаяАмортизацияКон");<br> СчетНачисленияАмортизации = СведенияОбОС.Получить("СчетНачисленияАмортизации");<br> <br> СписаноПостоянныхРазниц = 0;<br> <br> ДоначисленнаяАмортизация = НачисленнаяАмортизация - НачисленнаяАмортизацияНач;<br> Если (ДоначисленнаяАмортизация <> 0) и (ПустоеЗначение(СчетНачисленияАмортизации) = 0) И (ПроцентЧС = 1) Тогда<br> Операция.НоваяПроводка();<br> Операция.НомерЖурнала = "ОС";<br> Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);<br> Операция.Сумма = ДоначисленнаяАмортизация;<br> <br> Если СчетНачисленияАмортизации.Забалансовый = 1 Тогда<br> Операция.СодержаниеПроводки = "Износ за "+Формат(ДатаДок,"Д ММММГГГГ");<br> Операция.Дебет.Счет = СчетНачисленияАмортизации;<br> Операция.Дебет.ОсновныеСредства = ОсновноеСредство;<br> <br> Иначе<br> Если ОсновноеСредство.СчетЗатрат.Получить(ДатаДок).Выбран() = 0 Тогда<br> ТекстСообщения = "Не указан счет отнесения затрат по начисленной амортизации для ОС: "+ОсновноеСредство.Наименование+", инв.№"+ОсновноеСредство.Код+".";<br> глНеПроводить(Контекст, ТекстСообщения);<br> Возврат;<br> КонецЕсли;<br> Операция.СодержаниеПроводки = "Аморт.за "+Формат(ДатаДок,"Д ММММГГГГ");<br> <br> Операция.Дебет.Счет = ОсновноеСредство.СчетЗатрат.Получить(ДатаДок);<br> Операция.Дебет.Субконто(1, ОсновноеСредство.Субконто1.Получить(ДатаДок));<br> Операция.Дебет.Субконто(2, ОсновноеСредство.Субконто2.Получить(ДатаДок));<br> Операция.Дебет.Субконто(3, ОсновноеСредство.Субконто3.Получить(ДатаДок));<br> Операция.Кредит.Счет = СчетНачисленияАмортизации;<br> Операция.Кредит.ОсновныеСредства = ОсновноеСредство;<br> КонецЕсли;<br> <br> // Списание постоянных разниц<br> Если СчетНачисленияАмортизации.Забалансовый <> 1 Тогда<br> Если Константа.ПрименяетсяПБУ18.Получить(ДатаДок) = Да Тогда<br> ВсегоПостоянныхРазниц = БухИтНПР.СНД("НПР.01",,, ОсновноеСредство);<br> Если ВсегоПостоянныхРазниц <> 0 Тогда<br> БалансоваяСтоимостьНач = СведенияОбОС.Получить("БалансоваяСтоимостьНач");<br> НачисленнаяАмортизацияНач = СведенияОбОС.Получить("НачисленнаяАмортизацияНач");<br> ОстаточнаяСтоимостьНаНачало = БалансоваяСтоимостьНач - НачисленнаяАмортизацияНач;<br> Если ОстаточнаяСтоимостьНаНачало <> 0 Тогда<br> СписатьПостоянныхРазниц = Окр(ВсегоПостоянныхРазниц * (ДоначисленнаяАмортизация / ОстаточнаяСтоимостьНаНачало), 2);<br> Если СписатьПостоянныхРазниц <> 0 Тогда<br> СчетДт = ОсновноеСредство.СчетЗатрат.Получить(ДатаДок);<br> СчетНПР = глПолучитьСчетДебетаНПР(СчетДт, ОсновноеСредство.Субконто1.Получить(ДатаДок));<br> <br> Операция.НоваяПроводка();<br> Операция.НомерЖурнала = "ПР";<br> Операция.СодержаниеПроводки = "Списание постоянных разниц";<br> Если ПустоеЗначение(СчетНПР) = 0 Тогда<br> Операция.Дебет.Счет = СчетНПР;<br> Операция.Дебет.Субконто(1, ОсновноеСредство.Субконто1.Получить(ДатаДок));<br> Операция.Дебет.Субконто(2, ОсновноеСредство.Субконто2.Получить(ДатаДок));<br> Операция.Дебет.Субконто(3, ОсновноеСредство.Субконто3.Получить(ДатаДок));<br> КонецЕсли;<br> Операция.Кредит.Счет = СчетПоКоду("НПР.01");<br> Операция.Кредит.ОсновныеСредства = ОсновноеСредство;<br> Операция.Сумма = СписатьПостоянныхРазниц;<br> <br> СписаноПостоянныхРазниц = СписатьПостоянныхРазниц;<br> КонецЕсли;<br> КонецЕсли;<br> КонецЕсли;<br> КонецЕсли;<br> КонецЕсли;<br> КонецЕсли;<br> <br> // Доначислим амортизацию для целей налогового учета.<br> Если НовыеПравилаВеденияНУ >= 1 Тогда<br> ДоначислениеАмортизацииДляЦелейНалоговогоУчета(СведенияОбОС);<br> <br> // Если невозможно определить счет отнесения амортизации для целей налогового учета.<br> Если СтатусВозврата() = 0 Тогда <br> Возврат;<br> КонецЕсли;<br> КонецЕсли;<br> <br> Если (НачисленнаяАмортизация <> 0) и (ПустоеЗначение(СчетНачисленияАмортизации) = 0) Тогда<br> Операция.НоваяПроводка();<br> Операция.НомерЖурнала = "ОС";<br> Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);<br> Операция.Сумма = НачисленнаяАмортизация*ПроцентЧС;<br> <br> Если СчетНачисленияАмортизации.Забалансовый = 1 Тогда<br> Операция.СодержаниеПроводки = "Списан износ";<br> Операция.Кредит.Счет = СчетНачисленияАмортизации;<br> Операция.Кредит.ОсновныеСредства = ОсновноеСредство;<br> <br> Иначе<br> Операция.СодержаниеПроводки = "Списана амортизация";<br> Операция.Кредит.Счет = Сч01_2;<br> Операция.Кредит.ОсновныеСредства = ОсновноеСредство;<br> Операция.Дебет.Счет = СчетНачисленияАмортизации;<br> Операция.Дебет.ОсновныеСредства = ОсновноеСредство;<br> КонецЕсли;<br> КонецЕсли;<br> <br> // Списание амортизации для целей налогового учета.<br> Если НовыеПравилаВеденияНУ >= 1 Тогда<br> СписаниеАмортизацииДляЦелейНалоговогоУчета(СведенияОбОС);<br> КонецЕсли;<br> <br> Если БалансоваяСтоимость <> 0 Тогда<br> Операция.НоваяПроводка();<br> Операция.НомерЖурнала = "ОС";<br> Операция.СодержаниеПроводки = "Списана баланс.ст-ть";<br> Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);<br> Операция.Сумма = БалансоваяСтоимость*ПроцентЧС;<br> Операция.Кредит.Счет = Сч01_1;<br> Операция.Кредит.ОсновныеСредства = ОсновноеСредство;<br> Операция.Дебет.Счет = Сч01_2;<br> Операция.Дебет.ОсновныеСредства = ОсновноеСредство;<br> КонецЕсли;<br> <br> ОстаточнаяСтоимость = ?(СчетНачисленияАмортизации.Забалансовый = 1, Окр(БалансоваяСтоимость*ПроцентЧС,2,1), Окр(БалансоваяСтоимость*ПроцентЧС,2,1) - Окр(НачисленнаяАмортизация*ПроцентЧС,2,1));<br> Если ОстаточнаяСтоимость <> 0 Тогда<br> Операция.НоваяПроводка();<br> Операция.НомерЖурнала = "ОС";<br> Операция.СодержаниеПроводки = ?(СчетНачисленияАмортизации.Забалансовый = 1, "Списана баланс.ст-ть", "Списана остат.ст-ть");<br> Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);<br> Если ТипСписания = 1 Тогда<br> Операция.Дебет.Счет = Сч99_1;<br> Операция.Дебет.ПрибылиИУбытки = Перечисление.ПрибылиИУбытки.ЧрезвычайныеРасходы;<br> <br> Иначе<br> Операция.Дебет.Счет = Сч91_2;<br> Операция.Дебет.ПрочиеДоходыИРасходы = СтатьяПрочихДоходовИРасходов;<br> КонецЕсли;<br> <br> Операция.Кредит.Счет = Сч01_2;<br> Операция.Кредит.ОсновныеСредства = ОсновноеСредство;<br> Операция.Сумма = ОстаточнаяСтоимость; <br> КонецЕсли;<br> <br> // Списание суммы переоценки.<br> Если БухИт.ПолучитьСчет(, Сч83_1) = 1 Тогда<br> Если БухИт.ПолучитьСубконто(,, ОсновноеСредство) = 1 Тогда<br> Если БухИт.СКК("С") > 0 Тогда<br> Операция.НоваяПроводка();<br> Операция.НомерЖурнала = "ОС";<br> Операция.СодержаниеПроводки = "Сумма дооценки включена в состав нераспр. прибыли";<br> Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст); <br> Операция.Дебет.Счет = Сч83_1;<br> Операция.Дебет.ОсновныеСредства = ОсновноеСредство;<br> Операция.Кредит.Счет = Сч84_1;<br> Операция.Сумма = БухИт.СКК("С");<br> КонецЕсли; <br> КонецЕсли;<br> КонецЕсли;<br> <br> // Если основное средство учитывается на забалансовом счете МЦ.01,<br> // то необходимо списать его с этого счета.<br> Если БухИт.ПолучитьСчет(, СчМЦ_01) = 1 Тогда<br> Если БухИт.ПолучитьСубконто(, , ОсновноеСредство) = 1 Тогда<br> Если БухИт.СКД("С") > 0 Тогда<br> Операция.НоваяПроводка();<br> Операция.НомерЖурнала = "ОС";<br> Операция.СодержаниеПроводки = "Списана первоначальная стоимость";<br> Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст); <br> Операция.Кредит.Счет = СчМЦ_01;<br> Операция.Кредит.ОсновныеСредства = ОсновноеСредство;<br> Операция.Сумма = БухИт.СКД("С")*ПроцентЧС;<br> КонецЕсли; <br> КонецЕсли;<br> КонецЕсли;<br> <br> // Списание постоянных разниц<br> Если Константа.ПрименяетсяПБУ18.Получить(ДатаДок) = Да Тогда<br> СписатьПостоянныхРазниц = БухИтНПР.СКД("НПР.01",,, ОсновноеСредство) - СписаноПостоянныхРазниц;<br> Если СписатьПостоянныхРазниц <> 0 Тогда<br> СчетДт = ПолучитьПустоеЗначение("Счет");<br> Если ТипСписания = 1 Тогда<br> СчетДт = Сч99_1;<br> Субконто1 = Перечисление.ПрибылиИУбытки.ЧрезвычайныеРасходы;<br> <br> Иначе<br> СчетДт = Сч91_2;<br> Субконто1 = СтатьяПрочихДоходовИРасходов;<br> КонецЕсли;<br> СчетНПР = глПолучитьСчетДебетаНПР(СчетДт, Субконто1);<br> <br> Операция.НоваяПроводка();<br> Операция.НомерЖурнала = "ПР";<br> Операция.СодержаниеПроводки = "Списание постоянных разниц";<br> Если ПустоеЗначение(СчетНПР) = 0 Тогда<br> Операция.Дебет.Счет = СчетНПР;<br> КонецЕсли;<br> Операция.Кредит.Счет = СчетПоКоду("НПР.01");<br> Операция.Кредит.ОсновныеСредства = ОсновноеСредство;<br> Операция.Сумма = СписатьПостоянныхРазниц;<br> КонецЕсли;<br> КонецЕсли;<br> <br> // Списание остаточной стоимости ОС для целей налогообложения.<br> Если НовыеПравилаВеденияНУ >= 1 Тогда<br> ВыбытиеОСДляЦелейНалоговогоУчета(СведенияОбОС);<br> ВключениеКапитальныхВложенийВРасходы(СведенияОбОС);<br> КонецЕсли;<br> <br> Если ДатаДок < '01.01.2002' Тогда<br> РассчитаннаяАмортизацияНалог = СведенияОбОС.Получить("РассчитаннаяАмортизацияНалог");<br> НачисленнаяАмортизацияНалог = СведенияОбОС.Получить("НачисленнаяАмортизацияНалог");<br> Если РассчитаннаяАмортизацияНалог <> 0 Тогда<br> Операция.НоваяПроводка();<br> Операция.НомерЖурнала = "ОС";<br> Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);<br> Операция.СодержаниеПроводки = "Начислена амортизация";<br> Операция.Сумма = РассчитаннаяАмортизацияНалог;<br> Операция.Кредит.Счет = СчетПоКоду("АОС");<br> Операция.Кредит.ОсновныеСредства = ОсновноеСредство;<br> КонецЕсли;<br> <br> Если НачисленнаяАмортизацияНалог + РассчитаннаяАмортизацияНалог <> 0 Тогда<br> Операция.НоваяПроводка();<br> Операция.НомерЖурнала = "ОС";<br> Операция.СодержаниеПроводки = "Списана амортизация";<br> Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);<br> Операция.Сумма = НачисленнаяАмортизацияНалог + РассчитаннаяАмортизацияНалог;<br> Операция.Дебет.Счет = СчетПоКоду("АОС");<br> Операция.Дебет.ОсновныеСредства = ОсновноеСредство;<br> КонецЕсли;<br> КонецЕсли;<br> <br> <br> <br> СпрОС = СоздатьОбъект("Справочник.ОсновныеСредства");<br> Если СпрОС.НайтиЭлемент(ОсновноеСредство) = 0 Тогда<br> СтатусВозврата(0); Возврат;<br> КонецЕсли;<br> <br> Если ПроцентЧС=1 Тогда<br> СпрОС.ДатаВыбытия = ДатаДок;<br> Если ТипСписания = 1 Тогда<br> СпрОС.ПричинаВыбытия = Перечисление.ПричиныВыбытияОС.Иная;<br> <br> Иначе<br> СпрОС.ПричинаВыбытия = Перечисление.ПричиныВыбытияОС.Списание;<br> КонецЕсли;<br> СпрОС.Записать();<br> <br> УстановитьРеквизитСправочника(ОсновноеСредство, "НачислятьАмортизацию", 0, ДатаДок);<br> УстановитьРеквизитСправочника(ОсновноеСредство, "Состояние", Перечисление.СостоянияОС.Выбыло, ДатаДок);<br> КонецЕсли;<br> <br> КонецЦикла;<br> Операция.Записать();<br> <br>КонецПроцедуры // ОбработкаПроведения()<br>"