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

Текущая версия от 03:48, 26 января 2026

Параметры

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

Атрибуты

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

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

Внимание!

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

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

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

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

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

Поля	Интерфейс `...` >> `...` и данные `...` >> `...`	Код и комментарии
Название лаборатории	`Parameters!ReportParameterLaboratory.Value`	=Parameters!ReportParameterLaboratory.Value
Владелец версии	`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`	=IIF( Not IsNothing(Fields!snils.Value), Fields!fio.Value + vbLF + "СНИЛС " + Fields!snils.Value, Fields!fio.Value) если поле БД, содержащее СНИЛС, не пустое, то в ячейку вносится значение ФИО + перенос на новую строку + надпись «СНИЛС: » + значение поля СНИЛС; иначе вносится только значение ФИО
Основание для привлечения личного труда (трудовой договор, гражданско-правовой договор или иное), работа по основному месту работы или по совместительству	`Персонал` >> Выбрать запись >> `Карточка сотрудника` >> `Форма привлечения труда`; `Номер договора`; `Дата договора`; `Тип занятости` `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`	=IIF(IsNothing(Fields!employment_form.Value) And IsNothing(Fields!contract_number.Value) And IsNothing(Fields!contract_date.Value) And IsNothing(Fields!employment_type.Value), "-", Fields!employment_form.Value + " " + Fields!contract_number.Value +IIF( Not IsNothing(Fields!contract_date.Value), " от " + DateValue(Fields!contract_date.Value), "") + " (" + Fields!employment_type.Value + ")") если все 4 поля БД, содержащие форму, номер, дату и тип являются пустыми, то в строку заносится прочерк; иначе вносятся форма + номер + (если дата не пустая, то « от » + дата, если пустая то ничего) + тип
Выполняемые функции, проводимые исследования, испытания, измерения	`Персонал` >> Выбрать запись >> `Карточка сотрудника` >> `Выполняемые функции` `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`	=IIF(IsNothing(Fields!uni.Value) And IsNothing(Fields!uni_year.Value) And IsNothing(Fields!prof.Value) And IsNothing(Fields!diplom.Value), "-", IIF( Not IsNothing(Fields!uni.Value), Fields!uni.Value & ", ", "") &IIF( Not IsNothing(Fields!uni_year.Value), Fields!uni_year.Value & ", ", "") & IIF( Not IsNothing(Fields!prof.Value), Fields!prof.Value & ", ", "") & Fields!diplom.Value) если все 4 поля БД (учебное заведение, год окончания, специальность и реквизиты диплома) пустые, то вносится прочерк; иначе к трем полям применяется условие – если поле не пустое, выводится поле и запятая, если пустое, то ничего; к последнему полю применяется условие без запятой – если поле не пустое, то выводится поле, если пустое, то ничего;
Практический опыт по исследованиям, испытаниям, измерениям, включенным в область аккредитации (в годах, с указанием, в каких организациях, в какой период и по каким видам исследований (испытаний) измерений получен)	`Персонал` >> Выбрать запись >> `Карточка сотрудника` >> `Дата получения диплома` `Fields!diplom_date.Value` >> `diplom_date / MainDataSet` >> `DATE_VALUE / EMPLOYEE_ATTRIBUTE`	=IIF(IsNothing(Fields!diplom_date.Value), "-", Code.ReturnYearsWithSuffix(DateValue(Fields!diplom_date.Value)) & vbLF & Fields!diplom_date.Value & " - по текущую дату") если в БД поле даты начала трудовой деятельности пустое, выводится прочерк; иначе ‒ вызывает функцию `ReturnYearsWithSuffix()`, возвращающую количество лет и текстовый суффикс « год/года/лет» в зависимости от числа лет стажа; ‒ переносит строку (`vbLF`); ‒ выводит год начала трудовой деятельности + «по текущую дату» Public Function ReturnYearsWithSuffix(inputDate As Date) As String Dim yearsDiff As Long = DateDiff(DateInterval.Year, inputDate, Now()) Dim resultDate As Long = yearsDiff Dim resultString As String = yearsDiff.ToString() If (resultDate > 20) Then resultDate = resultDate Mod 10 End If Select Case resultDate Case 1 resultString &= $" год" Case 2 To 4 resultString &= $" года" Case Else resultString &= $" лет" End Select Return resultString End Function функция принимает числовое значение количества лет трудового стажа; `DateDiff()` вычисляет разницу между двумя датами (между третьим и вторым аргументами), при этом первый аргумент `DateInterval.Year` указывает функции, в каких единицах измерения нужно вернуть разницу (в данном случае, в полных годах), второй аргумент `inputDate` начало периода, третий аргумент `Now()` конец периода (текущая системная дата и время на момент выполнения кода); результат вычисления присваивается переменной `yearsDiff`; значение сохраняется в виде строки в переменной `resultString`; создается переменная `resultDate` и ей присваивается ранее вычисленное значение лет из переменной `yearsDiff` (для последующих вычислений суффикса); если количество лет более 20, то `resultDate` делится на 10 и получившийся остаток перезаписывается в переменную `resultDate`; переменная `resultDate` для определения соответствующего суффикса отправляется в оператор `Select Case`, где в зависимости от ее значения к ранее полученной строке `resultString` дописывается через пробел необходимый суффикс «год/года/лет»; функция возвращает итоговую строку в вызвавшее ее выражение в ячейке для дальнейшей обработки (соединения с другими данными)

Подписи

Поля	Интерфейс `...` >> `...` и данные `...` >> `...`	Код и комментарии
Должность	Подстановка из фильтра `Parameters!ReportParameterPosition.Value`	=Parameters!ReportParameterPosition.Value
ФИО	Получение данных из фильтра `Parameters!ReportParameterFio.Value` и преобразование в формат И.О. Фамилия `Code.FormatAsInitialsSurname()`	=Code.FormatAsInitialsSurname(Parameters!ReportParameterFio.Value) Public Function FormatAsInitialsSurname(fullName As String) As String 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 функция принимает строку полных Фамилии, Имени и Отчества; полученное значение сохраняется в переменной `trimmedName` после удаления начальных и конечных пробелов (если они были) с помощью встроенной функции `Trim()`; в массиве `nameParts()` сохраняются составные части строки (слова), разбитые с помощью встроенной функции `Split()`; если имя содержит менее двух частей (например, только "Иван" или только "Петров"), функция возвращает исходную строку `fullName` без изменений; в переменной surname сохраняется первый элемент массива `nameParts(0)` - Фамилия; в переменной `firstNameInitial` сохраняется из второго элемента массива первая буква `nameParts(1)(0)` – инициал имени; создается переменная `middleNameInitial`, которая по умолчанию назначается пустой (на случай отсутствия отчества); при количестве элементов массива более или равных 3 (при наличии отчества), переменной `middleNameInitial` в качестве значения присваивается из третьего элемента массива первая буква `nameParts(2)(0)` – инициал отчества; создается переменная `result`, в которую объединяются «И.» + «О.» + « Фамилия»; функция возвращает значение `result` в выражение ячейки для дальнейшего отображения

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

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