Аналогичный случай!!!
Но, все-таки, лучше предотвращать подобные пакости, чем потом их разгребать! (Это, конечно, к 1С! Надеюсь, кто-нибудь из них это прочтет!!!)
Ситуация возникает из-за того, что при передаче материалов в эксплуатацию не учитывается, что стоимость спецодежды (оснастки) может быть списана полностью.
По документу ПередачаМатериаловВЭксплуатацию формируются проводки дт 10.11.1(2) - кт 10.10 и дт 25 (26) - кт 10.11.1(2).
В рабочих таблицах при проведении документа ПередачаМатериаловВЭксплуатацию во всех случаях указывается счет затрат 10.11.1(2). В результате при проведении по регистрам НДС (НДСРаздельныйУчет) создаются ключи аналитики затрат со счетом затрат 10.11.1(2)!!! Это и приводит к тому, что при распределении НДС часть НДС, которая должна быть включена в затраты, попадает обратно на 10.11.1(2)!!! Трам-тарарам!
Я у себя поправил ситуацию таким образом:
Проблемные проводки формируются в процедуре УчетМатериаловВЭксплуатации.СформироватьДвиженияПередачаСпецодеждыСпецоснасткиВЭксплуата
цию((ТаблицаМатериалы, ТаблицаСписанныеМатериалы, ...)
В ТаблицаМатериалов - передаваемая номенклатура, способ погашения и способ отражения расходов
В ТаблицаСписанныеМатериалы - информация о списании - номенклатура, корсчетсписания, корсубконто
Исправить можно прямо в конце процедуры или вынести в расширение, по вкусу.
Для каждого СтрМатериала из ТаблицаМатериалы Цикл
Если СтрМатериала.СпособПогашенияСтоимости =
Перечисления.СпособыПогашенияСтоимости.ПогашатьСтоимостьПриПередачеВЭксплуатацию
И СтрМатериала.СпособОтраженияРасходов.Способы.Количество() > 0
Тогда
СпособОтражения = СтрМатериала.СпособОтраженияРасходов.Способы[0];
ОтборСписанного = новый Структура("Номенклатура,НомерСтроки",
СтрМатериала.Номенклатура, СтрМатериала.НомерСтроки);
СтрокиСписанного = ТаблицаСписанныеМатериалы.НайтиСтроки(ОтборСписанного);
Для каждого СтрСписанного из СтрокиСписанного Цикл
СтрСписанного.КорСчетСписания = СпособОтражения.СчетЗатрат;
СтрСписанного.КорСубконто1 = СпособОтражения.Субконто1;
СтрСписанного.КорСубконто2 = СпособОтражения.Субконто2;
СтрСписанного.КорСубконто3 = СпособОтражения.Субконто3;
КонецЦикла
КонецЕсли
КонецЦикла;
Показать
С уважением ко всем прочитавшим, Олег Бляхеров
