Как изменить ставку НДС?

[Алвин]

Помогите,плз, добавить в Комплексную 4,4 НДС 18 %. Программист в отпуске вне досягаемости-сама не соображаю.
Спасибо!

[Aquad]

Если в конфигуратор не боитесь лазить - почитайте тут:
http://forum.klerk.ru/showthread.php?t=20233

Только внимательно почитайте до конца !!!
Для вас подходят Комплексная и Торговля.

[Aquad]

ТАм все запутанно

Посмотрите лучше тут:

Добавить В перечисления две новых ставки:

НДС18_118
НДС18

Далее в глобальном модуле исправить две процедуры:

//******************************************************************************
// глВыделяемыйНДС(Ставка)
//
// Параметры:
// Ставка - значение типа "Перечисление.СтавкиНДС"
//
// Возвращаемое значение:
// Числовой коэффициент НДС.
//
// Описание:
// По ставке НДС (Перечисление) получаем числовой коэффициент НДС, на который
// необходимо умножить число при выделении НДС (если НДС включен в сумму) для
// получения суммы НДС.
//
Функция глВыделяемыйНДС(Ставка) Экспорт
Если ПустоеЗначение(Ставка)=1 Тогда
Возврат 0;
ИначеЕсли(Ставка=Перечисление.СтавкиНДС.БезНДС) Тогда
Возврат 0;
ИначеЕсли (Ставка=Перечисление.СтавкиНДС.НДС10)
или (Ставка=Перечисление.СтавкиНДС.НДС10_110) Тогда
Возврат 0.09090909090909090909090909091; // Это 1/11, только точнее
ИначеЕсли (Ставка=Перечисление.СтавкиНДС.НДС20)
или (Ставка=Перечисление.СтавкиНДС.НДС20_120) Тогда
Возврат 0.166666666666666666666666666667; // Это 1/6, только точнее
ИначеЕсли (Ставка=Перечисление.СтавкиНДС.НДС18)
или (Ставка=Перечисление.СтавкиНДС.НДС18_118) Тогда
Возврат 18/118;
ИначеЕсли (Ставка=Перечисление.СтавкиНДС.НДС9_09) Тогда
Возврат 0.0909;
ИначеЕсли (Ставка=Перечисление.СтавкиНДС.НДС16_67) Тогда
Возврат 0.1667;
Иначе
Сообщить("Функция глВыделяемыйНДС(Ставка): неверная ставка");
Возврат 0;
КонецЕсли;
КонецФункции //глВыделяемыйНДС()


//******************************************************************************
// глНачисляемыйНДС(Ставка)
//
// Параметры:
// Ставка - значение типа "Перечисление.СтавкиНДС".
//
// Возвращаемое значение:
// Числовой коэффициент НДС.
//
// Описание:
// По ставке НДС (Перечисление) получаем числовой коэффициент НДС, на который
// необходимо умножить число при начислении НДС сверху для получения суммы НДС.
//
Функция глНачисляемыйНДС(Ставка) Экспорт
Если ПустоеЗначение(Ставка)=1 Тогда
Возврат 0;
ИначеЕсли(Ставка=Перечисление.СтавкиНДС.БезНДС) Тогда
Возврат 0;
ИначеЕсли (Ставка=Перечисление.СтавкиНДС.НДС10) Тогда
Возврат 0.1;
ИначеЕсли (Ставка=Перечисление.СтавкиНДС.НДС20) Тогда
Возврат 0.2;
ИначеЕсли (Ставка=Перечисление.СтавкиНДС.НДС18) Тогда
Возврат 0.18;
ИначеЕсли (Ставка=Перечисление.СтавкиНДС.НДС9_09) Тогда
Возврат 0.09998900010999890001099989000 // Это 0.0909/0.9091;
ИначеЕсли (Ставка=Перечисление.СтавкиНДС.НДС16_67) Тогда
Возврат 0.20004800192007680307212288492 // Это 0.1667/0.8333, только более точно в последнем знаке;
Иначе
Сообщить("Функция глНачисляемыйНДС(Ставка): неверная ставка");
Возврат 0;
КонецЕсли;
КонецФункции //глНачисляемыйНДС()

[Jack]

Aquad
А в "1С Предприятие версия 7.7 Торговля+Склад редакция 8.7" в глобальном модуле таких процедур нет... Как быть?

[turman]

