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

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

Материал из Химсофт Вики
← Предыдущая правка
Sidminik (обсуждение | вклад)
Бюрократы, Администраторы интерфейса, Скрывающие, Администраторы
1185 правок
 
(не показано 16 промежуточных версий этого же участника)
Строка 34: Строка 34:
В таблице <code>ATTRIBUTE_NAME</code> используются атрибуты со следующими значениями <code>NAME</code>.
В таблице <code>ATTRIBUTE_NAME</code> используются атрибуты со следующими значениями <code>NAME</code>.


#В наборе данных <code>MainDataSet</code>:
{| width="100%" style="background:transparent;"
#*Цель проведения испытаний  
| width="50%" valign="top" |
#*Дата и время отбора пробы  
В наборе данных <code>MainDataSet</code>:
#*Номер акта отбора проб  
* Цель проведения испытаний  
#*Номер пробы  
* Дата и время отбора пробы  
#*Номер баллона  
* Номер акта отбора проб  
#*НД на отбор проб  
* Номер пробы  
#*Основние для испытаний  
* Номер баллона  
#*Примечание для протокола  
* НД на отбор проб  
#*Полное наименование
* Основние для испытаний  
#*Поставщик/Заказчик
* Примечание для протокола  
#В наборе данных <code>OrgInfoDataSet</code>:
* Полное наименование
#*Официальное наименование лаборатории
* Поставщик/Заказчик
#*Адрес
* Дата начала анализа
#*Телефоны
* Дата окончания анализа
#*Аттестат аккредитации
| width="50%" valign="top" |
В наборе данных <code>OrgInfoDataSet</code>:
* Официальное наименование лаборатории
* Адрес
* Телефоны
* Аттестат аккредитации
|}
 
<div style="background-color: #fff3cd; border-left: 5px solid #ffc107; padding: 15px; margin: 10px 0;">
'''Внимание!'''
 
Описание атрибутов приведено в соответствии с базой данных <code>ASTRA-PG13</code> на основе созданных пользователем полей.
 
В других базах этих полей может не быть либо их наименование может отличаться!!!
 
Отсутствующие в базе атрибуты не будут выводиться в документе. Для корректной работы документа актуализируйте атрибуты в соответствии с приведенным списком.
</div>


==Поля, данные, выражения, элементы интерфейса и код==
==Поля, данные, выражения, элементы интерфейса и код==
Строка 68: Строка 84:
|Наименование филиала
|Наименование филиала
|<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> >> Выбрать подразделение >> <code style="background-color: #d4edda;>Редактировать</code> >> <code style="background-color: #d4edda;>Карточка подразделения</code> >> <code style="background-color: #d4edda;>Официальное наименование лаборатории</code>
<code style="background-color: #fff3e0;>Fields!filial_name.Value</code> >> <code style="background-color: #fff3e0;>filial_name /  OrgInfoDataSet</code> >> <code style="background-color: #fff3e0;>NAME / ATTRIBUTE_NAME</code>
<code style="background-color: #fff3e0;>Fields!filial_name.Value</code> >> <code style="background-color: #fff3e0;>filial_name /  OrgInfoDataSet</code> >> <code style="background-color: #fff3e0;>STRING_VALUE / COMPANY_LEVEL_ATTRIBUTE</code>
|<syntaxhighlight lang="vb">=First(Fields!filial_name.Value, "OrgInfoDataSet")</syntaxhighlight>
|<syntaxhighlight lang="vb">=First(Fields!filial_name.Value, "OrgInfoDataSet")</syntaxhighlight>
|-
|-
Строка 78: Строка 94:
|Адрес, контакты
|Адрес, контакты
|<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> >> <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: #fff3e0;>Fields!filial_address.Value</code> >> <code style="background-color: #fff3e0;>filial_address /  OrgInfoDataSet</code> >> <code style="background-color: #fff3e0;>NAME / ATTRIBUTE_NAME</code><br/>
<code style="background-color: #fff3e0;>Fields!filial_address.Value</code> >> <code style="background-color: #fff3e0;>filial_address /  OrgInfoDataSet</code> >> <code style="background-color: #fff3e0;>STRING_VALUE / COMPANY_LEVEL_ATTRIBUTE</code><br/>
<code style="background-color: #fff3e0;>Fields!filial_phone.Value</code> >> <code style="background-color: #fff3e0;>filial_phone /  OrgInfoDataSet</code> >> <code style="background-color: #fff3e0;>NAME / ATTRIBUTE_NAME</code>
<code style="background-color: #fff3e0;>Fields!filial_phone.Value</code> >> <code style="background-color: #fff3e0;>filial_phone /  OrgInfoDataSet</code> >> <code style="background-color: #fff3e0;>STRING_VALUE / COMPANY_LEVEL_ATTRIBUTE</code>
|<syntaxhighlight lang="vb">=First(Fields!filial_address.Value, "OrgInfoDataSet") & ", тел\факс\эл.адрес: " & First(Fields!filial_phone.Value, "OrgInfoDataSet")</syntaxhighlight>
|<syntaxhighlight lang="vb">=First(Fields!filial_address.Value, "OrgInfoDataSet") & ", тел\факс\эл.адрес: " & First(Fields!filial_phone.Value, "OrgInfoDataSet")</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> >> Выбрать подразделение >> <code style="background-color: #d4edda;>Редактировать</code> >> <code style="background-color: #d4edda;>Карточка подразделения</code> >> <code style="background-color: #d4edda;>Аттестат аккредитации</code>
<code style="background-color: #fff3e0;>Fields!filial_certificate.Value</code> >> <code style="background-color: #fff3e0;>filial_certificate /  OrgInfoDataSet</code> >> <code style="background-color: #fff3e0;>NAME / ATTRIBUTE_NAME</code>
<code style="background-color: #fff3e0;>Fields!filial_certificate.Value</code> >> <code style="background-color: #fff3e0;>filial_certificate /  OrgInfoDataSet</code> >> <code style="background-color: #fff3e0;>VALUE / LONGTEXT_STORAGE</code>
|<syntaxhighlight lang="vb">="Аттестат аккредитации " & First(Fields!filial_certificate.Value, "OrgInfoDataSet")</syntaxhighlight>
|<syntaxhighlight lang="vb">="Аттестат аккредитации " & First(Fields!filial_certificate.Value, "OrgInfoDataSet")</syntaxhighlight>
|-
|-
Строка 150: Строка 166:
|-
|-
|10. Дата проведения испытания:
|10. Дата проведения испытания:
|
|<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"></syntaxhighlight>
<code style="background-color: #fff3e0;>Fields!start_date.Value</code> >> <code style="background-color: #fff3e0;>start_date /  MainDataSet</code> >> <code style="background-color: #fff3e0;>DATE_VALUE / JOURNAL_RESULT_ATTRIBUTE</code><br>
<code style="background-color: #fff3e0;>Fields!end_date.Value</code> >> <code style="background-color: #fff3e0;>end_date /  MainDataSet</code> >> <code style="background-color: #fff3e0;>DATE_VALUE / JOURNAL_RESULT_ATTRIBUTE</code>
|<syntaxhighlight lang="vb">="10. Дата проведения испытания: " & IIF(Fields!start_date.Value = Fields!end_date.Value, Fields!start_date.Value, Fields!start_date.Value & " - " & Fields!end_date.Value)</syntaxhighlight>
|-
|-
|11. Примечание:
|11. Примечание:
Строка 172: Строка 190:
!Код и комментарии
!Код и комментарии
|-
|-
|Наименование||-||<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>
<code style="background-color: #fff3e0;>Fields!res_name.Value</code> >> <code style="background-color: #fff3e0;>res_name / ResourcesDataSet</code> >> <code style="background-color: #fff3e0;>FULLNAME / RESOURCES</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>
<code style="background-color: #fff3e0;>Fields!res_service_type.Value</code> >> <code style="background-color: #fff3e0;>res_service_type / ResourcesDataSet</code> >> <code style="background-color: #fff3e0;>NAME / RESOURCE_SERVICE_TYPE</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>
<code style="background-color: #fff3e0;>Fields!res_number.Value</code> >> <code style="background-color: #fff3e0;>res_number / ResourcesDataSet</code> >> <code style="background-color: #fff3e0;>FACTORY_NUMBER / RESOURCES</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>
<code style="background-color: #fff3e0;>Fields!res_type.Value</code> >> <code style="background-color: #fff3e0;>res_type / ResourcesDataSet</code> >> <code style="background-color: #fff3e0;>NAME / RESOURCE_SERVICE_TYPE</code>
<code style="background-color: #fff3e0;>Fields!res_service_doc.Value</code> >> <code style="background-color: #fff3e0;>res_service_doc / ResourcesDataSet</code> >> <code style="background-color: #fff3e0;>SERVICE_DOCUMENT / RESOURCE_SERVICE</code>
<code style="background-color: #fff3e0;>Fields!res_service_date.Value</code> >> <code style="background-color: #fff3e0;>res_service_date / ResourcesDataSet</code> >> <code style="background-color: #fff3e0;>NEXT_DATE / RESOURCE_SERVICE</code>
|<syntaxhighlight lang="vb">=IIF(Fields!res_type.Value = "Средство измерений", "свидетельство о поверке № " & Fields!res_service_doc.Value & " до " & Format(Fields!res_service_date.Value, "dd.MM.yyyy", "номер документа об аттестации № ")</syntaxhighlight>
|-
|-
|}
|}
Строка 190: Строка 222:
!Код и комментарии
!Код и комментарии
|-
|-
|Наименование показателя||-||<syntaxhighlight lang="vb">=Fields!ind_meth_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: #fff3e0;>Fields!ind_meth_name.Value</code> >> <code style="background-color: #fff3e0;>ind_meth_name / ResultDataSet</code> >> <code style="background-color: #fff3e0;>INDICATOR_METHODOLOGY_NAME / METHODOLOGY_INDICATOR</code>
|<syntaxhighlight lang="vb">=Fields!ind_meth_name.Value</syntaxhighlight>
|-
|-
|Единица измерения||-||<syntaxhighlight lang="html">="<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>"</syntaxhighlight>
|Единица измерения
|<code style="background-color: #d4edda;>Лабораторные журналы</code> >> Выбрать подразделение >> Выбрать запись <code style="background-color: #d4edda;>Результаты</code> >> <code style="background-color: #d4edda;>Показатель</code>
<code style="background-color: #fff3e0;>Fields!unit.Value</code> >> <code style="background-color: #fff3e0;>unit / ResultDataSet</code> >> <code style="background-color: #fff3e0;>HTML_NAME / UNIT</code>
|<syntaxhighlight lang="html">="<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>"</syntaxhighlight>
|-
|-
|Метод испытания||-||<syntaxhighlight lang="vb">=Fields!norm_document.Value</syntaxhighlight>
|Метод испытания
|<code style="background-color: #d4edda;>Лабораторные журналы</code> >> Выбрать подразделение >> Выбрать запись <code style="background-color: #d4edda;>Результаты</code> >> <code style="background-color: #d4edda;>Методика анализа</code>
<code style="background-color: #fff3e0;>Fields!norm_document.Value</code> >> <code style="background-color: #fff3e0;>norm_document / ResultDataSet</code> >> <code style="background-color: #fff3e0;>NORMATIVE_DOCUMENT / METHODOLOGY</code>
|<syntaxhighlight lang="vb">=Fields!norm_document.Value</syntaxhighlight>
|-
|-
|Результат||-||<syntaxhighlight lang="vb">=ResultProcessing(Fields!result.Value, Fields!error.Value, Fields!alt_result.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: #fff3e0;>Fields!result.Value</code> >> <code style="background-color: #fff3e0;>result / ResultDataSet</code> >> <code style="background-color: #fff3e0;>AVG_R / JOURNAL_RESULT</code>
<code style="background-color: #fff3e0;>Fields!error.Value</code> >> <code style="background-color: #fff3e0;>error / ResultDataSet</code> >> <code style="background-color: #fff3e0;>AVG_R / JOURNAL_RESULT</code>
|<syntaxhighlight lang="vb">=ResultProcessing(Fields!result.Value, Fields!error.Value, Fields!alt_result.Value)</syntaxhighlight>
<syntaxhighlight lang="vb">
<syntaxhighlight lang="vb">
Public Function ResultProcessing(ByVal inputResult As String, ByVal inputError As String, ByVal inputAltResult As String) As String
Public Function ResultProcessing(ByVal inputResult As String, ByVal inputError As String, ByVal inputAltResult As String) As String
Строка 235: Строка 280:
|Подстановка ФИО из параметра <code>ReportParameterFio_1.Value</code>||<syntaxhighlight lang="vb">=Parameters!ReportParameterFio_2.Value</syntaxhighlight>
|Подстановка ФИО из параметра <code>ReportParameterFio_1.Value</code>||<syntaxhighlight lang="vb">=Parameters!ReportParameterFio_2.Value</syntaxhighlight>
|-
|-
|Дополнительная информация||-||<syntaxhighlight lang="vb">="Результаты испытаний, представленные в настоящем протоколе, относятся только к пробам, прошедшим испытания. Частичная перепечатка протокола и копирование без разрешения химико-аналитической лаборатории " & First(Fields!full_name.Value, "OrgInfoDataSet") & " не допускается"</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: #fff3e0;>Fields!full_name.Value</code> >> <code style="background-color: #fff3e0;>full_name /  OrgInfoDataSet</code> >> <code style="background-color: #fff3e0;>FULL_NAME / COMPANY_LEVEL</code>
|<syntaxhighlight lang="vb">="Результаты испытаний, представленные в настоящем протоколе, относятся только к пробам, прошедшим испытания. Частичная перепечатка протокола и копирование без разрешения химико-аналитической лаборатории " & First(Fields!full_name.Value, "OrgInfoDataSet") & " не допускается"</syntaxhighlight>
|-
|-
|Нижний колонтитул||-||<syntaxhighlight lang="vb">="Протокол испытаний № " & Parameters!ReportParameterNumber.Value & " от " & Parameters!ReportParameterDate.Value & " на " & Code.ReturnPageWithSuffix(Globals!TotalPages) & ", лист " & Globals!PageNumber</syntaxhighlight>
|Нижний колонтитул||-||<syntaxhighlight lang="vb">="Протокол испытаний № " & Parameters!ReportParameterNumber.Value & " от " & Parameters!ReportParameterDate.Value & " на " & Code.ReturnPageWithSuffix(Globals!TotalPages) & ", лист " & Globals!PageNumber</syntaxhighlight>
<syntaxhighlight lang="vb">
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
</syntaxhighlight>
|-
|-
|}
|}

Текущая версия от 07:54, 23 января 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.

В наборе данных 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")
Аттестат аккредитации Подразделения предприятия >> Развернуть >> Выбрать подразделение >> Редактировать >> Карточка подразделения >> Аттестат аккредитации

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. Дата проведения испытания: Лабораторные журналы >> Выбрать подразделение >> Выбрать запись >> Результаты >> Дата начала анализа и Дата окончания анализа

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(Fields!start_date.Value = Fields!end_date.Value, Fields!start_date.Value, Fields!start_date.Value & " - " & Fields!end_date.Value)
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 >> res_name / ResourcesDataSet >> FULLNAME / RESOURCES 

=Fields!res_name.Value
Тип обслуживания Ресурсы >> Обслуживание оборудования >> Выбор записи >> Редактировать >> Основная форма >> Тип обслуживания

Fields!res_service_type.Value >> res_service_type / ResourcesDataSet >> NAME / RESOURCE_SERVICE_TYPE 

=Fields!res_service_type.Value
Заводской номер Ресурсы >> Оборудование >> Выбор записи >> Редактировать >> Карточка оборудования >> Заводской номер

Fields!res_number.Value >> res_number / ResourcesDataSet >> FACTORY_NUMBER / RESOURCES 

=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 

=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
Подстановка ФИО из параметра ReportParameterFio_1.Value 
=Parameters!ReportParameterFio_1.Value
Блок подписи 2 Подстановка должности из параметра ReportParameterPosition_2.Value 
=Parameters!ReportParameterPosition_2.Value
Подстановка ФИО из параметра ReportParameterFio_1.Value 
=Parameters!ReportParameterFio_2.Value
Дополнительная информация Подразделения предприятия >> Развернуть >> Выбрать подразделение >> Карточка подразделения >> Полное наименование

Fields!full_name.Value >> full_name / OrgInfoDataSet >> FULL_NAME / COMPANY_LEVEL 

="Результаты испытаний, представленные в настоящем протоколе, относятся только к пробам, прошедшим испытания. Частичная перепечатка протокола и копирование без разрешения химико-аналитической лаборатории " & First(Fields!full_name.Value, "OrgInfoDataSet") & " не допускается"
Нижний колонтитул - 
="Протокол испытаний № " & 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
Источник — https://wiki.chemsoft.ru/index.php?title=Протокол_испытаний&oldid=741