|
Макет | ☑ | ||
---|---|---|---|---|
0
Garsiv
12.01.12
✎
08:16
|
Как добавить в макет имя организации программно.
|
|||
1
Starhan
12.01.12
✎
08:17
|
Как сварить суп?
|
|||
2
Wobland
12.01.12
✎
08:17
|
Область.Параметры=
|
|||
3
Godofsin
12.01.12
✎
08:17
|
завести в нем переменную как бэ. И назначать ее.
|
|||
4
Garsiv
12.01.12
✎
08:27
|
это обработка здесь вот так реализована.......... есть процедура в основной форма и функция в модуле объекта.
|
|||
5
Wobland
12.01.12
✎
08:30
|
(4) дада, где-то там нужно дописать
|
|||
6
Garsiv
12.01.12
✎
08:31
|
я в макете создаю область
потом пишу процедуру в основной форме и функцию в модуле объекта |
|||
7
Cube
12.01.12
✎
08:33
|
(6) Монитор протри!)
|
|||
8
Garsiv
12.01.12
✎
08:34
|
для чего нужно Параметр расшифровки???
|
|||
9
Wobland
12.01.12
✎
08:35
|
(8) капитан советует использовать его для расшифровки
|
|||
10
Garsiv
12.01.12
✎
08:57
|
Так добавил 2 процедуры в основной форме
1) &НаКлиенте Процедура ОбработатьРасшифровкуАДРЕС(ИмяЭлемента, МедицинскаяКарта, Пациент) ОбработатьСменуДанных("АДРЕС",МедицинскаяКарта, Пациент); КонецПроцедуры 2) &НаКлиенте Процедура ОбработатьРасшифровку(ИмяОбласти, МедицинскаяКарта, Пациент, ДанныеРасшифровки, СтандартнаяОбработка) Экспорт СтандартнаяОбработка = Ложь; Выбыл = Регистратура.ПациентВыбыл(Пациент, НачалоДня(ТекущаяДата())); Если Выбыл И ИмяОбласти <> "МЕСТОХРАНЕНИЯ" Тогда //блокируем изменение для выбывших Возврат; КонецЕсли; КартаДействующая = Регистратура.КартаДействующая(МедицинскаяКарта, ТекущаяДата()); Если Не КартаДействующая И ИмяОбласти <> "МЕСТОХРАНЕНИЯ" Тогда Возврат; КонецЕсли; Если ИмяОбласти = "Организация" Тогда ОбработатьРасшифровкуОрганизация(ИмяОбласти, МедицинскаяКарта, Пациент); ИначеЕсли ИмяОбласти = "АДРЕС" Тогда ОбработатьРасшифровкуАДРЕС(ИмяОбласти, МедицинскаяКарта, Пациент); ИначеЕсли ИмяОбласти = "ДОПСВЕД" Тогда ОбработатьРасшифровкуДОПСВЕД(ИмяОбласти, МедицинскаяКарта, Пациент); ИначеЕсли ИмяОбласти = "ДУЛ" Тогда ОбработатьРасшифровкуДУЛ(ИмяОбласти, МедицинскаяКарта, Пациент); ИначеЕсли ИмяОбласти = "ИНВАЛИДНОСТЬ" Тогда ОбработатьРасшифровкуИНВАЛИДНОСТЬ(ИмяОбласти, МедицинскаяКарта, Пациент); ИначеЕсли ИмяОбласти = "КОММЕНТАРИЙКАРТЫ" Тогда ОбработатьРасшифровкуКОММЕНТАРИЙКАРТЫ(ИмяОбласти, МедицинскаяКарта, Пациент); ИначеЕсли ИмяОбласти = "КОММЕНТАРИЙПРИВ" Тогда ОбработатьРасшифровкуКОММЕНТАРИЙПРИВ(ИмяОбласти, МедицинскаяКарта, Пациент); ИначеЕсли ИмяОбласти = "КОНТАКТЫ" Тогда ОбработатьРасшифровкуКОНТАКТЫ(ИмяОбласти, МедицинскаяКарта, Пациент); ИначеЕсли ИмяОбласти = "МЕСТОХРАНЕНИЯ" Тогда ОбработатьРасшифровкуМЕСТОХРАНЕНИЯ(ИмяОбласти, МедицинскаяКарта, Пациент); ИначеЕсли ИмяОбласти = "НОМЕРКАРТЫ" Тогда ОбработатьРасшифровкуНОМЕРКАРТЫ(ИмяОбласти, МедицинскаяКарта, Пациент); ИначеЕсли ИмяОбласти = "ПОЛИС" Тогда ОбработатьРасшифровкуПОЛИС(ИмяОбласти, МедицинскаяКарта, Пациент); ИначеЕсли ИмяОбласти = "ПРЕДСТАВИТЕЛЬ" Тогда ОбработатьРасшифровкуПРЕДСТАВИТЕЛЬ(ИмяОбласти, МедицинскаяКарта, Пациент); ИначеЕсли ИмяОбласти = "СЕМЬЯ" Тогда ОбработатьРасшифровкуСЕМЬЯ(ИмяОбласти, МедицинскаяКарта, Пациент); ИначеЕсли ИмяОбласти = "СОЦСТАТУС" Тогда ОбработатьРасшифровкуСОЦСТАТУС(ИмяОбласти, МедицинскаяКарта, Пациент); ИначеЕсли ИмяОбласти = "УЧАСТКИ" Тогда ОбработатьРасшифровкуУЧАСТКИ(ИмяОбласти, МедицинскаяКарта, Пациент); ИначеЕсли ИмяОбласти = "ФИО" Тогда ОбработатьРасшифровкуФИО(ИмяОбласти, МедицинскаяКарта, Пациент); КонецЕсли; КонецПроцедуры |
|||
11
Garsiv
12.01.12
✎
08:57
|
я добавил Организация
|
|||
12
Garsiv
12.01.12
✎
09:08
|
теперь как реализовать в Модуле объекта
|
|||
13
Wobland
12.01.12
✎
09:11
|
(12) начать с того, что сформулировать задачу
|
|||
14
Garsiv
12.01.12
✎
09:18
|
да )))
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |