Приветствую, форумчане!
"Управление торговлей 10.3", (Моби-С 5.5). "ABBYY Ukraine", 2003-2014 (2.3.20.1)
Функция ПоПоступлению()
Отбор = Новый Структура;
Отбор.Вставить("Объект", ДокументОбъект.Ссылка);
Отбор.Вставить("Свойство", ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("По поступлению"));
Если РегистрыСведений.ЗначенияСвойствОбъектов.Получить(Отбор).Значение Тогда
Сообщить("Хорошо");
Возврат 1;
Иначе
Сообщить("Плохо");
Возврат 0;
КонецЕсли;
КонецФункции
Constantus @ Сегодня, 8:57
,
Не используйте неявное преобразование, а пишите конкретно:
Если РегистрыСведений.ЗначенияСвойствОбъектов.Получить(Отбор).Значение = Истина Тогда
Если ЗначениеЗаполнено(РегистрыСведений.ЗначенияСвойствОбъектов.Получить(Отбор).Значение) Тогда
Приветствую, форумчане!
"Управление торговлей 10.3", (Моби-С 5.5). "ABBYY Ukraine", 2003-2014 (2.3.20.1)
В документе Оприходования товара делаю изменение цен по последнему поступлению. Посмотрев код изменения цены на текущей строке (типовой код) видно, что происходит несколько операций. Правильно ли я учел все изменения при изменении цены в каждой строке ТЧ?
Для Каждого Стр Из ДокументОбъект.Товары Цикл
Если ПоПоступлению() = 1 Тогда
Стр.Цена = ПолучитьЦену(Стр.Номенклатура, ПолучитьПоследнееПоступление(Стр.Номенклатура));
ОбработкаТабличныхЧастей.РассчитатьСуммуТабЧасти(Стр, ЭтотОбъект);
Стр.СуммаРегл = МодульВалютногоУчета.ПересчитатьИзВалютыВВалюту(Стр.Сумма, ПолучитьВалютуУпрУчета(),
ПолучитьВалютуРегламентированногоУчета(), ПолучитьКурсУпрУчета(), 1, ПолучитьКратностьУпрУчета(), 1);
КонецЕсли;
КонецЦикла;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 1
| ЗначенияСвойствОбъектов.Объект,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|ИЗ
| РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
|ГДЕ
| ЗначенияСвойствОбъектов.Объект = &Объект
| И ЗначенияСвойствОбъектов.Свойство = &Свойство
| И ЗначенияСвойствОбъектов.Значение = ИСТИНА";
Запрос.УстановитьПараметр("Объект", ДокументОбъект.Ссылка);
Запрос.УстановитьПараметр("Свойство", ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("По поступлению"));
РезультатЗапроса = Запрос.Выполнить();
Если НЕ РезультатЗапроса.Пустой() Тогда
Для Каждого Стр Из ДокументОбъект.Товары Цикл
Стр.Цена = ПолучитьЦену(Стр.Номенклатура, ПолучитьПоследнееПоступление(Стр.Номенклатура));
ОбработкаТабличныхЧастей.РассчитатьСуммуТабЧасти(Стр, ЭтотОбъект);
Стр.СуммаРегл = МодульВалютногоУчета.ПересчитатьИзВалютыВВалюту(Стр.Сумма, ПолучитьВалютуУпрУчета(),
ПолучитьВалютуРегламентированногоУчета(), ПолучитьКурсУпрУчета(), 1, ПолучитьКратностьУпрУчета(), 1);
КонецЦикла;
КонецЕсли;
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua