Журнал результатов измерений аэрозоля масла: различия между версиями

Текущая версия от 10:09, 31 марта 2026

Общий вид

Параметры

№	Параметр	Тип поля	Данные	Сортировка
1	`Выберите лабораторию:`	выбор значения	лаборатории, имеющие объект анализа `Промышленные выбросы` и показатель `Аэрозоль масла`	по алфавиту
2	`Введите номер журнала:`	ввод значения	по умолчанию `1`	-
3	`Введите дату начала периода:`	выбор даты из календаря	по умолчанию `01.01.2020`	-
4	`Введите дату окончания периода:`	выбор даты из календаря	по умолчанию `текущая дата`	-
5	`Номер первой страницы:`	ввод числа	начальное значение, с которого будет начинаться нумерация страниц (по умолчанию `1`)	-

Атрибуты

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

N акта отбора
Шифр пробы
Дата анализа
Исполнитель
Ра
Pр
Pг
tp
tг
Wг
f
T
Va
Vраз
Dmin
Dmax
a
b
Kград

Внимание!

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

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

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

Верхний колонтитул

Поля	Интерфейс `...` >> `...` и данные `...` >> `...`	Код и комментарии
Журнал результатов измерений аэрозоля масла №...	`Parameters!ReportParameterNumber.Value`	="Журнал результатов измерений аэрозоля масла" & " №" & Parameters!ReportParameterNumber.Value
Название лаборатории	`Parameters!ReportParameterLaboratory.Label`	=Parameters!ReportParameterLaboratory.Label

Титульная часть

Поля	Интерфейс `...` >> `...` и данные `...` >> `...`	Код и комментарии
КОМПОНЕНТ	`Методики анализа` >> Выбрать методику >> `Редактировать` >> `Карточка методики анализа` >> `Информация` >> `Показатель` `Fields!ind_name.Value` >> `ind_name / TitleDataSet` >> `NAME / INDICATOR`	=Fields!ind_name.Value
Объект испытания	`Методики анализа` >> Выбрать методику >> `Редактировать` >> `Карточка методики анализа` >> `Информация` >> `Объект анализа` `Fields!ao_name.Value` >> `ao_name / TitleDataSet` >> `NAME / ANALYSIS_OBJECT`	=Fields!ao_name.Value
МВИ	`Методики анализа` >> Выбрать методику >> `Редактировать` >> `Карточка методики анализа` >> `Информация` >> `Нормативный документ` `Fields!norm_doc.Value` >> `norm_doc / TitleDataSet` >> `NORMATIVE_DOCUMENT / METHODOLOGY`	=Fields!norm_doc.Value
Метод	-	Фотометрия
ДИАПАЗОН	`Методики анализа` >> Выбрать методику >> `Редактировать` >> `Карточка методики анализа` >> `Выбрать строку` >> `Карточка показателей качества` >> `Диапазон` `Fields!min.Value, Fields!max.Value` >> `min, max / TitleDataSet` >> `RANGE_MIN, RANGE_MAX / JOURNAL_RESULT`	=Fields!min.Value & " - " & Fields!max.Value & " мг/м³"
ПОГРЕШНОСТЬ ИЗМЕРЕНИЯ	`Методики анализа` >> Выбрать методику >> `Редактировать` >> `Карточка методики анализа` >> `Выбрать строку` >> `Карточка показателей качества` >> `Погрешность` `Fields!error_value.Value` >> `error_value / TitleDataSet` >> `VALUE / METH_METR_CHAR_VL`	=Fields!error_value.Value & "%"
ГРАДУИРОВОЧНАЯ ХАРАКТЕРИСТИКА	-	100 - 500 мкг/м³
допустимые значения D (оптическая плотность)	-	-

Блоки формул

<style>
	body {font-family: 'Times New Roman', Times, serif; font-size: 9px; line-height: 1.2;}
	sup {vertical-align: 2pt; font-size: 7px;}
	sub {vertical-align: -1pt; font-size: 7px;} 
</style> 
<body>
    <p>
		результат измерения: <strong>m=К<sub>град</sub>*D; m=(D-a)/b</strong> &nbsp;&nbsp;&nbsp; Расчетная формула: &nbsp;&nbsp;&nbsp; <strong>C=2*(m/V<sub>o</sub>)*K</strong> &nbsp;&nbsp;&nbsp; <strong>C<sub>cp</sub>=(C1+C2+C3+C4+C5)/5</strong><br>
		<strong>m</strong> - масса масла в 5 см<sup>3</sup> пробы, мкг &nbsp;&nbsp;&nbsp; <strong>m</strong> - масса масла в 5 см<sup>3</sup> пробы, мкг<br>
		<strong>D</strong> - оптическая плотность<br>
		<strong>m=К<sub>град</sub>*D; m=(D-a)/b</strong><br>
		<strong>К</strong> - коэффициент разбавления<br>
		<strong>V<sub>a</sub></strong> - объем аликвоты раствора, см<sup>3</sup><br>
		<strong>V<sub>раз</sub></strong> - объем раствора после разбавления, см<sup>3</sup>
	</p>
</body>

<style>
	body {font-family: 'Times New Roman', Times, serif; font-size: 9px; line-height: 1.2;}
	sup {vertical-align: 2pt; font-size: 7px;}
	sub {vertical-align: -1pt; font-size: 7px;} 
</style> 
<body>
    <p><strong>V<sub>г</sub> = 0,0471 * d<sup>2</sup> * W<sub>г</sub>, дм<sup>3</sup>/мин</strong></p>
    <p>V<sub>г</sub> - необходимый объемный расход газа, дм<sup>3</sup>/мин<br>
    d - внутренний диаметр носика пробоотборной трубки, мм<br>
    W<sub>г</sub> - скорость газа в газоходе, м/с</p>

    <div style="margin: 10px 0;">
		<table style="border-collapse: collapse; font-family: 'Times New Roman', serif; font-size: 8px; line-height: 1.2;">
			<tr>
				<!-- Первый столбец: объединенный по высоте для Vp = -->
				<td rowspan="2" style="vertical-align: middle; padding-right: 5px;">
					<strong>V<sub>р</sub> =</strong>
				</td>
				<!-- Второй столбец: числитель -->
				<td style="border-bottom: 1px solid black; text-align: center; padding: 0 5px;">
					<strong>V<sub>г</sub> * (273 + t<sub>p</sub>) * (101,3 ± ΔP<sub>г</sub>)</strong>
				</td>
				<!-- Третий столбец: объединенный для единиц измерения -->
				<td rowspan="2" style="vertical-align: middle; padding-left: 5px;">
					<strong>, дм<sup>3</sup>/мин</strong>
				</td>
			</tr>
			<tr>
				<!-- Второй столбец: знаменатель -->
				<td style="text-align: center; padding: 0 5px;">
					<strong>(273 + t<sub>г</sub>) * (101,3 - ΔP<sub>p</sub>)</strong>
				</td>
			</tr>
		</table>
	</div>

    <p>V<sub>p</sub> - объемный расход газа, приведенный к условиям ротаметра, дм<sup>3</sup>/мин<br>
    ΔP<sub>p</sub> - разряжение перед ротаметром, кПа<br>
    ΔP<sub>г</sub> - разряжение в газоходе, кПа<br>
    t<sub>г</sub> - температура газа в газоходе, °С<br>
    t<sub>p</sub> - температура газа перед ротаметром, °С<br>
    P<sub>0</sub> - атмосферное давление, 101,3 кПа<br>
    r<sub>5</sub> - норматив контроля, 40%<br>
    r - норматив контроля размаха значений оптической плотности, %</p>
</body>

<style>
	body {font-family: 'Times New Roman', Times, serif; font-size: 9px; line-height: 1.2;}
	sup {vertical-align: 2pt; font-size: 7px;}
	sub {vertical-align: -1pt; font-size: 7px;} 