Вот в инете нашел, у меня это сработало. Спасибо автору , сам я не программист.
Порядок перевода типовой 87Х на НДС 18%

1 .Резервная копия ИБ.

2. Делаем шаблон с таким текстом:

// + rem by 1cSupport@mail.ru
// Изменено 07.01.04 для поддержки НДС 18%
// - rem by 1cSupport@mail.ru


3. В перечисления.СтавкиНДС добавить ставку "ОсновнаяСтавка18" со значением "18%".
После этого, в объектах :
Константа.ОсновнаяСтавкаНДС
Справочник.Номенклатура.СтавкаНДС
Справочник.ВариантыРасчетаНалогов.СтавкаНДС
Регистр.ВзаиморасчетыПокупателей.СтавкаНДС
Регистр.НДСприобретенныхТоваров.СтавкаНДС
Документ.РасходнаяНакладная.СтавкаНДС
Документ.ПриходнаяНакладная.СтавкаНДС
Документ.ПриходнаяРеализатора.СтавкаНДС
Документ.Счет_фактура.СтавкаНДС
Документ.ПлатежноеПоручение.СтавкаНДС
Документ.ДвиженияДенежныхСредств.СтавкаНДС
Документ.РасходныйОрдерТБ.СтавкаНДС
Документ.ПриходныйОрдерТБ.СтавкаНДС
Документ.ВводОстатковКредита.СтавкаНДС
Документ.Заказ.СтавкаНДС
НДС готов.

В документ "Регистрация Счёта-Фактуры" надо ввести реквизиты СуммаБезНДС18 и НДС18, разместив их в диалоге.
В документ "Счёт-Фактура" надо ввести реквизиты СуммаБезНДС18 и НДС18, не размещая их в диалоге.


Делаем поиск по строке "НДС20"

После обработки каждого модуля деаем синтаксический контроль.

В платёжном поручении... Полный мрак .Разбираемся с формирование НДС на основании (?).
Оставляем на потом.

РН.
Правим

Отчёт.Книга продаж пропускаем, т.к. неизвестна новая регламентированная форма.

В ГМ меняем Ф-ции:
глПроцентНДС
глНачальноеЗаполнениеСФ


Документ.Выписка у меня получился не сразу - вероятно, потому, что в нём уже кто-то незадокументированно покопался


Запускаем в режиме "Предприятие", обработкой SetAttrs проставляем ставку 18% у всей номенклатуры.



Итоговые изменения :

Задача
Глобальный модуль - Объект изменен
Текст - Объект изменен
Удалены строки (2143, 2149)

-->// Изменено 07.01.04 для поддержки НДС 18%
--> ИначеЕсли Ставка=Перечисление.ЗначенияНДС.ОсновнаяСтавкаНДС18 Тогда
--> Возврат 18;

Удалены строки (8048, 8054)

-->// Изменено 07.01.04 для поддержки НДС 18%
--> Конт.СуммаБезНДС18 = 0;
--> Конт.НДС18 = 0;

Изменены строки (8060, 8062)
<-- Если ПроцНДС > 10 Тогда

-->// Изменено 07.01.04 для поддержки НДС 18%
--> Если ПроцНДС > 18 Тогда
Изменены строки (8064, 8071)
<-- Конт.СуммаБезНДС20 = Конт.СуммаБезНДС20 + Конт.Сумма - Конт.НДС;
-->
..........
-->
--> ИначеЕсли ПроцНДС > 10 Тогда
--> Конт.НДС18 = Конт.НДС18 + Конт.НДС;
--> Конт.СуммаБезНДС18 = Конт.СуммаБезНДС18 + Конт.Сумма - Конт.НДС;
--> Конт.СуммаБезНДС18 = Конт.СуммаБезНДС18 + Конт.Сумма - Конт.НДС;
-->
..........
Документ.РасходнаяНакладная
Форма
Модуль - Объект изменен
Удалены строки (1006, 1014)
--> // + rem by 1cSupport@mail.ru
--> // Изменено 07.01.04 для поддержки НДС 18%
--> СФ.СуммаБезНДС18 = 0; // будем считать позднее
--> СФ.НДС18 = 0; // будем считать позднее
-->
Документ.Счет_фактура
Документ.Счет_фактура.НДС18 - Объект удален
Документ.Счет_фактура.СуммаБезНДС18 - Объект удален
Форма
Диалог - Объект изменен
Бинарные файлы различны!
Документ.РегистрацияСчета_фактуры
Документ.РегистрацияСчета_фактуры.СуммаБезНДС18 - Объект удален
Документ.РегистрацияСчета_фактуры.НДС18 - Объект удален
Модуль Документа - Объект изменен
Текст - Объект изменен
Изменены строки (34, 39)
<-- Если Сумма<>(СуммаБезНДС20+СуммаБезНДС10+НДС20+НДС10+СуммаСовсемБезНДС) Тогда

