датасреза » Поиск

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

Функции получения всех плановых Начислений и Удержаний сотрудника

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

Код 1C v 8.3

 Функция ПолучитьСписокПлановыхНачислений(Организация, Сотрудник, ДатаО) Экспорт





	Запрос = Новый Запрос;

	Запрос.Текст = 

	"ВЫБРАТЬ

	|	ПлановыеНачисленияСрезПоследних.Период,

	|	ПлановыеНачисленияСрезПоследних.ВидРасчета,

	|	ПлановыеНачисленияСрезПоследних.Показатель1,

	|	ПлановыеНачисленияСрезПоследних.Валюта1,

	|	ПлановыеНачисленияСрезПоследних.ТарифныйРазряд1,

	|	ПлановыеНачисленияСрезПоследних.Показатель2,

	|	ПлановыеНачисленияСрезПоследних.Валюта2,

	|	ПлановыеНачисленияСрезПоследних.ТарифныйРазряд2,

	|	ПлановыеНачисленияСрезПоследних.Показатель3,

	|	ПлановыеНачисленияСрезПоследних.Валюта3,

	|	ПлановыеНачисленияСрезПоследних.ТарифныйРазряд3,

	|	ПлановыеНачисленияСрезПоследних.Показатель4,

	|	ПлановыеНачисленияСрезПоследних.Валюта4,

	|	ПлановыеНачисленияСрезПоследних.ТарифныйРазряд4,

	|	ПлановыеНачисленияСрезПоследних.Показатель5,

	|	ПлановыеНачисленияСрезПоследних.Валюта5,

	|	ПлановыеНачисленияСрезПоследних.ТарифныйРазряд5,

	|	ПлановыеНачисленияСрезПоследних.Показатель6,

	|	ПлановыеНачисленияСрезПоследних.Валюта6,

	|	ПлановыеНачисленияСрезПоследних.ТарифныйРазряд6,

	|	ПлановыеНачисленияСрезПоследних.Действие,

	|	ПлановыеНачисленияСрезПоследних.ПериодЗавершения,

	|	ПлановыеНачисленияСрезПоследних.ВидРасчетаЗавершения,

	|	ПлановыеНачисленияСрезПоследних.ДействиеЗавершения,

	|	ПлановыеНачисленияСрезПоследних.Показатель1Завершения,

	|	ПлановыеНачисленияСрезПоследних.Показатель2Завершения,

	|	ПлановыеНачисленияСрезПоследних.Показатель3Завершения,

	|	ПлановыеНачисленияСрезПоследних.Показатель4Завершения,

	|	ПлановыеНачисленияСрезПоследних.Показатель5Завершения,

	|	ПлановыеНачисленияСрезПоследних.Показатель6Завершения,

	|	ПлановыеНачисленияСрезПоследних.Валюта1Завершения,

	|	ПлановыеНачисленияСрезПоследних.Валюта2Завершения,

	|	ПлановыеНачисленияСрезПоследних.Валюта3Завершения,

	|	ПлановыеНачисленияСрезПоследних.Валюта4Завершения,

	|	ПлановыеНачисленияСрезПоследних.Валюта5Завершения,

	|	ПлановыеНачисленияСрезПоследних.Валюта6Завершения,

	|	ПлановыеНачисленияСрезПоследних.ТарифныйРазряд1Завершения,

	|	ПлановыеНачисленияСрезПоследних.ТарифныйРазряд2Завершения,

	|	ПлановыеНачисленияСрезПоследних.ТарифныйРазряд3Завершения,

	|	ПлановыеНачисленияСрезПоследних.ТарифныйРазряд4Завершения,

	|	ПлановыеНачисленияСрезПоследних.ТарифныйРазряд5Завершения,

	|	ПлановыеНачисленияСрезПоследних.ТарифныйРазряд6Завершения,

	|	ПлановыеНачисленияСрезПоследних.Регистратор

	|ИЗ

	|	РегистрСведений.ПлановыеНачисленияРаботниковОрганизаций.СрезПоследних(

	|			&ДатаСреза,

	|			Организация =ГоловнаяОрганизация

	|				И Сотрудник =Ссылка) КАК ПлановыеНачисленияСрезПоследних

	|ГДЕ

	|	ВЫБОР

	|			КОГДА ПлановыеНачисленияСрезПоследних.Действие = ЗНАЧЕНИЕ(Перечисление.ВидыДействияСНачислением.Прекратить)

	|					И ПлановыеНачисленияСрезПоследних.ДействиеЗавершения = ЗНАЧЕНИЕ(Перечисление.ВидыДействияСНачислением.ПустаяСсылка)

	|				ТОГДА ЛОЖЬ

	|			КОГДА ПлановыеНачисленияСрезПоследних.Действие = ЗНАЧЕНИЕ(Перечисление.ВидыДействияСНачислением.Прекратить)

	|					И ПлановыеНачисленияСрезПоследних.ДействиеЗавершения <> ЗНАЧЕНИЕ(Перечисление.ВидыДействияСНачислением.ПустаяСсылка)

	|					ИДатаСреза < ПлановыеНачисленияСрезПоследних.ПериодЗавершения

	|				ТОГДА ЛОЖЬ

	|			КОГДА ПлановыеНачисленияСрезПоследних.ДействиеЗавершения = ЗНАЧЕНИЕ(Перечисление.ВидыДействияСНачислением.Прекратить)

	|					ИДатаСреза >= ПлановыеНачисленияСрезПоследних.ПериодЗавершения

	|				ТОГДА ЛОЖЬ

	|			ИНАЧЕ ИСТИНА

	|		КОНЕЦ";

	

	Запрос.УстановитьПараметр("ГоловнаяОрганизация", Организация);

	Запрос.УстановитьПараметр("ДатаСреза", ДатаО);

	Запрос.УстановитьПараметр("Ссылка", Сотрудник);

	Возврат Запрос.Выполнить().Выгрузить();





