Почему у некоторых контрагентов есть проводка Д90.3 К19.3 а у других ее нет?
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Эта проводка будет если:
ИначеЕсли (КодВидаПоступления = 4) и
(Договор.АвтоОбработкаНДС=0) и
(НДСвключатьВСтоимость = 0) и
(ВариантОтраженияВозврата = 1) Тогда
ТаблицаДокумента = СоздатьОбъект("ТаблицаЗначений");
ЗаполнитьТаблицуДокумента(ТаблицаДокумента);
СчетФактура=СоздатьОбъект("Документ");
Выбран = 0;
Если ПустоеЗначение(ДокументОснование) = 0 Тогда
СчетФактура.ВыбратьПодчиненныеДокументы(ДокументОснование.ДатаДок,ДатаДок,ДокументОснование);
Пока СчетФактура.ПолучитьДокумент()=1 Цикл
Если СчетФактура.Вид()="СчетФактура" Тогда
Выбран = 1;
Прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;
Если (Выбран =1) Тогда
Если (Константа.МетодОпределенияВыручки.Получить(ДатаДок)=Перечисление.МетодыОпределенияВыручки.ПоОплате) или
(Константа.МетодОпределенияВыручки.Получить(СчетФактура.ДатаДок)=Перечисление.МетодыОпределенияВыручки.ПоОплате) или
(СчетФактура.ДатаДок >= '01.01.2006') Тогда
//тут проводка
Иначе
Если ТаблицаДокумента.Итог("НДСРуб") <> 0 Тогда
//тут проводка
КонецЕсли;
КонецЕсли;
КонецЕсли;
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот