Перейти к содержанию

Сводный журнал результатов анализов: различия между версиями

Материал из Химсофт Вики
← Предыдущая правкаСледующая правка →
Sidminik (обсуждение | вклад)
Бюрократы, Администраторы интерфейса, Скрывающие, Администраторы
2323 правки
Строка 123: Строка 123:
|<code style="background-color: #d4edda;>Лабораторные журналы</code> >> Выбрать подразделение >> Выбрать запись >> <code style="background-color: #d4edda;>Результаты</code> >> <code style="background-color: #d4edda;>Дата и время отбора пробы</code>
|<code style="background-color: #d4edda;>Лабораторные журналы</code> >> Выбрать подразделение >> Выбрать запись >> <code style="background-color: #d4edda;>Результаты</code> >> <code style="background-color: #d4edda;>Дата и время отбора пробы</code>
<code style="background-color: #fff3e0;>Fields!date_value.Value</code> >> <code style="background-color: #fff3e0;>date_value /  MainDataSet</code> >> <code style="background-color: #fff3e0;>DATE_VALUE / JOURNAL_RESULT_ATTRIBUTE</code>
<code style="background-color: #fff3e0;>Fields!date_value.Value</code> >> <code style="background-color: #fff3e0;>date_value /  MainDataSet</code> >> <code style="background-color: #fff3e0;>DATE_VALUE / JOURNAL_RESULT_ATTRIBUTE</code>
|<syntaxhighlight lang="vb">=Fields!date_value.Value.ToString("dd.MM.yyyy hh:mm")</syntaxhighlight>
|<syntaxhighlight lang="vb">=Format(Fields!date_value.Value, "dd.MM.yyyy hh:mm")</syntaxhighlight>
|-
|-
|Шифр пробы
|Шифр пробы
Строка 136: Строка 136:
<code style="background-color: #fff3e0;>Fields!ao_name.Value</code> >> <code style="background-color: #fff3e0;>ao_name / MainDataSet</code> >> <code style="background-color: #fff3e0;>NAME / ANALYSIS_OBJECT</code>
<code style="background-color: #fff3e0;>Fields!ao_name.Value</code> >> <code style="background-color: #fff3e0;>ao_name / MainDataSet</code> >> <code style="background-color: #fff3e0;>NAME / ANALYSIS_OBJECT</code>
<code style="background-color: #fff3e0;>Fields!sample_source</code> >> <code style="background-color: #fff3e0;>sample_source / MainDataSet</code> >> <code style="background-color: #fff3e0;>FULL_NAME / SAMPLE_SOURCE</code>
<code style="background-color: #fff3e0;>Fields!sample_source</code> >> <code style="background-color: #fff3e0;>sample_source / MainDataSet</code> >> <code style="background-color: #fff3e0;>FULL_NAME / SAMPLE_SOURCE</code>
|<syntaxhighlight lang="vb">=Fields!ao_type.Value & vblf & Fields!ao_name.Value & vblf & Fields!sample_source.Value</syntaxhighlight>
|<syntaxhighlight lang="vb">=ConcatFields(vblf, Fields!ao_type.Value, Fields!ao_name.Value, Fields!ss_name.Value)</syntaxhighlight>
|-
|-
|Показатель, ед. изм., НД на методику анализа, Дата анализа
|Показатель, ед. изм., НД на методику анализа, Дата анализа
Строка 161: Строка 161:
|<code style="background-color: #d4edda;>Лабораторные журналы</code> >> Выбрать подразделение >> Выбрать запись >> <code style="background-color: #d4edda;>Результаты</code> >> Выбрать показатель >> Раскрыть >> <code style="background-color: #d4edda;>Результат измерения</code>
|<code style="background-color: #d4edda;>Лабораторные журналы</code> >> Выбрать подразделение >> Выбрать запись >> <code style="background-color: #d4edda;>Результаты</code> >> Выбрать показатель >> Раскрыть >> <code style="background-color: #d4edda;>Результат измерения</code>
<code style="background-color: #fff3e0;>Fields!single_result.Value</code> >> <code style="background-color: #fff3e0;>single_result / MainDataSet</code> >> <code style="background-color: #fff3e0;>RESULT / JRPARALLEL</code>
<code style="background-color: #fff3e0;>Fields!single_result.Value</code> >> <code style="background-color: #fff3e0;>single_result / MainDataSet</code> >> <code style="background-color: #fff3e0;>RESULT / JRPARALLEL</code>
|<syntaxhighlight lang="vb">=Fields!single_result.Value</syntaxhighlight>
|<syntaxhighlight lang="vb">=GetOrDash(Fields!single_result.Value)</syntaxhighlight>


