Имя: Пароль:
1C
1С v8
ЗУП: Как посмотреть средний заработок, который учитывается при начислении б/л?
0 katherina
 
29.07.11
12:44
ЗУП: Как посмотреть средний заработок, который учитывается при начислении б/л?
1 ilis516
 
29.07.11
13:07
Вопрос неточен. Что имеется ввиду? Виды расчета, входящие в расчет б/л? В 2011 году это все ВР, облагаемые ФСС.
2 khimiki
 
29.07.11
13:29
Операции -> План видов расчёта -> Средний заработок
3 katherina
 
29.07.11
13:30
(1)- да понятно! а, то я захожу в регистр "Виды заработка, учитываемые при расчете среднего заработка" и не могу зайти в базу для больничного.
4 katherina
 
29.07.11
13:31
(2)да - в ПВР именно в него заходила
5 ptiz
 
29.07.11
13:31
(3) В средний попадает всё, что облагается взносами в соц.страх. Редактирование базы теперь не требуется.
6 katherina
 
29.07.11
13:33
посоветуйте, пожалуйста как быть.
Переходим на ЗУП в середине года с самописной программы.
Хотим перенести базу для расчета среднего по б/л и отпускам.
У нас 2 таблицы, соответственно: средний для отпуска, средний для б/л

Как переносить?
7 khimiki
 
29.07.11
13:50
(3) По двойному щелчку мыши вроде бы переход осуществлялся...
8 khimiki
 
29.07.11
13:58
(7) Я просто перенес начисления через документ Перенос данных, добавил регистр сведений "ВременныйКоррекцияСреднегозаработка" (Период, Сотрудник, ДниДляОтпуска, ДниДляБольничного, ДниДляСреднего, Часы) и код в общий модуль "ПроведениеРасчетовПереопределяемый" в процедуру "СформироватьИЗаписатьДанныеРасчетаСреднего"

   Запрос.Текст =
   "ВЫБРАТЬ
   |СУММА(ВременныйКоррекцияСреднегоЗаработка.ДниДляОтпуска) КАК ДниДляОтпуска,
   |СУММА(ВременныйКоррекцияСреднегоЗаработка.ДниДляБЛ) КАК ДниДляБЛ,
   |СУММА(ВременныйКоррекцияСреднегоЗаработка.Часы) КАК ЧАСЫдляСреднего,
   |СУММА(ВременныйКоррекцияСреднегоЗаработка.ДниДляСреднего) КАК ДниДляСреднего
   |ИЗ
   |РегистрСведений.ВременныйКоррекцияСреднегоЗаработка КАК ВременныйКоррекцияСреднегоЗаработка
   |ГДЕ
   |ВременныйКоррекцияСреднегоЗаработка.ПериодРегистрации = &ПериодРегистрации
   |И ВременныйКоррекцияСреднегоЗаработка.Сотрудник = &Сотрудник";
   
   Запрос.УстановитьПараметр("Сотрудник", Регистратор.Сотрудник);
   НаборИзменен = Ложь;
   КолДней = 0;
   Для Каждого Стр Из НаборЗаписей Цикл
       Если Стр.Результат > 0 И Стр.БазовыйПериодНачало < Дата(2011, 1, 1)  Тогда
           Запрос.УстановитьПараметр("ПериодРегистрации", Стр.БазовыйПериодНачало);
           Если ТипЗнч(Регистратор) = Тип("ДокументСсылка.НачислениеОтпускаРаботникамОрганизаций") И Стр.ВидРасчета = ПланыВидовРасчета.СреднийЗаработок.ПоЗаработкуИндексируемые Тогда
               Выб = Запрос.Выполнить().Выбрать();
               Если Выб.Следующий() Тогда
                   КолДней = Выб.ДниДляОтпуска;
               КонецЕсли;
           ИначеЕсли ТипЗнч(Регистратор) = Тип("ДокументСсылка.НачислениеПоБольничномуЛисту") И Стр.ВидРасчета = ПланыВидовРасчета.СреднийЗаработок.ПоЗаработкуПособийС2010 Тогда
               Выб = Запрос.Выполнить().Выбрать();
               Если Выб.Следующий() Тогда
                   КолДней = Выб.ДниДляБЛ;
               КонецЕсли;
           ИначеЕсли ТипЗнч(Регистратор) = Тип("ДокументСсылка.РасчетПриУвольненииРаботникаОрганизаций") И Стр.ВидРасчета = ПланыВидовРасчета.СреднийЗаработок.ПоЗаработкуИндексируемые Тогда
               Выб = Запрос.Выполнить().Выбрать();
               Если Выб.Следующий() Тогда
                   КолДней = Выб.ДниДляОтпуска;
               КонецЕсли;
           ИначеЕсли ТипЗнч(Регистратор) = Тип("ДокументСсылка.ОплатаПоСреднемуЗаработку") И Стр.ВидРасчета = ПланыВидовРасчета.СреднийЗаработок.ПоЗаработкуИндексируемые Тогда
               Выб = Запрос.Выполнить().Выбрать();
               Если Выб.Следующий() Тогда
                   КолДней = Выб.ДниДляСреднего;
                   КолЧасов = Выб.ЧАСЫдляСреднего;
                   Если КолЧасов > 0 Тогда
                       Стр.ОтработаноЧасов = КолЧасов;
                       НаборИзменен = Истина;
                   КонецЕсли;    
               КонецЕсли;
           КонецЕсли;
           Если КолДней > 0 Тогда
               Стр.ОтработаноДней = КолДней;
               НаборИзменен = Истина;
           КонецЕсли;    
       КонецЕсли;
   КонецЦикла;
   Если НаборИзменен Тогда
       НаборЗаписей.Записать();
   КонецЕсли;
Закон Брукера: Даже маленькая практика стоит большой теории.