Цитата(velpon @ 06.11.12, 18:23)
Еще вот мысль появилась. Как я понимаю в этом задании не требуют никакой отчетности, поэтому я задаюсь вопросом
"А зачем нам собственно нужен регистр ?". Не достаточно ли реализовать алгоритм заполнения табличной части документа
"Изменение налогового назначения запасов" ?
я тоже такого мнения
я проанализировал ситуацию с валовыми расходами - так я вообще пришел к выводу что это наверно реализовано стандартно. т.е если мы объект строительства вводим в эксплуатацию и этот объект строительста "Необл. НДС, нехоз." на него амортизация в НУ не начисляесться (соответственно нет валовых расходов)
по поводу НДС
например:
Купили кирпич ("Обл. НДС")
Изначально думали строитьт завод, ..строили строили (возможно даже пару лет), кирпич остался. Что бы не терять право на налоговый кредит - мы его включили в налоговый кредит в ранних налоговых периодах.
строили строили, построили завод и кирпич остался. Решили построить сауну (девок водить). Создали объект строительтва - "сауна" . ей ставим налоговое назначение - "Необл. НДС, нехоз."
*(Здесь можно стандартным доркументом "Изменение налогового назначения запасов", перевести кирпич из "Обл. НДС" в "Необл. НДС, нехоз.", но нам нужно автоматически)
поэтому предлагаю след. вариант:
использовать док. "Изменение налогового назначения запасов" в конце месяца
самое главное нужно взять из этого документа - это движение по проводкам и регистрам котрое отвечает за условное начисление НДС по списанным товарам на не хоз деятельность
Предлагаю по некой кнопке заполнять таблицк товары док. "Изменение налогового назначения запасов"
Запрос = Новый Запрос;
Запрос.Текст ="ВЫБРАТЬ РАЗРЕШЕННЫЕ
| 1 КАК Коэффициент,
| ХозрасчетныйДвиженияССубконто.СчетКт КАК СчетУчетаБУ,
| ХозрасчетныйДвиженияССубконто.СубконтоКт1 КАК Номенклатура,
| ХозрасчетныйДвиженияССубконто.СубконтоКт1.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
| ХозрасчетныйДвиженияССубконто.СубконтоКт2 КАК ДокументОприходования,
| ХозрасчетныйДвиженияССубконто.СубконтоКт3,
| ХозрасчетныйДвиженияССубконто.Организация,
| ХозрасчетныйДвиженияССубконто.НалоговоеНазначениеДт КАК НалоговоеНазначениеНовое,
| ХозрасчетныйДвиженияССубконто.НалоговоеНазначениеКт КАК НалоговоеНазначение,
| ХозрасчетныйДвиженияССубконто.Сумма КАК Сумма,
| ХозрасчетныйДвиженияССубконто.Сумма * 0.2 КАК СуммаНДС,
| ХозрасчетныйДвиженияССубконто.КоличествоКт КАК Количество,
| ХозрасчетныйДвиженияССубконто.СуммаНУДт КАК СуммаНУДт,
| ХозрасчетныйДвиженияССубконто.СуммаНУКт КАК СуммаНУКт,
| &МетодКорректировки КАК МетодКорректировкиНалоговогоКредита ,
| ВЫБОР
| КОГДА ХозрасчетныйДвиженияССубконто.КоличествоКт <> 0
| ТОГДА ХозрасчетныйДвиженияССубконто.Сумма / ХозрасчетныйДвиженияССубконто.КоличествоКт
| ИНАЧЕ 0
| КОНЕЦ КАК Цена
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.ДвиженияССубконто(
| &НачПериода,
| &КонПериода,
| СчетДт = &СчетДт
| И НалоговоеНазначениеДт = &НалоговоеНазначениеДт
| И Активность = ИСТИНА
| И Организация = &Организация,
| ,
| ) КАК ХозрасчетныйДвиженияССубконто
|
|УПОРЯДОЧИТЬ ПО
| Номенклатура,
| СчетУчетаБУ,
| ДокументОприходования";
Запрос.УстановитьПараметр("НачПериода",НачалоДня(НачалоМесяца(Дата)));
Запрос.УстановитьПараметр("КонПериода",Дата);
Запрос.УстановитьПараметр("СчетДт",ПланыСчетов.Хозрасчетный.НайтиПоКоду("151"));
Запрос.УстановитьПараметр("НалоговоеНазначениеДт",Справочники.НалоговыеНазначенияАктивовИЗатрат.НДС_НеоблагаемаяНеХозДеятель
ность);
Запрос.УстановитьПараметр("Организация",Организация);
Запрос.УстановитьПараметр("МетодКорректировки",Перечисления.МетодыКорректировкиНалоговогоКредита.НаНалоговыеОбязательства
);
Резкльтат = Запрос.Выполнить().Выгрузить();
Товары.Очистить();
Товары.Загрузить(Резкльтат);
Создать реквизит: "КорректировакаНДСПоСписаннымТоварам" - Булево
и в обработке проведения
Процедура ДвиженияПоРегистрам(РежимПроведения, СтруктураШапкиДокумента, ТаблицаПоТоварам,Отказ, Заголовок);
ДвиженияПоРегиструОжидаемыйИПодтвержденныйНДСПродаж(РежимПроведения, СтруктураШапкиДокумента, ТаблицаПоТоварам, Отказ, Заголовок);
Если НЕ КорректировакаНДСПоСписаннымТоварам Тогда
//не делаем этих проводок в бух учете так как ТМЦ уже списаны
ДвиженияПоПартиям(РежимПроведения, СтруктураШапкиДокумента, ТаблицаПоТоварам, Отказ, Заголовок);
КонецЕсли;
ПроводкиПоНДС(СтруктураШапкиДокумента, ТаблицаПоТоварам, Отказ, Заголовок);
КонецПроцедуры // ДвиженияПоРегистрам()
я бы его решил вот так.