|-
|-
Строка 167: Строка 167:
|<code style="background-color: #d4edda;></code> >> <code style="background-color: #d4edda;></code>
|<code style="background-color: #d4edda;></code> >> <code style="background-color: #d4edda;></code>
<code style="background-color: #fff3e0;></code> >> <code style="background-color: #fff3e0;> / </code> >> <code style="background-color: #fff3e0;> / </code>
<code style="background-color: #fff3e0;></code> >> <code style="background-color: #fff3e0;> / </code> >> <code style="background-color: #fff3e0;> / </code>
|<syntaxhighlight lang="vb">=Fields!RAZMAH.Value</syntaxhighlight>
|<syntaxhighlight lang="vb">=GetOrDash(Fields!acceptable.Value)</syntaxhighlight>
|-
|-
|Результат анализа, Х ± Δ(U)
|Результат анализа, Х ± Δ(U)
|<code style="background-color: #d4edda;>Лабораторные журналы</code> >> Выбрать подразделение >> Выбрать запись >> <code style="background-color: #d4edda;>Результаты</code> >> <code style="background-color: #d4edda;>Результат</code>; <code style="background-color: #d4edda;>Показатель точности</code>
|<code style="background-color: #d4edda;>Лабораторные журналы</code> >> Выбрать подразделение >> Выбрать запись >> <code style="background-color: #d4edda;>Результаты</code> >> <code style="background-color: #d4edda;>Результат</code>; <code style="background-color: #d4edda;>Показатель точности</code>
<code style="background-color: #fff3e0;>Fields!result_val.Value; Fields!result_dc.Value</code> >> <code style="background-color: #fff3e0;>result_val; result_dc / MainDataSet</code> >> <code style="background-color: #fff3e0;>AVG_R; DC / JOURNAL_RESULT</code>
<code style="background-color: #fff3e0;>Fields!result_val.Value; Fields!result_dc.Value</code> >> <code style="background-color: #fff3e0;>result_val; result_dc / MainDataSet</code> >> <code style="background-color: #fff3e0;>AVG_R; DC / JOURNAL_RESULT</code>
|<syntaxhighlight lang="vb">=Fields!result_val.Value & "±" & Fields!result_dc.Value</syntaxhighlight>
|<syntaxhighlight lang="vb">=GetOrDash(ConcatFields("±", Fields!result_val.Value, Fields!result_dc.Value))</syntaxhighlight>
|-
|-
|Норма
|Норма
Строка 178: Строка 178:
<code style="background-color: #fff3e0;>Fields!min.Value; Fields!max.Value</code> >> <code style="background-color: #fff3e0;>min; max / MainDataSet</code> >> <code style="background-color: #fff3e0;>LOWER_LIMIT; UPPER_LIMIT / QUANTITATIVE_NORM</code>
<code style="background-color: #fff3e0;>Fields!min.Value; Fields!max.Value</code> >> <code style="background-color: #fff3e0;>min; max / MainDataSet</code> >> <code style="background-color: #fff3e0;>LOWER_LIMIT; UPPER_LIMIT / QUANTITATIVE_NORM</code>
|<syntaxhighlight lang="vb">=Code.NormProcessing(Fields!min.Value, Fields!max.Value)</syntaxhighlight>
|<syntaxhighlight lang="vb">=Code.NormProcessing(Fields!min.Value, Fields!max.Value)</syntaxhighlight>
<syntaxhighlight lang="vb">
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
</syntaxhighlight>
|-
|-
|Ф.И.О. исполнителя
|Ф.И.О. исполнителя
|<code style="background-color: #d4edda;>Лабораторные журналы</code> >> Выбрать подразделение >> Выбрать запись >> <code style="background-color: #d4edda;>Результаты</code> >> <code style="background-color: #d4edda;>Исполнитель</code>
|<code style="background-color: #d4edda;>Лабораторные журналы</code> >> Выбрать подразделение >> Выбрать запись >> <code style="background-color: #d4edda;>Результаты</code> >> <code style="background-color: #d4edda;>Исполнитель</code>
<code style="background-color: #fff3e0;>Fields!e_surname.Value; Fields!e_name.Value; Fields!e_patronymic.Value</code> >> <code style="background-color: #fff3e0;>e_surname; e_name; e_patronymic / MainDataSet</code> >> <code style="background-color: #fff3e0;>SURNAME; NAME; PATRONYMIC / EMPLOYEE</code>
<code style="background-color: #fff3e0;>Fields!e_surname.Value; Fields!e_name.Value; Fields!e_patronymic.Value</code> >> <code style="background-color: #fff3e0;>e_surname; e_name; e_patronymic / MainDataSet</code> >> <code style="background-color: #fff3e0;>SURNAME; NAME; PATRONYMIC / EMPLOYEE</code>
|<syntaxhighlight lang="vb">=IIF(Not IsNothing(Fields!e_surname.Value), Fields!e_surname.Value & " " & Left(Fields!e_name.Value, 1) & "." & Left(Fields!e_patronymic.Value, 1) & ".", "-")</syntaxhighlight>
|<syntaxhighlight lang="vb">=FormatFio(Fields!surname.Value, Fields!name.Value, Fields!patronymic.Value, 1)</syntaxhighlight>
 
