Личная карточка Т-2 с выводом информации о повышении квалификации, профессиональной переподготовке, аттестации. ЗУП 2.5, ЗИК БУ 1.0

02.12.15

Учетные задачи - Кадровый учет

Вывод данных о дополнительном образовании в карточку Т-2 для конфигураций ЗУП 2.5, ЗИК БУ 1.0

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование По подписке [?] Купить один файл
ВПФ_т2
.epf 4,28Kb ver:1.0.0.0
28
28 Скачать (1 SM) Купить за 1 850 руб.

Как многие знают, разработчики не предусмотрели данной возможности в вышеозвученных конфигурациях. На самом деле это не так сложно реализовать. Достаточно модифицировать одну процедуру переопределяемого модуля (так что при обновлении не должно возникнуть проблем).

Эта процедура находится в общем модуле "УнифицированнаяФормаТ2Переопределяемый":

Процедура СформироватьМакетДополнительно(ДополнительныеДанные, ТретьяСтраницаТ2, СтруктураПоискаФизЛицо, СтруктураПоискаСотрудник) Экспорт

На входе процедура имеет параметр ДополнительныеДанные, который можно инициализировать при программном формироании отчета. Параметр ТретьяСтраницаТ2 это область макета отчета "Т2_от_5_1_2004"Параметры СтруктурапоискаФизЛицо и СтруктураПоискаСотрудник содержат структуру со ссылкой на сотрудника и физика соответственно.

