Skip to main content

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

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

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

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

AField  - выбрать что нужно вывести (CN, SN, SURNAME, GIVEN_NAME, DATE_FROM, DATE_TO, DOLGNOST)*

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

*

CN (ФИОВладелец сертификата),

SN (Номер сертификод подписиата),

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

GIVEN_NAME (И.О.),

DATE_FROM (дата действия с),

DATE_TO (дата действия по),

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)

пример передачи

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

ID = Идентификатор

Field = поле, которое нужно получить

Replace = поле, если в поле Field находится идентификатор

расшифровка примера

'Идентификатор карты' = Идентификатор из таблицы DOC_RECEPTION

'OPLATA_TYPE' = Поле таблицы DOC_RECEPTION, в котором находится идентификатор другой таблицы (в нашем случае REF_OPLATA_TYPE)

'TITLE' = Поле таблицы REF_OPLATA_TYPE, которое мы получили по полю 'OPLATA_TYPE'

Пациент

  • PAT_TITLE (PATIENT_ID:String)

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

  • PAT_AGE (PATIENT_ID:String; DATEDOC: TDateTime)

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