//Если счет затрат один из "80,81,82,83,84" и суммы износа БУ и НУ отличаются - разницу списываем на 79 счет // Если (Найти("80,81,82,83,84,23",Лев(СчетЗатрат.Код, 2)) > 0) и (Ит.Субконто(1).Производственное = 1) Тогда // глПроводка(Контекст,СчетЗатрат,СчИзноса,СуммаИзносаНУ,"Начислен износ",, //Ит.Субконто(1).ВидДеятельности,ВидЗатрат,, // Ит.Субконто(1),,, ,,"НА"); //разница // глПроводка(Контекст,"791",СчИзноса,СуммаИзноса-СуммаИзносаНУ,"Начислен износ",, Ит.Субконто(1).ВидДеятельности,,, // Ит.Субконто(1),,, ,,"НА"); // Иначе глПроводка(Контекст,СчетЗатрат,СчИзноса,СуммаИзноса,"Начислен износ",, Ит.Субконто(1).ВидДеятельности,ВидЗатрат,, Ит.Субконто(1),,, ,,"НА"); // КонецЕсли; ОбщаяСуммаИзноса = ОбщаяСуммаИзноса + СуммаИзноса; //налоговый учет Если Ит.Субконто(1).Производственное = 1 Тогда //начисленный износ глПровНУ(Контекст,,СчИзноса,СуммаИзносаНУ,"Начислен износ (НУ)",,,,,Ит.Субконто(1),,, ,,"НА",СуммаИзносаНУ); //разница между БУ и НУ РазницаНУ = ?(СуммаИзносаНУ <> 0, СуммаИзносаНУ-СуммаИзноса, 0); глПровНУ(Контекст,"Н791",,РазницаНУ,"Налоговая разница по износу (НУ)",, Ит.Субконто(1).ВидДеятельности,ВидЗатрат,, ,,, ,,"НА",РазницаНУ); КонецЕсли; |