Форум Программирование Общие вопросы программирования (Dev)

Платформа 1С v8.x (все механизмы)

1. user618496_Riko.Naomi 21.12.16 14:39 Сейчас в теме

Изменение цены при выставлении галочки

День добрый! Подскажите, пожалуйста, как правильно сделать?
У меня есть справочник "Процедуры" в нем реквизиты (Количество и Цена. Тип: Число)
Есть документ "Прием" с таб частью. "ПроцедурыПриема" (с реквизитами: цена, количество и т.д.). Также в самом документе есть реквизит "Детский прием" он с галочкой.
При заполнении тч у меня автоматически считается сумма, а мне нужно чтобы при установлении этой галочки сумма изменялась. Как вытащить данные из справочника?

Код вот такой, но естественно не рабочий. Я делаю вообще не так или что-то упустила?

&НаКлиенте
Процедура ДетскийПрПриИзменении(Элемент)
	
	Если Объект.ДетскийПр = Истина Тогда
		РассчитатьДетскийПр();
	ИначеЕсли Объект.ДетскийПр = Ложь Тогда
		РассчитатьДетскийПр1();
    КонецЕсли;
	  
КонецПроцедуры

&НаСервере
Функция РассчитатьДетскийПр()
	
	Запрос = Новый Запрос;
	Запрос.Текст = "ВЫБРАТЬ
	|Процедуры.Ссылка,
	|Процедуры.К_воУЕТДетск,
	|Процедуры.ЦенаДетская,
	|ПриемСтоматолога.ДетскийПр,
	|ПриемСтоматолога.ПроцедурыПриема.(
	|	Количество,
	|	Цена
	|)
	|ИЗ
	|Справочник.Процедуры КАК Процедуры,
	|Документ.ПриемСтоматолога КАК ПриемСтоматолога";

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


&НаСервере
Функция РассчитатьДетскийПр1()
	//Сообщить("дописать");	
КонецФункции

Показать

Ответы

Избранное Подписка

7. alexx2510 29 21.12.16 18:03 Сейчас в теме

(1) Посоветую небольшой рефакторинг кода

1) Вместо

Процедура ДетскийПрПриИзменении(Элемент)
    
    Если Объект.ДетскийПр = Истина Тогда
        РассчитатьДетскийПр();
    ИначеЕсли Объект.ДетскийПр = Ложь Тогда
        РассчитатьДетскийПр1();
    КонецЕсли;
      
КонецПроцедуры

Показать

Можно написать так

Процедура ДетскийПрПриИзменении(Элемент)

   РассчитатьДетскийПрием(Объект.ДетскийПр);
    
КонецПроцедуры

Процедура РассчитатьДетскийПрием(ДетскийПрием)

Если ДетскийПрием Тогда
// тут вероятно разные тексты запроса будут в зависимости от флага
Иначе
КонецЕсли;

КонецПроцедуры

Показать

2) Функцию РассчитатьДетскийПр вызываете как процедуру (судя по всему это и есть процедура)
3) Если таб.часть будете обрабатывать в этом же документе, то от передачи параметра Объект.ДетскийПр можно избавиться, т.к. вызов все равно получится контекстный, а значит значение реквизита Объект.ДетскийПр будет доступно в процедуре на сервере РассчитатьДетскийПрием

2. le0nid 21.12.16 15:04 Сейчас в теме

Как минимум неграмотно написан запрос.

3. ark.zv 12 21.12.16 15:19 Сейчас в теме

Как минимум должно выглядеть примерно так:

&НаКлиенте 
Процедура ДетскийПрПриИзменении(Элемент) 

	Если Объект.ДетскийПр Тогда 
		РассчитатьДетскийПр(); 
	Иначе 
		РассчитатьДетскийПр1(); 
	КонецЕсли; 

КонецПроцедуры 

