Сводный журнал результатов анализов

Общий вид

Параметры

В форме используются 5 фильтров параметров:

№	Параметр	Тип поля	Данные	Сортировка
1	Выберите лабораторию:	выбор одного значения	лаборатории, имеющие записи в журналах	по алфавиту
2	Выберите источники анализа:	выбор нескольких значений	источники анализа, относящиеся к выбранной лаборатории (п.1)	по алфавиту
3	Выберите объекты анализа:	выбор нескольких значений	объекты анализа, относящиеся к выбранному источнику (п.2)	по алфавиту
4	Дата начала:	ввод или выбор даты	начало периода (включительно)	-
5	Дата завершения:	ввод или выбор даты	конец периода (включительно)	-

Внимание!

При использовании в параметре множественных значений (Multivalue) и множественном выборе в SQL в качестве значений для фильтра WHERE (независимо от типа данных в параметре - и String, и Integer) будет передаваться плоская строка со значениями через запятую, которая будет интерпретироваться SQL как набор литералов.

Сравнение будет проводиться по схеме "поиск строки в наборе строк").

Для корректной работы блок WHERE в SQL должен выглядеть так:

WHERE ssf."CHILD_ID"::text IN (@ss_id) 
    AND ao."ID"::text IN (@ao_id)

Внимание!

В параметре Дата завершения в принимаемой колонке date_value хранятся не только даты, но и время (тип данных Timestamp). При этом устанавливается Дата завершения 00:00:00, то есть несмотря на символ <= по сути параметр принимает значение "не включая".

Чтобы «захватить» весь последний день целиком нужно добавить один день.

Для корректной работы условие в блоке WHERE в SQL должно выглядеть так:

attribute_jrecord_cte.date_value <= (@end_date::Date + interval '1 day')

Атрибуты

В наборе данных MainDataSet в таблице ATTRIBUTE_NAME используются атрибуты со следующими значениями NAME:

• Дата и время отбора пробы
• Номер пробы
• Примечание для журнала

Внимание!

Описание атрибутов приведено в соответствии с базой данных ASTRA-PG13 на основе созданных пользователем полей.

В других базах этих полей может не быть либо их наименование может отличаться!!!

Отсутствующие в базе атрибуты не будут выводиться в документе. Для корректной работы документа актуализируйте атрибуты в соответствии с приведенным списком.

Поля, данные, выражения, элементы интерфейса и код

Верхний колонтитул

Поля	Интерфейс ... >> ... и данные ... >> ...	Код и комментарии
Название лаборатории	Parameters!ReportParameterLaboratory.Label	=Parameters!ReportParameterLaboratory.Label
Владелец версии	Code.Globals.GetVersionOwner()	="Владелец версии: " & Code.Globals.GetVersionOwner()

Заголовок

Поля	Интерфейс ... >> ... и данные ... >> ...	Код и комментарии
Сводный журнал результатов анализов
Текущая дата	Today.ToString("dd.MM.yyyy")	="По состоянию на: " & Today.ToString("dd.MM.yyyy")

Основная информация

