Skip to main content

Основные функции и настройки печатных форм

Электронный документ

  • getEDSInfoFromDoc(ADocId, AField: String; AEDSNumber: Integer) - выводит информацию о ЭЦП

ADocId - ID документа

AField  - выбрается поля для отображения (CN, SN, SURNAME, GIVEN_NAME, DATE_FROM, DATE_TO, DOLGNOST)

SIGNATURE - Сигнатура ЭЦП

DATE_UNLOAD - Дата подписи

CN - Владелец сертификата

SN - Номер сертификата

SURNAME - Фамилия владельца сертификата

GIVEN_NAME - Имя и Отчество владельца сертификата

DATE_FROM - действует сертификата "С"

DATE_TO - действует сертификата "ПО"

SHORTTITLE - ФИО и инициалы подписанта

DOLGNOST (должность))

AEDSNumber = порядковый номер подписи

Пример: getEDSInfoFromDoc('ID', 'SURNAME'; 1);

  • ReturnRegNameFromID (RegName, ID: String; history: boolean; nadpis: boolean = false) - выводит значения заполненного поля, по прописанному в нем регистровому имени

RegName – имя регистра

ID – Идентификатор документа

History – поиск по всей карте

Nadpis – используется в элементе RichText

Пример: ReturnRegNameFromID ('SEMD_DS', <AQ."ID"> ; true; false)

  • ReturnValueFromID (ID, Field, Replace: String) - возвращает заполненное значение поля из других документов

ID - Идентификатор документа

Field - значение поля, которое нужно получить

Replace - формат значения поля, заполняется если в поле Field находится идентификатор

В таблице DOC_RECEPTION (карта пациента), имеется поле 'OPLATA_TYPE' (тип оплаты), которое представлено в виде идентификатора соответствующей таблицы типов оплат. если мы не хотим получить на печати этот идентификатор, а нам нужно конвертировать его в читаемое значение, например 'TITLE' (наименование), то применяется данный параметр

Пример: ReturnValueFromID('Идентификатор карты', 'OPLATA_TYPE', 'TITLE')

Пациент

  • PAT_TITLE (PATIENT_ID:String) - выводит данные о ФИО пациента, аналогичным образом работают и другие функции (кроме функций возраста) данной категории.

PATIENT_ID = Идентификатор пациента

  • PAT_AGE (PATIENT_ID:String; DATEDOC: TDateTime) - выводит данные о возрасте пациента, аналогичным образом работаюет и функциия (кроме функций возраста) данной категории.PAT_AGETEXT.

PATIENT_ID = Идентификатор пациента

DATEDOC: TDateTime = Текущее время, от которого идет счет возраста

Конвертирование

  • DateTimeToStr (e: Extended)

DateTimeToStr = Дата и время в символ

Пример: 12.12.2001 23:00:00 = ’12.12.2001 23:00:00’

  • StrToDateTime (s: String)

StrToDateTime обратная функция DateTimeToStr

Пример: ‘12.12.2001 23:00:00’ = 12.12.2001 23:00:00

  • DateToStr (e: Extended)

DateToStr = Дата в символ

Пример: 12.12.2001 = ’12.12.2001’

  • StrToDate (s: String)

StrToDate обратная функция DateToStr

Пример: ‘12.12.2001’ = 12.12.2001

  • FloatToStr (e: Extended)

FloatToStr = Дробное число в символы

Пример: 12,5 = ’12,5’

  • StrToFloat (s: String)

StrToFloat обратная функция FloatToStr

Пример: ‘12,5’ = 12,5

  • IntToStr (i: Integer)

IntToStr  = Целое число в символ

Пример: 12 = ‘12’

  • StrToInt (s: String)

StrToInt обратная функция IntToStr

Пример: ‘12’ = 12

  • TimeToStr (e: Extended)

TimeToStr = Время в символ

Пример: 23:00 = ‘23:00’

  • StrToTime (s: String)

StrToTime обратная функция TimeToStr

Пример: ‘23:00’ = 23:00

Строки

  • Copy (s: String; from, count: Integer)

Возвращает подстроку

  • Pos (substr, s: String)

Возвращает значение, работает только с элементами (галочки или переключатели)

  • Lowercase (s: String)

Конвертирует все символы строки в нижний регистр

Пример: «СТРОКА» = «строка»

  • Uppercase (s: String)

Обратная функция Lowercase

Пример: «строка» = «СТРОКА»

Медицина ИТ

  • MakePadeg (Str, NumPage: Variant)

Склонение текста по падежам

NumPage - номер падежа

Пример:  И.п - "вопрос", Р.п - "вопроса"

  • ReturnAppointmentPadeg (Dep: String; NumPage: Integer)

Приводит дожность в нужный падеж

Dep = Должность

Пример: И.п "Генерал"- Р.п "Генерала"

  • ReturnFIOFromReport (FIO: Variant)

Формат текста в виду Фамилия И.О

Пример: 'Иванов Иван Иванович' = 'Иванов И.И'

  • ReturnIO_FAM_PAGE (FAM, IM, OT: String; NumPage: Integer)

ФИО в формате И.О в падеже

Пример: 'Иванова Ивана Ивановича' ='Ивана Ивановича'

  • ReturnFameIO_NotPointFromReport (FIO: Variant)

Формат текста к виду Фамилия И О

Пример: 'Иванов Иван Иванович' = 'Иванов И И'


Back to top