ЗиК 305 ЗиК 306 Больничный лист.

18.03.11

Задачи пользователя - Адаптация типовых решений

Для переходящих больничных листов за счет работодателя оплачивается 2 дня, а не 3.
Первоисточник: http://forums.kuban.ru/forum/viewtopi...669&page=2

1. Глобалльный модуль ЗиК 305 строка 51086;  ЗиК 306 строка 51164

//Если (ДатаНачалаБолезни+2) >= НачалоБолезниТекМесяца Тогда
Если (ДатаНачалаБолезни+2-1) >= НачалоБолезниТекМесяца Тогда

ЗиК 305  строка 51090;  ЗиК 306 строка  51168

//ОкончаниеДнейРаботодателя = Мин(НачалоБолезниТекМесяца+2-(НачалоБолезниТекМесяца-ДатаНачалаБолезни),ОкончаниеБолезниТекМесяца);
ОкончаниеДнейРаботодателя = Мин(НачалоБолезниТекМесяца+2-1-(НачалоБолезниТекМесяца-ДатаНачалаБолезни),ОкончаниеБолезниТекМесяца);





2. БольничныйЛист модуль документа строка 345

ИначеЕсли ТипБольничного=Тогда  //Заболевание работника, бытовая травма

     Если НачалоБолезни < '01.01.2011' Тогда
         Дней = 2;
     Иначе
         Дней = 3;
     КонецЕсли;

     ЕстьДниЗаСчетРаботодателя = 0;
     //Если  (Начало < НачалоБолезни + 3) Тогда
     Если  (Начало < НачалоБолезни + Дней) Тогда
         ЕстьДниЗаСчетРаботодателя = 1;
     КонецЕсли;

     Если ЕстьДниЗаСчетРаботодателя = 1 Тогда
         //НачалоЗаСчетФСС = Макс(Начало,НачалоБолезни + 3)
         НачалоЗаСчетФСС = Макс(Начало,НачалоБолезни + Дней)
     Иначе
         НачалоЗаСчетФСС = Начало;
     КонецЕсли;
     //ОкончаниеДнейРаботодателя = Мин(НачалоБолезни + 2,Окончание);
     ОкончаниеДнейРаботодателя = Мин(НачалоБолезни + Дней - 1,Окончание);

     ВвестиРасчет(ЖрнЗарплата,ЭлСотрудника,ВидРасчета.ОплатаБЛЗаСчетРаботодателяс2011, Начало, Мин(ОкончаниеДнейРаботодателя,ОкончаниеПериодаОплаты), ДатаНарушенияРежима);
     Если (Окончание > НачалоБолезни + 1) Тогда
      ВвестиРасчет(ЖрнЗарплата,ЭлСотрудника,ВидРасчета.ОплатаБЛс2011, НачалоЗаСчетФСС, ОкончаниеПериодаОплаты, ДатаНарушенияРежима);
     КонецЕсли;


КонецЕсли;

 

 

 

3. Отчет.РасходыПредприятияЗаСчетФСС  в процедуре Сформировать2011()  меняем строку

//ДниРаботодателя = ?(ДнейОплатыПервичныйБЛ > 3, 0, 3 - ДнейОплатыПервичныйБЛ);
на

Если ДокументЗаписи.Начало < '01.01.11' тогда
     ДниРаботодателя = ?(ДнейОплатыПервичныйБЛ > 2, 0, 2 - ДнейОплатыПервичныйБЛ);
Иначе
     ДниРаботодателя = ?(ДнейОплатыПервичныйБЛ > 3, 0, 3 - ДнейОплатыПервичныйБЛ);
КонецЕсли;

строку

//ДниРаботодателя = Мин(3,ДнейОплаты);
на

Если ДокументЗаписи.Начало < '01.01.11' тогда
     ДниРаботодателя = Мин(2,ДнейОплаты);
Иначе
     ДниРаботодателя = Мин(3,ДнейОплаты);
КонецЕсли;