КонецФункции





Функция ПолучитьСписокПлановыхУдержаний(Организация, Сотрудник, ДатаО) Экспорт





	Запрос = Новый Запрос;

	Запрос.Текст = 

	"ВЫБРАТЬ

	|	ПлановыеУдержанияСрезПоследних.Период,

	|	ПлановыеУдержанияСрезПоследних.ВидРасчета,

	|	ПлановыеУдержанияСрезПоследних.Показатель1,

	|	ПлановыеУдержанияСрезПоследних.Валюта1,

	|	ПлановыеУдержанияСрезПоследних.Показатель2,

	|	ПлановыеУдержанияСрезПоследних.Валюта2,

	|	ПлановыеУдержанияСрезПоследних.Показатель3,

	|	ПлановыеУдержанияСрезПоследних.Валюта3,

	|	ПлановыеУдержанияСрезПоследних.Показатель4,

	|	ПлановыеУдержанияСрезПоследних.Валюта4,

	|	ПлановыеУдержанияСрезПоследних.Показатель5,

	|	ПлановыеУдержанияСрезПоследних.Валюта5,

	|	ПлановыеУдержанияСрезПоследних.Показатель6,

	|	ПлановыеУдержанияСрезПоследних.Валюта6,

	|	ПлановыеУдержанияСрезПоследних.Действие,

	|	ПлановыеУдержанияСрезПоследних.ПериодЗавершения,

	|	ПлановыеУдержанияСрезПоследних.ДействиеЗавершения,

	|	ПлановыеУдержанияСрезПоследних.Показатель1Завершения,

	|	ПлановыеУдержанияСрезПоследних.Показатель2Завершения,

	|	ПлановыеУдержанияСрезПоследних.Показатель3Завершения,

	|	ПлановыеУдержанияСрезПоследних.Показатель4Завершения,

	|	ПлановыеУдержанияСрезПоследних.Показатель5Завершения,

	|	ПлановыеУдержанияСрезПоследних.Показатель6Завершения,

	|	ПлановыеУдержанияСрезПоследних.Валюта1Завершения,

	|	ПлановыеУдержанияСрезПоследних.Валюта2Завершения,

	|	ПлановыеУдержанияСрезПоследних.Валюта3Завершения,

	|	ПлановыеУдержанияСрезПоследних.Валюта4Завершения,

	|	ПлановыеУдержанияСрезПоследних.Валюта5Завершения,

	|	ПлановыеУдержанияСрезПоследних.Валюта6Завершения,

	|	ПлановыеУдержанияСрезПоследних.Регистратор

	|ИЗ

	|	РегистрСведений.ПлановыеУдержанияРаботниковОрганизаций.СрезПоследних(

	|			&ДатаСреза,

	|			Организация =ГоловнаяОрганизация

	|				И Физлицо =Ссылка) КАК ПлановыеУдержанияСрезПоследних

	|ГДЕ

	|	ВЫБОР

	|			КОГДА ПлановыеУдержанияСрезПоследних.Действие = ЗНАЧЕНИЕ(Перечисление.ВидыДействияСНачислением.Прекратить)

	|					И ПлановыеУдержанияСрезПоследних.ДействиеЗавершения = ЗНАЧЕНИЕ(Перечисление.ВидыДействияСНачислением.ПустаяСсылка)

	|				ТОГДА ЛОЖЬ

	|			КОГДА ПлановыеУдержанияСрезПоследних.Действие = ЗНАЧЕНИЕ(Перечисление.ВидыДействияСНачислением.Прекратить)

	|					И ПлановыеУдержанияСрезПоследних.ДействиеЗавершения <> ЗНАЧЕНИЕ(Перечисление.ВидыДействияСНачислением.ПустаяСсылка)

	|					ИДатаСреза < ПлановыеУдержанияСрезПоследних.ПериодЗавершения

	|				ТОГДА ЛОЖЬ

	|			КОГДА ПлановыеУдержанияСрезПоследних.ДействиеЗавершения = ЗНАЧЕНИЕ(Перечисление.ВидыДействияСНачислением.Прекратить)

	|					ИДатаСреза >= ПлановыеУдержанияСрезПоследних.ПериодЗавершения

	|				ТОГДА ЛОЖЬ

	|			ИНАЧЕ ИСТИНА

	|		КОНЕЦ";

	

	Запрос.УстановитьПараметр("ГоловнаяОрганизация", Организация);

	Запрос.УстановитьПараметр("ДатаСреза", ДатаО);

	Запрос.УстановитьПараметр("Ссылка", Сотрудник.Физлицо);

	Возврат Запрос.Выполнить().Выгрузить();

