v8: 1c бухгалтерия (редакция 3.0) !!!!!!!!!!!!!!!!!

03.12.2013 09:48

Прочитано: 2393

Добрый день! Необходимо дописать кнопку "Заполнить" на форме документа "начисление зарплаты". Как выбрать для расчета количество отработанных дней у сотрудников, которые были приняты / уволены на работу в середине месяца?

Yandex

Возможно, вас также заинтересует

an07

03.12.2013 09:49

Ответ № 1

Процедура ЗаполнитьРезультатНачисления(Объект)

РезультатНачисления = РасчетЗарплаты.РезультатНачисленияРасчетаЗарплаты(Объект.Организация, Объект.МесяцНачисления, КонецМесяца(Объект.МесяцНачисления), Объект.МесяцНачисления, Объект.Ссылка, Объект.Подразделение);
Объект.Начисления.Загрузить(РезультатНачисления);

// получить число дней по календарю
График = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Объект.Организация, "ГрафикРаботы");
// Если календарь организации не задан - оставляем число дней нулевым
КоличествоДней = 0;
Если ЗначениеЗаполнено(График) Тогда
Попытка

КоличествоДней = КалендарныеГрафики.ПолучитьРазностьДатПоКалендарю(График, НачалоМесяца(Объект.МесяцНачисления), КонецМесяца(Объект.МесяцНачисления));

Исключение
КоличествоДней = 0;
КонецПопытки;
КонецЕсли;

Начисления = ОбщегоНазначения.ВыгрузитьКолонку(Объект.Начисления, "Начисление", Истина);
КатегорииНачислений = ОбщегоНазначения.ЗначениеРеквизитаОбъектов(Начисления, "КатегорияНачисленияИлиНеоплаченногоВремени");

Для Каждого Строка Из Объект.Начисления Цикл
Если КатегорииНачислений[Строка.Начисление] = Перечисления.КатегорииНачисленийИНеоплаченногоВремени.ПовременнаяОплатаТруда Тогда
Строка.ОтработаноДней = КоличествоДней;
Строка.ОтработаноЧасов = КоличествоДней * 8;
КонецЕсли;
КонецЦикла;

КонецПроцедуры

an07

03.12.2013 10:44

Ответ № 2

Как дописать в процедуру ЗаполнитьРезультатНачисления(Объект) подсчет количества отработанных дней у сотрудников, которые были приняты / уволены на работу в середине месяца? Какой регистр сведений лучше использовать "Плановые начисления" или "Кадровая история сотрудников" ?

Jonsony

03.12.2013 13:27

Ответ № 3

(0) an07, -"Как выбрать для расчета количество отработанных дней у сотрудников, которые были приняты / уволены на работу в середине месяца?" Табель?

PS
если честно - ведём в ЗУП отдельно, удобнее

Изменено 03.12.13 13:40:03

an07

03.12.2013 14:35

Ответ № 4

Я бы рада иметь дело с ЗУП, но на то я не могу повлиять.

an07

03.12.2013 14:54

Ответ № 5

Табеля тоже не будет.

an07

03.12.2013 15:00

Ответ № 6

Как сделать документ - отклонение.

CTAJIUH

03.12.2013 16:03

Ответ № 7

Если нет ни каких данных о отработанных днях, а заполнить ТЧ нужно, то можно вводить в документе дату увольнения

Код 1C v 8.х

 

ВыбДата=ТекущаяДата();

Если ВвестиДату(ВыбДата,"Введите дату:",ЧастиДаты.Дата) Тогда

КоличествоДней = КалендарныеГрафики.ПолучитьРазностьДатПоКалендарю(График, НачалоМесяца(Объект.МесяцНачисления),ВыбДата);

КонецЕсли;

Изменено 03.12.13 16:11:02

an07

04.12.2013 10:29

Ответ № 8

Как добавить столбец в таблицу формы
документа к уже имеющимся?

an07

05.12.2013 14:09

Ответ № 9

Вопрос закрыт!

an07

10.12.2013 10:47

Ответ № 10

Подсказка: Щелникни по Имени пользователя напротив ответа, и тем самым покажешь, что сообщение адресовано ему.