-->// Изменено 07.01.04 для поддержки НДС 18%
--> Если Сумма<>(СуммаБезНДС20+СуммаБезНДС10+ СуммаБезНДС18+НДС18 +НДС20+НДС10+СуммаСовсемБезНДС) Тогда
-->
..........
-->

-->
Удалены строки (51, 58)

-->// Изменено 07.01.04 для поддержки НДС 18%
--> Отличие=(СуммаБезНДС18*18/100)-НДС18;
--> Если (?(Отличие>0,1,-1)*Отличие)>0.02 Тогда
--> Сообщить("В документе "+Вид()+" № "+НомерДок+" от "+ДатаДок+" не согласуются суммы (НДС 18%), указаные в документе!");
--> КонецЕсли;

Форма
Диалог - Объект изменен
Бинарные файлы различны!
Модуль - Объект изменен
Изменены строки (247, 262)
<-- Если ПроцНДС > 10 Тогда

-->// Изменено 07.01.04 для поддержки НДС 18%
--> //Если ПроцНДС > 10 Тогда
--> // НДС20 = НДС20 + ТаблицаДокумента.НДС;
--> // СуммаБезНДС20 = СуммаБезНДС20 + СуммаБезНДС;
--> //
--> //ИначеЕсли ПроцНДС > 0 Тогда
--> // НДС10 = НДС10 + ТаблицаДокумента.НДС;
--> // СуммаБезНДС10 = СуммаБезНДС10 + СуммаБезНДС;
--> //
--> //Иначе
--> // СуммаСовсемБезНДС = СуммаСовсемБезНДС + СуммаБезНДС;
--> //
--> //КонецЕсли;
-->
..........
-->
--> Если ПроцНДС > 18 Тогда
Удалены строки (266, 269)
--> ИначеЕсли ПроцНДС > 10 Тогда
--> НДС18 = НДС18 + ТаблицаДокумента.НДС;
--> СуммаБезНДС18 = СуммаБезНДС18 + СуммаБезНДС;
-->
Удалены строки (279, 281)

-->
Изменены строки (320, 326)
<-- Сумма = НДС20 + СуммаБезНДС20 + НДС10 + СуммаБезНДС10 + СуммаСовсемБезНДС;

-->// Изменено 07.01.04 для поддержки НДС 18%
-->// Сумма = НДС20 + СуммаБезНДС20 + НДС10 + СуммаБезНДС10 + СуммаСовсемБезНДС;
--> Сумма = НДС20 + СуммаБезНДС20 + НДС18 + СуммаБезНДС18 + НДС10 + СуммаБезНДС10 + СуммаСовсемБезНДС;
-->
..........
-->

-->
Удалены строки (340, 347)

-->// Изменено 07.01.04 для поддержки НДС 18%
--> НДС18=0;
--> СуммаБезНДС18=0;

Изменены строки (357, 363)
<-- Если ПроцНДС>10 Тогда

-->// Изменено 07.01.04 для поддержки НДС 18%
--> //Если ПроцНДС>10 Тогда
-->
..........
-->
--> Если ПроцНДС>18 Тогда

-->
Удалены строки (366, 381)

-->// Изменено 07.01.04 для поддержки НДС 18%
-->// Иначе
-->//
-->//
-->// НДС10=НДС;
-->// СуммаБезНДС10=Сумма-НДС10;
-->//

--> ИначеЕсли ПроцНДС>10 Тогда
-->
-->
--> НДС18=НДС;
--> СуммаБезНДС18=Сумма-НДС18;
Удалены строки (385, 386)
-->
Удалены строки (433, 440)

-->// Изменено 07.01.04 для поддержки НДС 18%
--> СуммаБезНДС18 = 0; // НДС18
--> НДС18 = 0;
-->

-->
Удалены строки (475, 482)

-->// Изменено 07.01.04 для поддержки НДС 18%
--> СуммаБезНДС18 = 0; // НДС18
--> НДС18 = 0;
-->