КонецФункции

Категория: 1С Зарплата и Управление Персоналом 2.5

запрос ФИО руководителя полностью, сделал на основе оригинальной функции

Код 1C v 8.2 УП

 Функция ОтветственныеЛицаОрганизации(Организация, ДатаСреза, Исполнитель = Неопределено) Экспорт



    Результат = Новый Структура("Руководитель, РуководительДолжность, ГлавныйБухгалтер, Кассир");

    

    Если Организация <> Неопределено тогда



          ЗапросПоЛицам = Новый Запрос();

        ЗапросПоЛицам.УстановитьПараметр("Организация", Организация);

        ЗапросПоЛицам.УстановитьПараметр("ДатаСреза",   ДатаСреза);

        ЗапросПоЛицам.Текст = "

        |ВЫБРАТЬ РАЗРЕШЕННЫЕ

        |    ОтветственныеЛицаОрганизацииСрезПоследних.ОтветственноеЛицо,

        |    ОтветственныеЛицаОрганизацииСрезПоследних.Должность.Наименование КАК Должность,

        |    ВЫБОР КОГДА (ФИОФизЛицСрезПоследних.ФизЛицо) ЕСТЬ NULL  ТОГДА ОтветственныеЛицаОрганизацииСрезПоследних.ФизическоеЛицо.Наименование ИНАЧЕ ФИОФизЛицСрезПоследних.Фамилия + ВЫБОР КОГДА (ФИОФизЛицСрезПоследних.Имя) <> """" ТОГДА "" "" + (ФИОФизЛицСрезПоследних.Имя) ИНАЧЕ """" КОНЕЦ + ВЫБОР КОГДА (ФИОФизЛицСрезПоследних.Отчество) <> """" ТОГДА "" "" + (ФИОФизЛицСрезПоследних.Отчество) ИНАЧЕ """" КОНЕЦ КОНЕЦ КАК ФИОПолное

        |ИЗ

        |    РегистрСведений.ОтветственныеЛицаОрганизации.СрезПоследних(&ДатаСреза, СтруктурнаяЕдиница =Организация) КАК ОтветственныеЛицаОрганизацииСрезПоследних

        |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ФИОФизЛиц.СрезПоследних(&ДатаСреза, ФизЛицо ССЫЛКА Справочник.ФизическиеЛица) КАК ФИОФизЛицСрезПоследних

        |        ПО ОтветственныеЛицаОрганизацииСрезПоследних.ФизическоеЛицо = ФИОФизЛицСрезПоследних.ФизЛицо";

                

        Выборка = ЗапросПоЛицам.Выполнить().Выбрать();

                

        Пока Выборка.Следующий() Цикл



              Если Выборка.ОтветственноеЛицо = Перечисления.ОтветственныеЛицаОрганизации.Руководитель Тогда

                Результат.Руководитель            = Выборка.ФИОПолное;

                Результат.РуководительДолжность   = Выборка.Должность;



              ИначеЕсли Выборка.ОтветственноеЛицо = Перечисления.ОтветственныеЛицаОрганизации.ГлавныйБухгалтер Тогда

                Результат.ГлавныйБухгалтер        = Выборка.ФИОПолное;



              ИначеЕсли Выборка.ОтветственноеЛицо = Перечисления.ОтветственныеЛицаОрганизации.Кассир Тогда

                Результат.Кассир                  = Выборка.ФИОПолное;



              КонецЕсли;



          КонецЦикла;

    КонецЕсли;



    Возврат Результат;



КонецФункции // ОтветственныеЛицаОрганизации()

Категория: 1С Управление торговлей 10.3