Порядок перевода типовой 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;