|-
|-
|Примечание
|Примечание
|<code style="background-color: #d4edda;>Лабораторные журналы</code> >> Выбрать подразделение >> Выбрать запись >> <code style="background-color: #d4edda;>Результаты</code> >> <code style="background-color: #d4edda;>Примечание</code>
|<code style="background-color: #d4edda;>Лабораторные журналы</code> >> Выбрать подразделение >> Выбрать запись >> <code style="background-color: #d4edda;>Результаты</code> >> <code style="background-color: #d4edda;>Примечание</code>
<code style="background-color: #fff3e0;>Fields!note.Value</code> >> <code style="background-color: #fff3e0;>note / MainDataSet</code> >> <code style="background-color: #fff3e0;>STRING_VALUE / JOURNAL_RESULT_ATTRIBUTE</code>
<code style="background-color: #fff3e0;>Fields!note.Value</code> >> <code style="background-color: #fff3e0;>note / MainDataSet</code> >> <code style="background-color: #fff3e0;>STRING_VALUE / JOURNAL_RESULT_ATTRIBUTE</code>
|<syntaxhighlight lang="vb">=IIF(Not IsNothing(Fields!note.Value), Fields!note.Value, "-")</syntaxhighlight>
|<syntaxhighlight lang="vb">=GetOrDash(Fields!note.Value)</syntaxhighlight>
|-
|-
|}
|}

Версия от 07:49, 5 марта 2026

Параметры

В форме используются 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()

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

Поля Интерфейс ... >> ...

и данные ... >> ...

Код и комментарии
№ п/п 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 

=Fields!code.Value
Информация о пробе Объекты анализа >> Тип и Наименование

Источники проб >> Выбрать запись >> Редактировать >> Полное наименование 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)
Показатель, ед. изм., НД на методику анализа, Дата анализа Лабораторные журналы >> Выбрать подразделение >> Выбрать запись >> Результаты >> Показатель; Методика анализа; Дата и время отбора пробы

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")

Function RemoveTagsSimple(ByVal input As String) As String
	Dim tags() As String = {"<span>", "</span>", "<sub>", "</sub>", "<sup>", "</sup>"}
	Dim txt As String = input
    
	For Each tag As String In tags
		txt = Replace(txt, tag, "", , , CompareMethod.Text)
	Next
    
	Return txt
End Function
Результат ед. опр. Лабораторные журналы >> Выбрать подразделение >> Выбрать запись >> Результаты >> Выбрать показатель >> Раскрыть >> Результат измерения

Fields!single_result.Value >> single_result / MainDataSet >> RESULT / JRPARALLEL 

=GetOrDash(Fields!single_result.Value)
Проверка приемлемости (контроль повторяемости) r ≤ rₙ >>

>> / >> / 

=GetOrDash(Fields!acceptable.Value)
Результат анализа, Х ± Δ(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))
Норма Лабораторные журналы >> Выбрать подразделение >> Выбрать запись >> Результаты >> Норма

Fields!min.Value; Fields!max.Value >> min; max / MainDataSet >> LOWER_LIMIT; UPPER_LIMIT / QUANTITATIVE_NORM 

=Code.NormProcessing(Fields!min.Value, Fields!max.Value)
Ф.И.О. исполнителя Лабораторные журналы >> Выбрать подразделение >> Выбрать запись >> Результаты >> Исполнитель

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)
Примечание Лабораторные журналы >> Выбрать подразделение >> Выбрать запись >> Результаты >> Примечание

Fields!note.Value >> note / MainDataSet >> STRING_VALUE / JOURNAL_RESULT_ATTRIBUTE 

=GetOrDash(Fields!note.Value)

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

Поля Интерфейс ... >> ...

и данные ... >> ...

Код и комментарии
Имя программы Code.Globals.GetProgramName() 
=Code.Globals.GetProgramName()
Нумерация страниц Номер страницы Globals!PageNumber и всего страниц Globals!TotalPages 
="Страница " & Globals!PageNumber & " из " & Globals!TotalPages
Источник — https://wiki.chemsoft.ru/index.php?title=Сводный_журнал_результатов_анализов&oldid=1665