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

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

Платформа 1С v8.3

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

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

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

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

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

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


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

Показать

Ответы

В избранное Подписаться на ответы

Свернуть все

7. alexx2510 33 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 275 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:

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

Ошибка post запроса (4) 1 $m Dev	4	вчера, 21:23 maksa2005
Изменился "ПервыйВидВремени" в программе (1) 0.32 $m Dev УПП1	1	вчера, 19:37 user824140
Атол 30Ф платформа v5 печать номера чека в чеке, формат чека. (4) 1 $m Admin	4	вчера, 16:45 andrey7617
Запретить печатать документ "Товарный чек", пока статус Чека ККМ не будет "Чек пробит", а сам Чек ККМ не будет проведен. (11) 1 $m Dev УТ11 v8	11	28.02.2021 LastSoldier
Помогите добавить в запрос поле с выборкой со счета 90.03 (7) 0.87 $m Dev	7	26.02.2021 Shecurok
Почему 27 счёт не попадает в поле счёт учёта ? (27) 0.27 $m Dev БГУ	27	26.02.2021 Terabaytus
Необходимо в вузе разработать информационную систему для отчетности преподавателей по выполнению научных показателей (32) 2 $m Управление персоналом Обучение, бизнес-тренинг, курсы Автоматизация Аналитика УУ	32	26.02.2021 delta
УТ 10.3 изменяет количетсво товара в чеке ККМ при продаже БезПередачиТовара (10) 0.4 $m Dev	10	26.02.2021 andrey7617
Ошибка СУБД при входе в базу 1С (39) 0.55 $m Admin СУБД PostgreSQL	39	25.02.2021 dimonas
Работа с файлами на мобильном клиенте (8) 0.3 $m MobileDev v8::Mobile	8	24.02.2021 irlandets1980
Грейды программистов 1с (25) 10 $m Общие вопросы управления	25	24.02.2021 maguga
MDF SQL ищу битый файл для теста DataNumen SQL Recovery (10) 1 $m Utils	10	22.02.2021 XAKEP
Как получить значение имея НавигационнуюСсылку к полю (2) 0.25 $m Dev	2	21.02.2021 AlexxSys
Мобильный клиент. Android. Обрезает строку ввода от сканера (3) 0.35 $m MobileDev	3	21.02.2021 gamletspb
Не приходит письмо от apple после ввода карты для оплаты. (22) 5 $m MobileDev	22	20.02.2021 maksa2005
Прикрепленная подпись и БСП. Возможно ли? (10) 1 $m БСП 8.3.14	10	20.02.2021 mat skywalker
заглушка на запуск (управляемое приложение) (7) 1 $m Dev	7	19.02.2021 morrex
Сложный расчет ЗП в бухгалтерии (Нужен совет по реализации) (12) 2 $m Зарплата БП3.0 v8	12	19.02.2021 Dilovar9
Перетаскивание в списке справочника (3) 0.15 $m Dev	3	18.02.2021 user1292093
загрузка базы из dt (66) 2 $m Admin	66	18.02.2021 doctorov_s