ytyysh747

Помогите новичку!

28.09.2009, 11:01. Показов 13034. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
1С 7.7 Конфигурация "Бухгалтерский учет, редакция 4.5" 7.70.504
В документе "Отгрузка товаров, продукции" в пункте "Налоги" можно выбрать только 2 пункта из 4-х: "Без налогов" и "НДС сверху".
Как сделать, чтобы выбирались все пункты справочника "Варианты расчета налогов"? Как например в документе "Поступление ОС"...
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
28.09.2009, 11:01
Ответы с готовыми решениями:

Помогите новичку!
1. Где в 1с бухгалтерия выставляются ставки по налогам? 2. Что делать если в 1с бухгалтерия не идет налоговая отчетность? (Если не...

Помогите новичку
Добрый день всем! При попытке создать новый документ или отчет, не хочет записывать конфигурацию - выдает: Ошибка открытия словаря данных...

Помогите новичку
Встал вопрос об автоматизации заполнения ТТН. Так как я столкнулся с программированием 1с впервые и вопрос должен был решиться в короткие...

4
ytyysh747
28.09.2009, 13:03
Выкладываю текст процедуры "ПриВыбореВариантаРасчетаНалогов()" из модуля формы документа, которая вызывается при раскрытии списка "Вариант расчета налогов". Идентификатор этого поля "ВариантРасчетаНалогов".

// ПриВыбореВариантаРасчетаНалогов()
//
// Вызывается из формул элементов диалога:
// Поле ввода "ВариантРасчетаНалогов".
//
// Описание:
// Пересчитывает суммы в документе при смене варианта расчета налогов.
//
Процедура ПриВыбореВариантаРасчетаНалогов()

Если ВариантРасчетаНалогов = ТекущийВариантРасчетаНалогов Тогда
Возврат
КонецЕсли;

Если КоличествоСтрок() > 0 Тогда
Ответ = Вопрос("Пересчитать суммы налогов в существующих строках
|табличной части (суммы налогов будут
|обновлены в соответствии с выбранным вариантом)?", "Да+Нет+Отмена");
Если Ответ = "Да" Тогда

ОбщееКоличество = КоличествоСтрок();
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
РассчитатьНалоги();
Состояние("Обработано: " + Окр(НомерСтроки/ОбщееКоличество*100, 0, 1) + "%");
КонецЦикла;

ИначеЕсли Ответ = "Отмена" Тогда
ВариантРасчетаНалогов = ТекущийВариантРасчетаНалогов;
КонецЕсли;

КонецЕсли;
УчитыватьНП = глПризнакУчетаНалога(Контекст, "НП");
УчитыватьНДС = глПризнакУчетаНалога(Контекст, "НДС");
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
НДС = ?(УчитыватьНДС = 0, 0, НДС);
НП = ?(УчитыватьНП = 0, 0, НП);
КонецЦикла;
Форма.НДС.Видимость(УчитыватьНДС);
Форма.НП.Видимость(УчитыватьНП);

КонецПроцедуры // ПриВыбореВариантаРасчетаНалогов()

Также в модуле формы есть процедура "ВариантРасчетаНалогов()", название которой совпадает с идентификатором.

Выкладываю текст этой процедуры:

// ВариантРасчетаНалогов()
//
// Вызывается из формул элементов диалога:
// Нет.
//
// Описание:
// Подбирает вариант расчета налогов.
//
Процедура ВариантРасчетаНалогов(ВРН)
Если (ВРН.СтавкаНП.Ставка = 0) и
(ВРН.СтавкаНДС.Ставка = 0) Тогда
ВариантРасчетаНалогов = ВРН;

Иначе // попробуем найти подходящий из существующих вариантов расчета налогов

СпрВариант = СоздатьОбъект("Справочник.ВариантыРасчет аНалогов");
СпрВариант.ВыбратьЭлементы();
Пока СпрВариант.ПолучитьЭлемент() = 1 Цикл

Если ((ВРН.СтавкаНДС.Ставка = 0)
и (СпрВариант.СтавкаНДС = ВРН.СтавкаНДС)
и (СпрВариант.СуммаВключаетНДС = ВРН.СуммаВключаетНДС))

или ((ВРН.СтавкаНДС.Ставка <> 0)
и (СпрВариант.СтавкаНДС.Выбран() = 0)
и (СпрВариант.СуммаВключаетНДС = ВРН.СуммаВключаетНДС)) Тогда

Если ((ВРН.СтавкаНП.Ставка = 0)
и (СпрВариант.СтавкаНП = ВРН.СтавкаНП)
и (СпрВариант.СуммаВключаетНП = ВРН.СуммаВключаетНП))

или ((ВРН.СтавкаНП.Ставка <> 0)
и (СпрВариант.СтавкаНП.Выбран() = 0)
и (СпрВариант.СуммаВключаетНП = ВРН.СуммаВключаетНП)) Тогда

ВариантРасчетаНалогов = СпрВариант.ТекущийЭлемент();
Прервать;
КонецЕсли;
КонецЕсли;

КонецЦикла;

КонецЕсли;
// Форма.НДС.Видимость(УчитыватьНДС);
// Форма.НП.Видимость(УчитыватьНП);
КонецПроцедуры // ВариантРасчетаНалогов()

Други!!!!!!!!!!!!!
ПОДСКАЖИТЕ ГДЕ КОПАТЬ!!!
0 / 0 / 1
Регистрация: 22.06.2013
Сообщений: 9
28.09.2009, 13:21
В расходной накладной допускается выбор только тех вариантов налогов, где ставка = 0,
Т.е, если в справочнике "ВариантыРасчетаНалогов" явно указана ставка, то данный элемент не попадает в список
допустимых вариантов для выбора.
Возможный подход - в справочнике "ВариантыРасчетаНалогов" поставить переключатель в вид "Использовать ставку из справочника"
0
ytyysh747
28.09.2009, 14:13
Для какого налога переключатель поменять?
У меня переключатель стоит на пункте "Использовать ставку из справочника" только для "НДС сверху"...
Остальные : "Без налогов", "НДС в сумме 18%" и "НДС Сверху 18%" - переключатель стоит в "Использовать ставку...."

Понял!!!!
Теперь пункт появляется ...
Сейчас буду смотреть как считать будет....

;) Работает..Но налоги не пересчитывает... :(
0 / 0 / 1
Регистрация: 22.06.2013
Сообщений: 9
28.09.2009, 14:35
Цитата Сообщение от iliych747
Работает..Но налоги не пересчитывает
Это - вряд ли
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
28.09.2009, 14:35
Помогаю со студенческими работами здесь

Помогите новичку
Всем привет!! я только проштудировал два самоучителя =) нехотелось бы на етом останавливаться взял задание у знакомого буха, вот их...

помогите новичку
1с Производство 7.7 Надо сделать заполнение документа методом подбора, написал следующий код. // ******************** // ...

Помогите новичку
Есть справочник, в котором созданы несколько групп, глубина каждой группы 5 уровней. Нужно создать отчет который бы формировал и...

помогите новичку
Всем привет! недавно заинтересовался платформой 1С предприятие 8.0 помогите пожалуйста где можно скачать дистрибутив для обучения спасибо.

Помогите новичку!
Я в 1С не шурупаю, и стараюсь туда не лазить, но сталкнулся с такой проблемкой! Мне нужно создать локальную базу, копию той что стоит у...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

Новые блоги и статьи
Фото: Daniel Greenwood
kumehtar 13.11.2025
Расскажи мне о Мире, бродяга
kumehtar 12.11.2025
— Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .
PowerShell Snippets
iNNOKENTIY21 11.11.2025
Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .
PowerShell и онлайн сервисы. Валюта (floatrates.com руб.)
iNNOKENTIY21 11.11.2025
PowerShell функция floatrates-rub Примеры вызова: # Указанная валюта 'EUR' floatrates-rub -Code 'EUR' # Список имеющихся кодов валют floatrates-rub -Available function floatrates-rub {
PowerShell и онлайн сервисы. Погода (RP5.ru)
iNNOKENTIY21 11.11.2025
PowerShell функция Get-WeatherRP5rss для получения погоды с сервиса RP5 Примеры вызова Get-WeatherRP5rss с указанием id 5484 — Москва (восток, Измайлово) и переносом строки:. . .
PowerShell и онлайн сервисы. Погода (wttr)
iNNOKENTIY21 11.11.2025
PowerShell Функция для получения погоды с сервиса wttr Примеры вызова: Погода в городе Омск с прогнозом на день, можно изменить прогноз на более дней, для этого надо поменять запрос:. . .
PowerShell и онлайн сервисы. Валюта (ЦБР)
iNNOKENTIY21 11.11.2025
# Получение курса валют function cbr (] $Valutes = @('USD', 'EUR', 'CNY')) { $url = 'https:/ / www. cbr-xml-daily. ru/ daily_json. js' $data = Invoke-RestMethod -Uri $url $esc = 27 . . .
И решил я переделать этот ноут в машину для распределенных вычислений
Programma_Boinc 09.11.2025
И решил я переделать этот ноут в машину для распределенных вычислений Всем привет. А вот мой компьютер, переделанный из ноутбука. Был у меня ноут асус 2011 года. Со временем корпус превратился. . .
Мысли в слух
kumehtar 07.11.2025
Заметил среди людей, что по-настоящему верная дружба бывает между теми, с кем нечего делить.
Новая зверюга
volvo 07.11.2025
Подарок на Хеллоуин, и теперь у нас кроме Tuxedo Cat есть еще и щенок далматинца: Хочу еще Симбу взять, очень нравится. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru