"НДС включать в стоимость" при переносе в бухгалтерию
Читают тему
Вход в личный кабинет
Для получения доступа к форуму необходимо
авторизоваться
или
зарегистрироваться
на сайте.
{{ formTitle ? formTitle : 'Заказ обратного звонка' }}
{{ formDescription }}
Сообщить об ошибке
Прикрепленные файлы
Если ОбщегоНазначения.ЕстьРеквизитДокумента("НДСВключенВСтоимость", МетаданныеДокумента) Тогда
Если ПрименениеУСН Тогда
Попытка
УстановитьРеквизит(ТекОбъект, "НДСВключенВСтоимость",Истина);
Исключение КонецПопытки;
Иначе
НДСВключатьВСтоимость = ПолучитьЗначениеРеквизита("НДСвключатьВСтоимость");
Попытка
УстановитьРеквизит(ТекОбъект, "НДСВключенВСтоимость", ?(НДСВключатьВСтоимость <> Неопределено, НДСВключатьВСтоимость, Ложь));
Исключение КонецПопытки;
КонецЕсли; КонецЕсли;
Прикрепленные файлы
"НДСВключенВСтоимость"
Поэтмоу он никогда не устанаваливается.
Если ИмяТЧ="Товары" Тогда
/УстановитьРеквизит(ТекСтрока, "Себестоимость", СуммаСписания)
КонецЕсли;
это внутри процедуры "ЗагрузитьБП2Документ_ПеремещениеТоваров".
Если ПереносПартий И ЗначениеЗаполнено(ТаблицаТоваров) Тогда
НайденныеСтроки = ТаблицаТоваров.НайтиСтроки(Новый Структура("Номенклатура,ВидДвижения",ЗначенияСтроки["Номенклатура"],"Расход"));
Если НайденныеСтроки.Количество()>0 Тогда
Если ТаблицаТоваров.Колонки.Найти("СуммаРозничная") <> Неопределено Тогда
СуммаСписания = НайденныеСтроки[0]["СуммаРозничная"];
Иначе
СуммаСписания = НайденныеСтроки[0]["Сумма"];
КонецЕсли;
КонецЕсли;
Иначе
СуммаСписания = ЗначенияСтроки["СуммаРозничная"];
КонецЕсли;
ИначеЕсли ПереносПартий Тогда
Если ПрименениеУСН Тогда
СуммаСписания = ЗначенияСтроки["Сумма"];
Иначе
СуммаСписания = ЗначенияСтроки["Сумма"] - ЗначенияСтроки["СуммаНДС"];
КонецЕсли;
КонецЕсли;
Если флПриравниватьКолСуммеСебестоимости Тогда
УстановитьРеквизит(ТекСтрока, "Количество", СуммаСписания);
КонецЕсли;
Если ИмяТЧ="Товары" Тогда
УстановитьРеквизит(ТекСтрока, "Себестоимость", СуммаСписания);
КонецЕсли;
Не вижу здесь ошибки.
Сумма списания определяется в зависимости от вида склада или от учетной политики