Сведения о работниках лаборатории: различия между версиями

Версия от 02:48, 4 марта 2026

Параметры

№	Параметр	Тип поля	Данные	Сортировка
1	`Выберите лабораторию:`	выбор значения	лаборатории, имеющие записи в журналах	сначала головное учреждение, затем остальные по алфавиту
2	`Укажите ФИО уполномоченного лица:`	выбор значения	сотрудники из `лаборатории (п.1)`	по алфавиту
3	`Укажите должность уполномоченного лица:`	выбор значения	должности `сотрудника (п.2)`	по алфавиту
4	`Сотрудники (область аккредитации):`	выбор одного из 2-х вариантов - «в области аккредитации», «вне области аккредитации»	отметка проставляется ТОЛЬКО для сотрудников лаборатории	-
5	`Введите начальное значение нумерации строк:`	ввод числа	начальное значение, с которого будет начинаться нумерация строк (по умолчанию 1)	-

Атрибуты

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

СНИЛС
Форма привлечения труда
Тип занятости
Номер договора
Дата договора
Выполняемые функции
Образовательное учреждение
Период обучения
Специальность, специализация, квалификация
Реквизиты документа об образовании
Дата получения диплома
В области аккредитации

Внимание!

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

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

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

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

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

Поля	Интерфейс `...` >> `...` и данные `...` >> `...`	Код и комментарии
Название лаборатории	`Parameters!ReportParameterLaboratory.Label`	=Parameters!ReportParameterLaboratory.Label
Владелец версии	`Code.Globals.GetVersionOwner()`	="Владелец версии: " & Code.Globals.GetVersionOwner()

Заголовок

Поля	Интерфейс `...` >> `...` и данные `...` >> `...`	Код и комментарии
Текущая дата	`Today.ToString("dd.MM.yyyy")`	="По состоянию на: " & Today.ToString("dd.MM.yyyy")

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

Поля	Интерфейс `...` >> `...` и данные `...` >> `...`	Код и комментарии
№ п/п	Сквозная нумерация строк `RowNumber()`, начальное значение нумерации строк из параметра фильтра `Parameters!ReportParametrNumberFirstString.Value – 1`	=RowNumber() + Parameters!ReportParametrNumberFirstString.Value – 1 из счетчика `RowNumber()` вычитается единица, чтобы скорректировать смещение относительно числа, введенного пользователем; при вводе пользователем, например, числа 50, для первой строки отчета `RowNumber()` вернет 1: выражение вычисляется как 1 + 50 - 1, что дает в результате 50 (желаемый начальный номер); для второй строки `RowNumber()` вернет 2, и выражение даст 2 + 50 - 1 = 51, и так далее
Фамилия, имя, отчество (при наличии), страховой номер индивидуального лицевого счета, дата и место рождения	`Персонал` >> Выбрать запись >> `Карточка сотрудника` >> `Фамилия`; `Имя`; `Отчество`; `СНИЛС`; `Дата рождения` `Fields!fio.Value` >> `fio / MainDataSet` >> `SURNAME; NAME; PATRONYMIC / EMPLOYEE` `Fields!snils.Value` >> `snils / MainDataSet` >> `STRING_VALUE / EMPLOYEE_ATTRIBUTE`	=Code.ConcatFields(vbLF, Fields!fio.Value, Fields!snils.Value) в ячейку вносятся (через перенос на новую строку) значение ФИО и значение поля СНИЛС (если не пустое); для соединения полей используется функция `ConcatFields()`
Основание для привлечения личного труда (трудовой договор, гражданско-правовой договор или иное), работа по основному месту работы или по совместительству	`Персонал` >> Выбрать запись >> `Карточка сотрудника` >> `Форма привлечения труда`; `Номер договора`; `Дата договора`; `Тип занятости` `Fields!employment_form.Value`; `Fields!contract_number.Value`; `Fields!employment_type.Value` >> `employment_form; contract_number; employment_type / MainDataSet` >> `STRING_VALUE / EMPLOYEE_ATTRIBUTE` `Fields!contract_date.Value` >> `contract_date / MainDataSet` >> `DATE_VALUE / EMPLOYEE_ATTRIBUTE`	=Code.ConcatFields(", ", Fields!employment_form.Value, Fields!contract_number.Value, Fields!contract_date.Value.ToString("dd.MM.yyyy"), Fields!employment_type.Value) если все 4 поля БД, содержащие форму, номер, дату и тип являются пустыми, то в строку заносится прочерк; иначе вносятся через запятую форма, номер, дата и тип; для соединения полей используется функция `ConcatFields()`
Выполняемые функции, проводимые исследования, испытания, измерения	`Персонал` >> Выбрать запись >> `Карточка сотрудника` >> `Выполняемые функции` `Fields!function_value.Value` >> `function_value / MainDataSet` >> `STRING_VALUE / EMPLOYEE_ATTRIBUTE`	=IIF(IsNothing (Fields!function_value.Value), "-", Fields!function_value.Value) если поле БД, содержащее функцию, пустое, то вносится прочерк, иначе вносится функция из поля
Образование (наименование учебного заведения, год окончания, квалификация по документу об образовании, реквизиты документа об образовании)	`Персонал` >> Выбрать запись >> `Карточка сотрудника` >> `Образовательное учреждение`; `Дата получения диплома`; `Специальность, специализация, квалификация`; `Реквизиты документа об образовании` `Fields!uni.Value`; `Fields!prof.Value`; `Fields!diplom.Value` >> `uni; prof; diplom / MainDataSet` >> `STRING_VALUE / EMPLOYEE_ATTRIBUTE` `Fields!uni_year.Value` >> `uni_year / MainDataSet` >> `DATE_VALUE / EMPLOYEE_ATTRIBUTE`	=Code.ConcatFields(", ",Fields!uni.Value, Fields!uni_year.Value, Fields!prof.Value, Fields!diplom.Value) если все 4 поля БД (учебное заведение, год окончания, специальность и реквизиты диплома) пустые, то вносится прочерк; иначе через запятую выводятся только не пустые поля; для соединения полей используется функция `ConcatFields()`
Практический опыт по исследованиям, испытаниям, измерениям, включенным в область аккредитации (в годах, с указанием, в каких организациях, в какой период и по каким видам исследований (испытаний) измерений получен)	`Персонал` >> Выбрать запись >> `Карточка сотрудника` >> `Дата получения диплома` `Fields!diplom_date.Value` >> `diplom_date / MainDataSet` >> `DATE_VALUE / EMPLOYEE_ATTRIBUTE`	=IIF(IsNothing(Fields!diplom_date.Value), "-", Code.YearsWithSuffix(Fields!diplom_date.Value) & vbLF & Fields!diplom_date.Value.ToString("dd.MM.yyyy") & " - по текущую дату") если в БД поле даты начала трудовой деятельности пустое, выводится прочерк; иначе выводятся количество лет и текстовый суффикс « год/года/лет» в зависимости от числа лет стажа (используется функция `YearsWithSuffix()`); перенос строки (`vbLF`); год начала трудовой деятельности + «по текущую дату».