См. также

Печатные формы Адаптация типовых решений Программист Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Приятное улучшение обработки "Внешние печатные формы" для типовых конфигураций на базе 1С 7.7 для более комфортной работы с "любимой семерочкой".

1 стартмани

04.02.2022    3320    1    igor7777    0    

3

Адаптация типовых решений Программист Платформа 1С v7.7 Конфигурации 1cv7 Россия Бухгалтерский учет ФОМС, ЕФС Бесплатно (free)

В этой статье описано, какие небольшие изменения можно внести в модуль документа Начисление налогов с ФОТ, чтобы правильно рассчитывались страховые взносы с 1 апреля 2020 г.

09.04.2020    20531    Юджин58    39    

5

Адаптация типовых решений Программист Платформа 1С v7.7 1С:Комплексная 7.7 1С:Торговля и склад 7.7 Управленческий учет Бесплатно (free)

Описан способ работы с учетом расписания с приоритетными покупателями - торговыми сетями (основными покупателями) в торговой или комплексной учетной системе на 1С 7.7. Множественная заявка покупателя на несколько торговых точек.

14.10.2019    6271    ksnik    14    

3

Операции по ВЭД Адаптация типовых решений Программист Оперативный учет 7.7 1С:Торговля и склад 7.7 Россия Бухгалтерский учет НДС Бесплатно (free)

В данной статье хотел поделиться опытом, как в Торговле 7.7 ( релиз 994) сделать возможность выводить код ТНВЭД в печатную форму счета-фактуры. Сразу скажу, что нужно это только тем, кто осуществляет экспорт в страны таможенного союза. Остальные могут не волноваться.

15.11.2017    12002    AndKovalchuk    0    

1

Зарплата Адаптация типовых решений Программист Бухгалтерский учет 7.7 1С:Бухгалтерия 7.7 Россия Бухгалтерский учет Абонемент ($m)

Реализация Постановления Правительства РФ 1316 от 04.12.14 для типовой конфигурации "Бухгалтерский учет 7.7" рел. 7.70.590

1 стартмани

31.12.2014    24031    9    Sergey1CSpb    2    

0
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. WiseSnake 1521 25.01.11 21:17 Сейчас в теме
А в глобальном модуле условие НачалоБолезни < '01.01.2011' не надо использовать?
2. Cvetic 307 26.01.11 09:53 Сейчас в теме
3. kdv 26.01.11 09:53 Сейчас в теме
Почему это в разделе исправление ошибок 1С?
По закону правильно именно 3 дня, по крайней мере дополнительных комментариев на этот счет не было.

Не советую вносить такие изменения без консультации с местным ФСС :)
4. Cvetic 307 26.01.11 09:55 Сейчас в теме
(3) исправления внесла после семинара в ФСС :)
5. isadora 26.01.11 12:29 Сейчас в теме
Поскольку страховой случай наступил в 2010 году,то и оплачивать следует за счет работодателя по правилам 2010 года,то есть 2 дня.
6. vat-74 167 27.01.11 07:18 Сейчас в теме
(5) В таком случае достаточно поправить только БЛ, в том месте где вычисляется по какому правилу будет считаться. т.е. вместо стр 18 ставим
	Если ДатаНачалаСобытия <= ДатаНачалаРеформыСоцСтрахования Тогда 
		ТипРасчетаБольничного=Перечисление.ТипРасчетаБольничного.С2010года;
	ИначеЕсли ЖрнЗарплата.НачалоТекущегоПериода() >= ДатаНачалаРеформыСоцСтрахования Тогда
7. valexeeva 27.01.11 11:17 Сейчас в теме
Вчера клиенты (Министерство) консультировались в ФСС (Москва,ЦО). Там подтвердили,что оплачиваться за счет работодателя должны 3 дня для ВСЕХ больничных, сданных в организацию в январе.
В скором времени будет официальное разъяснение.
9. Cvetic 307 27.01.11 14:04 Сейчас в теме
(7) Странно нам на семинаре в ФСС (Ульяновск) объясняли, что переходящие б/л 2 дня. Не может быть в каждом регионе своего учета. Быстрее бы разъяснения вышли, чтобы потом пересчетов не делать.
8. Cobranet123 373 27.01.11 12:06 Сейчас в теме
А я так понял, например если переходящий больничный с 2010 на 2011 год формируется в декабре 2010, то он по старым расчетам, а если больничный формируется в январе 2011, то уже расчет должен быть по новым правилам расчета.
10. serg76 313 27.01.11 15:11 Сейчас в теме
Вот ссылка на статейку от 1С где они объясняют почему сделали по всем б/л 3 дня за счет работодателя. Так что это не ошибка 1Сников - так было задумано
http://www.buh.ru/newsDescr-7079
11. 1Cworking 368 28.01.11 14:41 Сейчас в теме
Еще вариант:
Поскольку страховой случай наступил в 2010 году, то оплачивать следует по правилам 2010: за счет работодателя 2 дня и расчет БЛ по правилам 2010 (ВР-..с2010, а не с2011).
Кому подходит этот вариант, надо сделать следующие изменения:

Документ.БольничныйЛист, модуль формы
============================================================­=
Функция ПередЗаписью()
Если ПустоеЗначение(ТипРасчетаБольничного) = 1 Тогда
Если ЖрнЗарплата.НачалоТекущегоПериода() >= ДатаНачалаРеформыСоцСтрахования Тогда
ТипРасчетаБольничного=Перечисление.ТипРасчетаБольничного.С2011года;
ИначеЕсли ЖрнЗарплата.НачалоТекущегоПериода() >= ДатаПереходаНаСтраховыеВзносы Тогда
ТипРасчетаБольничного=Перечисление.ТипРасчетаБольничного.С2010года;
ИначеЕсли ДатаНачалаСобытия <'01.01.2004' Тогда
ТипРасчетаБольничного = ?(ФТипРасчетаБольничного1 = 1,Перечисление.ТипРасчетаБольничного.ПоТекущемуМесяцу,Перечисление.ТипРасчетаБольничного.ПоДвумМесяцам);
ИначеЕсли ДатаНачалаСобытия <'01.01.2005' Тогда
ТипРасчетаБольничного = Перечисление.ТипРасчетаБольничного.С2004года;
ИначеЕсли ДатаНачалаСобытия <'01.01.2007' Тогда
ТипРасчетаБольничного = Перечисление.ТипРасчетаБольничного.С2005года;
Иначе
ТипРасчетаБольничного = Перечисление.ТипРасчетаБольничного.С2007года;
КонецЕсли;
КонецЕсли;
//вставить (это если сменили дату начала бл с 2011 на 2010)
Если ЖрнЗарплата.НачалоТекущегоПериода() >= ДатаНачалаРеформыСоцСтрахования Тогда
Если ДатаНачалаСобытия < ДатаНачалаРеформыСоцСтрахования Тогда
ТипРасчетаБольничного=Перечисление.ТипРасчетаБольничного.С2010года;
КонецЕсли;
КонецЕсли;
//до

