Почему у некоторых контрагентов есть проводка Д90.3 К19.3 а у других ее нет?

1. andrew87 05.03.09 08:16 Сейчас в теме
речь идет о документе "Поступление товара (возврат)"
Ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
2. sashulyT 201 05.03.09 08:55 Сейчас в теме
Эта проводка будет если:

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


//тут проводка


		Иначе
			Если ТаблицаДокумента.Итог("НДСРуб") <> 0 Тогда



//тут проводка
			КонецЕсли;
		КонецЕсли;         
		
	КонецЕсли;
	




Показать
3. andrew87 05.03.09 10:42 Сейчас в теме
да при троссировке нахожу этот код
4. sashulyT 201 05.03.09 10:54 Сейчас в теме
Вот у одних условия выполняются у других нет
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот