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

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

Материал из Химсофт Вики
← Предыдущая правкаСледующая правка →
Sidminik (обсуждение | вклад)
Бюрократы, Администраторы интерфейса, Скрывающие, Администраторы
1185 правок
Строка 172: Строка 172:
!Код и комментарии
!Код и комментарии
|-
|-
|Наименование||-||<syntaxhighlight lang="vb">=Fields!res_name.Value</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>
|<syntaxhighlight lang="vb">=Fields!res_name.Value</syntaxhighlight>
|-
|-
|Тип обслуживания||-||<syntaxhighlight lang="vb">=Fields!res_service_type.Value</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>
|<syntaxhighlight lang="vb">=Fields!res_service_type.Value</syntaxhighlight>
|-
|-
|Заводской номер||-||<syntaxhighlight lang="vb">=Fields!res_number.Value</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>
|<syntaxhighlight lang="vb">=Fields!res_number.Value</syntaxhighlight>
|-
|-
|Сведения о поверке/аттестации||-||<syntaxhighlight lang="vb">=IIF(Fields!res_type.Value = "Средство измерений", "свидетельство о поверке № " & Fields!res_service_doc.Value & " до " & Format(Fields!res_service_date.Value, "dd.MM.yyyy", "номер документа об аттестации № ")</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: #d4edda;>Дата след</code>
|<syntaxhighlight lang="vb">=IIF(Fields!res_type.Value = "Средство измерений", "свидетельство о поверке № " & Fields!res_service_doc.Value & " до " & Format(Fields!res_service_date.Value, "dd.MM.yyyy", "номер документа об аттестации № ")</syntaxhighlight>
|-
|-
|}
|}

Версия от 07:51, 21 января 2026

Параметры

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

№ Параметр Тип поля Данные Сортировка
1 Выберите лабораторию: выбор значения лаборатории, имеющие записи в журналах по алфавиту
2 Выберите год: выбор значения года, в которых в лаборатории (п.1) вносились записи в журналах по убыванию
3 Выберите номер пробы: выбор значения дата отбора пробы за год (п.2) и номер отбора пробы для лаборатории (п.1) по убыванию даты
4 Введите номер протокола: ввод текста 1 (значение по умолчанию) -
5 Выводить сведения об оборудовании? выбор значения
  • Да - в протоколе испытаний будет выведена Таблица 1 "Сведения о применяемом оборудовании" (наименование, тип обслуживания, заводской номер и сведения о поверке/аттестации), при этом "Результаты испытаний" будут выведены в Таблице 2;
  • Нет - в протоколе испытаний "Сведения о применяемом оборудовании" выводится не будут; нумерация таблиц автоматически изменится и "Результаты испытаний" будут выведены в Таблице 1
 -
6 Должность сотрудника 1, подписывающего протокол: выбор значения должности лаборатории (п.1) по алфавиту
7 ФИО сотрудника 1, подписывающего протокол: выбор значения сотрудники, имеющие должность (п.6) по алфавиту
8 Должность сотрудника 2, подписывающего протокол: выбор значения должности лаборатории (п.1) по алфавиту
9 ФИО сотрудника 2, подписывающего протокол: выбор значения сотрудники, имеющие должность (п.6) по алфавиту
10 Укажите дату формирования протокола: поле-календарь текущая дата (значение по умолчанию) -

Атрибуты

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

  1. В наборе данных MainDataSet:
    • Цель проведения испытаний
    • Дата и время отбора пробы
    • Номер акта отбора проб
    • Номер пробы
    • Номер баллона
    • НД на отбор проб
    • Основние для испытаний
    • Примечание для протокола
    • Полное наименование
    • Поставщик/Заказчик
  2. В наборе данных OrgInfoDataSet:
    • Официальное наименование лаборатории
    • Адрес
    • Телефоны
    • Аттестат аккредитации

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

Общая информация

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

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

Код и комментарии
Наименование организации Подразделения предприятия >> Наименование основного предприятия

Fields!head_org.Value >> head_org / OrgInfoDataSet >> SHORT_NAME / COMPANY_LEVEL 

=First(Fields!head_org.Value, "OrgInfoDataSet")
Наименование филиала Подразделения предприятия >> Развернуть >> Выбрать подразделение >> Редактировать >> Карточка подразделения >> Официальное наименование лаборатории

Fields!filial_name.Value >> filial_name / OrgInfoDataSet >> STRING_VALUE / COMPANY_LEVEL_ATTRIBUTE 

=First(Fields!filial_name.Value, "OrgInfoDataSet")
Наименование лаборатории Подразделения предприятия >> Развернуть >> Выбрать подразделение >> Редактировать >> Карточка подразделения >> Тип уровня