------------------------------------------------------------------
Процедура ПриОткрытии()
....
Если ДатаНачалаСобытия >='01.01.2004' Тогда
Если (ДатаПервойЗаписи < '01.01.2005') И (ТипРасчетаБольничного <> Перечисление.ТипРасчетаБольничного.С2004года) Тогда
ТипРасчетаБольничного = Перечисление.ТипРасчетаБольничного.С2004года;
ИначеЕсли (ДатаПервойЗаписи < '01.01.2007') Тогда
Если (ПроведенВПрошлом = 0) и (ТипРасчетаБольничного <> Перечисление.ТипРасчетаБольничного.С2005года) Тогда
ТипРасчетаБольничного = Перечисление.ТипРасчетаБольничного.С2005года;
КонецЕсли;
ИначеЕсли (ПроведенВПрошлом = 0) Тогда
Если ЖрнЗарплата.НачалоТекущегоПериода() >= ДатаНачалаРеформыСоцСтрахования Тогда
//было
Если (ТипРасчетаБольничного <> Перечисление.ТипРасчетаБольничного.С2011года) Тогда
ТипРасчетаБольничного=Перечисление.ТипРасчетаБольничного.С2011года;
КонецЕсли;
//заменить на
Если ДатаПервойЗаписи < ДатаНачалаРеформыСоцСтрахования Тогда
ТипРасчетаБольничного=Перечисление.ТипРасчетаБольничного.С2010года;
Иначе
Если (ТипРасчетаБольничного <> Перечисление.ТипРасчетаБольничного.С2011года) Тогда
ТипРасчетаБольничного=Перечисление.ТипРасчетаБольничного.С2011года;
КонецЕсли;
КонецЕсли;
//до

------------------------------------------------------------------
Процедура УстановитьТипРасчетаБЛ()
Если ЖрнЗарплата.НачалоТекущегоПериода() >= ДатаНачалаРеформыСоцСтрахования Тогда
//было
ТипРасчетаБольничного=Перечисление.ТипРасчетаБольничного.С2011года;
//заменить на
Если Начало >= ДатаПереходаНаСтраховыеВзносы Тогда
ТипРасчетаБольничного=Перечисление.ТипРасчетаБольничного.С2010года;
Иначе
ТипРасчетаБольничного=Перечисление.ТипРасчетаБольничного.С2011года;
КонецЕсли;
//до

------------------------------------------------------------------

Документ.БольничныйЛист, модуль документа
============================================================­=
Процедура ОбработкаПроведения(ОбработчикСообщений)
.......
Пока СпрСотрудники.ПолучитьЭлемент() = 1 Цикл
ЭлСотрудника = СпрСотрудники.ТекущийЭлемент();
Если СпрСотрудники.ОсновнойЭлемент = ЭлСотрудника Тогда // по основному месту работы введем оплату больничного
//было
Если ПериодРегистрации >= глДатаНачалаРеформыСоцСтрахования() Тогда
//заменить на
Если НачалоБолезни >= глДатаНачалаРеформыСоцСтрахования() Тогда
//до
patnaumov; +1 Ответить
12. 1Cworking 368 31.01.11 09:06 Сейчас в теме
(11) при смене даты начала периода бл с 2010 на 2011 и обратно не меняется форма
здесь представлен код с учетом этих изменений:

Документ.БольничныйЛист, модуль формы
============================================================­=
Функция ПередЗаписью()
Если ПустоеЗначение(ТипРасчетаБольничного) = 1 Тогда
Если ЖрнЗарплата.НачалоТекущегоПериода() >= ДатаНачалаРеформыСоцСтрахования Тогда
ТипРасчетаБольничного=Перечисление.ТипРасчетаБольничного.С2011года;
ИначеЕсли ЖрнЗарплата.НачалоТекущегоПериода() >= ДатаПереходаНаСтраховыеВзносы Тогда
ТипРасчетаБольничного=Перечисление.ТипРасчетаБольничного.С2010года;
ИначеЕсли ДатаНачалаСобытия <'01.01.2004' Тогда
ТипРасчетаБольничного = ?(ФТипРасчетаБольничного1 = 1,Перечисление.ТипРасчетаБольничного.ПоТекущемуМесяцу,Перечисление.ТипРасчетаБольничного.ПоДвумМесяцам);
ИначеЕсли ДатаНачалаСобытия <'01.01.2005' Тогда
ТипРасчетаБольничного = Перечисление.ТипРасчетаБольничного.С2004года;
ИначеЕсли ДатаНачалаСобытия <'01.01.2007' Тогда
ТипРасчетаБольничного = Перечисление.ТипРасчетаБольничного.С2005года;
Иначе
ТипРасчетаБольничного = Перечисление.ТипРасчетаБольничного.С2007года;
КонецЕсли;
КонецЕсли;
//вставить (это если сменили дату начала бл с 2011 на 2010)
Если ЖрнЗарплата.НачалоТекущегоПериода() >= ДатаНачалаРеформыСоцСтрахования Тогда
Если ДатаНачалаСобытия < ДатаНачалаРеформыСоцСтрахования Тогда
ТипРасчетаБольничного=Перечисление.ТипРасчетаБольничного.С2010года;
КонецЕсли;
КонецЕсли;
//до

------------------------------------------------------------------
Процедура ПриОткрытии()
....
// сформируем заголовок в зависимости от наличия первичного БЛ
СформироватьЗаголовокДокумента();

// установим закладки и заголовок
Форма.ИспользоватьЗакладки(1);
//было
СформироватьСлои();
//закомментировать
//СформироватьСлои();
//до
.............
Если ДатаНачалаСобытия >='01.01.2004' Тогда
Если (ДатаПервойЗаписи < '01.01.2005') И (ТипРасчетаБольничного <> Перечисление.ТипРасчетаБольничного.С2004года) Тогда
ТипРасчетаБольничного = Перечисление.ТипРасчетаБольничного.С2004года;
ИначеЕсли (ДатаПервойЗаписи < '01.01.2007') Тогда
Если (ПроведенВПрошлом = 0) и (ТипРасчетаБольничного <> Перечисление.ТипРасчетаБольничного.С2005года) Тогда
ТипРасчетаБольничного = Перечисление.ТипРасчетаБольничного.С2005года;
КонецЕсли;
ИначеЕсли (ПроведенВПрошлом = 0) Тогда
Если ЖрнЗарплата.НачалоТекущегоПериода() >= ДатаНачалаРеформыСоцСтрахования Тогда
//было
Если (ТипРасчетаБольничного <> Перечисление.ТипРасчетаБольничного.С2011года) Тогда
ТипРасчетаБольничного=Перечисление.ТипРасчетаБольничного.С2011года;
КонецЕсли;
//заменить на
Если ДатаПервойЗаписи < ДатаНачалаРеформыСоцСтрахования Тогда
ТипРасчетаБольничного=Перечисление.ТипРасчетаБольничного.С2010года;
Иначе
Если (ТипРасчетаБольничного <> Перечисление.ТипРасчетаБольничного.С2011года) Тогда
ТипРасчетаБольничного=Перечисление.ТипРасчетаБольничного.С2011года;
КонецЕсли;
КонецЕсли;
//до
ИначеЕсли ЖрнЗарплата.НачалоТекущегоПериода() >= ДатаПереходаНаСтраховыеВзносы Тогда
Если (ТипРасчетаБольничного <> Перечисление.ТипРасчетаБольничного.С2010года) Тогда
ТипРасчетаБольничного=Перечисление.ТипРасчетаБольничного.С2010года;
КонецЕсли;
ИначеЕсли (ТипРасчетаБольничного <> Перечисление.ТипРасчетаБольничного.С2007года) Тогда
ТипРасчетаБольничного = Перечисление.ТипРасчетаБольничного.С2007года;
КонецЕсли;
КонецЕсли;
ИначеЕсли ДатаНачалаСобытия < '01.01.2004' Тогда
Если (ПервичныйБольничный.Выбран() = 1) и (ТипРасчетаБольничного <> ПервичныйБольничный.ТипРасчетаБольничного) Тогда
ТипРасчетаБольничного = ПервичныйБольничный.ТипРасчетаБольничного;
ИначеЕсли (ТипРасчетаБольничного = Перечисление.ТипРасчетаБольничного.С2004года) или (ТипРасчетаБольничного = Перечисление.ТипРасчетаБольничного.С2005года) Тогда
ТипРасчетаБольничного = Перечисление.ТипРасчетаБольничного.ПоДвумМесяцам;
КонецЕсли;
КонецЕсли;
//добавить
СформироватьСлои();
//до