Поля	Интерфейс ... >> ... и данные ... >> ...	Код и комментарии
№ п/п	GroupIndex()	=GroupIndex() + 1 для объединения одинаковых ячеек по вертикали (№п/п, дата и время и др.) создана группа на основе поля date_value; сама группировка в таблице не отображается (в настройках таблицы отключены значения Include group header и Include group footer), но позволяет нумеровать строки по группам (фактически - по паре "дата-время")
Дата, время регистрации	Лабораторные журналы >> Выбрать подразделение >> Выбрать запись >> Результаты >> Дата и время отбора пробы Fields!date_value.Value >> date_value / MainDataSet >> DATE_VALUE / JOURNAL_RESULT_ATTRIBUTE	=Format(Fields!date_value.Value, "dd.MM.yyyy hh:mm")
Шифр пробы	Лабораторные журналы >> Выбрать подразделение >> Выбрать запись >> Редактировать >> Журнал регистрации проб и результатов испытаний >> Информация >> Номер пробы Fields!code.Value >> code / MainDataSet >> STRING_VALUE / JOURNAL_RECORD_ATTRIBUTE	=GetOrDash(Fields!code.Value) используется функция GetOrDash()
Информация о пробе	Объекты анализа >> Тип и Наименование Источники проб >> Выбрать запись >> Редактировать >> Полное наименование Fields!ao_type.Value >> ao_type / MainDataSet >> NAME / CATALOG_RECORD_TYPE Fields!ao_name.Value >> ao_name / MainDataSet >> NAME / ANALYSIS_OBJECT Fields!sample_source >> sample_source / MainDataSet >> FULL_NAME / SAMPLE_SOURCE	=ConcatFields(vblf, Fields!ao_type.Value, Fields!ao_name.Value, Fields!ss_name.Value) используется функция ConcatFields()
Показатель, ед. изм., НД на методику анализа, Дата анализа	Лабораторные журналы >> Выбрать подразделение >> Выбрать запись >> Результаты >> Показатель; Методика анализа; Дата и время отбора пробы Fields!ind_meth_name.Value >> ind_meth_name / MainDataSet >> INDICATOR_METHODOLOGY_NAME / METHODOLOGY_INDICATOR Fields!unit.Value >> unit / MainDataSet >> HTML_NAME / UNIT Fields!norm_document.Value >> norm_document / MainDataSet >> NORMATIVE_DOCUMENT / METHODOLOGY Fields!date_value.Value >> date_value / MainDataSet >> DATE_VALUE / JOURNAL_RESULT_ATTRIBUTE	=Fields!ind_meth_name.Value & ", " & Code.RemoveTagsSimple(Fields!unit.Value) & vbLF & Fields!norm_document.Value & vbLF & Fields!date_value.Value.ToString("dd.MM.yyyy hh:mm") используется функция RemoveTagsSimple()
Результат ед. опр.	Лабораторные журналы >> Выбрать подразделение >> Выбрать запись >> Результаты >> Выбрать показатель >> Раскрыть >> Результат измерения Fields!single_result.Value >> single_result / MainDataSet >> RESULT / JRPARALLEL	=GetOrDash(Fields!single_result.Value) используется функция GetOrDash()
Проверка приемлемости (контроль повторяемости) r ≤ rₙ	>> >> / >> /	=GetOrDash(Fields!acceptable.Value) используется функция GetOrDash()
Результат анализа, Х ± Δ(U)	Лабораторные журналы >> Выбрать подразделение >> Выбрать запись >> Результаты >> Результат; Показатель точности Fields!result_val.Value; Fields!result_dc.Value >> result_val; result_dc / MainDataSet >> AVG_R; DC / JOURNAL_RESULT	=GetOrDash(ConcatFields("±", Fields!result_val.Value, Fields!result_dc.Value)) используются функции: ConcatFields() GetOrDash()
Норма	Лабораторные журналы >> Выбрать подразделение >> Выбрать запись >> Результаты >> Норма Fields!min.Value; Fields!max.Value >> min; max / MainDataSet >> LOWER_LIMIT; UPPER_LIMIT / QUANTITATIVE_NORM	=Code.NormProcessing(Fields!min.Value, Fields!max.Value) Function NormProcessing(ByVal min As String, ByVal max As String) As String Dim result As String = "" Dim hasMin As Boolean = Not String.IsNullOrEmpty(min) AndAlso min <> "0" Dim hasMax As Boolean = Not String.IsNullOrEmpty(max) AndAlso max <> "0" If hasMin And hasMax Then result = min & "-" + max Else If hasMin Then result = "≥" & min Else If hasMax Then result = "≤" & max Else result = "-" End If Return result End Function
Ф.И.О. исполнителя	Лабораторные журналы >> Выбрать подразделение >> Выбрать запись >> Результаты >> Исполнитель Fields!e_surname.Value; Fields!e_name.Value; Fields!e_patronymic.Value >> e_surname; e_name; e_patronymic / MainDataSet >> SURNAME; NAME; PATRONYMIC / EMPLOYEE	=FormatFio(Fields!surname.Value, Fields!name.Value, Fields!patronymic.Value, 1) используется функция FormatFio()
Примечание	Лабораторные журналы >> Выбрать подразделение >> Выбрать запись >> Результаты >> Примечание Fields!note.Value >> note / MainDataSet >> STRING_VALUE / JOURNAL_RESULT_ATTRIBUTE	=GetOrDash(Fields!note.Value) используется функция GetOrDash()

Нижний колонтитул

Поля	Интерфейс ... >> ... и данные ... >> ...	Код и комментарии
Имя программы	Code.Globals.GetProgramName()	=Code.Globals.GetProgramName()
Нумерация страниц	Номер страницы Globals!PageNumber и всего страниц Globals!TotalPages	="Страница " & Globals!PageNumber & " из " & Globals!TotalPages