Добавление ставки НДС 5% в 7.7

Форум Программирование Общие вопросы программирования (Dev)

1C77 1С:Бухгалтерия 7.7 1С:Комплексная 7.7 Платформа 1С v7.7 Бухгалтерский учет 7.7 НДС Программист

1. wladimirpav 2 10.01.25 15:15 Сейчас в теме

Нужно добавить в 1с 7.7 ставку НДС 5%. Если добавить только в справочник, то этого будет достаточно или же нужно ещё где-то в коде поменять? Как вообще искать в семёрке, где нужно поменять и в каких модулях. Опыта программирования в семёрке практически нет. На восьмёрку переходить упорно не хотят.

Найденные решения

9. ig0rec 14.01.25 13:54 Сейчас в теме

в бух 4.5 в глобальном модуле функция глПоказательДокумента

Остальные ответы

Подписаться на ответы Инфостарт бот

Свернуть все

13. CheBurator 2725 06.02.25 03:26 Сейчас в теме

(1)

Как вообще искать в семёрке, где

в семерке искать не надо. надо знать.
для ТиС/Комплексной:
менять в трех местах по коду (насколько мне навскиду помнится, менял недели три назад)
дополнить перечисление ставок НДС.
менять в карточке номенклатуры.
менять в настройках пользователя.

2. user2122182 13.01.25 13:29 Сейчас в теме

Добрый день! Подскажите, пожалуйста, у вас получилось настроить НДС 5% в 1с 7.7 ???

3. grafit 8 13.01.25 15:58 Сейчас в теме

В глобальном модуле две функции надо поправить.

5. wladimirpav 2 14.01.25 08:13 Сейчас в теме

(3) Поиском искать ставкаНДС и там менять?

7. grafit 8 14.01.25 10:52 Сейчас в теме

(5)
типа такого:

Функция глВыделяемыйНДС(Ставка)   Экспорт
	Если ПустоеЗначение(Ставка)=1 Тогда
		Возврат 0;
	ИначеЕсли(Ставка=Перечисление.СтавкиНДС.БезНДС) Тогда
		Возврат 0;
	ИначеЕсли (Ставка=Перечисление.СтавкиНДС.НДС10) 
	или (Ставка=Перечисление.СтавкиНДС.НДС10_110) Тогда
		Возврат  0.09090909090909090909090909091; // Это 1/11, только точнее
	.....
		//добавка +	
	ИначеЕсли (Ставка=Перечисление.СтавкиНДС.НДС5) Тогда  
		Возврат 0.0476190476190476;  
	ИначеЕсли (Ставка=Перечисление.СтавкиНДС.НДС7) Тогда  
		Возврат 0.0654205607476635;
	Иначе 
		//добавка-
		Сообщить("Функция глВыделяемыйНДС(Ставка): неверная ставка");
		Возврат 0;
	КонецЕсли;
КонецФункции //глВыделяемыйНДС()


Функция глНачисляемыйНДС(Ставка) Экспорт
	Если ПустоеЗначение(Ставка)=1 Тогда
		Возврат 0;
	ИначеЕсли(Ставка=Перечисление.СтавкиНДС.БезНДС) Тогда
		Возврат 0;
	...
    //добавка+
	ИначеЕсли (Ставка=Перечисление.СтавкиНДС.НДС5) Тогда  
		Возврат 0.05; 
	ИначеЕсли (Ставка=Перечисление.СтавкиНДС.НДС7) Тогда  
		Возврат 0.07; 
	//добавка-	
	Иначе
		Сообщить("Функция глНачисляемыйНДС(Ставка): неверная ставка");
		Возврат 0;
	КонецЕсли;
КонецФункции //глНачисляемыйНДС()

Показать

8. wladimirpav 2 14.01.25 10:59 Сейчас в теме

(7) Спасибо за информацию

14. CheBurator 2725 06.02.25 03:30 Сейчас в теме

(7) а Функция глСтавкаНДСАванса(пСтавкаНДС) Экспорт
?
я бы и в ней добавил...

4. jmw 61 14.01.25 06:27 Сейчас в теме

Да и про ставку 7% сразу не забыть, чтоб два раза не лазить

6. wladimirpav 2 14.01.25 08:13 Сейчас в теме

(4) Думаю к следующему году созреют, чтобы на восьмерку перейти

9. ig0rec 14.01.25 13:54 Сейчас в теме

в бух 4.5 в глобальном модуле функция глПоказательДокумента

15. x-ynegve 23 06.02.25 16:38 Сейчас в теме

(9) Доброе время суток! У вас получилось настроить?

16. ig0rec 06.02.25 16:41 Сейчас в теме

(15) да, всё работает. А у вас в чём проблема?

17. x-ynegve 23 06.02.25 16:49 Сейчас в теме

(16) Я имею ввиду только в этом модуле изменения ?