Fields!filial_type.Value >> filial_type / OrgInfoDataSet >> NAME / CATALOG_RECORD_TYPE 

=First(Fields!filial_type.Value, "OrgInfoDataSet")
Адрес, контакты Подразделения предприятия >> Развернуть >> Выбрать подразделение >> Редактировать >> Карточка подразделения >> Адрес и Телефоны

Fields!filial_address.Value >> filial_address / OrgInfoDataSet >> STRING_VALUE / COMPANY_LEVEL_ATTRIBUTE
Fields!filial_phone.Value >> filial_phone / OrgInfoDataSet >> STRING_VALUE / COMPANY_LEVEL_ATTRIBUTE 

=First(Fields!filial_address.Value, "OrgInfoDataSet") & ", тел\факс\эл.адрес: " & First(Fields!filial_phone.Value, "OrgInfoDataSet")
Аттестат аккредитации Подразделения предприятия >> Развернуть >> Выбрать подразделение >> Редактировать >> Карточка подразделения >> Аттестат аккредитации

Fields!filial_certificate.Value >> filial_certificate / OrgInfoDataSet >> VALUE / LONGTEXT_STORAGE 

="Аттестат аккредитации " & First(Fields!filial_certificate.Value, "OrgInfoDataSet")
Заголовок ПРОТОКОЛ ИСПЫТАНИЙ
Номер и дата протокола Подстановка номера из параметра ReportParameterNumber и даты из параметра ReportParameterDate 
="№ " & Parameters!ReportParameterNumber.Value & " от " & Parameters!ReportParameterDate.Value

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

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

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

Код и комментарии
1. Наименование объекта испытаний: Объекты анализа >> Выбрать объект >> Редактировать >> Карточка объекта анализа >> Полное наименование

Fields!ao_full_name.Value >> ao_full_name / MainDataSet >> STRING_VALUE / JOURNAL_RECORD_ATTRIBUTE 

="1. Наименование объекта испытаний: " & Fields!ao_full_name.Value
2. Цель испытаний: Лабораторные журналы >> Выбрать подразделение >> Выбрать запись >> Редактировать >> Журнал регистрации проб и результатов испытаний >> Информация >> Цель проведения испытаний

Fields!target.Value >> target / MainDataSet >> STRING_VALUE / JOURNAL_RECORD_ATTRIBUTE 

="2. Цель испытаний: " &  Fields!target.Value
3. Место отбора проб: Fields!sample_source.Value >> sample_source / MainDataSet >> FULL_NAME / SAMPLE_SOURCE 
="3. Место отбора проб: " & Fields!sample_source.Value
4. Дата и время отбора пробы: Лабораторные журналы >> Выбрать подразделение >> Выбрать запись >> Редактировать >> Журнал регистрации проб и результатов испытаний >> Информация >> Дата и время отбора пробы

Fields!date_value.Value >> date_value / MainDataSet >> DATE_VALUE/ JOURNAL_RECORD_ATTRIBUTE 

="4. Дата и время отбора пробы: " & Format(Fields!date_value.Value, "dd.MM.yyyy") & ", " & Format(Fields!date_value.Value, "HH:mm")
5. Номер акта отбора проб и номер баллона: Лабораторные журналы >> Выбрать подразделение >> Выбрать запись >> Редактировать >> Журнал регистрации проб и результатов испытаний >> Информация >> Номер акта отбора проб и Номер баллона

Fields!act_num.Value >> act_num / MainDataSet >> STRING_VALUE / JOURNAL_RECORD_ATTRIBUTE
Fields!num_ballon.Value >> num_ballon / MainDataSet >> STRING_VALUE / JOURNAL_RECORD_ATTRIBUTE 

="5. Номер акта отбора проб и номер баллона: " & Fields!act_num.Value & ", " & Fields!num_ballon.Value
6. НД на отбор проб: Лабораторные журналы >> Выбрать подразделение >> Выбрать запись >> Редактировать >> Журнал регистрации проб и результатов испытаний >> Информация >> НД на отбор проб

Fields!doc_sample.Value >> doc_sample / MainDataSet >> STRING_VALUE / JOURNAL_RECORD_ATTRIBUTE 

="6. НД на отбор проб: " & Fields!doc_sample.Value
7. Шифр пробы: Лабораторные журналы >> Выбрать подразделение >> Выбрать запись >> Редактировать >> Журнал регистрации проб и результатов испытаний >> Информация >> Номер пробы

Fields!code.Value >> code / MainDataSet >> STRING_VALUE / JOURNAL_RECORD_ATTRIBUTE 

="7. Шифр пробы: " & Fields!code.Value
8. Заказчик: Лабораторные журналы >> Выбрать подразделение >> Выбрать запись >> Редактировать >> Журнал регистрации проб и результатов испытаний >> Информация >> Поставщик/Заказчик

