1C-RarusTechDay 2025 — 8‑я открытая техническая конференция для специалистов 1С

ЗагрузкаДанныхБух (комплектация)

Для получения доступа к форуму необходимо авторизоваться
или зарегистрироваться на сайте.

Доступ к форуму партнерам «1C-Рарус» по дистрибуции предоставляется на сайте rarus-soft.ru

Сергей Большаков

Интересующийся

12.01.2011 в 09:30

RSS

Здравствуйте!
Ошибка в коде обработки загрузки заказа-наряда-комплектации

Код
ЦенаВключаетНДС = ПолучитьЗначениеРеквизита("ЦенаВключаетНДС","Справочник.ТипыЦен",ТипЦен); Если ЦенаВключаетНДС <> Неопределено Тогда УстановитьРеквизит(ТекОбъект, "НДСвСтоимостиТоваров",ЦенаВключаетНДС); КонецЕсли;

Код

ЦенаВключаетНДС = ПолучитьЗначениеРеквизита("ЦенаВключаетНДС","Справочник.ТипыЦен",ТипЦен);
Если ЦенаВключаетНДС <> Неопределено Тогда УстановитьРеквизит(ТекОбъект, "НДСвСтоимостиТоваров",ЦенаВключаетНДС); КонецЕсли;

Реквизит ТекОбъект.НДСвСтоимостиТоваров имеет тип не булево, как ЦенаВключаетНДС, а перечисление ДействиеНДСвСтоимостиТоваров

Ответить

Внимание! Данный форум является модерируемым. Для получения к нему доступа необходимо авторизоваться или зарегистрироваться на сайте.

Владимир Кудрявченко

Сотрудник 1С-Рарус

12.01.2011 в 09:52

Здравствуйте,

ошибка зарегистрирована.

Следует исправить на:

Код
Если ЦенаВключаетНДС <> Неопределено И ЦенаВключаетНДС Тогда УстановитьРеквизит(ТекОбъект, "НДСвСтоимостиТоваров", Перечисления.ДействиеНДСВСтоимостиТоваров.ВключитьВСтоимость); Иначе УстановитьРеквизит(ТекОбъект, "НДСвСтоимостиТоваров", Перечисления.ДействиеНДСВСтоимостиТоваров.НеИзменять); КонецЕсли;

Код

Если ЦенаВключаетНДС <> Неопределено И ЦенаВключаетНДС Тогда
   УстановитьРеквизит(ТекОбъект, "НДСвСтоимостиТоваров",    Перечисления.ДействиеНДСВСтоимостиТоваров.ВключитьВСтоимость);
Иначе
   УстановитьРеквизит(ТекОбъект, "НДСвСтоимостиТоваров",      Перечисления.ДействиеНДСВСтоимостиТоваров.НеИзменять);   
КонецЕсли;

Ответить

Читают тему

Поддержка отраслевых решений «1С-Рарус»

Узнать подробнее