1С:Предприятие 7.x (общие вопросы-ответы, обсуждения)

[pevek]

1С: Зарплата и Кадры, релиз 292 - Ошибки и их исправление собраны на infostart.ru

1. Форма-Обработка.РасчетЗарплаты; Процедура УстановитьФлаги(Что); Строка 55;

//Nicholas [<>] 18.01.2010 14:18:32
//Comments: Не печатаются "Свод проводок" и "Налоговый регист учета налогов с ФОТ" из обработки "Расчет".
//Been:
//РегистрНалоговФОТ= ?(Что=5,ФлагРегистрНалоговФ? ?Т1,0);
//СводПроводок = ?(Что=5,ФлагСводПроводок1,0);
//Turn:
РегистрНалоговФОТ1= ?(Что=5,ФлагРегистрНалоговФ? ?Т1,0);
СводПроводок1 = ?(Что=5,ФлагСводПроводок1,0);
//EndNicholas [<>]

2. Форма-Отчет.ПодготовкаСведенийД? ?яПФР; Процедура Печать();

//Nicholas [<>] 18.01.2010 14:06:46
//Comments: При выводе на печать сформированных пачек выводится ошибка.
//Been:
//Если Год < 2009 Тогда
//Turn:
Если Год <= 2009 Тогда
//EndNicholas [<>]

3. Форма-Документ.БольничныйЛист; Процедура ЗаполнитьТабличнуюЧасть(); Строка 1377;

Если (ДатаНачалаСобытия < ДатаПереходаНаСтраховыеВз носы) Тогда

Если Окончание >= ДатаПереходаНаСтраховыеВз носы Тогда //Nicholas [+] 21.01.2010 15:23:06

//соберем данные по правилам до 2010 года

//Nicholas [<>] 21.01.2010 15:09:35
//Comments: Иначе таблица среднего заполняется не верно.
//Been:
//ТабДанныхОСреднем2009 = глЗаполнитьДанныеСреднего ЗаработкаДляБЛ(Сотрудник,Д атаНачалаСобытия,ТипБолез? ?и,ТипРасчетаБольничного,1);
//Turn:
ТабДанныхОСреднем2009 = глЗаполнитьДанныеСреднего ЗаработкаДляБЛ(Сотрудник,Д атаНачалаСобытия,ТипБолез? ?и,Перечисление.ТипРасчета? ?ольничного.С2007года,1);
//EndNicholas [<>]

//соберем данные по правилам с 2010 года

//Nicholas [<>] 21.01.2010 15:10:25
//Comments: Иначе таблица среднего заполняется не верно.
//Been:
//ТабДанныхОСреднем2010 = глЗаполнитьДанныеСреднего ЗаработкаДляБЛ(Сотрудник,Д атаНачалаСобытия,ТипБолез? ?и,ТипРасчетаБольничного,2);
//Turn:
ТабДанныхОСреднем2010 = глЗаполнитьДанныеСреднего ЗаработкаДляБЛ(Сотрудник,Д атаНачалаСобытия,ТипБолез? ?и,Перечисление.ТипРасчета? ?ольничного.С2010года,2);
//EndNicholas [<>]


глПереписатьИзТаблицыВТаб лицу(ТабДанныхОСреднем2010,Т абДанныхОСреднем2009);
ЗагрузитьТабличнуюЧасть(Т? ?бДанныхОСреднем2009);

//Nicholas [+] 21.01.2010 15:24:00
//Comments: Иначе таблица среднего заполняется не верно.
Иначе
ТабДанныхОСреднем = глЗаполнитьДанныеСреднего ЗаработкаДляБЛ(Сотрудник,Д атаНачалаСобытия,ТипБолез? ?и,Перечисление.ТипРасчета? ?ольничного.С2007года);
ЗагрузитьТабличнуюЧасть(Т? ?бДанныхОСреднем);
КонецЕсли;
//EndNicholas [+]

Иначе
ТабДанныхОСреднем = глЗаполнитьДанныеСреднего ЗаработкаДляБЛ(Сотрудник,Д атаНачалаСобытия,ТипБолез? ?и,ТипРасчетаБольничного);
ЗагрузитьТабличнуюЧасть(Т? ?бДанныхОСреднем);
КонецЕсли;

4. Форма-Документ.ОтпускПоУходуЗаР? ?бенком; Процедура ЗаполнитьТабличнуюЧасть();

