Процедура РассчитатьВзносыФОТПроводкиЗаписи( Сотрудники ) Экспорт
Запрос = Новый Запрос;
Запрос.МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц;
Запрос.УстановитьПараметр("парамПериодРегистрации" , ПериодРегистрации);
Запрос.УстановитьПараметр("ПериодСрез" , КонецМесяца(ПериодРегистрации));
Запрос.УстановитьПараметр("парамСотрудники" , Сотрудники);
//МассивФизЛица = Новый Массив;
//
//Для Каждого Элемент из Сотрудники Цикл
// МассивФизЛица.Добавить(Элемент.ФизЛицо);
//КонецЦикла;
//
//Запрос.УстановитьПараметр("МассивФизЛица" , МассивФизЛица);
//
//
// ВТПроводки
Если Истина Тогда
// Описание:
// РегистрРасчета.ВзносыВФонды + Проводки Кт
//
ТекстЗапросаВТ = "ВЫБРАТЬ
| ВзносыВФонды.Сотрудник.Физлицо КАК ФизЛицо,
| ВзносыВФонды.Сотрудник,
| ВзносыВФонды.Налог,
| НАЧАЛОПЕРИОДА(ВзносыВФонды.БазовыйПериодНачало, МЕСЯЦ) КАК БазовыйПериодНачало,
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СчетДт, Проводки.СчетДт) КАК СчетДт,
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СубконтоДт1, Проводки.СубконтоДт1) КАК СубконтоДт1,
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СубконтоДт2, Проводки.СубконтоДт2) КАК СубконтоДт2,
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СубконтоДт3, Проводки.СубконтоДт3) КАК СубконтоДт3,
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СчетКт, Проводки.СчетКт) КАК СчетКт,
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СубконтоКт1, Проводки.СубконтоКт1) КАК СубконтоКт1,
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СубконтоКт2, Проводки.СубконтоКт2) КАК СубконтоКт2,
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СубконтоКт3, Проводки.СубконтоКт3) КАК СубконтоКт3,
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СчетДтНУ, Проводки.СчетДтНУ) КАК СчетДтНУ,
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СубконтоДтНУ1, Проводки.СубконтоДтНУ1) КАК СубконтоДтНУ1,
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СубконтоДтНУ2, Проводки.СубконтоДтНУ2) КАК СубконтоДтНУ2,
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СубконтоДтНУ3, Проводки.СубконтоДтНУ3) КАК СубконтоДтНУ3,
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СчетКтНУ, Проводки.СчетКтНУ) КАК СчетКтНУ,
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СубконтоКтНУ1, Проводки.СубконтоКтНУ1) КАК СубконтоКтНУ1,
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СубконтоКтНУ2, Проводки.СубконтоКтНУ2) КАК СубконтоКтНУ2,
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СубконтоКтНУ3, Проводки.СубконтоКтНУ3) КАК СубконтоКтНУ3,
| СУММА(ВзносыВФонды.Результат) КАК Результат
|ПОМЕСТИТЬ ВТПроводки
|ИЗ
| РегистрРасчета.ВзносыВФонды КАК ВзносыВФонды
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.СпособыОтраженияЗарплатыВРеглУчете КАК Проводки
| ПО ВзносыВФонды.ВидРасчета.СпособОтраженияВБухучете = Проводки.Ссылка
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.РаботникиОрганизаций.СрезПоследних(&ПериодСрез, Сотрудник В (&ПарамСотрудники)) КАК РаботникиОрганизацийСрезПоследних
| ПО ВзносыВФонды.Сотрудник = РаботникиОрганизацийСрезПоследних.Сотрудник
|ГДЕ
| ВзносыВФонды.ПериодРегистрации = &парамПериодРегистрации
| И ВзносыВФонды.Сотрудник В(&парамСотрудники)
| И ВзносыВФонды.ВидРасчета.СпособРасчета = ЗНАЧЕНИЕ(Перечисление.СпособыРасчетаОплатыТруда.ВзносыФОТ)
|
|СГРУППИРОВАТЬ ПО
| ВзносыВФонды.Сотрудник,
| ВзносыВФонды.Налог,
| НАЧАЛОПЕРИОДА(ВзносыВФонды.БазовыйПериодНачало, МЕСЯЦ),
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СчетДтНУ, Проводки.СчетДтНУ),
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СубконтоДтНУ1, Проводки.СубконтоДтНУ1),
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СубконтоДтНУ2, Проводки.СубконтоДтНУ2),
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СубконтоДтНУ3, Проводки.СубконтоДтНУ3),
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СчетКтНУ, Проводки.СчетКтНУ),
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СубконтоКтНУ1, Проводки.СубконтоКтНУ1),
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СубконтоКтНУ2, Проводки.СубконтоКтНУ2),
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СубконтоКтНУ3, Проводки.СубконтоКтНУ3),
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СубконтоДт1, Проводки.СубконтоДт1),
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СчетДт, Проводки.СчетДт),
| ВзносыВФонды.Сотрудник.Физлицо,
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СубконтоДт2, Проводки.СубконтоДт2),
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СубконтоДт3, Проводки.СубконтоДт3),
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СчетКт, Проводки.СчетКт),
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СубконтоКт1, Проводки.СубконтоКт1),
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СубконтоКт2, Проводки.СубконтоКт2),
| ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.СпособОтраженияФОТ.СубконтоКт3, Проводки.СубконтоКт3)";
ТекстЗапросаВТ = "ВЫБРАТЬ
| ВзносыВФонды.Сотрудник.Физлицо КАК ФизЛицо,
| ВзносыВФонды.Сотрудник,
| ВзносыВФонды.Налог,
| НАЧАЛОПЕРИОДА(ВзносыВФонды.БазовыйПериодНачало, МЕСЯЦ) КАК БазовыйПериодНачало,
| ЕСТЬNULL(Проводки.СчетДт, Проводки.СчетДт) КАК СчетДт,
| ЕСТЬNULL(Проводки.СубконтоДт1, Проводки.СубконтоДт1) КАК СубконтоДт1,
| ЕСТЬNULL(Проводки.СубконтоДт2, Проводки.СубконтоДт2) КАК СубконтоДт2,
| ЕСТЬNULL(Проводки.СубконтоДт3, Проводки.СубконтоДт3) КАК СубконтоДт3,
| ЕСТЬNULL(Проводки.СчетКт, Проводки.СчетКт) КАК СчетКт,
| ЕСТЬNULL(Проводки.СубконтоКт1, Проводки.СубконтоКт1) КАК СубконтоКт1,
| ЕСТЬNULL(Проводки.СубконтоКт2, Проводки.СубконтоКт2) КАК СубконтоКт2,
| ЕСТЬNULL(Проводки.СубконтоКт3, Проводки.СубконтоКт3) КАК СубконтоКт3,
| ЕСТЬNULL(Проводки.СчетДтНУ, Проводки.СчетДтНУ) КАК СчетДтНУ,
| ЕСТЬNULL(Проводки.СубконтоДтНУ1, Проводки.СубконтоДтНУ1) КАК СубконтоДтНУ1,
| ЕСТЬNULL(Проводки.СубконтоДтНУ2, Проводки.СубконтоДтНУ2) КАК СубконтоДтНУ2,
| ЕСТЬNULL(Проводки.СубконтоДтНУ3, Проводки.СубконтоДтНУ3) КАК СубконтоДтНУ3,
| ЕСТЬNULL(Проводки.СчетКтНУ, Проводки.СчетКтНУ) КАК СчетКтНУ,
| ЕСТЬNULL(Проводки.СубконтоКтНУ1, Проводки.СубконтоКтНУ1) КАК СубконтоКтНУ1,
| ЕСТЬNULL(Проводки.СубконтоКтНУ2, Проводки.СубконтоКтНУ2) КАК СубконтоКтНУ2,
| ЕСТЬNULL(Проводки.СубконтоКтНУ3, Проводки.СубконтоКтНУ3) КАК СубконтоКтНУ3,
| СУММА(ВзносыВФонды.Результат) КАК Результат
|ПОМЕСТИТЬ ВТПроводки
|ИЗ
| РегистрРасчета.ВзносыВФонды КАК ВзносыВФонды
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.СпособыОтраженияЗарплатыВРеглУчете КАК Проводки
| ПО ВзносыВФонды.ВидРасчета.СпособОтраженияВБухучете = Проводки.Ссылка
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.РаботникиОрганизаций.СрезПоследних(&ПериодСрез, Сотрудник В (&ПарамСотрудники)) КАК РаботникиОрганизацийСрезПоследних
| ПО ВзносыВФонды.Сотрудник = РаботникиОрганизацийСрезПоследних.Сотрудник
|ГДЕ
| ВзносыВФонды.ПериодРегистрации = &парамПериодРегистрации
| И ВзносыВФонды.Сотрудник В(&парамСотрудники)
| И ВзносыВФонды.ВидРасчета.СпособРасчета = ЗНАЧЕНИЕ(Перечисление.СпособыРасчетаОплатыТруда.ВзносыФОТ)
|
|СГРУППИРОВАТЬ ПО
| ВзносыВФонды.Сотрудник,
| ВзносыВФонды.Налог,
| НАЧАЛОПЕРИОДА(ВзносыВФонды.БазовыйПериодНачало, МЕСЯЦ),
| ЕСТЬNULL(Проводки.СчетДтНУ, Проводки.СчетДтНУ),
| ЕСТЬNULL(Проводки.СубконтоДтНУ1, Проводки.СубконтоДтНУ1),
| ЕСТЬNULL(Проводки.СубконтоДтНУ2, Проводки.СубконтоДтНУ2),
| ЕСТЬNULL(Проводки.СубконтоДтНУ3, Проводки.СубконтоДтНУ3),
| ЕСТЬNULL(Проводки.СчетКтНУ, Проводки.СчетКтНУ),
| ЕСТЬNULL(Проводки.СубконтоКтНУ1, Проводки.СубконтоКтНУ1),
| ЕСТЬNULL(Проводки.СубконтоКтНУ2, Проводки.СубконтоКтНУ2),
| ЕСТЬNULL(Проводки.СубконтоКтНУ3, Проводки.СубконтоКтНУ3),
| ЕСТЬNULL(Проводки.СубконтоДт1, Проводки.СубконтоДт1),
| ЕСТЬNULL(Проводки.СчетДт, Проводки.СчетДт),
| ВзносыВФонды.Сотрудник.Физлицо,
| ЕСТЬNULL(Проводки.СубконтоДт2, Проводки.СубконтоДт2),
| ЕСТЬNULL(Проводки.СубконтоДт3, Проводки.СубконтоДт3),
| ЕСТЬNULL(Проводки.СчетКт, Проводки.СчетКт),
| ЕСТЬNULL(Проводки.СубконтоКт1, Проводки.СубконтоКт1),
| ЕСТЬNULL(Проводки.СубконтоКт2, Проводки.СубконтоКт2),
| ЕСТЬNULL(Проводки.СубконтоКт3, Проводки.СубконтоКт3),
| Проводки.СчетКт";
Запрос.Текст = ТекстЗапросаВТ;
Запрос.Выполнить();
ТекстЗапросаВТПроводки = "ВТПроводки";
КонецЕсли;
Запрос.Текст = "ВЫБРАТЬ * ИЗ ВТПроводки";
ТекстЗапроса = "
|ВЫБРАТЬ
| ВзносыВФонды.Сотрудник КАК Сотрудник,
| ВзносыВФонды.Налог КАК Налог,
| ВзносыВФонды.БазовыйПериодНачало КАК БазовыйПериодНачало,
| ВзносыВФонды.СчетДт КАК СчетДт,
| ВзносыВФонды.СубконтоДт1,
| ВзносыВФонды.СубконтоДт2,
| ВзносыВФонды.СубконтоДт3,
| ВзносыВФонды.СчетКт,
| ВзносыВФонды.СубконтоКт1,
| ВзносыВФонды.СубконтоКт2,
| ВзносыВФонды.СубконтоКт3,
| ВзносыВФонды.СчетДтНУ КАК СчетДтНУ,
| ВзносыВФонды.СубконтоДтНУ1,
| ВзносыВФонды.СубконтоДтНУ2,
| ВзносыВФонды.СубконтоДтНУ3,
//| ВзносыВФонды.Сотрудник.ФизЛицо КАК СубконтоДтНУ1,
| ВзносыВФонды.СчетКтНУ,
| ВзносыВФонды.СубконтоКтНУ1,
| ВзносыВФонды.СубконтоКтНУ2,
| ВзносыВФонды.СубконтоКтНУ3,
| ВзносыВФонды.Результат КАК Результат
|
|ИЗ ВТПроводки КАК ВзносыВФонды
|
|
|
|УПОРЯДОЧИТЬ ПО
| Сотрудник,
| ВЫБОР КОГДА ВзносыВФонды.СчетДт = ЗНАЧЕНИЕ(ПланСчетов.Хозрасчетный.КредиторскаяЗадолженностьПередПерсоналомКраткосрочная) ТОГДА 1
| ИНАЧЕ ВзносыВФонды.СчетДт КОНЕЦ
|
|";
Запрос.Текст = ТекстЗапроса;
//Запрос.Выполнить().Выгрузить().ВыбратьСтроку();
ZED = Запрос.Выполнить().Выгрузить() ;
ВзносыФОТПроводки.Загрузить(ZED);
Записать();
КонецПроцедуры // РассчитатьВзносы()
пятница, 22 января 2021 г.
Подписаться на:
Комментарии к сообщению (Atom)
RESET WINDOWS PASS LOCAL ADMIN
Reset Account Password Without Logging in on Windows 11 On Windows 11, you can reset your password right from the lock screen. You don’...
-
Регистр Сведений АналитикаУчетаНоменклатуры. Модуль Менеджера #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда ...
-
Как получить значение дополнительного реквизита: Пример: мы делаем печатную форму документа "Заказ клиента" и хотим вывести на...
-
«поймать» этот запрос вы могли заметить в разделе «Обманываем СКД» - в процедуре «ПриКомпоновкеРезультата» в отладчике при программном ...
Комментариев нет:
Отправить комментарий