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

Общий вид

Параметры

В форме используются 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	Укажите дату формирования протокола:	поле-календарь	текущая дата (значение по умолчанию)	-

Внимание!

Также для фильтров п.7 и п.9 используются составные поля в DataSet, образующиеся с помощью функции FormatFio():

• 

Атрибуты

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

В наборе данных MainDataSet: Цель проведения испытаний Дата и время отбора пробы Номер акта отбора проб Номер пробы Номер баллона НД на отбор проб Основние для испытаний Примечание для протокола Полное наименование Поставщик/Заказчик Дата начала анализа Дата окончания анализа

В наборе данных OrgInfoDataSet: Официальное наименование лаборатории Адрес Телефоны Аттестат аккредитации

Внимание!

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

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

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

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

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

Поля	Интерфейс ... >> ... и данные ... >> ...	Код и комментарии
Наименование организации	Подразделения предприятия >> Наименование основного предприятия 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") & First(Fields!email.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; 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. Дата проведения испытания:	Лабораторные журналы >> Выбрать подразделение >> Выбрать запись >> Результаты >> Дата начала анализа и Дата окончания анализа Fields!start_date.Value >> start_date / MainDataSet >> DATE_VALUE / JOURNAL_RESULT_ATTRIBUTE Fields!end_date.Value >> end_date / MainDataSet >> DATE_VALUE / JOURNAL_RESULT_ATTRIBUTE	="10. Дата проведения испытания: " & IIF(Format(Fields!start_date.Value, "dd.MM.yyyy") = Format(Fields!end_date.Value, "dd.MM.yyyy"), Format(Fields!start_date.Value, "dd.MM.yyyy"), Format(Fields!start_date.Value, "dd.MM.yyyy") & " - " & Format(Fields!end_date.Value, "dd.MM.yyyy"))
11. Примечание:	Лабораторные журналы >> Выбрать подразделение >> Выбрать запись >> Редактировать >> Журнал регистрации проб и результатов испытаний >> Информация >> Примечание для протокола Fields!note.Value >> note / MainDataSet >> STRING_VALUE / JOURNAL_RECORD_ATTRIBUTE	="11. Примечание: " & vbLF & Fields!note.Value
12. Результаты проведения испытаний приведены в таблице	Значение номера таблицы зависит от выбора параметра Parameters!ReportParameterDevice.Value	="12. Результаты проведения испытаний приведены в таблице " & IIF(Parameters!ReportParameterDevice.Value = False, 2, 1)

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

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

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

Поля	Интерфейс ... >> ... и данные ... >> ...	Код и комментарии
Наименование показателя	Лабораторные журналы >> Выбрать подразделение >> Выбрать запись Результаты >> Показатель Fields!ind_meth_name.Value >> ind_meth_name / ResultDataSet >> INDICATOR_METHODOLOGY_NAME / METHODOLOGY_INDICATOR	=Fields!ind_meth_name.Value
Единица измерения	Лабораторные журналы >> Выбрать подразделение >> Выбрать запись Результаты >> Показатель Fields!unit.Value >> unit / ResultDataSet >> HTML_NAME / UNIT	="<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 >> norm_document / ResultDataSet >> NORMATIVE_DOCUMENT / METHODOLOGY	=Fields!norm_document.Value
Результат	Лабораторные журналы >> Выбрать подразделение >> Выбрать запись Результаты >> Результат и Показатель точности Fields!result.Value >> result / ResultDataSet >> AVG_R / JOURNAL_RESULT Fields!error.Value >> error / ResultDataSet >> AVG_R / JOURNAL_RESULT	=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
ФИО 1	Персонал >> Выбрать запись >> Карточка сотрудника >> Фамилия; Имя; Отчество Fields!surname_1.Value, Fields!name_1.Value, Fields!patronymic_1.Value >> surname_1, name_1, patronymic_1 / FilterFioDataSet_1 >> SURNAME; NAME; PATRONYMIC / EMPLOYEE	=FormatFio(Fields!surname_1.Value, Fields!name_1.Value, Fields!patronymic_1.Value, 2)
Должность 2	Подстановка должности из параметра ReportParameterPosition_2.Value	=Parameters!ReportParameterPosition_2.Value
ФИО 2	Персонал >> Выбрать запись >> Карточка сотрудника >> Фамилия; Имя; Отчество Fields!surname_2.Value, Fields!name_2.Value, Fields!patronymic_2.Value >> surname_2, name_2, patronymic_2 / FilterFioDataSet_2 >> SURNAME; NAME; PATRONYMIC / EMPLOYEE	=FormatFio(Fields!surname_2.Value, Fields!name_2.Value, Fields!patronymic_2.Value, 2)
Дополнительная информация	Подразделения предприятия >> Развернуть >> Выбрать подразделение >> Карточка подразделения >> Полное наименование Fields!full_name.Value >> full_name / OrgInfoDataSet >> FULL_NAME / COMPANY_LEVEL	="Результаты испытаний, представленные в настоящем протоколе, относятся только к пробам, прошедшим испытания. Частичная перепечатка протокола и копирование без разрешения химико-аналитической лаборатории " & First(Fields!full_name.Value, "OrgInfoDataSet") & " не допускается"

Внимание!

В ячейках колонки "Метод испытаний" используются:

• AutoMergeMode = True - для объединения ячеек с одинаковым содержимым;
• CanGrow = True - для увеличения высоты ячеек в соответствии с количеством строк в ячейке; нежелательный эффект - все строки (даже объединенные!!!) имеют эту высоту, но если установить false - при малом количестве ячеек будут обрезаться строки в колонке "Метод испытаний".

Во всех строках с данными (Details) данной таблицы установлено свойство KeepTogether = True. Позволяет при короткой таблице переносить последнюю строку таблицы вместе с подписями (элемент - "подвал", Table Footer) на следующую страницу.

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

Поля	Интерфейс ... >> ... и данные ... >> ...	Код и комментарии
Нижний колонтитул	-	="Протокол испытаний № " & Parameters!ReportParameterNumber.Value & " от " & Parameters!ReportParameterDate.Value & " на " & Code.ReturnPageWithSuffix(Globals!TotalPages) & ", лист " & Globals!PageNumber Public Function ReturnPageWithSuffix(ByVal resultPage As Long) As String Dim resultString As String = resultPage.ToString() If (resultPage > 20) Then resultPage = resultPage Mod 10 End If Select Case resultPage Case 1 resultString &= $" листе" Case Else resultString &= $" листах" End Select Return resultString End Function