Имя: Пароль:
1C
1С v8
Автоматическое заполнение реквизита в Управляемом приложении
0 Незнайка69
 
04.08.12
13:29
Привет всем, с управляемым приложением встречаюсь первый раз, подскажите пожалуйста как при выборе реквизита Врач (справочник врачи) автоматически заполнялся реквизит Кабинет (справочник врачи). Или подскажите где можно найти информацию по программированию в управляемом приложении?
1 Luhtas
 
04.08.12
13:31
(0) Код написать на событие "ПриИзменении()" сделать то-то и то-то не?
2 Незнайка69
 
04.08.12
13:33
Процедура ВрачПриИзменении(Элемент)
Объект.Клиент =  Объект.Врач.Кабинет;    
КонецПроцедуры
так пробовала не получается
3 Незнайка69
 
04.08.12
13:34
запросом пыталась тоже не получается
4 aleks-id
 
04.08.12
13:36
надо вызвать процедуру на сервере

&НаКлиенте
Процедура ВрачПриИзменении(Элемент)
  ВрачПриИзмененииСервер();    
КонецПроцедуры

&НаСервере
Процедура ВрачПриИзмененииСервер()
  Объект.Клиент =  Объект.Врач.Кабинет;    
КонецПроцедуры
5 aleks-id
 
04.08.12
13:36
и это. фотку давай
6 Незнайка69
 
04.08.12
13:41
Ура работает))
7 Незнайка69
 
04.08.12
13:48
Спасибо)))
8 Незнайка69
 
04.08.12
14:31
А подскажите как сделать такую же подстановку в табличной части?
9 Незнайка69
 
04.08.12
14:33
беру пример из книги
&НаКлиенте
Процедура ПереченьНоменклатурыНоменклатураПриИзменении(Элемент)
// Установить цену
   СтрокаТабличнойЧасти.Цена = РаботаСоСправочниками.РозничнаяЦена(Объект.Дата, СтрокаТабличнойЧасти.Номенклатура);

КонецПроцедуры
+++++++++++++++++++++++++++
Функция РозничнаяЦена(АктуальнаяДата, ЭлементНоменклатуры) Экспорт

   // Создать вспомогательный объект Отбор
   Отбор = Новый Структура("Номенклатура", ЭлементНоменклатуры);

   // Получить актуальные значения ресурсов регистра
   ЗначенияРесурсов = РегистрыСведений.Цены.ПолучитьПоследнее(АктуальнаяДата, Отбор);
   Возврат ЗначенияРесурсов.Цена;

КонецФункции
10 Незнайка69
 
04.08.12
14:34
Делаю сама но у меня вместо регистра сведений должен быть справочник:
11 Незнайка69
 
04.08.12
14:34
&НаКлиенте
Процедура ПроцедурыПроцедураПриИзменении(Элемент)
   СтрокаТабличнойЧасти = Элементы.Процедуры.ТекущиеДанные;
   СтрокаТабличнойЧасти.Сумма = УниверсальныеМеханизмы.ПолучитьСуммуПроцедуры(СтрокаТабличнойЧасти.Процедура);
КонецПроцедуры
12 Незнайка69
 
04.08.12
14:35
&НаСервере
Функция ПолучитьСуммуПроцедуры (СтрокаТабличнойЧасти)  Экспорт
Отбор = Новый Структура("Процедуры", СтрокаТабличнойЧасти);    
НайтиЦену = Справочники.Процедуры.НайтиПоНаименованию(Отбор).Цена;
Возврат  НайтиЦену;
   
КонецФункции
13 Незнайка69
 
04.08.12
14:37
ошибка
{Документ.Заявка.Форма.ФормаДокумента.Форма(20)}: Метод объекта не обнаружен (ПолучитьСуммуПроцедуры)
   СтрокаТабличнойЧасти.Сумма = УниверсальныеМеханизмы.ПолучитьСуммуПроцедуры(СтрокаТабличнойЧасти.Процедура);
14 aleks-id
 
04.08.12
14:47
&НаКлиенте
Процедура ПроцедурыПроцедураПриИзменении(Элемент)
   СтрокаТабличнойЧасти = Элементы.Процедуры.ТекущиеДанные;
   СтрокаТабличнойЧасти.Сумма = ПолучитьСуммуПроцедуры(СтрокаТабличнойЧасти.Процедура);
КонецПроцедуры

&НаСервере
Функция ПолучитьСуммуПроцедуры (ТекПроцедура)  Экспорт
  Возврат ТекПроцедура.Цена;
КонецФункции
15 Rovan
 
гуру
04.08.12
14:50
(13) УниверсальныеМеханизмы.ПолучитьСуммуПроцедуры(СтрокаТабличнойЧасти.Процедура);
замени на
ПолучитьСуммуПроцедуры(СтрокаТабличнойЧасти.Процедура);
16 Незнайка69
 
04.08.12
14:56
Спасибо большое))
Ошибка? Это не ошибка, это системная функция.