Выкладываю свой код по выводу данных о дополнительном образовании, думаю, разобраться будет несложно. Также замечу, что реквизиты с префиксом ИТ не типовые, так что бездумное копирование кода ни к чему хорошему не приведет.

 

	ВО_ПовышениеКвалификации = Справочники.ВидыОбразованияФизЛиц.НайтиПоНаименованию("Повышение квалификции");
	ВО_ПрофПереподготовка	 = Справочники.ВидыОбразованияФизЛиц.НайтиПоНаименованию("Профессиональная переподготовка");
	
	//ПОВЫШЕНИЕ КВАЛИФИКАЦИИ
	Запрос = Новый Запрос;
	Запрос.Текст =
		"ВЫБРАТЬ
		|	ФизическиеЛицаОбразование.ИТ_НачалоОбучения,
		|	ФизическиеЛицаОбразование.ИТ_ОкончаниеОбучения,
		|	ФизическиеЛицаОбразование.УчебноеЗаведение,
		|	ФизическиеЛицаОбразование.ИТ_НаименованиеДокумента,
		|	ФизическиеЛицаОбразование.Диплом,
		|	ФизическиеЛицаОбразование.ИТ_ДатаОкончания
		|ИЗ
		|	Справочник.ФизическиеЛица.Образование КАК ФизическиеЛицаОбразование
		|ГДЕ
		|	ФизическиеЛицаОбразование.Ссылка = &ФизЛицо
		|	И ФизическиеЛицаОбразование.ВидОбразования = &ВидОбр";
	Запрос.УстановитьПараметр("Физлицо", СтруктураПоискаФизЛицо.ФизЛицо);
	Запрос.УстановитьПараметр("ВидОбр", ВО_ПовышениеКвалификации);
	
	ном = 0;
	
	Выборка = Запрос.Выполнить().Выбрать();
	пока Выборка.Следующий() Цикл
		ном = ном + 1;
		
		Если ном > 6 тогда
			Прервать;
		КонецЕсли;
		
		ТретьяСтраницаТ2.Параметры["ДатаНачалаОбучения"+ном] 				= Выборка.ИТ_НачалоОбучения;
		ТретьяСтраницаТ2.Параметры["ДатаОкончанияОбучения"+Ном]				= Выборка.ИТ_ОкончаниеОбучения;
		ТретьяСтраницаТ2.Параметры["Учреждение"+Ном]                       	= Выборка.УчебноеЗаведение;
		ТретьяСтраницаТ2.Параметры["ДокументООбразование"+Ном]             	= Выборка.ИТ_НаименованиеДокумента;
		ТретьяСтраницаТ2.Параметры["СерияНомерДокументаОбразования"+Ном]   	= Выборка.Диплом;
		ТретьяСтраницаТ2.Параметры["ДатаДокументОбразования"+Ном]          	= Выборка.ИТ_ДатаОкончания;	
	КонецЦикла;
	
	//ПРОФ ПЕРЕПОДГОТОВКА
	Запрос.Текст =
		"ВЫБРАТЬ
		|	ФизическиеЛицаОбразование.ИТ_НачалоОбучения,
		|	ФизическиеЛицаОбразование.ИТ_ОкончаниеОбучения,
		|	ФизическиеЛицаОбразование.Специальность,
		|	ФизическиеЛицаОбразование.ИТ_НаименованиеДокумента,
		|	ФизическиеЛицаОбразование.Диплом,
		|	ФизическиеЛицаОбразование.ИТ_ДатаОкончания
		|ИЗ
		|	Справочник.ФизическиеЛица.Образование КАК ФизическиеЛицаОбразование
		|ГДЕ
		|	ФизическиеЛицаОбразование.Ссылка = &ФизЛицо
		|	И ФизическиеЛицаОбразование.ВидОбразования = &ВидОбр";
	Запрос.УстановитьПараметр("Физлицо", СтруктураПоискаФизЛицо.ФизЛицо);
	Запрос.УстановитьПараметр("ВидОбр", ВО_ПрофПереподготовка);
	
	ном = 0;
	
	Выборка = Запрос.Выполнить().Выбрать();
	пока Выборка.Следующий() Цикл
		ном = ном + 1;
		
		Если ном > 5 тогда
			Прервать;
		КонецЕсли;
		
		ТретьяСтраницаТ2.Параметры["ДатаНачалаПереподготовки"+ном] 		   	= Выборка.ИТ_НачалоОбучения;
		ТретьяСтраницаТ2.Параметры["ДатаОкончанияПереподготовки"+Ном]		= Выборка.ИТ_ОкончаниеОбучения;
		ТретьяСтраницаТ2.Параметры["Специальность"+Ном]                     = Выборка.Специальность;
		ТретьяСтраницаТ2.Параметры["ДокументОПереподготовка"+Ном]           = Выборка.ИТ_НаименованиеДокумента;
		ТретьяСтраницаТ2.Параметры["СерияНомерДокументаПереподготовки"+Ном] = Выборка.Диплом;
		ТретьяСтраницаТ2.Параметры["ДатаДокументПереподготовки"+Ном]        = Выборка.ИТ_ДатаОкончания;	
	КонецЦикла;
	
	//АТТЕСТАЦИИ
	Запрос.Текст =
		"ВЫБРАТЬ
		|	ОценкиКомпетенцийРаботниковСрезПоследних.ИТ_Специальность,
		|	ОценкиКомпетенцийРаботниковСрезПоследних.Период,
		|	ОценкиКомпетенцийРаботниковСрезПоследних.Регистратор.Номер КАК НомерПротокола,
		|	ОценкиКомпетенцийРаботниковСрезПоследних.Регистратор.Дата КАК ДатаПротокола,
		|	ОценкиКомпетенцийРаботниковСрезПоследних.Компетенция КАК Решение
		|ИЗ
		|	РегистрСведений.ОценкиКомпетенцийРаботников.СрезПоследних(&Период, ФизЛицо = &ФизЛицо) КАК ОценкиКомпетенцийРаботниковСрезПоследних";
	Запрос.УстановитьПараметр("Физлицо", СтруктураПоискаФизЛицо.ФизЛицо);
	Запрос.УстановитьПараметр("Период", ТекущаяДата());
	
	ном = 0;
	
	Выборка = Запрос.Выполнить().Выбрать();
	пока Выборка.Следующий() Цикл
		ном = ном + 1;
		
		Если ном > 6 тогда
			Прервать;
		КонецЕсли;
		
		ТретьяСтраницаТ2.Параметры["ДатаАттестации"+ном] 	= Выборка.Период;
		ТретьяСтраницаТ2.Параметры["РешениеКомиссии"+Ном]	= Выборка.Решение;
		ТретьяСтраницаТ2.Параметры["НомерПротокола"+Ном]   	= Выборка.НомерПротокола;
		ТретьяСтраницаТ2.Параметры["ДатаПротокола"+Ном]    	= Выборка.ДатаПротокола;	
	КонецЦикла;

Также бонусом выкладываю внешнюю печатную форму для формирования Т2 из карточки сотрудника. Печатная форма выводит типовой отчет с отбором по сотруднику.

Т2 повышение квалификации аттестации профессиональная переподготовка

См. также

Загрузка и выгрузка в Excel Зарплата Кадровый учет Бухгалтер Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет Платные (руб)

Обработка позволяет загрузить из структурированного файла данные по физическим лицам, сотрудникам. Предусмотрено создание документов "Прием на работу". Данные загружаются не только в справочники и документы, но и в регистры сведений. Обработка разработана для конфигураций "Зарплата и Управление Персоналом, редакция 3.1"/"Зарплата и кадры государственного учреждения, редакция 3.1" на платформе 8.3.

6000 руб.

15.07.2015    65703    100    49    

104

Кадровый учет Бухгалтер Платформа 1С v8.3 1С:Зарплата и Управление Персоналом 3.x Аудит и бухгалтерские услуги, юриспруденция Россия Платные (руб)

Печать из ЗУП уведомления о трудовой деятельности для безвизового иностранного гражданина. С 7 января 2024 года безвизовые иностранцы должны уведомлять по утвержденной форме территориальный орган МВД России о ведении трудовой деятельности. Расширение позволит выполнить распечатку уведомления напрямую из программы ЗУП 3.1

3600 руб.

22.02.2024    1171    1    0    

3

Зарплата Кадровый учет Корректировка данных Бухгалтер Пользователь Сложные периодические расчеты 8.3.14 1С:ERP Управление предприятием 2 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет Абонемент ($m)

Поддержание базы ЗУП 3.1 в порядке требует знания, внимание и инструменты. Предлагаю свой набор инструментов, для применения которых не нужны сильные знания аналитика или разработчика. Работает всё умно и безопасно.

3 стартмани

17.04.2023    4758    61    Vinzor    6    

25

Кадровый учет Бухгалтер Пользователь Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет Управленческий учет Платные (руб)

Групповое формирование и печать Дополнительных соглашений для 1С: Зарплата и управление персоналом ПРОФ и КОРП + 8 печатных форм: Индексация заработной платы, Удаленная работа и предупреждение о COVID-19, Выход из удаленной работы, Кадровый перевод, Кадровый перевод списком, Назначение индивидуальной системы начислений, Переименование филиала, Приказ "Совмещение должностей", Приказ "Совмещение исполнения обязанностей" Что нового: 1.В печатных формах убран весь красный цвет текста 2. В печатных формах в шапках сделано заполнение названия организации, руководителя и основания действия руководителя 3. В печатных формах в подвале сделано заполнение реквизитов организации 4. Добавлена возможность печатать доп соглашения по документу "Изменение плановых начислений"

21600 руб.

24.03.2023    5455    3    0    

5

Зарплата Кадровый учет Загрузка и выгрузка в Excel Бухгалтер Пользователь Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет Платные (руб)

Обработка больше предназначена как основа для своей разработки, чем как универсальное решение. Но можно использовать и как готовое решение для небольшой организации. Переносит данные из файла Excel в ЗУП, по аналогии как данные переносятся из ЗУП 2.5.

7200 руб.

19.01.2023    6743    4    4    

5
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. Kaval88 177 03.06.16 13:19 Сейчас в теме
ВО_ПовышениеКвалификации = Справочники.ВидыОбразованияФизЛиц.НайтиПоНаименованию("Повышение квалификции");

Это строка таит в себе подвох))
2. kotlovD 89 03.06.16 15:08 Сейчас в теме
(1) Kaval88, ахах забавно, не заметил :)
user1252779; +1 Ответить
Оставьте свое сообщение