Для вывода основной информации также использовались:

Выравнивание текста по условию

Подписи

Поля	Интерфейс `...` >> `...` и данные `...` >> `...`	Код и комментарии
Должность	Подстановка из фильтра `Parameters!ReportParameterPosition.Label`	=Parameters!ReportParameterPosition.Label
ФИО	Получение данных из фильтра `Parameters!ReportParameterFio.Label` и преобразование в формат И.О. Фамилия `Code.FormatAsInitialsSurname()`	=Code.FormatAsInitialsSurname(Parameters!ReportParameterFio.Label) для преобразования используется функция `FormatAsInitialsSurname()`

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

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

@@ Строка 173: / Строка 173: @@
 |Получение данных из фильтра <code>Parameters!ReportParameterFio.Label</code> и преобразование в формат И.О. Фамилия <code>Code.FormatAsInitialsSurname()</code>
 |<syntaxhighlight lang="vb">=Code.FormatAsInitialsSurname(Parameters!ReportParameterFio.Label)</syntaxhighlight>
-<syntaxhighlight lang="vb">Public Function FormatAsInitialsSurname(fullName As String) As String
+для преобразования используется функция [[Scripts#FormatAsInitialsSurname()|<code>FormatAsInitialsSurname()</code>]]
-	Dim trimmedName As String = fullName.Trim()
-	Dim nameParts() As String = trimmedName.Split(New Char() {" "c}, StringSplitOptions.RemoveEmptyEntries)
-	If nameParts.Length < 2 Then
-		Return fullName
-	End If
-	Dim surname As String = nameParts(0)
-	Dim firstNameInitial As Char = nameParts(1)(0)
-	Dim middleNameInitial As Char? = Nothing
-	If nameParts.Length >= 3 Then
-		middleNameInitial = nameParts(2)(0)
-	End If
-	Dim result As String = $"{firstNameInitial}."
-	If middleNameInitial.HasValue Then
-		result &= $"{middleNameInitial}."
-	End If
-	result &= $" {surname}"
-	Return result
-End Function
-</syntaxhighlight>
-функция принимает строку полных Фамилии, Имени и Отчества;
-полученное значение сохраняется в переменной <code>trimmedName</code> после удаления начальных и конечных пробелов (если они были) с помощью встроенной функции <code>Trim()</code>;
-в массиве <code>nameParts()</code> сохраняются составные части строки (слова), разбитые с помощью встроенной функции <code>Split()</code>;
-если имя содержит менее двух частей (например, только "Иван" или только "Петров"), функция возвращает исходную строку <code>fullName</code> без изменений;
-в переменной surname сохраняется первый элемент массива <code>nameParts(0)</code> - Фамилия;
-в переменной <code>firstNameInitial</code> сохраняется из второго элемента массива первая буква <code>nameParts(1)(0)</code> – инициал имени;
-создается переменная <code>middleNameInitial</code>, которая по умолчанию назначается пустой (на случай отсутствия отчества);
-при количестве элементов массива более или равных 3 (при наличии отчества), переменной <code>middleNameInitial</code> в качестве значения присваивается из третьего элемента массива первая буква <code>nameParts(2)(0)</code> – инициал отчества;
-создается переменная <code>result</code>, в которую объединяются «И.» + «О.» + « Фамилия»;
-функция возвращает значение <code>result</code> в выражение ячейки для дальнейшего отображения
 |-
 |}