Изменение цены при выставлении галочки
День добрый! Подскажите, пожалуйста, как правильно сделать?
У меня есть справочник "Процедуры" в нем реквизиты (Количество и Цена. Тип: Число)
Есть документ "Прием" с таб частью. "ПроцедурыПриема" (с реквизитами: цена, количество и т.д.). Также в самом документе есть реквизит "Детский прием" он с галочкой.
При заполнении тч у меня автоматически считается сумма, а мне нужно чтобы при установлении этой галочки сумма изменялась. Как вытащить данные из справочника?
Код вот такой, но естественно не рабочий. Я делаю вообще не так или что-то упустила?
У меня есть справочник "Процедуры" в нем реквизиты (Количество и Цена. Тип: Число)
Есть документ "Прием" с таб частью. "ПроцедурыПриема" (с реквизитами: цена, количество и т.д.). Также в самом документе есть реквизит "Детский прием" он с галочкой.
При заполнении тч у меня автоматически считается сумма, а мне нужно чтобы при установлении этой галочки сумма изменялась. Как вытащить данные из справочника?
Код вот такой, но естественно не рабочий. Я делаю вообще не так или что-то упустила?
&НаКлиенте
Процедура ДетскийПрПриИзменении(Элемент)
Если Объект.ДетскийПр = Истина Тогда
РассчитатьДетскийПр();
ИначеЕсли Объект.ДетскийПр = Ложь Тогда
РассчитатьДетскийПр1();
КонецЕсли;
КонецПроцедуры
&НаСервере
Функция РассчитатьДетскийПр()
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
|Процедуры.Ссылка,
|Процедуры.К_воУЕТДетск,
|Процедуры.ЦенаДетская,
|ПриемСтоматолога.ДетскийПр,
|ПриемСтоматолога.ПроцедурыПриема.(
| Количество,
| Цена
|)
|ИЗ
|Справочник.Процедуры КАК Процедуры,
|Документ.ПриемСтоматолога КАК ПриемСтоматолога";
Запрос.УстановитьПараметр("Ссылка", Объект.Ссылка);
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Пока Выборка.Следующий() Цикл
ДетскийПр = Выборка.Ссылка;
Количество = Выборка.К_воУЕТДетск;
Цена = Выборка.ЦенаДетская;
ДетскийПр=Выборка.К_воУЕТДетск * Выборка.ЦенаДетская;
КонецЦикла;
КонецФункции
&НаСервере
Функция РассчитатьДетскийПр1()
//Сообщить("дописать");
КонецФункции ПоказатьОтветы
(1) Посоветую небольшой рефакторинг кода
1) Вместо
Можно написать так
2) Функцию РассчитатьДетскийПр вызываете как процедуру (судя по всему это и есть процедура)
3) Если таб.часть будете обрабатывать в этом же документе, то от передачи параметра Объект.ДетскийПр можно избавиться, т.к. вызов все равно получится контекстный, а значит значение реквизита Объект.ДетскийПр будет доступно в процедуре на сервере РассчитатьДетскийПрием
1) Вместо
Процедура ДетскийПрПриИзменении(Элемент)
Если Объект.ДетскийПр = Истина Тогда
РассчитатьДетскийПр();
ИначеЕсли Объект.ДетскийПр = Ложь Тогда
РассчитатьДетскийПр1();
КонецЕсли;
КонецПроцедуры ПоказатьМожно написать так
Процедура ДетскийПрПриИзменении(Элемент)
РассчитатьДетскийПрием(Объект.ДетскийПр);
КонецПроцедуры
Процедура РассчитатьДетскийПрием(ДетскийПрием)
Если ДетскийПрием Тогда
// тут вероятно разные тексты запроса будут в зависимости от флага
Иначе
КонецЕсли;
КонецПроцедуры
Показать2) Функцию РассчитатьДетскийПр вызываете как процедуру (судя по всему это и есть процедура)
3) Если таб.часть будете обрабатывать в этом же документе, то от передачи параметра Объект.ДетскийПр можно избавиться, т.к. вызов все равно получится контекстный, а значит значение реквизита Объект.ДетскийПр будет доступно в процедуре на сервере РассчитатьДетскийПрием
Как минимум должно выглядеть примерно так:
А что там вам конкретно нужно, это надо разбираться подробнее
&НаКлиенте
Процедура ДетскийПрПриИзменении(Элемент)
Если Объект.ДетскийПр Тогда
РассчитатьДетскийПр();
Иначе
РассчитатьДетскийПр1();
КонецЕсли;
КонецПроцедуры
&НаСервере
Функция РассчитатьДетскийПр()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Процедуры.Ссылка,
| Процедуры.К_воУЕТДетск КАК Количество,
| Процедуры.ЦенаДетская КАК Цена,
| Процедуры.К_воУЕТДетск * Процедуры.ЦенаДетская КАК Сумма
|ИЗ
| Справочник.Процедуры КАК Процедуры
|ГДЕ
| Процедуры.Ссылка = &Ссылка";
Запрос.УстановитьПараметр("Ссылка", ТутДолжнаБытьСсылкаНаОбъектСправочникаПроцедуры);
Результат = Запрос.Выполнить();
Объект.ПроцедурыПриема.Очистить();
Выборка = Результат.Выбрать();
Пока Выборка.Следующий() Цикл
НоваяСтрока = Объект.ПроцедурыПриема.Добавить();
НоваяСтрока.Количество = Выборка.Количество;
НоваяСтрока.Цена = Выборка.Цена;
НоваяСтрока.Сумма = Выборка.Сумма;
КонецЦикла;
КонецФункции ПоказатьА что там вам конкретно нужно, это надо разбираться подробнее
Вакансии
Удаленный эксперт 1С по технологическим вопросам (от 1500 до 2200 руб в час)
Санкт-Петербург
По совместительству
Санкт-Петербург
По совместительству