Протокол испытаний

Параметры

В форме используются 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 >> NAME / ATTRIBUTE_NAME	=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 >> NAME / ATTRIBUTE_NAME Fields!filial_phone.Value >> filial_phone / OrgInfoDataSet >> NAME / ATTRIBUTE_NAME	=First(Fields!filial_address.Value, "OrgInfoDataSet") & ", тел\факс\эл.адрес: " & First(Fields!filial_phone.Value, "OrgInfoDataSet")
Аттестат аккредитации	Подразделения предприятия >> Развернуть >> Выбрать подразделение >> Редактировать >> Карточка подразделения >> Аттестат аккредитации Fields!filial_certificate.Value >> filial_certificate / OrgInfoDataSet >> NAME / ATTRIBUTE_NAME	="Аттестат аккредитации " & First(Fields!filial_certificate.Value, "OrgInfoDataSet")
Заголовок	ПРОТОКОЛ ИСПЫТАНИЙ
Номер и дата протокола	Подстановка номера из параметра ReportParameterNumber и даты из параметра ReportParameterDate	="№ " & Parameters!ReportParameterNumber.Value & " от " & Parameters!ReportParameterDate.Value

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

Поля	Интерфейс ... >> ... и данные ... >> ...	Код и комментарии
1. Наименование объекта испытаний:	Объекты анализа >> Выбрать объект >> Редактировать >> Карточка объекта анализа >> Полное наименование Fields!ao_full_name.Value >> ao_full_name / MainDataSet >> NAME / ATTRIBUTE_NAME	="1. Наименование объекта испытаний: " & Fields!ao_full_name.Value
2. Цель испытаний:	Лабораторные журналы >> Выбрать подразделение >> Выбрать запись >> Редактировать >> Журнал регистрации проб и результатов испытаний >> Информация >> Цель проведения испытаний Fields!target.Value >> target / MainDataSet >> NAME / ATTRIBUTE_NAME	="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 >> NAME / ATTRIBUTE_NAME	="4. Дата и время отбора пробы: " & Format(Fields!date_value.Value, "dd.MM.yyyy") & ", " & Format(Fields!date_value.Value, "HH:mm")
5. Номер акта отбора проб и номер баллона:	Лабораторные журналы >> Выбрать подразделение >> Выбрать запись >> Редактировать >> Журнал регистрации проб и результатов испытаний >> Информация >> Номер акта отбора проб и Номер баллона Fields!act_num.Value >> act_num / MainDataSet >> NAME / ATTRIBUTE_NAME Fields!num_ballon.Value >> num_ballon / MainDataSet >> NAME / ATTRIBUTE_NAME	="5. Номер акта отбора проб и номер баллона: " & Fields!act_num.Value & ", " & Fields!num_ballon.Value
6. НД на отбор проб:	Лабораторные журналы >> Выбрать подразделение >> Выбрать запись >> Редактировать >> Журнал регистрации проб и результатов испытаний >> Информация >> НД на отбор проб Fields!doc_sample.Value >> doc_sample / MainDataSet >> NAME / ATTRIBUTE_NAME	="6. НД на отбор проб: " & Fields!doc_sample.Value
7. Шифр пробы:	Лабораторные журналы >> Выбрать подразделение >> Выбрать запись >> Редактировать >> Журнал регистрации проб и результатов испытаний >> Информация >> Номер пробы Fields!code.Value >> code / MainDataSet >> NAME / ATTRIBUTE_NAME	="7. Шифр пробы: " & Fields!code.Value
8. Заказчик:	Подразделения предприятия >> Наименование основного предприятия Fields!head_org.Value >> head_org / OrgInfoDataSet >> SHORT_NAME / COMPANY_LEVEL	="8. Заказчик: " & First(Fields!head_org.Value, "OrgInfoDataSet")
9. Основание для испытаний:	Fields!basis.Value >> basis / MainDataSet >> NAME / ATTRIBUTE_NAME	="9. Основание для испытаний: " & Fields!basis.Value
10. Дата проведения испытания:
11. Примечание:	Fields!note.Value >> note / MainDataSet >> NAME / ATTRIBUTE_NAME	="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