//Nicholas [<>] 18.01.2010 15:35:27
//Comments: Иначе таблица среднего заполняется не верно.
//Been:
//соберем данные по правилам до 2010 года
ТабДанныхОСреднем2009 = глЗаполнитьДанныеСреднего ЗаработкаДляБЛ(Сотрудник,Н ачало,ТипБолезни,ТипРасчет аБольничного,1);
//соберем данные по правилам с 2010 года
ТабДанныхОСреднем2010 = глЗаполнитьДанныеСреднего ЗаработкаДляБЛ(Сотрудник,Н ачало,ТипБолезни,ТипРасчет аБольничного,2);
//Turn:
//соберем данные по правилам до 2010 года
ТипРасчетаБольничного = Перечисление.ТипРасчетаБо? ?ьничного.С2007года;
ТабДанныхОСреднем2009 = глЗаполнитьДанныеСреднего ЗаработкаДляБЛ(Сотрудник,Н ачало,ТипБолезни,ТипРасчет аБольничного,1);
//соберем данные по правилам с 2010 года
ТипРасчетаБольничного = Перечисление.ТипРасчетаБо? ?ьничного.С2010года;
ТабДанныхОСреднем2010 = глЗаполнитьДанныеСреднего ЗаработкаДляБЛ(Сотрудник,Н ачало,ТипБолезни,ТипРасчет аБольничного,2);
//EndNicholas [<>]

5. Глобальный модуль; Функция глСобратьДанныеДляБЛ2010(); Строка 48418;

//Nicholas [<>] 18.01.2010 16:25:43
//Comments: В БЛ и отпуске по уходу заребенком задваивается средний заработок.
//Been:
//СуммаПособияПоловинаДоляН еЕНВД = СуммаПособияПолная - СуммаПособияПоловинаДоляЕ НВД;
//Turn:
СуммаПособияПоловинаДоляН еЕНВД = СуммаПособияПоловина - СуммаПособияПоловинаДоляЕ НВД;
//EndNicholas [<>]

6. Глобальный модуль; Функция глСобратьДанныеДляБЛ2010(); Строка 48059;

//Nicholas [<>] 18.01.2010 16:59:51
//Comments: РК здесь не нужен.
//Been:
//глСообщениеТрассировки(гл? ?ообщенияТрассировки, "Дневное ограничение согласно с учетом РК (" + ПредельнаяВеличинаБазы + "/365 * "+ РК +") : _П01", 0, 0, ДневноеОграничениеФСС, "Ч15.2");
//Turn:
глСообщениеТрассировки(гл? ?ообщенияТрассировки, "Дневное ограничение (" + ПредельнаяВеличинаБазы + "/365"+") : _П01", 0, 0, ДневноеОграничениеФСС, "Ч15.2");
//EndNicholas [<>]

7. Глобальный модуль; Функция глДатаПрописьюВОтчет(); Строка 51111;

//Nicholas [<>] 18.01.2010 16:49:58
//Comments: Так правильнее.
//Been:
//Возврат """____"" ___________ 200_ года";
//Turn:
Возврат """____"" ___________ 20__ года";
//EndNicholas [<>]

8. Глобальный модуль; Функция глРассчитатьСуммуПособия() ; Строка 43574;

//Nicholas [<>] 18.01.2010 16:54:48
//Comments: РК здесь не нужен.
//Been:
//РазмерОграничения = Окр(ПредельнаяВеличинаБаз? ? / 12 * РК, 2);
//Turn:
РазмерОграничения = Окр(ПредельнаяВеличинаБаз? ? / 12, 2);
//EndNicholas [<>]

9. Глобальный модуль; Функция глСобратьДанныеДляБЛ2010(); Строка 48014;

//Nicholas [<>] 18.01.2010 16:58:09
//Comments: РК здесь не нужен.
//Been:
//ДневноеОграничениеФСС = ДневноеОграничениеСреднег о * РК;
//Turn:
ДневноеОграничениеФСС = ДневноеОграничениеСреднег о;
//EndNicholas [<>]

10. Форма-Документ.БольничныйЛист;Пр оцедура Печать2007(); Строка 5321;

//Nicholas [<>] 20.01.2010 15:21:48
//Comments: Иначе при печати "Расчет среднего заработка" в п. "Расчет среднего заработка" - сумма задваивается.
//Been:
//Если (ЭтоДанныеПоПравилам2007 = 1) и (ТекущаяСтрока2007<>Количест? ?оСтрок2007) Тогда
//Продолжить;
//ИначеЕсли(ЭтоДанныеПоПрав? ?лам2007 = 0) и (ТекущаяСтрока2006<>Количест? ?оСтрок2006) Тогда
//Продолжить;
//КонецЕсли;
//Turn:
Если (ЭтоДанныеПоПравилам2007 = 1) и (ТекущаяСтрока2007<>Количест? ?оСтрок2007) Тогда
ИтогЗаработок = 0;
ИтогоДоляПремииВсего = 0;
Продолжить;
ИначеЕсли(ЭтоДанныеПоПрав? ?лам2007 = 0) и (ТекущаяСтрока2006<>Количест? ?оСтрок2006) Тогда
Продолжить;
КонецЕсли;
//EndNicholas [<>]

Незабываем нажать Спасибо!