1
RomaH
naïve
24.01.12
✎
13:55
|
только ввод не доступен получается по такой схеме
&НаКлиенте
Процедура СписокПациентовВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
ПараметрыПередачи = Новый Структура("Пациент,ДатаРождения,Наименование,СтраховойНомерПФР",Элементы.СписокПациентов.ТекущаяСтрока,Объект.ДатаРождения,Объект.ФамилияИмяОтчество,Объект.СНИЛС);
Оповестить("ВыбранТекущийПациент",ПараметрыПередачи,ЭтаФорма);
wshShell = Новый COMОбъект("WScript.Shell");
wshShell.sendKeys("{F6}");
ПараметрыПередачи = Новый Структура("ВызвавшаяФорма,НужнаяФорма","ФормаСпискаПациентов","ФормаДокумента");
Оповестить("НачатьРедактированиеДокумента",ПараметрыПередачи,ЭтаФорма);
КонецПроцедуры
//в следующей форме:
Если ИмяСобытия = "НачатьРедактированиеДокумента" Тогда
Если Не ВводДоступен() Тогда //Фокус в форму не передан - проверять ничего не надо
Сообщить("Ввод не доступен"); //попадает сюда хотя курсор стоит в этой форме
Возврат;
КонецЕсли;
Если Параметр.ВызвавшаяФорма <> "ФормаДанныхПациентов" Тогда //форма стала активной, если эта форма не является вызвавшей формой - то надо продолжить вызов
wshShell = Новый COMОбъект("WScript.Shell");
wshShell.sendKeys("{F6}");
ПараметрыПередачи = Новый Структура("ВызвавшаяФорма,НужнаяФорма",Параметр.ВызвавшаяФорма,"ФормаДокумента");
Оповестить("НачатьРедактированиеДокумента",ПараметрыПередачи,ЭтаФорма);
КонецЕсли;
КонецЕсли;
|
|