&НаСервере 
Функция РассчитатьДетскийПр() 
	
	Запрос = Новый Запрос; 
	Запрос.Текст = 
		"ВЫБРАТЬ 
		|	Процедуры.Ссылка, 
		|	Процедуры.К_воУЕТДетск КАК Количество, 
		|	Процедуры.ЦенаДетская КАК Цена,
		|       Процедуры.К_воУЕТДетск * Процедуры.ЦенаДетская КАК Сумма 
		|ИЗ 
		|	Справочник.Процедуры КАК Процедуры
		|ГДЕ
		|	Процедуры.Ссылка = &Ссылка"; 
	
	Запрос.УстановитьПараметр("Ссылка", ТутДолжнаБытьСсылкаНаОбъектСправочникаПроцедуры); 	
	Результат = Запрос.Выполнить(); 
	
	Объект.ПроцедурыПриема.Очистить();
	Выборка = Результат.Выбрать(); 
	Пока Выборка.Следующий() Цикл 
		
		НоваяСтрока = Объект.ПроцедурыПриема.Добавить();
		НоваяСтрока.Количество = Выборка.Количество; 
		НоваяСтрока.Цена = Выборка.Цена; 		
		НоваяСтрока.Сумма = Выборка.Сумма; 
		
	КонецЦикла; 

КонецФункции

Показать

А что там вам конкретно нужно, это надо разбираться подробнее

4. user618496_Riko.Naomi 21.12.16 15:30 Сейчас в теме

(3)хорошо, поняла вас, буду разбирать, спасибо за подсказку!)

5. Boneman 242 21.12.16 17:15 Сейчас в теме

(3) а если у них реквизит ДетскийПр , не чисто булево, а - например составного типа, или произвольного ?

6. user618496_Riko.Naomi 21.12.16 17:47 Сейчас в теме

(5)У него тип Булево

8. ark.zv 12 22.12.16 06:55 Сейчас в теме

(5) Я просто написал как "ПРИМЕРНО" должно выглядеть и подписал, что дальше нужно разбираться конкретней с задачей))

9. user618496_Riko.Naomi 22.12.16 09:30 Сейчас в теме

(8) да, я понимаю)

Оставьте свое сообщение

E-mail:

Новые вопросы с вознаграждением

Автор темы объявил вознаграждение за найденный ответ, его получит тот, кто первый поможет автору.

скрытые "лишние" поля таблицы в MS SQL и PG в документе которых нет в конфигураторе (7) 0.04 $m UpdateCF БП3.0 v8 Программист Вопрос Исследование	7	вчера, 16:29 trupo
Как во ВПФ поменять формат даты у строки? (скриншоты) УТ10.3 (5) 0.3 $m Dev	5	16.01.20 Shecurok
MSScriptControl.ScriptControl не работает под другими терминальными пользователями (4) 1 $m Admin	4	16.01.20 doctorov_s
Автоматические скидки в чеках игнорируют ограничения по складам (КА 2.4, УТ 11.4) (5) 1 $m Учет	5	15.01.20 insurgut
Не удалось обновить рабочую группу предмета (3) 0.3 $m Dev	3	14.01.20 Dolg
Обработка не учитывает года, куда копать? (14) 0.01 $m Dev	14	14.01.20 user973528
Задачка (6) 0.2 $m Dev	6	14.01.20 user1292300

Вакансии

Программист 1С
Москва
зарплата до 160 000 руб.
Полный день

Ведущий программист 1С; Оплачиваемый переезд в Ростов-на-Дону
Краснодар
зарплата от 50 000 руб. до 120 000 руб.
Полный день

Ведущий программист 1С; Оплачиваемый переезд в Ростов-на-Дону
Екатеринбург
зарплата до 120 000 руб.
Полный день

Ведущий программист 1С
Ростов-на-Дону
зарплата от 50 000 руб. до 120 000 руб.
Полный день

Консультант 1С
Москва
зарплата от 100 000 руб. до 140 000 руб.
Временный (на проект)