30.11.2010, 21:16
|
#1
|
|
Администратор
Регистрация: 25.11.2010
Сообщений: 2,348
Сказал(а) спасибо: 21
Поблагодарили 59,209 раз(а) в 2,165 сообщениях
|
1С: Предприятие 7.x. ПОПРОШАЙКА - просим ТОЛЬКО ЗДЕСЬ !!!
В этой ветке размещаем ТОЛЬКО ЗАКАЗЫ на конфигурации 1С 7.x
В сообщении обязательно указывайте конкретные продукты (название, релиз, дата выхода). Больше ничего в этой ветке постить НЕЛЬЗЯ.
[Ссылки доступны только зарегистрированным пользователям
. Регистрируйся тут...]
[Ссылки доступны только зарегистрированным пользователям
. Регистрируйся тут...]
Ссылки на конфигурации 7.x для России -----> [Ссылки доступны только зарегистрированным пользователям
. Регистрируйся тут...]
Ссылки на регламентированную отчетность 7.x для России -----> [Ссылки доступны только зарегистрированным пользователям
. Регистрируйся тут...]
Все программные продукты на данной странице выложены в целях ознакомления и для зарегистрированных пользователей фирмы 1С. Помните, что скачанные с данной страницы программы Вы используете на свой страх и риск. Автор и администрация этого сайта данной страницы не несет никакой ответственности за использование этих программных решений третьими лицами. В случае если вас устраивает одна из перечисленных здесь программ, Вы обязаны официально приобрести ее у фирмы 1С или ее партнеров.
Последний раз редактировалось rumhum; 18.10.2021 в 16:20.
|
|
|
|
21 пользователя(ей) сказали cпасибо:
|
|
|
06.02.2026, 10:43
|
#1216
|
|
Новичок
Регистрация: 25.09.2024
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Цитата:
Сообщение от Евгешка74
ПОНЯТНО. МОЖЕТ ВЫ И ПРАВЫ. ДОПИСАЛА ФУНКЦИИ В СТАВКАХ, РЕЗУЛЬТАТ ТОТ ЖЕ.
|
Я себе сделал вот так в типовой бухгалтерии в глобальном модуле:
раскрыть//************************************************** ****************************
// глПоказательДокумента(Док, ИмяПоказателя, СтавкаНДС, СтавкаНП)
//
Функция глПоказательДокумента(Док, ИмяПоказателя) Экспорт
Если Док.Вид() = "ИнвентаризацияТМЦ" Тогда
ВклНДС = 1;
ВклНП = 1;
Иначе
ВклНДС = Док.ВариантРасчетаНалогов.СуммаВключаетНДС;
ВклНП = Док.ВариантРасчетаНалогов.СуммаВключаетНП;
КонецЕсли;
СтНДС = глСтавкаНалога(Док, "НДС").Ставка;
СтНП = глСтавкаНалога(Док, "НП").Ставка;
Если ((Док.Вид() = "ПоступлениеОС") или (Док.Вид() = "ПоступлениеНМА")) Тогда
Сумма = Док.Стоимость;
ИначеЕсли ((Док.Вид() = "ПередачаОС") или (Док.Вид() = "ПередачаНМА")) Тогда
Сумма = Док.Цена;
ИначеЕсли Док.Вид() = "ИнвентаризацияТМЦ" Тогда
Сумма = Док.СуммаПродажи;
Иначе
Сумма = Док.Сумма;
КонецЕсли;
НДС = Док.НДС;
НП = Док.НП;
Результат = 0;
Если ВРег(ИмяПоказателя) = ВРег("СуммаБезНалогов") Тогда
Результат = Сумма;
Если ВклНДС = 1 Тогда
Результат = Результат - НДС;
КонецЕсли;
Если ВклНП = 1 Тогда
Результат = Результат - НП;
КонецЕсли;
ИначеЕсли (ВРег(ИмяПоказателя) = ВРег("НДС")) Тогда // расчет суммы НДС
Если ВклНП = 1 Тогда
Если ВклНДС = 1 Тогда // НДС в сумме, НП в сумме
// +++ ДОБАВЛЕНО (СтНДС = 5) +++
Если (СтНДС = 22) или (СтНДС = 20) или (СтНДС = 18) или (СтНДС = 10) или (СтНДС = 5) или (СтНДС = 0) Тогда
Результат = Сумма*СтНДС*100/(100 + СтНДС)/(100 + СтНП);
Иначе
Результат = Сумма*СтНДС/(100 + СтНП);
КонецЕсли;
Иначе // НДС сверху, НП в сумме
// +++ ДОБАВЛЕНО (СтНДС = 5) +++
Если (СтНДС = 22) или (СтНДС = 20) или (СтНДС = 18) или (СтНДС = 10) или (СтНДС = 5) или (СтНДС = 0) Тогда
Результат = Сумма*СтНДС/(100 + СтНП + СтНДС*СтНП/100);
Иначе
Результат = Сумма*(1-СтНП/(100 - СтНДС + СтНП))*СтНДС/(100 - СтНДС);
КонецЕсли;
КонецЕсли;
Иначе
Если ВклНДС = 1 Тогда // НДС в сумме, НП сверху
// +++ ДОБАВЛЕНО (СтНДС = 5) +++
Если (СтНДС = 22) или (СтНДС = 20) или (СтНДС = 18) или (СтНДС = 10) или (СтНДС = 5) или (СтНДС = 0) Тогда
Результат = Сумма*СтНДС/(100 + СтНДС);
Иначе
Результат = Сумма*СтНДС/100;
КонецЕсли;
Иначе // НДС сверху, НП сверху
// +++ ДОБАВЛЕНО (СтНДС = 5) +++
Если (СтНДС = 22) или (СтНДС = 20) или (СтНДС = 18) или (СтНДС = 10) или (СтНДС = 5) или (СтНДС = 0) Тогда
Результат = Сумма*СтНДС/100;
Иначе
Результат = Сумма*СтНДС/(100 - СтНДС);
КонецЕсли;
КонецЕсли;
КонецЕсли;
ИначеЕсли ВРег(ИмяПоказателя) = ВРег("НП") Тогда // расчет суммы НП
Если ВклНП = 1 Тогда
Если ВклНДС = 1 Тогда // НДС в сумме, НП в сумме
Результат = Сумма*СтНП/(100 + СтНП);
Иначе // НДС сверху, НП в сумме
// +++ ДОБАВЛЕНО (СтНДС = 5) +++
Если (СтНДС = 22) или (СтНДС = 20) или (СтНДС = 18) или (СтНДС = 10) или (СтНДС = 5) или (СтНДС = 0) Тогда
Результат = Сумма*(СтНДС/(100 + СтНП + СтНДС*СтНП/100)+1)*СтНП/(СтНП+100);
Иначе
Результат = Сумма*СтНП/(100 - СтНДС + СтНП);
КонецЕсли;
КонецЕсли;
Иначе
Если ВклНДС = 1 Тогда // НДС в сумме, НП сверху
Результат = Сумма*СтНП/100;
Иначе // НДС сверху, НП сверху
// +++ ДОБАВЛЕНО (СтНДС = 5) +++
Если (СтНДС = 22) или (СтНДС = 20) или (СтНДС = 18) или (СтНДС = 10) или (СтНДС = 5) или (СтНДС = 0) Тогда
Результат = Сумма*(100 + СтНДС)*СтНП/10000;
Иначе
Результат = Сумма*СтНП/(100 - СтНДС);
КонецЕсли;
КонецЕсли;
КонецЕсли;
ИначеЕсли ВРег(ИмяПоказателя) = ВРег("СуммаСНалогами") Тогда // расет суммы "Всего"
Результат = Сумма;
Если ВклНДС = 0 Тогда
Результат = Результат + НДС;
КонецЕсли;
Если ВклНП = 0 Тогда
Результат = Результат + НП;
КонецЕсли;
КонецЕсли;
Возврат Окр(Результат, 2, 1);
КонецФункции // глПоказательДокумента()
плюс добавил новую ставку 5% в справочник «Ставки НДС» и создал новый налог в справочнике «Налоги».
Кому надо - пользуйтесь )
|
|
|
|
|
06.02.2026, 10:54
|
#1217
|
|
Новичок
Регистрация: 12.01.2012
Сообщений: 16
Сказал(а) спасибо: 1
Поблагодарили 11 раз(а) в 6 сообщениях
|
Я вот это условие:
Цитата:
Сообщение от bobellah
Если (СтНДС = 22) или (СтНДС = 20) или (СтНДС = 18) или (СтНДС = 10) или (СтНДС = 5) или (СтНДС = 0) Тогда
|
заменил везде на:
Цитата:
|
Если СтНДС = Цел(СтНДС) Тогда
|
чтобы не переписывать каждый раз при вводе Правительством РФ новых ставок НДС)))
|
|
|
|
|
Пользователь сказал cпасибо:
|
|
|
06.02.2026, 11:28
|
#1218
|
|
Новичок
Регистрация: 25.09.2024
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Цитата:
Сообщение от victuan
Я вот это условие:
заменил везде на:
чтобы не переписывать каждый раз при вводе Правительством РФ новых ставок НДС)))
|
да с 7.7 пора прощаться по факту, за пару месяцев думаю не введут новые ставки =)
|
|
|
|
|
06.02.2026, 11:53
|
#1219
|
|
Новичок
Регистрация: 12.01.2012
Сообщений: 16
Сказал(а) спасибо: 1
Поблагодарили 11 раз(а) в 6 сообщениях
|
Цитата:
Сообщение от bobellah
да с 7.7 пора прощаться по факту, за пару месяцев думаю не введут новые ставки =)
|
С 1с 7.7 несколько лет прощаются, всё проститься не могут))
За это время НДС сменился на 18%, вернулся на 20%, появился 5 и 7%, и вот сменился на 22%
|
|
|
|
|
06.02.2026, 16:40
|
#1220
|
|
Местный
Регистрация: 12.01.2022
Сообщений: 103
Сказал(а) спасибо: 12
Поблагодарили 52 раз(а) в 37 сообщениях
|
Цитата:
Сообщение от bobellah
Я себе сделал вот так в типовой бухгалтерии в глобальном модуле:
раскрыть//************************************************** ****************************
// глПоказательДокумента(Док, ИмяПоказателя, СтавкаНДС, СтавкаНП)
//
Функция глПоказательДокумента(Док, ИмяПоказателя) Экспорт
Если Док.Вид() = "ИнвентаризацияТМЦ" Тогда
ВклНДС = 1;
ВклНП = 1;
Иначе
ВклНДС = Док.ВариантРасчетаНалогов.СуммаВключаетНДС;
ВклНП = Док.ВариантРасчетаНалогов.СуммаВключаетНП;
КонецЕсли;
СтНДС = глСтавкаНалога(Док, "НДС").Ставка;
СтНП = глСтавкаНалога(Док, "НП").Ставка;
Если ((Док.Вид() = "ПоступлениеОС") или (Док.Вид() = "ПоступлениеНМА")) Тогда
Сумма = Док.Стоимость;
ИначеЕсли ((Док.Вид() = "ПередачаОС") или (Док.Вид() = "ПередачаНМА")) Тогда
Сумма = Док.Цена;
ИначеЕсли Док.Вид() = "ИнвентаризацияТМЦ" Тогда
Сумма = Док.СуммаПродажи;
Иначе
Сумма = Док.Сумма;
КонецЕсли;
НДС = Док.НДС;
НП = Док.НП;
Результат = 0;
Если ВРег(ИмяПоказателя) = ВРег("СуммаБезНалогов") Тогда
Результат = Сумма;
Если ВклНДС = 1 Тогда
Результат = Результат - НДС;
КонецЕсли;
Если ВклНП = 1 Тогда
Результат = Результат - НП;
КонецЕсли;
ИначеЕсли (ВРег(ИмяПоказателя) = ВРег("НДС")) Тогда // расчет суммы НДС
Если ВклНП = 1 Тогда
Если ВклНДС = 1 Тогда // НДС в сумме, НП в сумме
// +++ ДОБАВЛЕНО (СтНДС = 5) +++
Если (СтНДС = 22) или (СтНДС = 20) или (СтНДС = 18) или (СтНДС = 10) или (СтНДС = 5) или (СтНДС = 0) Тогда
Результат = Сумма*СтНДС*100/(100 + СтНДС)/(100 + СтНП);
Иначе
Результат = Сумма*СтНДС/(100 + СтНП);
КонецЕсли;
Иначе // НДС сверху, НП в сумме
// +++ ДОБАВЛЕНО (СтНДС = 5) +++
Если (СтНДС = 22) или (СтНДС = 20) или (СтНДС = 18) или (СтНДС = 10) или (СтНДС = 5) или (СтНДС = 0) Тогда
Результат = Сумма*СтНДС/(100 + СтНП + СтНДС*СтНП/100);
Иначе
Результат = Сумма*(1-СтНП/(100 - СтНДС + СтНП))*СтНДС/(100 - СтНДС);
КонецЕсли;
КонецЕсли;
Иначе
Если ВклНДС = 1 Тогда // НДС в сумме, НП сверху
// +++ ДОБАВЛЕНО (СтНДС = 5) +++
Если (СтНДС = 22) или (СтНДС = 20) или (СтНДС = 18) или (СтНДС = 10) или (СтНДС = 5) или (СтНДС = 0) Тогда
Результат = Сумма*СтНДС/(100 + СтНДС);
Иначе
Результат = Сумма*СтНДС/100;
КонецЕсли;
Иначе // НДС сверху, НП сверху
// +++ ДОБАВЛЕНО (СтНДС = 5) +++
Если (СтНДС = 22) или (СтНДС = 20) или (СтНДС = 18) или (СтНДС = 10) или (СтНДС = 5) или (СтНДС = 0) Тогда
Результат = Сумма*СтНДС/100;
Иначе
Результат = Сумма*СтНДС/(100 - СтНДС);
КонецЕсли;
КонецЕсли;
КонецЕсли;
ИначеЕсли ВРег(ИмяПоказателя) = ВРег("НП") Тогда // расчет суммы НП
Если ВклНП = 1 Тогда
Если ВклНДС = 1 Тогда // НДС в сумме, НП в сумме
Результат = Сумма*СтНП/(100 + СтНП);
Иначе // НДС сверху, НП в сумме
// +++ ДОБАВЛЕНО (СтНДС = 5) +++
Если (СтНДС = 22) или (СтНДС = 20) или (СтНДС = 18) или (СтНДС = 10) или (СтНДС = 5) или (СтНДС = 0) Тогда
Результат = Сумма*(СтНДС/(100 + СтНП + СтНДС*СтНП/100)+1)*СтНП/(СтНП+100);
Иначе
Результат = Сумма*СтНП/(100 - СтНДС + СтНП);
КонецЕсли;
КонецЕсли;
Иначе
Если ВклНДС = 1 Тогда // НДС в сумме, НП сверху
Результат = Сумма*СтНП/100;
Иначе // НДС сверху, НП сверху
// +++ ДОБАВЛЕНО (СтНДС = 5) +++
Если (СтНДС = 22) или (СтНДС = 20) или (СтНДС = 18) или (СтНДС = 10) или (СтНДС = 5) или (СтНДС = 0) Тогда
Результат = Сумма*(100 + СтНДС)*СтНП/10000;
Иначе
Результат = Сумма*СтНП/(100 - СтНДС);
КонецЕсли;
КонецЕсли;
КонецЕсли;
ИначеЕсли ВРег(ИмяПоказателя) = ВРег("СуммаСНалогами") Тогда // расет суммы "Всего"
Результат = Сумма;
Если ВклНДС = 0 Тогда
Результат = Результат + НДС;
КонецЕсли;
Если ВклНП = 0 Тогда
Результат = Результат + НП;
КонецЕсли;
КонецЕсли;
Возврат Окр(Результат, 2, 1);
КонецФункции // глПоказательДокумента()
плюс добавил новую ставку 5% в справочник «Ставки НДС» и создал новый налог в справочнике «Налоги».
Кому надо - пользуйтесь ) |
А что 7% не добавили? И еще в пара функций нужно было это сделать (добавить 5% и 7%), чтобы при редактировании цены и суммы пересчитывалась сумма НДС. А вот MD-файл и исправлениями [Ссылки доступны только зарегистрированным пользователям
. Регистрируйся тут...]
Последний раз редактировалось ИльдарТ; 06.02.2026 в 16:49.
|
|
|
|
|
06.02.2026, 17:06
|
#1221
|
|
Местный
Регистрация: 12.01.2022
Сообщений: 103
Сказал(а) спасибо: 12
Поблагодарили 52 раз(а) в 37 сообщениях
|
Цитата:
Сообщение от Евгешка74
ПОНЯТНО. МОЖЕТ ВЫ И ПРАВЫ. ДОПИСАЛА ФУНКЦИИ В СТАВКАХ, РЕЗУЛЬТАТ ТОТ ЖЕ.
|
Тут что-то так 
Вот вам MD-файл. Сравните со своим. [Ссылки доступны только зарегистрированным пользователям
. Регистрируйся тут...]
|
|
|
|
|
06.02.2026, 19:19
|
#1222
|
|
Местный
Регистрация: 12.01.2022
Сообщений: 103
Сказал(а) спасибо: 12
Поблагодарили 52 раз(а) в 37 сообщениях
|
Цитата:
Сообщение от Евгешка74
ПОНЯТНО. МОЖЕТ ВЫ И ПРАВЫ. ДОПИСАЛА ФУНКЦИИ В СТАВКАХ, РЕЗУЛЬТАТ ТОТ ЖЕ.
|
Релиз 7.70.672 вышел, но 5% и 7% не исправлены
Берите мой MD.
|
|
|
|
|
Пользователь сказал cпасибо:
|
|
|
09.02.2026, 11:34
|
#1223
|
|
Новичок
Регистрация: 10.07.2024
Сообщений: 9
Сказал(а) спасибо: 5
Поблагодарили 0 раз(а) в 0 сообщениях
|
Цитата:
Сообщение от ИльдарТ
Релиз 7.70.672 вышел, но 5% и 7% не исправлены
Берите мой MD. |
Добрый день, попробовала Ваш МД-ник, да вроде считает корректно (и видно Вы еще делали индивидуальные корректировки), но при изменении нового релиза, все вернулось (имею ввиду расчеты по вновь введенным ставкам). Это получается при изменении релиза опять что-то надо дописывать?
|
|
|
|
|
09.02.2026, 12:00
|
#1224
|
|
Местный
Регистрация: 12.01.2022
Сообщений: 103
Сказал(а) спасибо: 12
Поблагодарили 52 раз(а) в 37 сообщениях
|
Цитата:
Сообщение от Евгешка74
Добрый день, попробовала Ваш МД-ник, да вроде считает корректно (и видно Вы еще делали индивидуальные корректировки), но при изменении нового релиза, все вернулось (имею ввиду расчеты по вновь введенным ставкам). Это получается при изменении релиза опять что-то надо дописывать?
|
Что вы называете новым релизом? 7.70.672? Да в нем те же ошибки, что и 7.70.671. Если вы хотите использовать его, то нужно сделать исправление по моему МД.
|
|
|
|
|
09.02.2026, 12:33
|
#1225
|
|
Местный
Регистрация: 12.01.2022
Сообщений: 103
Сказал(а) спасибо: 12
Поблагодарили 52 раз(а) в 37 сообщениях
|
Цитата:
Сообщение от Евгешка74
Добрый день, попробовала Ваш МД-ник, да вроде считает корректно (и видно Вы еще делали индивидуальные корректировки), но при изменении нового релиза, все вернулось (имею ввиду расчеты по вновь введенным ставкам). Это получается при изменении релиза опять что-то надо дописывать?
|
Похоже, что у вас затруднения с обновлением конфигурации. Тогда вот вам новый МД [Ссылки доступны только зарегистрированным пользователям
. Регистрируйся тут...]
Но это для типовой конфигурации. Если в вашу конфигурацию вносились какие-то изменения, то это нужно учитывать.
|
|
|
|
|
10.02.2026, 09:05
|
#1226
|
|
Новичок
Регистрация: 10.07.2024
Сообщений: 9
Сказал(а) спасибо: 5
Поблагодарили 0 раз(а) в 0 сообщениях
|
Цитата:
Сообщение от ИльдарТ
Похоже, что у вас затруднения с обновлением конфигурации. Тогда вот вам новый МД [Ссылки доступны только зарегистрированным пользователям
. Регистрируйся тут...]
Но это для типовой конфигурации. Если в вашу конфигурацию вносились какие-то изменения, то это нужно учитывать. |
Спасибо. Да нет у меня проблем с обновлением. Релиз 7.70.672 имеет те же недочеты, что и ...671. Сделаю изменение по Вашей рекомендации.
|
|
|
|
|
12.02.2026, 13:30
|
#1227
|
|
Новичок
Регистрация: 08.02.2026
Сообщений: 1
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
|
Цитата:
Сообщение от Ukei
ТЕХНОЛОГИЧЕСКАЯ ПЛАТФОРМА 7.7.027 (полный комплект)
Состав:
1. Комплексная установка (работает с любой конфигурацией, не требует ключа, ставится на XP, WIN7/WIN8)
2. Портабельная версия (не требует установки и лечения, может запускаться с флешки)
3. Версия для работы на компьютере без сети
4. Сетевая версия
5. Версия для работы с SQL-сервером
[Ссылки доступны только зарегистрированным пользователям
. Регистрируйся тут...] // [Ссылки доступны только зарегистрированным пользователям
. Регистрируйся тут...] // [Ссылки доступны только зарегистрированным пользователям
. Регистрируйся тут...] // [Ссылки доступны только зарегистрированным пользователям
. Регистрируйся тут...] // [Ссылки доступны только зарегистрированным пользователям
. Регистрируйся тут...]
- пароль на архив - "1", т.е. единица, без кавычек.
|
Здравствуйте! Может у кого завалялся полный комплект платформы 1С 7.70.027 ? Очень нужно.
Последний раз редактировалось astnina; 12.02.2026 в 13:58.
|
|
|
|
|
14.02.2026, 04:40
|
#1228
|
|
Местный
Регистрация: 19.10.2013
Сообщений: 502
Сказал(а) спасибо: 17
Поблагодарили 907 раз(а) в 315 сообщениях
|
Цитата:
Сообщение от astnina
Здравствуйте! Может у кого завалялся полный комплект платформы 1С 7.70.027 ? Очень нужно.
|
[Ссылки доступны только зарегистрированным пользователям
. Регистрируйся тут...]
|
|
|
|
|
Пользователь сказал cпасибо:
|
|
|
Вчера, 09:56
|
#1229
|
|
Новичок
Регистрация: 25.05.2021
Сообщений: 5
Сказал(а) спасибо: 12
Поблагодарили 0 раз(а) в 0 сообщениях
|
7.7 УСН
7.7 УСН сняли с поддержки?
Последний раз редактировалось Cyr; Вчера в 10:38.
|
|
|
|
      
Любые журналы Актион-МЦФЭР регулярно !!! Пишите https://www.nado.in/private.php?do=newpm&u=12191 или на электронный адрес pantera@nado.ws
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Текущее время: 22:55. Часовой пояс GMT +1.
| |