</style> 
<body>
    <div style="margin: 5px 0;">
		<table style="border-collapse: collapse; font-family: 'Times New Roman', serif; font-size: 8px; line-height: 1.2;">
			<tr>
				<!-- Объединенная ячейка для начала формулы -->
				<td rowspan="2" style="vertical-align: middle; padding-right: 5px;">
					<strong>V<sub>o</sub> =</strong>
				</td>
				<!-- Числитель -->
				<td style="border-bottom: 1px solid black; text-align: center; padding: 0 5px;">
					<strong>273 * T * V<sub>p</sub> * (P<sub>a</sub> - ΔP<sub>p</sub>)</strong>
				</td>
				<!-- Объединенная ячейка для конца формулы -->
				<td rowspan="2" style="vertical-align: middle; padding-left: 5px;">
					<strong>, дм<sup>3</sup></strong>
				</td>
			</tr>
			<tr>
				<!-- Знаменатель -->
				<td style="text-align: center; padding: 0 5px;">
					<strong>101,3 * (273 ± t<sub>p</sub>)</strong>
				</td>
			</tr>
		</table>
	</div>

    <p style="margin: 2px 0;">V<sub>o</sub> - объем отработанной газовоздушной смеси, приведенный к н.у., дм<sup>3</sup></p>
    <p style="margin: 2px 0;">P<sub>0</sub> - атмосферное давление, 101,3 кПа</p>
    <p style="margin: 2px 0;">T - время пропускания газа через ротаметр, мин</p>
    <p style="margin: 2px 0;">P<sub>a</sub> - атмосферное давление при отборе проб воздуха, кПа</p>
</body>

Основная таблица результатов

В полях заголовка таблицы используется типовой блок стиля HTML:

<style>
	body { font-family: 'Times New Roman', Times, serif; font-size: 9px; line-height: 1.2; text-align: center; font-weight: bold; }
	sup { vertical-align: 2pt; font-size: 7px; }
	sub { vertical-align: -1pt; font-size: 7px; } 
</style>

К этому блоку добавляется индивидуальный для каждого столбца блок <body></body>.

Поля заголовка таблицы	Интерфейс `...` >> `...` и данные `...` >> `...`	Код и комментарии
<body> Акт<br> отбора<br> (приема)<br> проб </body>	- `Fields!act_num.Value` >> `act_num / ResultDataSet` >> `STRING_VALUE / JOURNAL_RECORD_ATTRIBUTE`	=GetOrDash(Fields!act_num.Value) используется функция `GetOrDash()`
<body> Дата<br> начала<br> анализа </body>	`Лабораторные журналы` >> Выбрать лабораторию >> `Анализ` >> `Дата регистрации` `Fields!analys_date.Value` >> `analys_date / ResultDataSet` >> `DATE_VALUE / JOURNAL_RESULT_ATTRIBUTE`	=Format(Fields!analys_date.Value, "dd.MM.yyy")
<body> Шифр пробы </body>	`Лабораторные журналы` >> Выбрать лабораторию >> `Анализ` >> `Шифр пробы` `Fields!code.Value` >> `code / ResultDataSet` >> `STRING_VALUE / JOURNAL_RECORD_ATTRIBUTE`	=GetOrDash(Integer.Parse(Fields!code.Value)) используется функция `GetOrDash()`
<body> Коэф. ГХ </body>	`Лабораторные журналы` >> Выбрать лабораторию >> `Анализ` >> Выбрать строку >> `Результаты` >> `+` `Fields!Kград.Value, Fields!a.Value, Fields!b.Value` >> `Kград, a, b / ResultDataSet` >> `VALUE/ JRPARALLELVARS`	=CalcKoefGH(Fields!Kград.Value, Fields!a.Value, Fields!b.Value) 'Расчет Коэф.ГХ Public Function CalcKoefGH(Kgrad As Double, a As Double, b As Double) As String Dim resultString As String If Not String.IsNullOrEmpty(Kgrad) Then resultString = Kgrad Else Dim rounder As New Triteia.Rounding() resultString = "a = " & rounder.RoundBase(a, 2, 1) & vbLF & "b = " & rounder.RoundBase(b, 2, 1) End If Return resultString End Function
<body> P<sub>а</sub>, кПа </body>	`Лабораторные журналы` >> Выбрать лабораторию >> `Анализ` >> Выбрать строку >> `Результаты` >> `+` `Fields!Ra.Value` >> `Ra / ResultDataSet` >> `VALUE/ JRPARALLELVARS`	=Fields!Ra.Value
<body> ΔP<sub>р</sub>, кПа </body>	`Лабораторные журналы` >> Выбрать лабораторию >> `Анализ` >> Выбрать строку >> `Результаты` >> `+` `Fields!Rr.Value` >> `Rr / ResultDataSet` >> `VALUE/ JRPARALLELVARS`	=Fields!Rr.Value
<body> ΔP<sub>г</sub>, кПа </body>	`Лабораторные журналы` >> Выбрать лабораторию >> `Анализ` >> Выбрать строку >> `Результаты` >> `+` `Fields!Rg.Value` >> `Rg / ResultDataSet` >> `VALUE/ JRPARALLELVARS`	=Fields!Rg.Value
<body> t<sub>р</sub>, ℃ </body>	`Лабораторные журналы` >> Выбрать лабораторию >> `Анализ` >> Выбрать строку >> `Результаты` >> `+` `Fields!tr.Value` >> `tr / ResultDataSet` >> `VALUE/ JRPARALLELVARS`	=Fields!tr.Value
<body> t<sub>г</sub>, ℃ </body>	`Лабораторные журналы` >> Выбрать лабораторию >> `Анализ` >> Выбрать строку >> `Результаты` >> `+` `Fields!tg.Value` >> `tg / ResultDataSet` >> `VALUE/ JRPARALLELVARS`	=Fields!tg.Value
<body> W, м/с </body>	`Лабораторные журналы` >> Выбрать лабораторию >> `Анализ` >> Выбрать строку >> `Результаты` >> `+` `Fields!Wg.Value` >> `Wg / ResultDataSet` >> `VALUE/ JRPARALLELVARS`	=Fields!Wg.Value
<body> d, мм </body>	`Лабораторные журналы` >> Выбрать лабораторию >> `Анализ` >> Выбрать строку >> `Результаты` >> `+` `Fields!d.Value` >> `d / ResultDataSet` >> `VALUE/ JRPARALLELVARS`	=Fields!d.Value
<body> V<sub>г</sub>,<br> дм<sup>3</sup>/мин </body>	`Лабораторные журналы` >> Выбрать лабораторию >> `Анализ` >> Выбрать строку >> `Результаты` >> `+` `Fields!d.Value, Fields!Wg.Value` >> `d, Wg / ResultDataSet` >> `VALUE/ JRPARALLELVARS`	=CalcVg(Fields!d.Value, Fields!Wg.Value) 'Расчет Vг - необходимого объемного расхода газа, дм3/мин Public Function CalcVg(d As Double, Wg As Double) As String Dim Vg As Double = 0.0471 * d * d * Wg Return New Triteia.Rounding().RoundBase(Vg, 0, 1) End Function
<body> T, мин </body>	`Лабораторные журналы` >> Выбрать лабораторию >> `Анализ` >> Выбрать строку >> `Результаты` >> `+` `Fields!T.Value` >> `T / ResultDataSet` >> `VALUE/ JRPARALLELVARS`	=Fields!T.Value
<body> V<sub>р</sub>,<br> дм<sup>3</sup>/мин </body>	`Лабораторные журналы` >> Выбрать лабораторию >> `Анализ` >> Выбрать строку >> `Результаты` >> `+` `Fields!d.Value, Fields!Wg.Value, Fields!tr.Value, Fields!Rg.Value, Fields!tg.Value, Fields!Rr.Value` >> `d, Wg, tr, Rg, tg, Rr / ResultDataSet` >> `VALUE/ JRPARALLELVARS`	=CalcVr(Fields!d.Value, Fields!Wg.Value, Fields!tr.Value, Fields!Rg.Value, Fields!tg.Value, Fields!Rr.Value) 'Расчет Vр - объема расхода газа, приведенного к условиям ротаметра, дм3/мин Public Function CalcVr(d As Double, Wg As Double, tr As Double, Rg As Double, tg As Double, Rr As Double) As String Dim Vr As Double = CalcVg(d, Wg) * (273 + tr) * (101.3 + Rg) / ((273 + tg) * (101.3 - Rr)) Return New Triteia.Rounding().RoundBase(Vr, 0, 1) End Function
<body> V<sub>о</sub>,<br> дм<sup>3</sup> </body>	`Лабораторные журналы` >> Выбрать лабораторию >> `Анализ` >> Выбрать строку >> `Результаты` >> `+` `Fields!d.Value, Fields!Wg.Value, Fields!tr.Value, Fields!Rg.Value, Fields!tg.Value, Fields!Rr.Value, Fields!T.Value, Fields!Ra.Value` >> `d, Wg, tr, Rg, tg, Rr, T, Ra / ResultDataSet` >> `VALUE/ JRPARALLELVARS`	=CalcVo(Fields!d.Value, Fields!Wg.Value, Fields!tr.Value, Fields!Rg.Value, Fields!tg.Value, Fields!Rr.Value, Fields!T.Value, Fields!Ra.Value) 'Рассчет Vо - объема отработанной газовоздушной смеси, приведенный к н.у., дм3 Public Function CalcVo(d As Double, Wg As Double, tr As Double, Rg As Double, tg As Double, Rr As Double, T As Double, Ra As Double) As String Dim Vr As Double = CalcVr(d, Wg, tr, Rg, tg, Rr) Dim Vo As Double = (273 * T * Vr * (Ra - Rr)) / (101.3 * (273 + tr)) Return New Triteia.Rounding().RoundBase(Vo, 0, 1) End Function
<body> V<sub>а</sub>,<br> см<sup>3</sup> </body>	`Лабораторные журналы` >> Выбрать лабораторию >> `Анализ` >> Выбрать строку >> `Результаты` >> `+` `Fields!Va.Value` >> `Va / ResultDataSet` >> `VALUE/ JRPARALLELVARS`	=Fields!Va.Value
<body> V<sub>раз</sub>,<br> см<sup>3</sup> </body>	`Лабораторные журналы` >> Выбрать лабораторию >> `Анализ` >> Выбрать строку >> `Результаты` >> `+` `Fields!Vraz.Value` >> `Vraz / ResultDataSet` >> `VALUE/ JRPARALLELVARS`	=Fields!Vraz.Value
<body> K </body>	`Лабораторные журналы` >> Выбрать лабораторию >> `Анализ` >> Выбрать строку >> `Результаты` >> `+` `Fields!Vraz.Value, Fields!Va.Value` >> `Vraz, Va / ResultDataSet` >> `VALUE/ JRPARALLELVARS`	=CalcK(Fields!Vraz.Value, Fields!Va.Value) 'Рассчет K Public Function CalcK(Vraz As Double, Va As Double) As String Dim K As Double = Vraz / Va If (K = 1) Then Return K Else Return New Triteia.Rounding().RoundBase(K, 2, 1) End If End Function
<body> D<sub>1</sub> </body>	`Лабораторные журналы` >> Выбрать лабораторию >> `Анализ` >> Выбрать строку >> `Результаты` >> `+` `Fields!D1.Value` >> `D1 / ResultDataSet` >> `VALUE/ JRPARALLELVARS`	=Code.Rounding.RoundBase(Fields!D1.Value, 4, 1)
<body> D<sub>2</sub> </body>	`Лабораторные журналы` >> Выбрать лабораторию >> `Анализ` >> Выбрать строку >> `Результаты` >> `+` `Fields!D2.Value` >> `D2 / ResultDataSet` >> `VALUE/ JRPARALLELVARS`	=Code.Rounding.RoundBase(Fields!D2.Value, 4, 1)
<body> r<sub>к</sub> </body>	`Лабораторные журналы` >> Выбрать лабораторию >> `Анализ` >> Выбрать строку >> `Результаты` >> `+` `Fields!D1.Value, Fields!D2.Value` >> `D1, D2 / ResultDataSet` >> `VALUE/ JRPARALLELVARS`	=CalcRk(Fields!D1.Value, Fields!D2.Value) 'Рассчет rk Public Function CalcRk(D1 As Double, D2 As Double) As String Dim rk As Double = (Math.Abs(D2 - D1)) / ((D1 + D2) / 2) * 100 Return New Triteia.Rounding().RoundBase(rk, 1, 1) End Function
<body> r </body>	-	3%
<body> Рез-т<br> контр.<br> проце-<br> дуры </body>	`Лабораторные журналы` >> Выбрать лабораторию >> `Анализ` >> Выбрать строку >> `Результаты` >> `+` `Fields!D1.Value, Fields!D2.Value` >> `D1, D2 / ResultDataSet` >> `VALUE/ JRPARALLELVARS`	=CalcResult(Fields!D1.Value, Fields!D2.Value) 'Рассчет Результата контрольной процедуры (удовл. / не удовл.) Public Function CalcResult(D1 As Double, D2 As Double) As String Dim rk As Double = (Math.Abs(D2 - D1)) / ((D1 + D2) / 2) * 100 If (rk <= 3) Then Return "удовл." Else Return "не удовл." End If End Function
<body> m, мкг </body>	`Fields!error_value.Value` >> `error_value / ResultDataSet` >> `VALUE/ METH_METR_CHAR_VL`	=Fields!error_value.Value
<body> C<sub>n</sub>, мг/м<sup>3</sup> </body>	`Fields!Cn.Value` >> `Cn / ResultDataSet` >> `RESULT_R / JRPARALLEL`	=Fields!Cn.Value
<body> r<sub>к</sub> </body>	-	-
<body> r </body>	-	-
<body> Рез-т<br> контр.<br> проце-<br> дуры </body>	-	-
<body> C, мг/м<sup>3</sup> </body>	`Лабораторные журналы` >> Выбрать лабораторию >> `Анализ` >> Выбрать строку >> `Результаты` >> `Результат` `Fields!C.Value` >> `C / ResultDataSet` >> `AVG_R / JOURNAL_RESULT`	=Fields!C.Value
<body> Погр.<br>(±Δ),<br> мг/м<sup>3</sup> </body>	`Лабораторные журналы` >> Выбрать лабораторию >> `Анализ` >> Выбрать строку >> `Результаты` >> `Показатель точности` `Fields!Погр.Value` >> `Погр / ResultDataSet` >> `DC / JOURNAL_RESULT`	=Fields!Погр.Value
<body> Исполнитель </body>	`Персонал` >> Выбрать запись >> `Карточка сотрудника` >> `Фамилия`, `Имя`, `Отчество` `Fields!surname.Value, Fields!name.Value, Fields!patronimyc.Value,` >> `surname, name, patronimyc / MainDataSet` >> `SURNAME; NAME; PATRONYMIC / EMPLOYEE`	=FormatFio(Fields!surname.Value, Fields!name.Value, Fields!patronymic.Value, 1) используется функция `FormatFio()`

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

Поля	Интерфейс `...` >> `...` и данные `...` >> `...`	Код и комментарии
Имя программы	`Code.Globals.GetProgramName()`	=Code.Globals.GetProgramName()
Нумерация страниц	Страница `Parameters!ReportParameterPage.Value`	="Страница " & Parameters!ReportParameterPage.Value