|
ytyysh747
|
|
Помогите новичку!28.09.2009, 11:01. Показов 13034. Ответов 4
Метки нет (Все метки)
1С 7.7 Конфигурация "Бухгалтерский учет, редакция 4.5" 7.70.504
В документе "Отгрузка товаров, продукции" в пункте "Налоги" можно выбрать только 2 пункта из 4-х: "Без налогов" и "НДС сверху". Как сделать, чтобы выбирались все пункты справочника "Варианты расчета налогов"? Как например в документе "Поступление ОС"... |
|
| 28.09.2009, 11:01 | |
|
Ответы с готовыми решениями:
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 | ||
0
|
||
| 28.09.2009, 14:35 | |
|
Помогаю со студенческими работами здесь
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 есть еще и щенок далматинца:
Хочу еще Симбу взять, очень нравится. . .
|