Документ.ПлатежноеПоручение
Форма
Модуль - Объект изменен
Удалены строки (148, 154)
-->// + rem by 1cSupport
-->// Доделать!
--> ЕстьНДС18 = ПустоеЗначение(ДокументОснование.СуммаБезНДС18);
-->
-->// - rem by 1cSupport
-->
Документ.ДвиженияДенежныхСредств
Форма
Модуль - Объект изменен
Изменены строки (447, 447)
<-- //СтавкаНДС=Константа.ОсновнаяСтавкаНДС;
--> СтавкаНДС=Константа.ОсновнаяСтавкаНДС;
Изменены строки (452, 452)
<-- //СтавкаНДС="";
--> СтавкаНДС="";
Обработка.НачальноеЗаполнение
Форма
Модуль - Объект изменен
Удалены строки (55, 61)

-->// Изменено 07.01.04 для поддержки НДС 18%
--> Докум.НДС18=0;
--> Докум.СуммаБезНДС18=0;

Удалены строки (86, 94)

-->// Изменено 07.01.04 для поддержки НДС 18%
--> ИначеЕсли ТаблицаДокумента.СтавкаНДС=Перечисление.ЗначенияНДС.ОсновнаяСтавкаНДС18 Тогда
--> Докум.НДС18=Докум.НДС18+ТаблицаДокумента.НДС;
--> Докум.СуммаБезНДС18=Докум.СуммаБезНДС18+ТаблицаДокумента.Сумма-ТаблицаДокумента.НДС;

Удалены строки (115, 121)

-->// Изменено 07.01.04 для поддержки НДС 18%
--> Докум.НДС18=0;
--> Докум.СуммаБезНДС18=0;

Удалены строки (129, 136)

-->// Изменено 07.01.04 для поддержки НДС 18%
--> ИначеЕсли ДокОснования.СтавкаНДС=Перечисление.ЗначенияНДС.ОсновнаяСтавкаНДС18 Тогда
--> Докум.НДС18=Докум.Сумма*18/118;
--> Докум.СуммаБезНДС18=Докум.Сумма-Докум.НДС8;

Удалены строки (150, 155)

-->// Изменено 07.01.04 для поддержки НДС 18%
--> СписокСуммаБезНДС18=СоздатьОбъект("СписокЗначений");

Удалены строки (175, 181)
--> // + rem by 1cSupport@mail.ru
--> // Изменено 07.01.04 для поддержки НДС 18%
--> ПромСуммаБезНДС18=0;
--> ПромНДС18=0;
-->

-->
Удалены строки (187, 194)

-->// Изменено 07.01.04 для поддержки НДС 18%
--> ИначеЕсли РегПТ.Товар.СтавкаНДС.Получить(ДокОснования.ДатаДок)=Перечисление.ЗначенияНДС.ОсновнаяСтавкаНДС18 Тогда
--> ПромСуммаБезНДС18=РегПТ.Стоимость;
--> ПромНДС18=РегПТ.НДС;

Удалены строки (207, 212)

-->// Изменено 07.01.04 для поддержки НДС 18%
--> СписокСуммаБезНДС18.ДобавитьЗначение(ПромСуммаБезНДС18,Строка(ПромНДС18));

Удалены строки (219, 225)

-->// Изменено 07.01.04 для поддержки НДС 18%
--> ПромСуммаБезНДС18=ПромСуммаБезНДС18+СписокСуммаБезНДС18.ПолучитьЗначение(Поз,ПромСтрока);
--> ПромНДС18=ПромНДС18+Число(ПромСтрока);

Удалены строки (230, 235)

-->// Изменено 07.01.04 для поддержки НДС 18%
--> СписокСуммаБезНДС18.УстановитьЗначение(Поз,ПромСуммаБезНДС18,Строка(ПромНДС18),1);

Удалены строки (283, 289)

-->// Изменено 07.01.04 для поддержки НДС 18%
--> Докум.СуммаБезНДС18=СписокСуммаБезНДС18.ПолучитьЗначение(Поз,ПромСтрока);
--> Докум.НДС18=Число(ПромСтрока);

Удалены строки (571, 577)

-->// Изменено 07.01.04 для поддержки НДС 18%
--> Докум.СуммаБезНДС18=0;
--> Докум.НДС18=0;

Удалены строки (587, 594)

