В программе 1С Бухгалтерия 8 есть отчет "Ведомость по ОС (бухгалтерский учет) и нет такого же отчета по налоговому учету и тем более нет возможности сравнить данные налогового учета и бухгалтерского. Чтобы это исправить, был сделан наглядный отчет, позволяющий в одной печатной форме увидеть информацию о бухгалтерском и налоговом учете ОС. Сделан на основе построителя [...]
В типовой конфигурации 1С Бухгалтерия отсутствует отчет, позволяющий провести наглядное сравнение данных налогового учета основных средств. Данный отчет позволяет вывести информацию по налоговому, а так же по счетам затрат в одной печатной формой, легко настраивается с отбором по Организации, подразделению, группе ОС, и ОС.
Сформированный отчет:
по счетам затрат амортизации:
Связанные записи
Нет связанных записей.
ТаблицаДанных.ПолучитьСтрокуПоНомеру(НомерСтрокиГруппировки);
ТаблицаДанных.ОценкаБУ = ОценкаБУ;
ТаблицаДанных.НПР = НПР;
ТаблицаДанных.КВР = КВР;
ИначеЕсли ВидАктивов = Перечисление.ВидыАктивовИобязательств.ДоходыБудущихПериодов Тогда
БухИтНУ.Опции(1,);
БухИтНУ.ВыполнитьЗапрос(,ВыбДата — 1,"98.2, НПР.98, КВР.98");
ТаблицаДанных.НоваяСтрока();
ТаблицаДанных.Субк1 = ВидАктивов;
ТаблицаДанных.Субк2 = "";
ТаблицаДанных.Субк3 = "«;
ТаблицаДанных.Группировка = 0;
ТаблицаДанных.МаскаСчета = „98“;
Если БухИтНУ.ПолучитьСчет(,СчетПоКоду(„98.2“)) = 1 Тогда
ТаблицаДанных.ОценкаБУ = БухИтНУ.СКК(„С“) — БухИтНУ.СКД(„С“);
КонецЕсли;
ТаблицаДанных.ОценкаНУ = 0;
Если БухИтНУ.ПолучитьСчет(,СчетПоКоду(„НПР.98“)) = 1 Тогда
ТаблицаДанных.НПР = БухИтНУ.СКК(„С“) — БухИтНУ.СКД(„С“);
КонецЕсли;
Если БухИтНУ.ПолучитьСчет(,СчетПоКоду(„КВР.98“)) = 1 Тогда
ТаблицаДанных.КВР = БухИтНУ.СКК(„С“) — БухИтНУ.СКД(„С“);
КонецЕсли;
ТаблицаДанных.НПРсальдо = ТаблицаДанных.НПР;
ТаблицаДанных.КВРсальдо = ТаблицаДанных.КВР;
ИначеЕсли ВидАктивов = Перечисление.ВидыАктивовИобязательств.УбыткиПрошлыхПериодов [...]
ИначеЕсли ВидАктивов = Перечисление.ВидыАктивовИобязательств.ПраваТребования Тогда
БухИтНУ.ИспользоватьСубконто(ВидыСубконто.Договоры);
БухИтНУ.Опции(1,);
БухИтНУ.ВыполнитьЗапрос(,ВыбДата — 1,"58.5, НПР.58.5, КВР.58.5, Н02.06");
БухИтНУ.ВыбратьСубконто(1);
Пока БухИтНУ.ПолучитьСубконто(1) = 1 Цикл
ТаблицаДанных.НоваяСтрока();
ТаблицаДанных.Субк1 = БухИтНУ.Субконто(1).Владелец;
ТаблицаДанных.Субк2 = БухИтНУ.Субконто(1);
ТаблицаДанных.Субк3 = "«;
ТаблицаДанных.Группировка = 0;
ТаблицаДанных.МаскаСчета = „58.5“;
Если БухИтНУ.ПолучитьСчет(,СчетПоКоду(„58.5“)) = 1 Тогда
ТаблицаДанных.ОценкаБУ = БухИтНУ.СКД(„С“) — БухИтНУ.СКК(„С“);
КонецЕсли;
Если БухИтНУ.ПолучитьСчет(,СчетПоКоду(„Н02.06“)) = 1 Тогда
ТаблицаДанных.ОценкаНУ = БухИтНУ.СКД(„С“) — БухИтНУ.СКК(„С“);
КонецЕсли;
Если БухИтНУ.ПолучитьСчет(,СчетПоКоду(„НПР.58.5“)) = 1 Тогда
ТаблицаДанных.НПР = БухИтНУ.СКД(„С“) — БухИтНУ.СКК(„С“);
КонецЕсли;
Если БухИтНУ.ПолучитьСчет(,СчетПоКоду(„КВР.58.5“)) = 1 Тогда
ТаблицаДанных.КВР = БухИтНУ.СКД(„С“) — БухИтНУ.СКК(„С“);
КонецЕсли;
ТаблицаДанных.НПРсальдо = ТаблицаДанных.НПР;
ТаблицаДанных.КВРсальдо = [...]
ИначеЕсли ВидАктивов = Перечисление.ВидыАктивовИобязательств.ФинансовыеВложения Тогда
БухИтБУ.ИспользоватьСубконто(ВидыСубконто.ЦенныеБумаги);
БухИтБУ.ИспользоватьСубконто(ВидыСубконто.Контрагенты);
БухИтБУ.Опции(1,);
БухИтБУ.ВыполнитьЗапрос(,ВыбДата — 1,"58.1.2, 58.2, НПР.58.2, КВР.58.2");
БухИтНУ.ИспользоватьСубконто(ВидыСубконто.ЦенныеБумаги);
БухИтНУ.Опции(1,);
БухИтНУ.ВыполнитьЗапрос(,ВыбДата — 1,"58.1.2, 58.2, НПР.58.2, КВР.58.2, Н02.05");
БухИтНУ.ВыбратьСубконто(1);
Пока БухИтНУ.ПолучитьСубконто(1) = 1 Цикл
ТаблицаДанных.НоваяСтрока();
ТаблицаДанных.Субк1 = БухИтНУ.Субконто(1);
ТаблицаДанных.Субк2 = "";
ТаблицаДанных.Субк3 = "";
ТаблицаДанных.Группировка = 1;
НомерСтрокиГруппировки = ТаблицаДанных.НомерСтроки;
ОценкаБУ = 0;
Если БухИтНУ.ПолучитьСчет(,СчетПоКоду(«58.1.2»)) = 1 Тогда
ОценкаБУ = ОценкаБУ + БухИтНУ.СКД(«С») — БухИтНУ.СКК(«С»);
КонецЕсли;
Если БухИтНУ.ПолучитьСчет(,СчетПоКоду(«58.2»)) = 1 Тогда
ОценкаБУ = ОценкаБУ + БухИтНУ.СКД(«С») — БухИтНУ.СКК(«С»);
КонецЕсли;
ТаблицаДанных.ОценкаБУ = ОценкаБУ;
Если БухИтНУ.ПолучитьСчет(,СчетПоКоду(«Н02.05»)) = 1 Тогда
ТаблицаДанных.ОценкаНУ [...]
БухИтБУ.ИспользоватьСубконто(ВидыСубконто.Номенклатура);
БухИтБУ.ИспользоватьСубконто(ВидыСубконто.Контрагенты);
БухИтБУ.ИспользоватьСубконто(ВидыСубконто.Договоры);
БухИтБУ.Опции(1,);
БухИтБУ.ВыполнитьЗапрос(,ВыбДата — 1,"45, НПР.45, КВР.45");
БухИтНУ.ИспользоватьСубконто(ВидыСубконто.Номенклатура);
БухИтНУ.Опции(1,);
БухИтНУ.ВыполнитьЗапрос(,ВыбДата — 1,"45, НПР.45, КВР.45, Н02.04");
БухИтНУ.ВыбратьСубконто(1);
Пока БухИтНУ.ПолучитьСубконто(1) = 1 Цикл
ТаблицаДанных.НоваяСтрока();
ТаблицаДанных.Субк1 = БухИтНУ.Субконто(1);
ТаблицаДанных.Субк2 = "";
ТаблицаДанных.Субк3 = "";
ТаблицаДанных.Группировка = 1;
НомерСтрокиГруппировки = ТаблицаДанных.НомерСтроки;
Если БухИтНУ.ПолучитьСчет(,СчетПоКоду(«45»)) = 1 Тогда
ТаблицаДанных.ОценкаБУ = БухИтНУ.СКД(«С») — БухИтНУ.СКК(«С»);
КонецЕсли;
Если БухИтНУ.ПолучитьСчет(,СчетПоКоду(«Н02.04»)) = 1 Тогда
ТаблицаДанных.ОценкаНУ = БухИтНУ.СКД(«С») — БухИтНУ.СКК(«С»);
КонецЕсли;
Если БухИтНУ.ПолучитьСчет(,СчетПоКоду(«НПР.45»)) = 1 Тогда
ТаблицаДанных.НПР = БухИтНУ.СКД(«С») — БухИтНУ.СКК(«С»);
КонецЕсли;
Если БухИтНУ.ПолучитьСчет(,СчетПоКоду(«КВР.45»)) = 1 Тогда
ТаблицаДанных.КВР = БухИтНУ.СКД(«С») — БухИтНУ.СКК(«С»);
КонецЕсли;
ТаблицаДанных.НПРсальдо = ТаблицаДанных.НПР;
ТаблицаДанных.КВРсальдо = ТаблицаДанных.КВР;
Если [...]
ИначеЕсли ВидАктивов = Перечисление.ВидыАктивовИобязательств.ИздержкиОбращения Тогда
БухИтБУ.ИспользоватьСубконто();
БухИтБУ.Опции(1,);
БухИтБУ.ВыполнитьЗапрос(,ВыбДата — 1,"44.1, 44.2, 44.3, НПР.44.1, НПР.44.2, НПР.44.3, КВР.44.1, КВР.44.2, КВР.44.3");
БухИтНУ.Опции(1,);
БухИтНУ.ВыполнитьЗапрос(,ВыбДата — 1,"Н01.07");
ТаблицаДанных.НоваяСтрока();
ТаблицаДанных.Субк1 = ВидАктивов;
ТаблицаДанных.Субк2 = "";
ТаблицаДанных.Субк3 = "";
ТаблицаДанных.Группировка = 1;
ТаблицаДанных.ОценкаНУ = БухИтНУ.СКД(«С») — БухИтНУ.СКК(«С»);
НомерСтрокиГруппировки = 1;
ОценкаБУ = 0;
НПР = 0;
КВР = 0;
БухИтБУ.ВыбратьСубконто();
Пока БухИтБУ.ПолучитьСубконто() = 1 Цикл
ТаблицаДанных.НоваяСтрока();
ТаблицаДанных.Субк1 = "";
ТаблицаДанных.Субк2 = БухИтБУ.Субконто(1);
ТаблицаДанных.Субк3 = "";
ТаблицаДанных.Группировка = -1;
ТаблицаДанных.Владелец = НомерСтрокиГруппировки;
Если БухИтБУ.Субконто(1).Вид() = «СтатьиИздержекОбращения» Тогда
ТаблицаДанных.МаскаСчета = «44.1»;
ИначеЕсли [...]
ВременнаяТаблица.Сортировать(«+Субк1,ГруппаРасходов,Субк2»);
ВременнаяТаблица.ВыбратьСтроки();
ТекущаяГруппа = "";
НомерСтрокиГруппировки = 0;
ОценкаБУ = 0;
НПР = 0;
КВР = 0;
Пока ВременнаяТаблица.ПолучитьСтроку() = 1 Цикл
КлючГруппы = "«+ВременнаяТаблица.Субк1.Код+ВременнаяТаблица.Субк1.Наименование+» , "+Строка(ВременнаяТаблица.Субк2.ВидРасходовДляНалоговогоУчета);
Если СокрЛП(КлючГруппы)<>СокрЛП(ТекущаяГруппа) Тогда
Если НомерСтрокиГруппировки > 0 Тогда
ТаблицаДанных.ПолучитьСтрокуПоНомеру(НомерСтрокиГруппировки);
ТаблицаДанных.ОценкаБУ = ОценкаБУ;
ТаблицаДанных.НПР = НПР;
ТаблицаДанных.КВР = КВР;
ОценкаБУ = 0;
НПР = 0;
КВР = 0;
КонецЕсли;
ТаблицаДанных.НоваяСтрока();
ТаблицаДанных.Субк1 = ВременнаяТаблица.Субк1;
ТаблицаДанных.Субк2 = ВременнаяТаблица.Субк2.ВидРасходовДляНалоговогоУчета;
ТаблицаДанных.Субк3 = "";
ТаблицаДанных.Группировка = 1;
ТаблицаДанных.ОценкаНУ = 0;
НомерСтрокиГруппировки = ТаблицаДанных.НомерСтроки;
ТекущаяГруппа = КлючГруппы;
КонецЕсли;
ТаблицаДанных.НоваяСтрока();
ТаблицаДанных.Субк1 = ВременнаяТаблица.Субк1;
ТаблицаДанных.Субк2 = [...]
Если (ТаблицаДанных.Группировка = -1) и (ТаблицаДанных.Владелец > 0) Тогда
ОценкаБУ = 0;
НПР = 0;
КВР = 0;
Для Н = ТаблицаДанных.Владелец+1 по ТаблицаДанных.КоличествоСтрок() Цикл
ТаблицаДанных.ПолучитьСтрокуПоНомеру(Н);
ОценкаБУ = ОценкаБУ + ТаблицаДанных.ОценкаБУ;
НПР = НПР + ТаблицаДанных.НПР;
КВР = КВР + ТаблицаДанных.КВР;
КонецЦикла;
ТаблицаДанных.ПолучитьСтрокуПоНомеру(НомерСтрокиГруппировки);
ТаблицаДанных.ОценкаБУ = ОценкаБУ;
ТаблицаДанных.НПР = НПР;
ТаблицаДанных.КВР = КВР;
КонецЕсли;
КонецЦикла;
КонецЦикла;
БухИтНУ.ПолучитьСубконто(1,,"«);
БухИтНУ.ПолучитьСубконто(2,,»");
//БУ
БухИтБУ.ВыбратьСубконто(1);
Пока БухИтБУ.ПолучитьСубконто(1) = 1 Цикл
БухИтБУ.ВыбратьСубконто(2);
Пока БухИтБУ.ПолучитьСубконто(2) = 1 Цикл
Если СписокГрупп.НайтиЗначение("«+БухИтБУ.Субконто(1).Код+БухИтБУ.Субконто(1).Наименование+» , "+Строка(БухИтБУ.Субконто(2).ВидРасходовДляНалоговогоУчета)) > 0 Тогда
Продолжить;
КонецЕсли;
БухИтБУ.ВыбратьСубконто(3);
Пока БухИтБУ.ПолучитьСубконто(3) [...]
Если (ТаблицаДанных.Группировка = -1) и (ТаблицаДанных.Владелец > 0) Тогда
ОценкаБУ = 0;
НПР = 0;
КВР = 0;
Для Н = ТаблицаДанных.Владелец+1 по ТаблицаДанных.КоличествоСтрок() Цикл
ТаблицаДанных.ПолучитьСтрокуПоНомеру(Н);
ОценкаБУ = ОценкаБУ + ТаблицаДанных.ОценкаБУ;
НПР = НПР + ТаблицаДанных.НПР;
КВР = КВР + ТаблицаДанных.КВР;
КонецЦикла;
ТаблицаДанных.ПолучитьСтрокуПоНомеру(НомерСтрокиГруппировки);
ТаблицаДанных.ОценкаБУ = ОценкаБУ;
ТаблицаДанных.НПР = НПР;
ТаблицаДанных.КВР = КВР;
КонецЕсли;
КонецЦикла;
КонецЦикла;
БухИтНУ.ПолучитьСубконто(1,,"«);
БухИтНУ.ПолучитьСубконто(2,,»");
//БУ
БухИтБУ.ВыбратьСубконто(1);
Пока БухИтБУ.ПолучитьСубконто(1) = 1 Цикл
БухИтБУ.ВыбратьСубконто(2);
Пока БухИтБУ.ПолучитьСубконто(2) = 1 Цикл
Если СписокГрупп.НайтиЗначение("«+БухИтБУ.Субконто(1).Код+БухИтБУ.Субконто(1).Наименование+» , "+Строка(БухИтБУ.Субконто(2).ВидРасходовДляНалоговогоУчета)) > 0 Тогда
Продолжить;
КонецЕсли;
БухИтБУ.ВыбратьСубконто(3);
Пока БухИтБУ.ПолучитьСубконто(3) [...]