Функция глПоказательДокумента(Док, ИмяПоказателя) Экспорт

	Если Док.Вид() = "ИнвентаризацияТМЦ" Тогда
	    ВклНДС = 1;
		ВклНП = 1;
	Иначе
		ВклНДС = Док.ВариантРасчетаНалогов.СуммаВключаетНДС;
		ВклНП = Док.ВариантРасчетаНалогов.СуммаВключаетНП;
	КонецЕсли; 

	СтНДС = глСтавкаНалога(Док, "НДС").Ставка;
	СтНП = глСтавкаНалога(Док, "НП").Ставка;
    
	Если ((Док.Вид() = "ПоступлениеОС") или (Док.Вид() = "ПоступлениеНМА")) Тогда
		Сумма = Док.Стоимость;
		
	ИначеЕсли ((Док.Вид() = "ПередачаОС") или (Док.Вид() = "ПередачаНМА")) Тогда
		Сумма = Док.Цена;                                                             
		
	ИначеЕсли Док.Вид() = "ИнвентаризацияТМЦ" Тогда	 	
		Сумма = Док.СуммаПродажи; 
		
	Иначе
		Сумма = Док.Сумма;
	КонецЕсли;                
	НДС = Док.НДС;
	НП = Док.НП;

	Результат = 0;
	Если ВРег(ИмяПоказателя) = ВРег("СуммаБезНалогов") Тогда
		Результат = Сумма;
		Если ВклНДС = 1 Тогда
		    Результат = Результат - НДС;
		КонецЕсли;
		Если ВклНП = 1 Тогда
		    Результат = Результат - НП;
		КонецЕсли;
		
	ИначеЕсли (ВРег(ИмяПоказателя) = ВРег("НДС")) Тогда // расчет суммы НДС
		Если ВклНП = 1 Тогда
			Если ВклНДС = 1 Тогда // НДС в сумме, НП в сумме
				Если (СтНДС = 20) или (СтНДС = 18) или (СтНДС = 10) или (СтНДС = 0) или (СтНДС = 5) или (СтНДС = 7) Тогда				    
					Результат = Сумма*СтНДС*100/(100 + СтНДС)/(100 + СтНП);
				Иначе                 
					Результат = Сумма*СтНДС/(100 + СтНП);
				КонецЕсли;

			Иначе // НДС сверху, НП в сумме
				Если (СтНДС = 20) или (СтНДС = 18) или (СтНДС = 10) или (СтНДС = 0) или (СтНДС = 5) или (СтНДС = 7) Тогда				    
					Результат = Сумма*СтНДС/(100 + СтНП + СтНДС*СтНП/100);
				Иначе
					Результат = Сумма*(1-СтНП/(100 - СтНДС + СтНП))*СтНДС/(100 - СтНДС);
				КонецЕсли;
			КонецЕсли;
			
		Иначе
			Если ВклНДС = 1 Тогда // НДС в сумме, НП сверху
				Если (СтНДС = 20) или (СтНДС = 18) или (СтНДС = 10) или (СтНДС = 0) или (СтНДС = 5) или (СтНДС = 7)Тогда				    
					Результат = Сумма*СтНДС/(100 + СтНДС);
				Иначе
					Результат = Сумма*СтНДС/100;
				КонецЕсли;

			Иначе // НДС сверху, НП сверху
				Если (СтНДС = 20) или (СтНДС = 18) или (СтНДС = 10) или (СтНДС = 0) или (СтНДС = 5) или (СтНДС = 7)  Тогда				    
					Результат = Сумма*СтНДС/100;
				Иначе
					Результат = Сумма*СтНДС/(100 - СтНДС);
				КонецЕсли;
			КонецЕсли;
		КонецЕсли;
	
	ИначеЕсли ВРег(ИмяПоказателя) = ВРег("НП") Тогда // расчет суммы НП
		Если ВклНП = 1 Тогда
			Если ВклНДС = 1 Тогда // НДС в сумме, НП в сумме
				Результат = Сумма*СтНП/(100 + СтНП);

			Иначе // НДС сверху, НП в сумме
				Если (СтНДС = 20) или (СтНДС = 18) или (СтНДС = 10) или (СтНДС = 0) или (СтНДС = 5) или (СтНДС = 7) Тогда				    
					Результат = Сумма*(СтНДС/(100 + СтНП + СтНДС*СтНП/100)+1)*СтНП/(СтНП+100);
				Иначе
					Результат = Сумма*СтНП/(100 - СтНДС + СтНП);
				КонецЕсли;
			КонецЕсли;

		Иначе
			Если ВклНДС = 1 Тогда // НДС в сумме, НП сверху
				Результат = Сумма*СтНП/100;

			Иначе // НДС сверху, НП сверху
				Если (СтНДС = 20) или (СтНДС = 18) или (СтНДС = 10) или (СтНДС = 0) или (СтНДС = 5) или (СтНДС = 7)  Тогда				    
					Результат = Сумма*(100 + СтНДС)*СтНП/10000;
				Иначе
					Результат = Сумма*СтНП/(100 - СтНДС);
				КонецЕсли;
			КонецЕсли;
		КонецЕсли;

	ИначеЕсли ВРег(ИмяПоказателя) = ВРег("СуммаСНалогами") Тогда // расет суммы "Всего"
		Результат = Сумма;
		Если ВклНДС = 0 Тогда
		    Результат = Результат + НДС;
		КонецЕсли;
		Если ВклНП = 0 Тогда
		    Результат = Результат + НП;
		КонецЕсли;
	КонецЕсли;

	Возврат Окр(Результат, 2, 1);
	
КонецФункции // глПоказательДокумента()

Показать

18. ig0rec 06.02.25 17:13 Сейчас в теме

(17) по коду да. Еще в режиме предприятия справочники заполнить со ставками

10. beast2040 14.01.25 21:02 Сейчас в теме

В УСН не нашел функций предложенных в этой ветке.
Если кто-нибудь в УСН настраивал 5% НДС подскажите пожалуйста.

11. carsil 1 15.01.25 15:43 Сейчас в теме

Можно конкретнее по данной инструкции не получется

12. user626373_pe-42303 05.02.25 10:56 Сейчас в теме

Спасибо grafit за подсказку, все работает!

Оставьте свое сообщение

E-mail: