vitalcat
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Процедура ПроводкиДно()
тбБазы.Свернуть("СчетЗатрат,ВидЗатрат,ВидДеятельности,НиО","Оклад,Отпускные,ОблагаемаяМатПомощь,ОблагаемаяМатПомощьВР,Индексация,Больничные,БольничныеЗаСчетПредприятия,БольничныеИнв,БольничныеЗаСчетПредприятияИнв");
тбБазы.Сортировать("НиО,СчетЗатрат,ВидДеятельности,ВидЗатрат");
глСписокОшибокОкругления.УдалитьВсе();
ИтСуммаОтчислениеБУ = 0;
//для расчета взносов ФОП больничных инвалидов
ПолучитьНиО("ФЗПЕСВИнв");
СтавкаИнв = тбНиО.Ставка;
// ----- для проводки по "ФЗПЕСВИнв"
НиОИнв = тбНиО.НиО;
// ----- конец изменения ------------------------------
тбБазы.ВыбратьСтроки();
Пока тбБазы.ПолучитьСтроку() = 1 Цикл
ПолучитьНиО(тбБазы.НиО);
СуммаОтчисленийБезОтпуска = глОкрКорр(тбНиО.Код, тбНиО.Ставка * (тбБазы.Оклад + тбБазы.ОблагаемаяМатПомощь + тбБазы.ОблагаемаяМатПомощьВР + тбБазы.Индексация + тбБазы.Больничные + тбБазы.БольничныеЗаСчетПредприятия)
+(тбБазы.БольничныеЗаСчетПредприятияИнв+тбБазы.БольничныеИнв)*СтавкаИнв, 2);
// ----- ЕСВ с больничных инв. проводим по "ФЗПЕСВИнв"
СуммаОтчисленийБольнИнв = глОкрКорр("ФЗПЕСВИнв", (тбБазы.БольничныеЗаСчетПредприятияИнв+тбБазы.БольничныеИнв)*СтавкаИнв, 2);
// ----- конец изменения ------------------------------
СуммаОтчисленийСОтпуска = глОкрКорр(тбНиО.Код, тбНиО.Ставка * (тбБазы.Отпускные), 2);
СуммаОтчисленийВсего = СуммаОтчисленийБезОтпуска + СуммаОтчисленийСОтпуска;
ОтчисленияСФОТНУ = 0;
Если (Найти(тбБазы.НиО.Код,"ФЗПЕСВБольн")>0) Тогда
ОтчисленияСФОТНУ = глОкрКорр(тбНиО.Код,(тбБазы.БольничныеЗаСчетПредприятия+тбБазы.Больничные)*тбНиО.Ставка, 2) +
глОкрКорр(тбНиО.Код,(тбБазы.БольничныеЗаСчетПредприятияИнв+тбБазы.БольничныеИнв)*СтавкаИнв, 2);
Иначе
ОтчисленияСФОТНУ = глОкрКорр(тбНиО.Код,(тбБазы.Оклад+тбБазы.ОблагаемаяМатПомощьВР+тбБазы.Отпускные+тбБазы.Индексация)*тбНиО.Ставка, 2);
КонецЕсли;
СчетЗатрат = тбБазы.СчетЗатрат;
Если ПустоеЗначение(СчетЗатрат)=1 Тогда
// используем счета по умолчанию
СчетЗатрат = тбНиО.СчетЗатрат;
КонецЕсли;
Если Константа.ИспользоватьОбеспечениеОтпусков.Получить(КонецПериода) = Да Тогда
// ----- здесь убираем ЕСВ с больничных инв.
//глПроводка(Контекст,СчетЗатрат,тбНиО.НиО.Счет,СуммаОтчисленийБезОтпуска,тбНиО.НиО.Наименование,, тбБазы.ВидДеятельности,тбБазы.ВидЗатрат,,
//тбНиО.НиО,,, ,,"ЗП");
глПроводка(Контекст,СчетЗатрат,тбНиО.НиО.Счет,СуммаОтчисленийБезОтпуска-СуммаОтчисленийБольнИнв,тбНиО.НиО.Наименование,, тбБазы.ВидДеятельности,тбБазы.ВидЗатрат,,
тбНиО.НиО,,, ,,"ЗП");
// ----- конец изменения ------------------------------
глПроводка(Контекст,"47.1",тбНиО.НиО.Счет,СуммаОтчисленийСОтпуска,тбНиО.НиО.Наименование,, тбБазы.ВидДеятельности,тбБазы.ВидЗатрат,,
тбНиО.НиО,,, ,,"ЗП");
глПровНУ(Контекст,СчетЗатрат,,0,"Разн;"+тбНиО.НиО.Наименование,, тбБазы.ВидДеятельности,тбБазы.ВидЗатрат,,
,,, ,,"ЗП",ОтчисленияСФОТНУ - СуммаОтчисленийВсего);
Иначе
// ----- здесь убираем ЕСВ с больничных инв.
//глПроводка(Контекст,СчетЗатрат,тбНиО.НиО.Счет,СуммаОтчисленийВсего,тбНиО.НиО.Наименование,, тбБазы.ВидДеятельности,тбБазы.ВидЗатрат,,
//тбНиО.НиО,,, ,,"ЗП",ОтчисленияСФОТНУ - СуммаОтчисленийВсего);
глПроводка(Контекст,СчетЗатрат,тбНиО.НиО.Счет,СуммаОтчисленийВсего-СуммаОтчисленийБольнИнв,тбНиО.НиО.Наименование,, тбБазы.ВидДеятельности,тбБазы.ВидЗатрат,,
тбНиО.НиО,,, ,,"ЗП",ОтчисленияСФОТНУ - СуммаОтчисленийВсего);
// ----- конец изменения ------------------------------
КонецЕсли;
// ----- ЕСВ с больничных инв. проводим по "ФЗПЕСВИнв"
глПроводка(Контекст,СчетЗатрат,НиОИнв.Счет,СуммаОтчисленийБольнИнв,НиОИнв.Наименование,, тбБазы.ВидДеятельности,тбБазы.ВидЗатрат,,
НиОИнв,,, ,,"ЗП");
// ----- конец изменения ------------------------------
КонецЦикла;
КонецПроцедуры
|
