Пояснительная записка
.pdfТекстНадписи = "Необходимо установить графики для:";
Элементыформы.ТабличноеПолеСпециалисты.Видимость = Истина;
ЭлементыФормы.Предупреждение.ЦветТекста = новый цвет(128, 0, 0);
ГрафикиНеУстановлены.Загрузить(Рез);
КонецЕсли;
КонецПроцедуры
Процедура ОбновитьМР()
МРДата = Формат(ОбщегоНазначения.ПолучитьРабочуюДату(),"ДЛФ=DD");
МакетМР = ПолучитьМакет("СтатистикаМР");
СтруктураПолей = Новый Структура();
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ
|ЗаявкаКлиента.Ссылка
|ИЗ
|Документ.ЗаявкаКлиента КАК ЗаявкаКлиента
|ГДЕ
|ЗаявкаКлиента.ПометкаУдаления = ЛОЖЬ
|И ЗаявкаКлиента.Дата МЕЖДУ &ДатаНач И &ДатаКон";
Запрос.УстановитьПараметр("ДатаНач",
НачалоДня(ОбщегоНазначения.ПолучитьРабочуюДату()));
Запрос.УстановитьПараметр("ДатаКон",
КонецДня(ОбщегоНазначения.ПолучитьРабочуюДату()));
Рез = Запрос.Выполнить().Выгрузить();
СтруктураПолей.Вставить("Заявок", Рез.Количество());
Запрос.УстановитьПараметр("ДатаНач",
Началомесяца(ОбщегоНазначения.ПолучитьРабочуюДату()));
Запрос.УстановитьПараметр("ДатаКон",
КонецДня(ОбщегоНазначения.ПолучитьРабочуюДату()));
Рез = Запрос.Выполнить().Выгрузить();
СтруктураПолей.Вставить("МЗаявок", Рез.Количество());
Запрос.УстановитьПараметр("ДатаНач",
Началогода(ОбщегоНазначения.ПолучитьРабочуюДату()));
Запрос.УстановитьПараметр("ДатаКон",
КонецДня(ОбщегоНазначения.ПолучитьРабочуюДату()));
Рез = Запрос.Выполнить().Выгрузить();
СтруктураПолей.Вставить("ГЗаявок", Рез.Количество());
Запрос.Текст = "ВЫБРАТЬ
157
|ЗаписьНаПрием.Ссылка
|ИЗ
|Документ.ЗаписьНаПрием КАК ЗаписьНаПрием
|ГДЕ
|ЗаписьНаПрием.ПометкаУдаления = ЛОЖЬ
|И ЗаписьНаПрием.ЗаявкаКлиента <> &ЗаявкаКлиента
|И ЗаписьНаПрием.Дата МЕЖДУ &ДатаНач И &ДатаКон";
Запрос.УстановитьПараметр("ЗаявкаКлиента",
Документы.ЗаявкаКлиента.ПустаяСсылка());
Запрос.УстановитьПараметр("ДатаНач",
НачалоДня(ОбщегоНазначения.ПолучитьРабочуюДату()));
Запрос.УстановитьПараметр("ДатаКон",
КонецДня(ОбщегоНазначения.ПолучитьРабочуюДату()));
Рез = Запрос.Выполнить().Выгрузить();
СтруктураПолей.Вставить("ЗаписейВеб", рез.Количество());
Запрос.УстановитьПараметр("ДатаНач",
НачалоМесяца(ОбщегоНазначения.ПолучитьРабочуюДату()));
Запрос.УстановитьПараметр("ДатаКон",
КонецДня(ОбщегоНазначения.ПолучитьРабочуюДату()));
Рез = Запрос.Выполнить().Выгрузить();
СтруктураПолей.Вставить("МЗаписейВеб", рез.Количество());
Запрос.УстановитьПараметр("ДатаНач",
НачалоГода(ОбщегоНазначения.ПолучитьРабочуюДату()));
Запрос.УстановитьПараметр("ДатаКон",
КонецДня(ОбщегоНазначения.ПолучитьРабочуюДату()));
Рез = Запрос.Выполнить().Выгрузить();
СтруктураПолей.Вставить("ГЗаписейВеб", рез.Количество());
Запрос.Текст = "ВЫБРАТЬ
|ЗаписьНаПрием.Ссылка
|ИЗ
|Документ.ЗаписьНаПрием КАК ЗаписьНаПрием
|ГДЕ
|ЗаписьНаПрием.ПометкаУдаления = ЛОЖЬ
|И ЗаписьНаПрием.ЗаявкаКлиента = &ЗаявкаКлиента
|И ЗаписьНаПрием.Дата МЕЖДУ &ДатаНач И &ДатаКон";
Запрос.УстановитьПараметр("ДатаНач",
НачалоДня(ОбщегоНазначения.ПолучитьРабочуюДату()));
158
Запрос.УстановитьПараметр("ДатаКон",
КонецДня(ОбщегоНазначения.ПолучитьРабочуюДату()));
Рез = Запрос.Выполнить().Выгрузить();
СтруктураПолей.Вставить("ЗаписейнеВеб", рез.Количество());
Запрос.УстановитьПараметр("ДатаНач",
НачалоМесяца(ОбщегоНазначения.ПолучитьРабочуюДату()));
Запрос.УстановитьПараметр("ДатаКон",
КонецДня(ОбщегоНазначения.ПолучитьРабочуюДату()));
Рез = Запрос.Выполнить().Выгрузить();
СтруктураПолей.Вставить("МЗаписейнеВеб", рез.Количество());
Запрос.УстановитьПараметр("ДатаНач",
НачалоГода(ОбщегоНазначения.ПолучитьРабочуюДату()));
Запрос.УстановитьПараметр("ДатаКон",
КонецДня(ОбщегоНазначения.ПолучитьРабочуюДату()));
Рез = Запрос.Выполнить().Выгрузить();
СтруктураПолей.Вставить("ГЗаписейнеВеб", рез.Количество());
Запрос.Текст = "ВЫБРАТЬ
|ТалонПациента.Ссылка
|ИЗ
|Документ.ТалонПациента КАК ТалонПациента
|ГДЕ
|ТалонПациента.ПометкаУдаления = ЛОЖЬ
|И ТалонПациента.Дата МЕЖДУ &ДатаНач И &ДатаКон
|И ТалонПациента.Проведен = ИСТИНА";
Запрос.УстановитьПараметр("ДатаНач",
НачалоДня(ОбщегоНазначения.ПолучитьРабочуюДату()));
Запрос.УстановитьПараметр("ДатаКон",
КонецДня(ОбщегоНазначения.ПолучитьРабочуюДату()));
Рез = Запрос.Выполнить().Выгрузить();
СтруктураПолей.Вставить("Талонов", рез.Количество());
Запрос.УстановитьПараметр("ДатаНач",
НачалоМесяца(ОбщегоНазначения.ПолучитьРабочуюДату()));
Запрос.УстановитьПараметр("ДатаКон",
КонецДня(ОбщегоНазначения.ПолучитьРабочуюДату()));
Рез = Запрос.Выполнить().Выгрузить();
СтруктураПолей.Вставить("МТалонов", рез.Количество());
159
Запрос.УстановитьПараметр("ДатаНач",
НачалоГода(ОбщегоНазначения.ПолучитьРабочуюДату()));
Запрос.УстановитьПараметр("ДатаКон",
КонецДня(ОбщегоНазначения.ПолучитьРабочуюДату()));
Рез = Запрос.Выполнить().Выгрузить();
СтруктураПолей.Вставить("ГТалонов", рез.Количество());
Запрос.Текст = "ВЫБРАТЬ
|ЗаписьНаПрием.Ссылка
|ИЗ
|Документ.ЗаписьНаПрием КАК ЗаписьНаПрием
|ГДЕ
|ЗаписьНаПрием.ПометкаУдаления = ЛОЖЬ
|И ЗаписьНаПрием.Дата МЕЖДУ &ДатаНач И &ДатаКон
|И ЗаписьНаПрием.ПриемНеСостоялся = ИСТИНА";
Запрос.УстановитьПараметр("ДатаНач",
НачалоДня(ОбщегоНазначения.ПолучитьРабочуюДату()));
Запрос.УстановитьПараметр("ДатаКон",
КонецДня(ОбщегоНазначения.ПолучитьРабочуюДату()));
Рез = Запрос.Выполнить().Выгрузить();
СтруктураПолей.Вставить("ОтменПриема", рез.Количество());
Запрос.УстановитьПараметр("ДатаНач",
НачалоМесяца(ОбщегоНазначения.ПолучитьРабочуюДату()));
Запрос.УстановитьПараметр("ДатаКон",
КонецДня(ОбщегоНазначения.ПолучитьРабочуюДату()));
Рез = Запрос.Выполнить().Выгрузить();
СтруктураПолей.Вставить("МОтменПриема", рез.Количество());
Запрос.УстановитьПараметр("ДатаНач",
НачалоГода(ОбщегоНазначения.ПолучитьРабочуюДату()));
Запрос.УстановитьПараметр("ДатаКон",
КонецДня(ОбщегоНазначения.ПолучитьРабочуюДату()));
Рез = Запрос.Выполнить().Выгрузить();
СтруктураПолей.Вставить("ГОтменПриема", рез.Количество());
Запрос.Текст = "ВЫБРАТЬ
|ДоговорОсновной.Ссылка
|ИЗ
|Документ.ДоговорОсновной КАК ДоговорОсновной
|ГДЕ
|ДоговорОсновной.ПометкаУдаления = ЛОЖЬ
160
|И ДоговорОсновной.Дата МЕЖДУ &ДатаНач И &ДатаКон";
Запрос.УстановитьПараметр("ДатаНач",
НачалоДня(ОбщегоНазначения.ПолучитьРабочуюДату()));
Запрос.УстановитьПараметр("ДатаКон",
КонецДня(ОбщегоНазначения.ПолучитьРабочуюДату()));
Рез = Запрос.Выполнить().Выгрузить();
СтруктураПолей.Вставить("Договоров", рез.Количество());
Запрос.УстановитьПараметр("ДатаНач",
НачалоМесяца(ОбщегоНазначения.ПолучитьРабочуюДату()));
Запрос.УстановитьПараметр("ДатаКон",
КонецДня(ОбщегоНазначения.ПолучитьРабочуюДату()));
Рез = Запрос.Выполнить().Выгрузить();
СтруктураПолей.Вставить("МДоговоров", рез.Количество());
Запрос.УстановитьПараметр("ДатаНач",
НачалоГода(ОбщегоНазначения.ПолучитьРабочуюДату()));
Запрос.УстановитьПараметр("ДатаКон",
КонецДня(ОбщегоНазначения.ПолучитьРабочуюДату()));
Рез = Запрос.Выполнить().Выгрузить();
СтруктураПолей.Вставить("ГДоговоров", рез.Количество());
Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ
|ЗаписьНаПрием.Клиент
|ИЗ
|Документ.ЗаписьНаПрием КАК ЗаписьНаПрием
|ГДЕ
|ЗаписьНаПрием.Дата МЕЖДУ &ДатаНач И &ДатаКон
|И ЗаписьНаПрием.ПометкаУдаления = ЛОЖЬ";
Запрос.УстановитьПараметр("ДатаНач",
НачалоДня(ОбщегоНазначения.ПолучитьРабочуюДату()));
Запрос.УстановитьПараметр("ДатаКон",
КонецДня(ОбщегоНазначения.ПолучитьРабочуюДату()));
Рез = Запрос.Выполнить().Выгрузить();
СтруктураПолей.Вставить("НовыхКлиентов", рез.Количество());
Запрос.УстановитьПараметр("ДатаНач",
НачалоМесяца(ОбщегоНазначения.ПолучитьРабочуюДату()));
Запрос.УстановитьПараметр("ДатаКон",
КонецДня(ОбщегоНазначения.ПолучитьРабочуюДату()));
Рез = Запрос.Выполнить().Выгрузить();
161
СтруктураПолей.Вставить("МНовыхКлиентов", рез.Количество());
Запрос.УстановитьПараметр("ДатаНач",
НачалоГода(ОбщегоНазначения.ПолучитьРабочуюДату()));
Запрос.УстановитьПараметр("ДатаКон",
КонецДня(ОбщегоНазначения.ПолучитьРабочуюДату()));
Рез = Запрос.Выполнить().Выгрузить();
СтруктураПолей.Вставить("ГНовыхКлиентов", рез.Количество());
СтруктураПолей.Вставить("Повторно", СтруктураПолей.ЗаписейВеб +
СтруктураПолей.ЗаписейНеВеб - СтруктураПолей.НовыхКлиентов);
СтруктураПолей.Вставить("МПовторно", СтруктураПолей.МЗаписейВеб +
СтруктураПолей.МЗаписейНеВеб - СтруктураПолей.МНовыхКлиентов);
СтруктураПолей.Вставить("ГПовторно", СтруктураПолей.ГЗаписейВеб +
СтруктураПолей.ГЗаписейНеВеб - СтруктураПолей.ГНовыхКлиентов);
МакетМР.Параметры.Заполнить(СтруктураПолей);
ЭлементыФормы.ПолеМР.Очистить();
ЭлементыФормы.ПолеМР.Вывести(МакетМР);
КонецПроцедуры
Процедура СоздатьУстановкуГрафика()
Об = Документы.УстановкаГрафикаСпециалиста.СоздатьДокумент();
Об.Дата = ОбщегоНазначения.ПолучитьРабочуюДату();
Об.Ответственный = ОбщиеФункции.ТекущийРегистратор();
Об.Специалист = ЭлементыФормы.ТабличноеПолеСпециалисты.ТекущаяСтрока.Все;
Ф = Об.ПолучитьФорму();
Ф.Открыть();
КонецПроцедуры
Процедура Кнопка1Нажатие(Элемент)
ОбновитьТекущиеприемы();
КонецПроцедуры
Процедура Кнопка2Нажатие(Элемент)
ОбновитьПланируемыеПриемы();
162
КонецПроцедуры
Процедура ПриСменеСтраницы(Элемент, ТекущаяСтраница)
Если ТекущаяСтраница = ЭлементыФормы.ОсновнаяПанель.Страницы.КабинетВрача Тогда ОбновитьПланируемыеПриемы();
ОбновитьТекущиеПриемы();
КонецЕсли;
Если ТекущаяСтраница = ЭлементыФормы.ОсновнаяПанель.Страницы.НачалоРаботы Тогда ОбновитьИнформацию();
КонецЕсли;
Если ТекущаяСтраница = ЭлементыФормы.ОсновнаяПанель.Страницы.МониторРуководителя Тогда
ОбновитьМР();
КонецЕсли;
КонецПроцедуры
Процедура ПриОткрытии()
Если РольДоступна("Специалист") Тогда
ЭлементыФормы.ОсновнаяПанель.ОтображениеЗакладок=ОтображениеЗакладок.НеИспользова
ть;
ЭлементыФормы.ОсновнаяПанель.Страницы.КабинетВрача.Видимость = истина;
КонецЕсли;
Если РольДоступна("УчетМедицинскихКарт") Тогда
ЭлементыФормы.ОсновнаяПанель.ОтображениеЗакладок=ОтображениеЗакладок.НеИспользова
ть;
ЭлементыФормы.ОсновнаяПанель.Страницы.УчетМедицинскихКарт.Видимость = истина;
КонецЕсли;
Если РольДоступна("Регистратор") Тогда ЭлементыФормы.ОсновнаяПанель.ОтображениеЗакладок=ОтображениеЗакладок.Сверху;
ЭлементыФормы.ОсновнаяПанель.Страницы.Регистратура.Видимость = истина;
ЭлементыФормы.ОсновнаяПанель.Страницы.НачалоРаботы.Видимость = истина;
Элементыформы.ОсновнаяПанель.ТекущаяСтраница =
ЭлементыФормы.ОсновнаяПанель.Страницы.НачалоРаботы;
163
КонецЕсли;
Элементыформы.Предупреждение.Видимость = ложь;
Элементыформы.Специалист.Видимость = ложь;
Если РольДоступна("Руководитель") Тогда ЭлементыФормы.ОсновнаяПанель.ОтображениеЗакладок=ОтображениеЗакладок.Сверху;
ЭлементыФормы.ОсновнаяПанель.Страницы.МониторРуководителя.Видимость = истина;
ЭлементыФормы.ОсновнаяПанель.Страницы.НачалоРаботы.Видимость = истина;
Элементыформы.ОсновнаяПанель.ТекущаяСтраница =
ЭлементыФормы.ОсновнаяПанель.Страницы.НачалоРаботы;
КонецЕсли;
Если РольДоступна("Полныеправа") Тогда ЭлементыФормы.ОсновнаяПанель.Видимость = истина;
ЭлементыФормы.ОсновнаяПанель.ОтображениеЗакладок=ОтображениеЗакладок.Сверху;
ЭлементыФормы.ОсновнаяПанель.Страницы.МониторРуководителя.Видимость = истина;
ЭлементыФормы.ОсновнаяПанель.Страницы.НачалоРаботы.Видимость = истина;
ЭлементыФормы.ОсновнаяПанель.Страницы.КабинетВрача.Видимость = истина;
ЭлементыФормы.ОсновнаяПанель.Страницы.Регистратура.Видимость = истина;
ЭлементыФормы.ОсновнаяПанель.Страницы.УчетМедицинскихКарт.Видимость = истина;
Элементыформы.ОсновнаяПанель.ТекущаяСтраница =
ЭлементыФормы.ОсновнаяПанель.Страницы.НачалоРаботы;
КонецЕсли;
Если РольДоступна("Специалист") или РольДоступна("Полныеправа") Тогда ОбновитьПланируемыеПриемы();
ОбновитьТекущиеПриемы();
КонецЕсли;
Если РольДоступна("УстановкаКорректировкаГрафиков") или РольДоступна("Полныеправа") Тогда
ОбновитьИнформацию();
КонецЕсли;
Если РольДоступна("Руководитель") или РольДоступна("Полныеправа") Тогда ОбновитьМР();
КонецЕсли;
Ф = ЭтотОбъект.ПолучитьФорму("Календарь");
Ф.Открыть();
164
Этаформа.ПодключитьОбработчикОжидания("ОбновитьМР", 10);
Этаформа.ПодключитьОбработчикОжидания("ОбновитьТекущиеПриемы", 60);
Этаформа.ПодключитьОбработчикОжидания("ОбновитьПланируемыеПриемы", 60);
КонецПроцедуры
Процедура ТабличноеПолеСпециалистывсеОткрытие(Элемент, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
СоздатьУстановкуГрафика();
КонецПроцедуры
Процедура ЗадачиРегистратораНажатие(Элемент)
ФЗ = ПолучитьФорму("ЗадачиРегистратора");
ФЗ.Открыть();
КонецПроцедуры
Модуль документа «Договор об оказании платных медицинских услуг»
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка) Экспорт
Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.ЗаписьНаПрием") Тогда ВремяПриема = ДанныеЗаполнения.Время;
Клиент = ДанныеЗаполнения.Клиент;
Регистратор = ДанныеЗаполнения.Регистратор;
Специалист = ДанныеЗаполнения.Специалист;
ЗаписьНаПрием = ДанныеЗаполнения.Ссылка;
Если ЗначениеЗаполнено(Клиент.карта)Тогда Пол = Клиент.Карта.пол;
ДатаРождения = Клиент.Карта.Датарождения;
ДокументУЛ = Клиент.Карта.ДокументУЛ;
СерияДокумента = Клиент.Карта.СерияДокумента;
НомерДокумента = Клиент.Карта.НомерДокумента;
АдресРегистрации = Клиент.Карта.АдресРегистрации;
СоциальныйСтатус = Клиент.Карта.СоциальныйСтатус;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
165
Функция ПечатьДоговор() Экспорт ТабДокумент = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("ДоговорОсновной"); СтруктураПолей = Новый Структура();
СтруктураПолей.Вставить("НомерДата", "№ " + СокрЛП(Номер) + " от " + Формат(Дата, "ДЛФ=DD"));
структураПолей.Вставить("СтрНаименованиеОрганизации", Константы.ПолноеНаименованиеОрганизации.Получить() + ",");
СтрЛицензия = "действующее в соответствии с лицензией № "
+сокрЛП(Константы.НомерЛицензии.Получить())
+", выданной Федеральной службой по надзору в сфере здравоохранения и социального развития, от "
+Формат(Константы.ДатаПолученияЛицензии.Получить(), "ДЛФ=DD")
+" сроком до "
+Формат(Константы.ДатаОкончанияЛицензии.Получить(), "ДЛФ=DD");
СтрРуководитель =
", которое представляет " + СокрЛП(Константы.ДолжностьРуководителя.Получить())
+" " + СокрЛП(Константы.РуководительОрганизации.Получить())
+", действующий на основании Устава, именуемое в дальнейшем 'Медицинский Центр', с одной стороны,";
Если Клиент.пол = перечисления.Пол.Жен Тогда СтрКлиент = " и госпожа " + " " + СокрЛП(Клиент.Фамилия) + " " +
СокрЛП(Клиент.Имя) + " " +СокрЛП(Клиент.Отчество) + ", " + " дата рождения " + Формат(ДатаРождения,"ДЛФ=DD");
СтрАдресКлиента = ", проживающая по адресу " + СокрЛП(АдресРегистрации)
+", именуемая в дальнейшем 'Пациент', с другой стороны, заключили настоящий Договор о нижеследующем:";
Иначе СтрКлиент = " и господин " + " " + СокрЛП(Клиент.Фамилия) + " " +
СокрЛП(Клиент.Имя) + " " +СокрЛП(Клиент.Отчество) + ", "
+" дата рождения " + Формат(ДатаРождения,"ДЛФ=DD");
СтрАдресКлиента = ", проживающий по адресу " + СокрЛП(АдресРегистрации) + ", именуемый в дальнейшем 'Пациент', с другой стороны, заключили настоящий
Договор о нижеследующем:"; КонецЕсли;
СтрУД = " удостоверение личности " + СокрЛП(ДокументУЛ.Наименование) + " серия: " + Сериядокумента + ", номер: " + НомерДокумента;
166