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

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

Материал из Химсофт Вики
← Предыдущая правка
Sidminik (обсуждение | вклад)
Бюрократы, Администраторы интерфейса, Скрывающие, Администраторы
1185 правок
 
(не показано 47 промежуточных версий этого же участника)
Строка 31: Строка 31:


==Атрибуты==
==Атрибуты==
В наборе данных (SQL-запрос для <code>DataSet</code>) в таблице <code>ATTRIBUTE_NAME</code> используются атрибуты со следующими значениями <code>NAME</code>:
 
*Цель проведения испытаний  
В таблице <code>ATTRIBUTE_NAME</code> используются атрибуты со следующими значениями <code>NAME</code>.
*Дата и время отбора пробы  
 
*Номер акта отбора проб  
{| width="100%" style="background:transparent;"
*Номер пробы  
| width="50%" valign="top" |
*Номер баллона  
В наборе данных <code>MainDataSet</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>


==Поля, данные, выражения, элементы интерфейса и код==
==Поля, данные, выражения, элементы интерфейса и код==
===Общая информация===
{|class="wikitable" style="margin:auto; background-color: #fff;"  
{|class="wikitable" style="margin:auto; background-color: #fff;"  
|-
|-
!Поля!!Данные и выражения!!Элементы интерфейса или код
!Поля
!Интерфейс <code style="background-color: #d4edda;>...</code> >> <code style="background-color: #d4edda;>...</code>
и данные <code style="background-color: #fff3e0;>...</code> >> <code style="background-color: #fff3e0;>...</code>
!Код и комментарии
|-
|-
|style="text-align: center;" colspan="3"|<b>Общая информация</b>
|Наименование организации
|<code style="background-color: #d4edda;>Подразделения предприятия</code> >> Наименование основного предприятия
<code style="background-color: #fff3e0;>Fields!head_org.Value</code> >> <code style="background-color: #fff3e0;>head_org /  OrgInfoDataSet</code> >> <code style="background-color: #fff3e0;>SHORT_NAME / COMPANY_LEVEL</code>
|<syntaxhighlight lang="vb">=First(Fields!head_org.Value, "OrgInfoDataSet")</syntaxhighlight>
|-
|-
|Наименование организации||-||<syntaxhighlight lang="vb">=First(Fields!head_org.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: #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>
|Наименование лаборатории
|<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_type.Value</code> >> <code style="background-color: #fff3e0;>filial_type /  OrgInfoDataSet</code> >> <code style="background-color: #fff3e0;>NAME / CATALOG_RECORD_TYPE</code>
|<syntaxhighlight lang="vb">=First(Fields!filial_type.Value, "OrgInfoDataSet")</syntaxhighlight>
|-
|-
|Наименование лаборатории||-||<syntaxhighlight lang="vb">=First(Fields!filial_type.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: #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;>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: #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>
|Заголовок
|colspan="2"|ПРОТОКОЛ ИСПЫТАНИЙ
|-
|-
|Заголовок||ПРОТОКОЛ ИСПЫТАНИЙ||align="center"|-
|Номер и дата протокола
|Подстановка номера из параметра <code>ReportParameterNumber</code> и даты из параметра <code>ReportParameterDate</code>
|<syntaxhighlight lang="vb">="№ " & Parameters!ReportParameterNumber.Value & " от " & Parameters!ReportParameterDate.Value</syntaxhighlight>
|-
|-
|Номер и дата протокола||-||<syntaxhighlight lang="vb">="№ " & Parameters!ReportParameterNumber.Value & " от " & Parameters!ReportParameterDate.Value</syntaxhighlight>
|}
 
===Основная информация===
{|class="wikitable" style="margin:auto; background-color: #fff;"  
|-
|-
|style="text-align: center;" colspan="3"|<b>Основная информация</b>
!Поля
!Интерфейс <code style="background-color: #d4edda;>...</code> >> <code style="background-color: #d4edda;>...</code>
и данные <code style="background-color: #fff3e0;>...</code> >> <code style="background-color: #fff3e0;>...</code>
!Код и комментарии
|-
|-
|1. Наименование объекта испытаний:||-||<syntaxhighlight lang="vb">="1. Наименование объекта испытаний: " & Fields!ao_full_name.Value</syntaxhighlight>
|1. Наименование объекта испытаний:
|<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!ao_full_name.Value</code> >> <code style="background-color: #fff3e0;>ao_full_name /  MainDataSet</code> >> <code style="background-color: #fff3e0;>STRING_VALUE / JOURNAL_RECORD_ATTRIBUTE</code>
|<syntaxhighlight lang="vb">="1. Наименование объекта испытаний: " & Fields!ao_full_name.Value</syntaxhighlight>
|-
|-
|2. Цель испытаний:||-||<syntaxhighlight lang="vb">="2. Цель испытаний: " &  Fields!target.Value</syntaxhighlight>
|2. Цель испытаний:
|<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!target.Value</code> >> <code style="background-color: #fff3e0;>target /  MainDataSet</code> >> <code style="background-color: #fff3e0;>STRING_VALUE / JOURNAL_RECORD_ATTRIBUTE</code>
|<syntaxhighlight lang="vb">="2. Цель испытаний: " &  Fields!target.Value</syntaxhighlight>
|-
|-
|3. Место отбора проб:||-||<syntaxhighlight lang="vb">="3. Место отбора проб: " & Fields!sample_source.Value</syntaxhighlight>
|3. Место отбора проб:
|<code style="background-color: #fff3e0;>Fields!sample_source.Value</code> >> <code style="background-color: #fff3e0;>sample_source /  MainDataSet</code> >> <code style="background-color: #fff3e0;>FULL_NAME / SAMPLE_SOURCE</code>
|<syntaxhighlight lang="vb">="3. Место отбора проб: " & Fields!sample_source.Value</syntaxhighlight>
|-
|-
|4. Дата и время отбора пробы:||-||<syntaxhighlight lang="vb">="4. Дата и время отбора пробы: " & Format(Fields!date_value.Value, "dd.MM.yyyy") & ", " & Format(Fields!date_value.Value, "HH:mm")</syntaxhighlight>
|4. Дата и время отбора пробы:
|<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!date_value.Value</code> >> <code style="background-color: #fff3e0;>date_value /  MainDataSet</code> >> <code style="background-color: #fff3e0;>DATE_VALUE/ JOURNAL_RECORD_ATTRIBUTE</code>
|<syntaxhighlight lang="vb">="4. Дата и время отбора пробы: " & Format(Fields!date_value.Value, "dd.MM.yyyy") & ", " & Format(Fields!date_value.Value, "HH:mm")</syntaxhighlight>
|-
|-
|5. Номер акта отбора проб и номер баллона:||-||<syntaxhighlight lang="vb">="5. Номер акта отбора проб и номер баллона: " & Fields!act_num.Value & ", " & Fields!num_ballon.Value</syntaxhighlight>
|5. Номер акта отбора проб и номер баллона:
|<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!act_num.Value</code> >> <code style="background-color: #fff3e0;>act_num /  MainDataSet</code> >> <code style="background-color: #fff3e0;>STRING_VALUE / JOURNAL_RECORD_ATTRIBUTE</code><br/>
<code style="background-color: #fff3e0;>Fields!num_ballon.Value</code> >> <code style="background-color: #fff3e0;>num_ballon /  MainDataSet</code> >> <code style="background-color: #fff3e0;>STRING_VALUE / JOURNAL_RECORD_ATTRIBUTE</code>
|<syntaxhighlight lang="vb">="5. Номер акта отбора проб и номер баллона: " & Fields!act_num.Value & ", " & Fields!num_ballon.Value</syntaxhighlight>
|-
|-
|6. НД на отбор проб:||-||<syntaxhighlight lang="vb">="6. НД на отбор проб: " & Fields!doc_sample.Value</syntaxhighlight>
|6. НД на отбор проб:
|<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!doc_sample.Value</code> >> <code style="background-color: #fff3e0;>doc_sample /  MainDataSet</code> >> <code style="background-color: #fff3e0;>STRING_VALUE / JOURNAL_RECORD_ATTRIBUTE</code>
|<syntaxhighlight lang="vb">="6. НД на отбор проб: " & Fields!doc_sample.Value</syntaxhighlight>
|-
|-
|7. Шифр пробы:||-||<syntaxhighlight lang="vb">="7. Шифр пробы: " & Fields!code.Value</syntaxhighlight>
|7. Шифр пробы:
|<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!code.Value</code> >> <code style="background-color: #fff3e0;>code /  MainDataSet</code> >> <code style="background-color: #fff3e0;>STRING_VALUE / JOURNAL_RECORD_ATTRIBUTE</code>
|<syntaxhighlight lang="vb">="7. Шифр пробы: " & Fields!code.Value</syntaxhighlight>
|-
|-
|8. Заказчик:||-||<syntaxhighlight lang="vb">="8. Заказчик: " & First(Fields!head_org.Value, "OrgInfoDataSet")</syntaxhighlight>
|8. Заказчик:
|<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!supplier_customer.Value</code> >> <code style="background-color: #fff3e0;>supplier_customer /  MainDataSet</code> >> <code style="background-color: #fff3e0;>STRING_VALUE / JOURNAL_RECORD_ATTRIBUTE</code>
|<syntaxhighlight lang="vb">="8. Заказчик: " & First(Fields!head_org.Value, "OrgInfoDataSet")</syntaxhighlight>
|-
|-
|9. Основание для испытаний:||-||<syntaxhighlight lang="vb">="9. Основание для испытаний: " & Fields!basis.Value</syntaxhighlight>
|9. Основание для испытаний:
|<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!basis.Value</code> >> <code style="background-color: #fff3e0;>basis /  MainDataSet</code> >> <code style="background-color: #fff3e0;>STRING_VALUE / JOURNAL_RECORD_ATTRIBUTE</code>
|<syntaxhighlight lang="vb">="9. Основание для испытаний: " & Fields!basis.Value</syntaxhighlight>
|-
|-
|10. Дата проведения испытания:||-||<syntaxhighlight lang="vb"></syntaxhighlight>
|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>
<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. Примечание:||-||<syntaxhighlight lang="vb">="11. Примечание: " & Fields!note.Value</syntaxhighlight>
|11. Примечание:
|<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!note.Value</code> >> <code style="background-color: #fff3e0;>note /  MainDataSet</code> >> <code style="background-color: #fff3e0;>STRING_VALUE / JOURNAL_RECORD_ATTRIBUTE</code>
|<syntaxhighlight lang="vb">="11. Примечание: " & Fields!note.Value</syntaxhighlight>
|-
|-
|12. Результаты проведения испытаний приведены в таблице||-||<syntaxhighlight lang="vb">="12. Результаты проведения испытаний приведены в таблице " & IIF(Parameters!ReportParameterDevice.Value = False, 2, 1)</syntaxhighlight>
|12. Результаты проведения испытаний приведены в таблице
|Значение номера таблицы зависит от выбора параметра <code>Parameters!ReportParameterDevice.Value</code>
|<syntaxhighlight lang="vb">="12. Результаты проведения испытаний приведены в таблице " & IIF(Parameters!ReportParameterDevice.Value = False, 2, 1)</syntaxhighlight>
|-
|-
|style="text-align: center;" colspan="3"|<b>Сведения о применяемом оборудовании</b>
|}
 
===Сведения о применяемом оборудовании===
{|class="wikitable" style="margin:auto; background-color: #fff;"  
|-
|-
|Наименование||-||<syntaxhighlight lang="vb">=Fields!res_name.Value</syntaxhighlight>
!Поля
!Интерфейс <code style="background-color: #d4edda;>...</code> >> <code style="background-color: #d4edda;>...</code>
и данные <code style="background-color: #fff3e0;>...</code> >> <code style="background-color: #fff3e0;>...</code>
!Код и комментарии
|-
|-
|Тип обслуживания||-||<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_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_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_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">=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: #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>
|-
|-
|style="text-align: center;" colspan="3"|<b>Результаты испытаний</b>
|Сведения о поверке/аттестации
|<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>
|-
|-
|Наименование показателя||-||<syntaxhighlight lang="vb">=Fields!ind_meth_name.Value</syntaxhighlight>
|}
 
===Результаты испытаний===
{|class="wikitable" style="margin:auto; background-color: #fff;"
|-
|-
|Единица измерения||-||<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: #fff3e0;>...</code> >> <code style="background-color: #fff3e0;>...</code>
!Код и комментарии
|-
|-
|Метод испытания||-||<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!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="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: #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>
|-
|Метод испытания
|<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>
|-
|Результат
|<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
Строка 128: Строка 262:
</syntaxhighlight>
</syntaxhighlight>
|-
|-
|style="text-align: center;" colspan="3"|<b>Нижняя часть</b>
|}
 
===Завершающая часть===
{|class="wikitable" style="margin:auto; background-color: #fff;"  
|-
!Поля
!Интерфейс <code style="background-color: #d4edda;>...</code> >> <code style="background-color: #d4edda;>...</code>
и данные <code style="background-color: #fff3e0;>...</code> >> <code style="background-color: #fff3e0;>...</code>
!Код и комментарии
|-
|-
|Блок подписи 1||-||<syntaxhighlight lang="vb"></syntaxhighlight>
|rowspan="2"|Блок подписи 1||Подстановка должности из параметра <code>ReportParameterPosition_1.Value</code>||<syntaxhighlight lang="vb">=Parameters!ReportParameterPosition_1.Value</syntaxhighlight>
|-
|-
|Блок подписи 2||-||<syntaxhighlight lang="vb"></syntaxhighlight>
|Подстановка ФИО из параметра <code>ReportParameterFio_1.Value</code>||<syntaxhighlight lang="vb">=Parameters!ReportParameterFio_1.Value</syntaxhighlight>
|-
|-
|Дополнительная информация||-||<syntaxhighlight lang="vb"></syntaxhighlight>
|rowspan="2"|Блок подписи 2||Подстановка должности из параметра <code>ReportParameterPosition_2.Value</code>||<syntaxhighlight lang="vb">=Parameters!ReportParameterPosition_2.Value</syntaxhighlight>
|-
|-
|Нижний колонтитул||-||<syntaxhighlight lang="vb"></syntaxhighlight>
|Подстановка ФИО из параметра <code>ReportParameterFio_1.Value</code>||<syntaxhighlight lang="vb">=Parameters!ReportParameterFio_2.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!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">
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