получитьпоследнее » Поиск

Результаты по ключевому слову: получитьпоследнее

Как установить цену из РегистраСведений на дату создания документа Категория: Регистры сведений

Подписка на событие, Проверка состояния работников при перемещении и увольнении

Необходимо при Увольнении или Перемещении работников проверять - работает ли сотрудник? или он в отпуске, болеет и т.д.?

Для решение этого создадим в разделе Подписки на события, подписку "ПриПроведенииПроверкаСостоянияРаботников"
title

и укажем в её свойствах:
title

А это код обработки из Обработчика:

Код 1C v 8.х

 //Проверка Состояния Сотрудников // для обработчика Подписка на Событие

Процедура ПриПроведенииПроверкаСостоянияРаботниковОбработкаПроведения(Источник, Отказ, РежимПроведения) Экспорт

	ОчиститьСообщения();

	Если ТипЗнч(Источник.Ссылка) = Тип("ДокументСсылка.УвольнениеИзОрганизаций") Тогда

		Для Каждого Сотр из Источник.РаботникиОрганизации Цикл

			Сост=РегистрыСведений.СостояниеРаботниковОрганизаций.ПолучитьПоследнее(Сотр.ДатаУвольнения, Новый Структура("Сотрудник",Сотр.Сотрудник));

			Если НЕ Сост.Состояние = Перечисления.СостоянияРаботникаОрганизации.Работает Тогда 

				Если Сост.СостояниеЗавершения = Перечисления.СостоянияРаботникаОрганизации.Работает и Сотр.ДатаУвольнения < Сост.ПериодЗавершения Тогда

					Сообщить("Сотрудник "+Строка(Сотр.Сотрудник)+" на "+Формат(Сотр.ДатаУвольнения, "ДЛФ=DD")+ " - "+Строка(Сост.Состояние)+"! Можно уволить после "+Формат(Сост.ПериодЗавершения, "ДЛФ=DD") , СтатусСообщения.ОченьВажное);		

					Отказ = Истина; // Запрет проведения

				ИначеЕсли НЕ Сост.СостояниеЗавершения = Перечисления.СостоянияРаботникаОрганизации.Работает и Сотр.ДатаУвольнения < Сост.ПериодЗавершения Тогда

					Сообщить("Сотрудник "+Строка(Сотр.Сотрудник)+" на "+Формат(Сотр.ДатаУвольнения, "ДЛФ=DD")+ " - "+Строка(Сост.Состояние)+"!", СтатусСообщения.ОченьВажное);

					Отказ = Истина; // Запрет проведения

				КонецЕсли;

			КонецЕсли;

		КонецЦикла;

	ИначеЕсли ТипЗнч(Источник.Ссылка) = Тип("ДокументСсылка.КадровоеПеремещениеОрганизаций") Тогда

	     Для Каждого Сотр из Источник.РаботникиОрганизации Цикл

			Сост=РегистрыСведений.СостояниеРаботниковОрганизаций.ПолучитьПоследнее(Сотр.ДатаНачала, Новый Структура("Сотрудник",Сотр.Сотрудник));

			Если НЕ Сост.Состояние = Перечисления.СостоянияРаботникаОрганизации.Работает Тогда 

				Если Сост.СостояниеЗавершения = Перечисления.СостоянияРаботникаОрганизации.Работает и Сотр.ДатаНачала < Сост.ПериодЗавершения Тогда

					Сообщить("Сотрудник "+Строка(Сотр.Сотрудник)+" на "+Формат(Сотр.ДатаНачала, "ДЛФ=DD")+ " - "+Строка(Сост.Состояние)+"! Можно переместить после "+Формат(Сост.ПериодЗавершения, "ДЛФ=DD") , СтатусСообщения.ОченьВажное);		

					Отказ = Истина;  // Запрет проведения

				ИначеЕсли НЕ Сост.СостояниеЗавершения = Перечисления.СостоянияРаботникаОрганизации.Работает и Сотр.ДатаНачала < Сост.ПериодЗавершения Тогда

					Сообщить("Сотрудник "+Строка(Сотр.Сотрудник)+" на "+Формат(Сотр.ДатаНачала, "ДЛФ=DD")+ " - "+Строка(Сост.Состояние)+"!", СтатусСообщения.ОченьВажное);

					Отказ = Истина; // Запрет проведения

				КонецЕсли;

			КонецЕсли;

		КонецЦикла;

	КонецЕсли;  	

КонецПроцедуры

Категория: Документы

Табличное поле ~ Оформление строк, ячеек табличного поля (цвет, текст)

Одним из полезных свойств элемента управления Табличное поле является возможность настройки оформления его строк программным способом.
Для иллюстрации этой возможности мы снова воспользуемся формой справочника Номенклатура и придадим ей «нестандартный» вид.
Откроем в конфигураторе форму списка справочника Номенклатура и создадим обработчик события формы ПриОткрытии со следующим текстом:

Код 1C v 8.х

 Процедура ПриОткрытии()



	СписокСправочника = ЭлементыФормы.СправочникСписок;

		

	// Задать режим чередования цветов строк

	СписокСправочника.ЦветФонаЧередованияСтрок = WEBЦвета.Бежевый;

	СписокСправочника.ЧередованиеЦветовСтрок = Истина;

	

	// Скрыть линии сетки

	СписокСправочника.ВертикальныеЛинии = Ложь;

	СписокСправочника.ГоризонтальныеЛинии = Ложь;



КонецПроцедуры

Вначале мы задаем режим чередования цветов фона строк списка. Первая строка будет выводиться на бежевом фоне, вторая на белом, третья снова на бежевом и т. д.
Затем мы скрываем линии, разделяющие колонки и строки.
Теперь откроем обработчик события ПриВыводеСтроки табличного поля списка справочника и добавим в него следующие строки:

Код 1C v 8.х

 Процедура СправочникСписокПриВыводеСтроки(Элемент, ОформлениеСтроки,ДанныеСтроки)



	// Для элементов отобразить цену и...

	Если Не ДанныеСтроки.ЭтоГруппа Тогда

		ОтборНоменклатуры = Новый Структура;

		ОтборНоменклатуры.Вставить("Номенклатура", ДанныеСтроки.Ссылка);

		ОформлениеСтроки.Ячейки.Цена.ОтображатьТекст = Истина;

		АктуальнаяЦена = РегистрыСведений.Цены.ПолучитьПоследнее( , ОтборНоменклатуры).Цена;

		ОформлениеСтроки.Ячейки.Цена.Текст = АктуальнаяЦена;



		// низкие цены выделим другим цветом

		Если АктуальнаяЦена<500 Тогда

			ОформлениеСтроки.Ячейки.Цена.ЦветТекста = WEBЦвета.Васильковый;

		КонецЕсли;



		// Раздвинуть строку, если длинное наименование

		Если СтрДлина(СокрЛП(ДанныеСтроки.Наименование))>30 Тогда

			ОформлениеСтроки.Ячейки.Наименование.АвтоВысотаЯчейки = Истина;

			ОформлениеСтроки.Ячейки.Наименование.ВысотаЯчейки = 3;

		КонецЕсли;



		// Пример Оформления ВСЕЙ СТРОКИ

		// ОформлениеСтроки.Шрифт = Новый Шрифт(ОформлениеСтроки.Шрифт , , , Истина, Ложь);

		// ОформлениеСтроки.ЦветФона = Новый Цвет(255, 245, 207);

	КонецЕсли;	

КонецПроцедуры

Здесь в случае вывода элемента справочника мы анализируем длину его наименования. Если оно более 30 символов, устанавливаем автоматическое определение высоты ячейки, ограничивая ее максимальную высоту тремя строками.

Категория: Работа с Формой (Диалог) и её элементами

Как получить последнее значение регистра сведений? Категория: Регистры сведений

Функция пересчета валютной суммы по курсу на дату документа Категория: Регистры сведений

Универсальная функция получения курса валюты Категория: Полезные, Универсальные Функции

Получить последний курс валюты из регистра сведений Категория: Регистры сведений