Имя: Пароль:
1C
1С v8
Макет
,
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
да )))