------------------------------------------------------------------
Процедура УстановитьТипРасчетаБЛ()
Если ЖрнЗарплата.НачалоТекущегоПериода() >= ДатаНачалаРеформыСоцСтрахования Тогда
//было
ТипРасчетаБольничного=Перечисление.ТипРасчетаБольничного.С2011года;
//заменить на
Если Начало >= ДатаНачалаРеформыСоцСтрахования Тогда
ТипРасчетаБольничного=Перечисление.ТипРасчетаБольничного.С2011года;
Иначе
ТипРасчетаБольничного=Перечисление.ТипРасчетаБольничного.С2010года;
КонецЕсли;
//до

------------------------------------------------------------------

Документ.БольничныйЛист, модуль документа
============================================================­=
Процедура ОбработкаПроведения(ОбработчикСообщений)
.......
Пока СпрСотрудники.ПолучитьЭлемент() = 1 Цикл
ЭлСотрудника = СпрСотрудники.ТекущийЭлемент();
Если СпрСотрудники.ОсновнойЭлемент = ЭлСотрудника Тогда // по основному месту работы введем оплату больничного
//было
Если ПериодРегистрации >= глДатаНачалаРеформыСоцСтрахования() Тогда
//заменить на
Если НачалоБолезни >= глДатаНачалаРеформыСоцСтрахования() Тогда
//до
13. rdv 02.02.11 08:00 Сейчас в теме
Кто перешел на 306 релиз, как оно там то ?
14. Cvetic 307 02.02.11 11:44 Сейчас в теме
15. *Zed* 280 03.02.11 11:35 Сейчас в теме
Наш ФСС (Псков) сказали что надо оплачивать 2 дня для таких больничных
16. Варя_Варя 8 04.02.11 11:56 Сейчас в теме
наш ФСС (Рязань) тоже сказали, что надо оплачивать 2 дня за счет средств работодателя для переходящих больничных, объяснив это тем, что страховой случай наступил до вступления в силу нового закона, поэтому расчет по старому.
17. B00RblY 08.02.11 11:50 Сейчас в теме
В общем, как я понял, сейчас ничего не менять в модуле, а ждать где-нибудь весной выхода нового релиза. К тому времени, думаю, уж определяться наши власти сколько брать с работодателя 2 или 3 дня. В худшем случае делать перерасчет.
18. hasp_x 156 10.02.11 13:25 Сейчас в теме
можно на панель документа больничный лист вывести реквизит "Тип расчета больничного", тогда в модуле и править ничего не надо будет
19. I love pivo 14.02.11 20:45 Сейчас в теме
вообще то у приличных людей принято давать ссылку на первоисточник:
http://forums.kuban.ru/forum/viewtopic_new.php?t=3612669&page=2

вот это "+2-1" - это коронный стиль Гены.

поэтому - за плагиат - жирный минус.
20. Cvetic 307 22.02.11 15:26 Сейчас в теме
(19) Правда, списала у Гены. Но он не разместил на этом сайте, а людям очень нужно. Поэтому решилась на плагиат :oops: Надеюсь, что Гена не обидется.
21. support 4453 02.03.11 15:02 Сейчас в теме
(20) Пожалуйста, укажите в тексте публикации первоисточник и авторство.
22. Гена 02.03.11 15:31 Сейчас в теме
(21) не надо грязи... автор уникально и независимо решила давать 2 дня по всем случаям, начавшимся до 01.01.2011

у меня другое мнение... я выделяю 30-е и 31 декабря... поэтому Cvetic имеет право на (с) данной публикации полностью и неоспоримо... плюсуйте смело... у меня почему-то нет такого права...
24. Cvetic 307 03.03.11 08:30 Сейчас в теме
(22) Гена, спасибо что не сердитесь.
23. Cvetic 307 03.03.11 08:29 Сейчас в теме
Хорошо, укажу первоисточник.
25. lushka 6 10.03.11 08:51 Сейчас в теме
Оставьте свое сообщение