-->// Изменено 07.01.04 для поддержки НДС 18%
--> ИначеЕсли Докум.СтавкаНДС=Перечисление.ЗначенияНДС.ОсновнаяСтавкаНДС18 Тогда
--> Докум.НДС18=Докум.НДС18+Докум.НДС;
--> Докум.СуммаБезНДС18=Докум.СуммаБезНДС18+Докум.Сумма-Докум.НДС;

Перечисление.ЗначенияНДС
Перечисление.ЗначенияНДС.ОсновнаяСтавкаНДС18 - Объект удален
Журнал.ПолучаемыеСчетаФактуры
Журнал.ПолучаемыеСчетаФактуры.Форма.ФормаСписка
Форма
Модуль - Объект изменен
Удалены строки (10, 18)

-->// Изменено 07.01.04 для поддержки НДС 18%
-->Перем ИтогНДС18;
-->Перем ИтогКлиентНДС18;
-->Перем ИтогКлиентСуммаБезНДС18;

-->
Удалены строки (128, 136)

-->// Изменено 07.01.04 для поддержки НДС 18%
--> ТаблицаСтрок.НоваяКолонка("ПечСуммаБезНДС18","Число","15","2");
--> ТаблицаСтрок.НоваяКолонка("ПечНДС18","Число","15","2");

Удалены строки (177, 177)
--> |Функция РасхНДС18= Расход(НДС) когда (СтавкаНДС=Перечисление.ЗначенияНДС.ОсновнаяСтавкаНДС18);
Удалены строки (181, 181)
--> |Функция БазаНДС18= Сумма(ОблагаемаяБазаНДС) когда (СтавкаНДС=Перечисление.ЗначенияНДС.ОсновнаяСтавкаНДС18);
Удалены строки (206, 212)

-->// Изменено 07.01.04 для поддержки НДС 18%
--> ИтогСуммаБезНДС18=0;
--> ИтогНДС18=0;

Изменены строки (302, 310)
<-- ПрСуммаВсего=Запрос.БазаНДС20+Запрос.БазаНДС10+Запрос.БазаБезНДС;

-->// Изменено 07.01.04 для поддержки НДС 18%
-->// ПрСуммаВсего=Запрос.БазаНДС20+Запрос.БазаНДС10+Запрос.БазаБезНДС;
--> ПрСуммаВсего=Запрос.БазаНДС20+Запрос.БазаНДС18+Запрос.БазаНДС10+Запрос.БазаБезНДС;
--> ПрСуммаБезНДС18=Запрос.БазаНДС18-Запрос.РасхНДС18;
--> ПрНДС18=Запрос.РасхНДС18;
-->
..........
-->

-->
Удалены строки (322, 328)

-->// Изменено 07.01.04 для поддержки НДС 18%
--> ИтогНДС18=ИтогНДС18+ПрНДС18;

-->
Удалены строки (349, 355)

-->// Изменено 07.01.04 для поддержки НДС 18%
--> ТаблицаСтрок.ПечСуммаБезНДС18=ПрСуммаБезНДС18;
--> ТаблицаСтрок.ПечНДС18=ПрНДС18;

Удалены строки (378, 384)

-->// Изменено 07.01.04 для поддержки НДС 18%
--> ИтогКлиентСуммаБезНДС18=0;
--> ИтогКлиентНДС18=0;

Удалены строки (400, 406)

-->// Изменено 07.01.04 для поддержки НДС 18%
--> ПереданнаяИзвнеТаблица.СуммаБезНДС18= ТаблицаСтрок.ПечСуммаБезНДС18;
--> ПереданнаяИзвнеТаблица.НДС18 = ТаблицаСтрок.ПечНДС18;

Удалены строки (420, 427)

-->// Изменено 07.01.04 для поддержки НДС 18%
--> ИтогКлиентСуммаБезНДС18=0;
--> ИтогКлиентНДС18=0;

-->
Удалены строки (447, 453)

-->// Изменено 07.01.04 для поддержки НДС 18%
--> ПечСуммаБезНДС18 =глФРМ(ТаблицаСтрок.ПечСуммаБезНДС18,Рубли,0);
--> ПечНДС18 =глФРМ(ТаблицаСтрок.ПечНДС18,Рубли,0);

Удалены строки (462, 467)

-->// Изменено 07.01.04 для поддержки НДС 18%
--> ИтогКлиентНДС18=ИтогКлиентНДС18+ТаблицаСтрок.ПечНДС18;

[Jack]

turman

Большое спасибо!!!
Во всём разобрался, всё работает без глюков!!!