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преобразует = Ддатау и время в символ

e: Extended - Дата и время

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

  • StrToDateTime (s: String) - преобразует символ в дату и время

StrToDateTimes: String - стробркатная функц/сия DateTimeToStrмвол

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

  • DateToStr (e: Extended)
-

DateToStrпреобразует = Ддатау в символ

e: Extended - Дата

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

  • StrToDate (s: String) - преобразует символ в дату

StrToDates: String - стробркатная функц/сия DateToStrмвол

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

  • FloatToStr (e: Extended)
-

FloatToStrпреобразует = Ддробное число в символы

e: Extended - Дробное число

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

  • StrToFloat (s: String) - преобразует символ в дробное число

StrToFloats: String - стробркатная функц/сия FloatToStr мвол

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

  • IntToStr (i: Integer)
-

IntToStrпреобразует  = Ццелое число в символ

i: Integer - Целое число

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

  • StrToInt (s: String) - преобразует символ в целое число

StrToInts: String - стробркатная функц/сия IntToStrмвол

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

  • TimeToStr (e: Extended)
-

TimeToStrпреобразует = Ввремя в символ

e: Extended - время

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

  • StrToTime (s: String) - преобразует символ в время

StrToTimes: String - стробркатная функц/сия 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