Fields!supplier_customer.Value >> supplier_customer / MainDataSet >> STRING_VALUE / JOURNAL_RECORD_ATTRIBUTE 

="8. Заказчик: " & First(Fields!head_org.Value, "OrgInfoDataSet")
9. Основание для испытаний: Лабораторные журналы >> Выбрать подразделение >> Выбрать запись >> Редактировать >> Журнал регистрации проб и результатов испытаний >> Информация >> Основание для испытаний

Fields!basis.Value >> basis / MainDataSet >> STRING_VALUE / JOURNAL_RECORD_ATTRIBUTE 

="9. Основание для испытаний: " & Fields!basis.Value
10. Дата проведения испытания:
11. Примечание: Лабораторные журналы >> Выбрать подразделение >> Выбрать запись >> Редактировать >> Журнал регистрации проб и результатов испытаний >> Информация >> Примечание для протокола

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

="11. Примечание: " & Fields!note.Value
12. Результаты проведения испытаний приведены в таблице Значение номера таблицы зависит от выбора параметра Parameters!ReportParameterDevice.Value 
="12. Результаты проведения испытаний приведены в таблице " & IIF(Parameters!ReportParameterDevice.Value = False, 2, 1)

Сведения о применяемом оборудовании

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

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

Код и комментарии
Наименование Ресурсы >> Оборудование >> Выбор записи >> Редактировать >> Карточка оборудования >> Наименование 
=Fields!res_name.Value
Тип обслуживания Ресурсы >> Обслуживание оборудования >> Выбор записи >> Редактировать >> Основная форма >> Тип обслуживания 
=Fields!res_service_type.Value
Заводской номер Ресурсы >> Оборудование >> Выбор записи >> Редактировать >> Карточка оборудования >> Заводской номер 
=Fields!res_number.Value
Сведения о поверке/аттестации Ресурсы >> Обслуживание оборудования >> Выбор записи >> Редактировать >> Основная форма >> Тип обслуживания и Номер документа и Дата след 
=IIF(Fields!res_type.Value = "Средство измерений", "свидетельство о поверке № " & Fields!res_service_doc.Value & " до " & Format(Fields!res_service_date.Value, "dd.MM.yyyy", "номер документа об аттестации № ")

Результаты испытаний

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

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

Код и комментарии
Наименование показателя - 
=Fields!ind_meth_name.Value
Единица измерения - 
="<style>" + "body {font-family: 'Times New Roman', Times, serif; font-size: 10pt;  margin-top: 1px;  margin-right: 3px;  margin-bottom: 1px;  margin-left: 3px; text-align: center;}" + "</style>" + "<body>" + Fields!unit.Value + "</body>"
Метод испытания - 
=Fields!norm_document.Value
Результат - 
=ResultProcessing(Fields!result.Value, Fields!error.Value, Fields!alt_result.Value)

Public Function ResultProcessing(ByVal inputResult As String, ByVal inputError As String, ByVal inputAltResult As String) As String
	If (inputResult = "") Then
		Return "-"
	End If
	
	Dim finalStr As String = inputResult
	
	If inputError <> "" And inputError <> "0" Then
		finalStr = finalStr & " ± " & inputError
	End If
	
	If inputAltResult <> "" And inputAltResult <> "0" Then
		finalStr = finalStr & vbLf & "(" & inputAltResult & ")"
	End If
	
	Return finalStr
End Function

Завершающая часть

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

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

Код и комментарии
Блок подписи 1 Подстановка должности из параметра ReportParameterPosition_1.Value 
=Parameters!ReportParameterPosition_1.Value
Подстановка ФИО из параметра ReportParameterFio_1.Value 
=Parameters!ReportParameterFio_1.Value
Блок подписи 2 Подстановка должности из параметра ReportParameterPosition_2.Value 
=Parameters!ReportParameterPosition_2.Value
Подстановка ФИО из параметра ReportParameterFio_1.Value 
=Parameters!ReportParameterFio_2.Value
Дополнительная информация - 
="Результаты испытаний, представленные в настоящем протоколе, относятся только к пробам, прошедшим испытания. Частичная перепечатка протокола и копирование без разрешения химико-аналитической лаборатории " & First(Fields!full_name.Value, "OrgInfoDataSet") & " не допускается"
Нижний колонтитул - 
="Протокол испытаний № " & Parameters!ReportParameterNumber.Value & " от " & Parameters!ReportParameterDate.Value & " на " & Code.ReturnPageWithSuffix(Globals!TotalPages) & ", лист " & Globals!PageNumber
Источник — https://wiki.chemsoft.ru/index.php?title=Протокол_испытаний&oldid=619