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

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

Материал из Химсофт Вики

Параметры

В форме используются 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:
    • Официальное наименование лаборатории
    • Адрес
    • Телефоны
    • Аттестат аккредитации

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

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

Поля Данные и выражения Элементы интерфейса и код
Наименование организации - Подразделения предприятия >> Наименование основного предприятия 
=First(Fields!head_org.Value, "OrgInfoDataSet")
Наименование филиала - Подразделения предприятия >> Развернуть >> Выбрать подразделение >> Редактировать >> Карточка подразделения >> Официальное наименование лаборатории 
=First(Fields!filial_name.Value, "OrgInfoDataSet")
Наименование лаборатории - Подразделения предприятия >> Развернуть >> Выбрать подразделение >> Редактировать >> Карточка подразделения >> Тип уровня 
=First(Fields!filial_type.Value, "OrgInfoDataSet")
Адрес, контакты - Подразделения предприятия >> Развернуть >> Выбрать подразделение >> Редактировать >> Карточка подразделения >> Адрес и Телефоны 
=First(Fields!filial_address.Value, "OrgInfoDataSet") & ", тел\факс\эл.адрес: " & First(Fields!filial_phone.Value, "OrgInfoDataSet")
Аттестат аккредитации - Подразделения предприятия >> Развернуть >> Выбрать подразделение >> Редактировать >> Карточка подразделения >> Аттестат аккредитации 
="Аттестат аккредитации " & First(Fields!filial_certificate.Value, "OrgInfoDataSet")
Заголовок ПРОТОКОЛ ИСПЫТАНИЙ -
Номер и дата протокола Подстановка номера из параметра ReportParameterNumber и даты из параметра ReportParameterDate 
="№ " & Parameters!ReportParameterNumber.Value & " от " & Parameters!ReportParameterDate.Value

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

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