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

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

Материал из Химсофт Вики
← Предыдущая правкаСледующая правка →
Sidminik (обсуждение | вклад)
Бюрократы, Администраторы интерфейса, Скрывающие, Администраторы
1185 правок
Строка 86: Строка 86:
и данные <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: #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"></syntaxhighlight>
|<syntaxhighlight lang="vb">=GroupIndex() + 1</syntaxhighlight>
 
|-
|Дата, время регистрации
|<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>
|<syntaxhighlight lang="vb">=Fields!date_value.Value.ToString("dd.MM.yyyy hh:mm")</syntaxhighlight>
 
|-
|Шифр пробы
|<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>
|<syntaxhighlight lang="vb">=Fields!code.Value</syntaxhighlight>
 
|-
|Информация о пробе
|<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>
|<syntaxhighlight lang="vb">=Fields!ao_type.Value & vblf & Fields!ao_name.Value & vblf &Fields!sample_source.Value</syntaxhighlight>
 
|-
|Показатель, ед. изм., НД на методику анализа, Дата анализа
|<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>
|<syntaxhighlight lang="vb">=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")</syntaxhighlight>
<syntaxhighlight lang="vb">
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
</syntaxhighlight>
 
|-
|Результат ед. опр.
|<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>
|<syntaxhighlight lang="vb">=Fields!single_result.Value</syntaxhighlight>
 
|-
|Проверка приемлемости (контроль повторяемости) r ≤ rₙ
|<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>
|<syntaxhighlight lang="vb">=Fields!RAZMAH.Value</syntaxhighlight>
 
|-
|Результат анализа, Х ± Δ(U)
|<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>
|<syntaxhighlight lang="vb">=Fields!result_val.Value & "±" & Fields!result_dc.Value</syntaxhighlight>
 
|-
|Норма
|<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>
|<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: #fff3e0;></code> >> <code style="background-color: #fff3e0;> / </code> >> <code style="background-color: #fff3e0;> / </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>
 
|-
|Примечание
|<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>
|<syntaxhighlight lang="vb">=IIF(Not IsNothing(Fields!note.Value), Fields!note.Value, "-")</syntaxhighlight>
|-
|-
|}
|}

Версия от 07:00, 27 января 2026

Параметры

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

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

Атрибуты

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

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

Внимание!

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

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

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

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

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

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

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

Код и комментарии
Название лаборатории Parameters!ReportParameterLaboratory.Value 
=Parameters!ReportParameterLaboratory.Value
Владелец версии Code.Globals.GetVersionOwner() 
="Владелец версии: " & Code.Globals.GetVersionOwner()

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

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

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

Код и комментарии
№ п/п >>

>> / >> / 

=GroupIndex() + 1
Дата, время регистрации >>

>> / >> / 

=Fields!date_value.Value.ToString("dd.MM.yyyy hh:mm")
Шифр пробы >>

>> / >> / 

=Fields!code.Value
Информация о пробе >>

>> / >> / 

=Fields!ao_type.Value & vblf & Fields!ao_name.Value & vblf &Fields!sample_source.Value
Показатель, ед. изм., НД на методику анализа, Дата анализа >>

>> / >> / 

=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
Проверка приемлемости (контроль повторяемости) r ≤ rₙ >>

>> / >> / 

=Fields!RAZMAH.Value
Результат анализа, Х ± Δ(U) >>

>> / >> / 

=Fields!result_val.Value & "±" & Fields!result_dc.Value
Норма >>

>> / >> / 

=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


Ф.И.О. исполнителя >>

>> / >> / 

=IIF(Not IsNothing(Fields!e_surname.Value), Fields!e_surname.Value & " " & Left(Fields!e_name.Value, 1) & "." & Left(Fields!e_patronymic.Value, 1) & ".", "-")
Примечание >>

>> / >> / 

=IIF(Not IsNothing(Fields!note.Value), 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=752