Отчет "Начисления сотрудникам" не выводит результат

@Ackles · Регистрация: 09.10.2012

Author24 — интернет-сервис помощи студентам

Помогите с отчетом. Я создаю док-т Начисления сотрудникам по окладу (см.рис 1), провожу его, он записывается в регистр Начисления, но результата не пишет(см.рис 2). В итоге при формировании отчета у меня пустота. Как сделать, чтобы и результат был виден? Помогите пожалуйста. База вложена

@delphi_Int · 12.06.2014, 22:50

Движение.Результат = ТекСтрокаНачисления.Начислено;

Добавлено через 5 минут
...но просто написать такую строчку нет смысла. Результат должен высчитываться исходя из вида расчета и графика, а это к тому что есть в обработке документа, нужно ещё обращаться к ОсновныеНачисленияДанныеГрафика Или к БазеосновныйНачислений

Добавлено через 11 минут

1C

        НаборЗаписей = РегистрыРасчета.Начисления.СоздатьНаборЗаписей();
    НаборЗаписей.Отбор.Регистратор.Установить(Ссылка);
    НаборЗаписей.Прочитать();  
    
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   НачисленияДанныеГрафика.НомерСтроки,
        |   НачисленияДанныеГрафика.ЗначениеПериодДействия КАК План,
        |   НачисленияДанныеГрафика.ЗначениеФактическийПериодДействия КАК Факт,
        |   НачисленияДанныеГрафика.ИсходныеДанные
        |ИЗ
        |   РегистрРасчета.Начисления.ДанныеГрафика(
        |           Регистратор = &Регистратор
        |               И ВидРасчета = &ВидРасчета) КАК НачисленияДанныеГрафика";
 
    Запрос.УстановитьПараметр("ВидРасчета", ПланыВидовРасчета.ОсновныеНачисления.Оклад);
    Запрос.УстановитьПараметр("Регистратор", Ссылка);
    Результат = Запрос.Выполнить();    
    Выборка = Результат.Выбрать();   
    Пока Выборка.Следующий() Цикл
        НаборЗаписей[Выборка.НомерСтроки-1].Результат = Выборка.Факт / Выборка.План * Выборка.ИсходныеДанные;     
    КонецЦикла;
    НаборЗаписей.Записать(, Истина);

для оклада....что-то типа этого

Добавлено через 6 минут
это добавляете после того кода что у вас в обработке документа, т.е. вы сначала записываете рабочие данные, а потом их расчитываете

@Ackles · 12.06.2014, 23:02 **[ТС]**

Т.е Ваш код, который Вы написали, мне добавить после этого кода в модуле объекта Документа Начисления сотрудникам?

1C

Процедура ОбработкаПроведения(Отказ, Режим)
    //{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
 
    // регистр Начисления
    Движения.Начисления.Записывать = Истина;
    Для Каждого ТекСтрокаНачисления Из Начисления Цикл
        Движение = Движения.Начисления.Добавить();
        Движение.Сторно = Ложь;
        Движение.ВидРасчета = ТекСтрокаНачисления.ВидРасчета;
        Движение.ПериодДействияНачало = ТекСтрокаНачисления.ДатаНачала;
        Движение.ПериодДействияКонец = КонецДня(ТекСтрокаНачисления.ДатаОкончания);
        Движение.ПериодРегистрации = Дата;
        Движение.БазовыйПериодНачало = ТекСтрокаНачисления.ДатаНачала;
        Движение.БазовыйПериодКонец = КонецДня(ТекСтрокаНачисления.ДатаОкончания);
        Движение.Сотрудник = ТекСтрокаНачисления.Сотрудник;
        Движение.ГрафикРаботы = ТекСтрокаНачисления.ГрафикРаботы;
        Движение.ИсходныеДанные = ТекСтрокаНачисления.Начислено;
    КонецЦикла;
 
    //}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры

@delphi_Int · 12.06.2014, 23:08

да. ниже вашего кода

@Ackles · 12.06.2014, 23:16 **[ТС]**

Сделал так, как Вы написали.

1C

Процедура ОбработкаПроведения(Отказ, Режим)
    //{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
 
    // регистр Начисления
    Движения.Начисления.Записывать = Истина;
    Для Каждого ТекСтрокаНачисления Из Начисления Цикл
        Движение = Движения.Начисления.Добавить();
        Движение.Сторно = Ложь;
        Движение.ВидРасчета = ТекСтрокаНачисления.ВидРасчета;
        Движение.ПериодДействияНачало = ТекСтрокаНачисления.ДатаНачала;
        Движение.ПериодДействияКонец = КонецДня(ТекСтрокаНачисления.ДатаОкончания);
        Движение.ПериодРегистрации = Дата;
        Движение.БазовыйПериодНачало = ТекСтрокаНачисления.ДатаНачала;
        Движение.БазовыйПериодКонец = КонецДня(ТекСтрокаНачисления.ДатаОкончания);
        Движение.Сотрудник = ТекСтрокаНачисления.Сотрудник;
        Движение.ГрафикРаботы = ТекСтрокаНачисления.ГрафикРаботы;
        Движение.ИсходныеДанные = ТекСтрокаНачисления.Начислено;
    КонецЦикла;
    
    НаборЗаписей = РегистрыРасчета.Начисления.СоздатьНаборЗаписей();
    НаборЗаписей.Отбор.Регистратор.Установить(Ссылка);
    НаборЗаписей.Прочитать();   
    
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   НачисленияДанныеГрафика.НомерСтроки,
        |   НачисленияДанныеГрафика.ЗначениеПериодДействия КАК План,
        |   НачисленияДанныеГрафика.ЗначениеФактическийПериодДействия КАК Факт,
        |   НачисленияДанныеГрафика.ИсходныеДанные
        |ИЗ
        |   РегистрРасчета.Начисления.ДанныеГрафика(
        |           Регистратор = &Регистратор
        |               И ВидРасчета = &ВидРасчета) КАК НачисленияДанныеГрафика";
 
    Запрос.УстановитьПараметр("ВидРасчета", ПланыВидовРасчета.ОсновныеНачисления.Оклад);
    Запрос.УстановитьПараметр("Регистратор", Ссылка);
    Результат = Запрос.Выполнить();    
    Выборка = Результат.Выбрать();   
    Пока Выборка.Следующий() Цикл
        НаборЗаписей[Выборка.НомерСтроки-1].Результат = Выборка.Факт / Выборка.План * Выборка.ИсходныеДанные;       
    КонецЦикла;
    НаборЗаписей.Записать(, Истина);
 
    //}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры

К сожалению результат не записывается в регистре, но зато в отчете появился Оклад у другого сотрудника

@delphi_Int · 12.06.2014, 23:34

1C

Процедура ОбработкаПроведения(Отказ, Режим)
    //{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
 
    // регистр Начисления
    
    Для Каждого ТекСтрокаНачисления Из Начисления Цикл
        Движение = Движения.Начисления.Добавить();
        Движение.Сторно = Ложь;
        Движение.ВидРасчета = ТекСтрокаНачисления.ВидРасчета;
        Движение.ПериодДействияНачало = ТекСтрокаНачисления.ДатаНачала;
        Движение.ПериодДействияКонец = КонецДня(ТекСтрокаНачисления.ДатаОкончания);
        Движение.ПериодРегистрации = Дата;
        //Движение.БазовыйПериодНачало = ТекСтрокаНачисления.ДатаНачала;
        //Движение.БазовыйПериодКонец = КонецДня(ТекСтрокаНачисления.ДатаОкончания);
        Движение.Сотрудник = ТекСтрокаНачисления.Сотрудник;        
        Движение.ГрафикРаботы = ТекСтрокаНачисления.ГрафикРаботы;
        Движение.ИсходныеДанные = ТекСтрокаНачисления.Начислено;
    КонецЦикла;
    Движения.Начисления.Записать();
 
    //}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
    
    
    НаборЗаписей = РегистрыРасчета.Начисления.СоздатьНаборЗаписей();
    НаборЗаписей.Отбор.Регистратор.Установить(Ссылка);
    НаборЗаписей.Прочитать();   
    
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   НачисленияДанныеГрафика.НомерСтроки,
        |   НачисленияДанныеГрафика.ЗначениеПериодДействия КАК План,
        |   НачисленияДанныеГрафика.ЗначениеФактическийПериодДействия КАК Факт,
        |   НачисленияДанныеГрафика.ИсходныеДанные
        |ИЗ
        |   РегистрРасчета.Начисления.ДанныеГрафика(
        |           Регистратор = &Регистратор
        |               И ВидРасчета = &ВидРасчета) КАК НачисленияДанныеГрафика";
 
    Запрос.УстановитьПараметр("ВидРасчета", ПланыВидовРасчета.ОсновныеНачисления.Оклад);
    Запрос.УстановитьПараметр("Регистратор", Ссылка);
    Результат = Запрос.Выполнить();    
    Выборка = Результат.Выбрать();   
    Пока Выборка.Следующий() Цикл
        НаборЗаписей[Выборка.НомерСтроки-1].Результат = Выборка.Факт / Выборка.План * Выборка.ИсходныеДанные;       
    КонецЦикла;
    НаборЗаписей.Записать(, Истина);
КонецПроцедуры

работает. Подправьте график

@delphi_Int · 12.06.2014, 23:45

в данном случае все от графика зависит. что будет в значении, то и будет считаться

Добавлено через 2 минуты
для проверки Дату окончания в документе измените...результат тоже изменится

Добавлено через 4 минуты
хочу заметить...это только для Оклада. Для Других расчетов Премия, Невыход нужно дописывать

@Ackles · 12.06.2014, 23:54 **[ТС]**

Большое спасибо за помощь, все работает)
немного тупанул насчет графика, теперь все ясно)
а вот насчет премии и невыхода я так понял, что к Вашему коду

1C

НаборЗаписей = РегистрыРасчета.Начисления.СоздатьНаборЗаписей();
    НаборЗаписей.Отбор.Регистратор.Установить(Ссылка);
    НаборЗаписей.Прочитать();   
    
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   НачисленияДанныеГрафика.НомерСтроки,
        |   НачисленияДанныеГрафика.ЗначениеПериодДействия КАК План,
        |   НачисленияДанныеГрафика.ЗначениеФактическийПериодДействия КАК Факт,
        |   НачисленияДанныеГрафика.ИсходныеДанные
        |ИЗ
        |   РегистрРасчета.Начисления.ДанныеГрафика(
        |           Регистратор = &Регистратор
        |               И ВидРасчета = &ВидРасчета) КАК НачисленияДанныеГрафика";
 
    Запрос.УстановитьПараметр("ВидРасчета", ПланыВидовРасчета.ОсновныеНачисления.Оклад);
    Запрос.УстановитьПараметр("Регистратор", Ссылка);
    Результат = Запрос.Выполнить();    
    Выборка = Результат.Выбрать();   
    Пока Выборка.Следующий() Цикл
        НаборЗаписей[Выборка.НомерСтроки-1].Результат = Выборка.Факт / Выборка.План * Выборка.ИсходныеДанные;       
    КонецЦикла;
    НаборЗаписей.Записать(, Истина);
КонецПроцедуры

Вместо оклада надо вписать Премия/Невыход?
Я правильно понял?

@delphi_Int · 13.06.2014, 00:03

А это уже от кухни зависит. Премию можно как угодно расчитывать(от базы,просто писать без расчетов от базы и т.д.). Невыход расчитывается по механизмам вытеснения. По мимо кода нужно еще объекты планов расчета верно настроить от требований кухни

Добавлено через 2 минуты
Просто так вписать не получится т.к. механизмы другие в корне

@Ackles · 13.06.2014, 00:38 **[ТС]**

Невыход он и так не формирует результат и в отчете его нет)
а вот с премией Вы правы, немного сложновато)
дело в том, что если премию прописать(рис 1), то в движении регистра Начисление результат рассчитывается (рис 2).
но вот когда премию не прописывать (рис 3), то почему то и исходных данных тоже нет (рис 4)

@OLJA · 17.12.2017, 12:21

а у меня не получается все равно выдает ошибку. помогите кто нибудь пожалуйста

@polax · 17.12.2017, 13:22

OLJA, Так у вас нет процедуры с этим именем. Что вы хотите ею сделать? Откуда вообще она появилась?
И вообще странная постановка задачи. Это же отчет, а вы им делаете какие-то движения по регистрам

Добавлено через 2 минуты
Аааааааааа увидел, в общем модуле у вас есть такая процедура. В модуле объекта, обращение к этой процедуре:

1C

1	ПроведениеРасчетов.РассчитатьНачисления(НаборЗаписей, ТребуемыйВидРасчета, СписокСотрудников);

@OLJA · 17.12.2017, 19:19

в общем все делала по книге радченко

Добавлено через 10 минут
мне нужно рассчитать з/плату сотрудникам, вроде все получилось но вот с отчетом о начислениях возникли проблемы

Добавлено через 1 час 31 минуту
я поняла в чем моя ошибка))) спасибо за подсказку))

Отчет "Начисления сотрудникам" не выводит результат

Решение

Решение

@delphi_Int null 56 / 50 / 13 Регистрация: 06.11.2012 Сообщений: 418
	12.06.2014, 23:08	4
	да. ниже вашего кода 0

@delphi_Int null 56 / 50 / 13 Регистрация: 06.11.2012 Сообщений: 418
	12.06.2014, 23:45	7
	Сообщение было отмечено Ackles как решение Решение в данном случае все от графика зависит. что будет в значении, то и будет считаться Добавлено через 2 минуты для проверки Дату окончания в документе измените...результат тоже изменится Добавлено через 4 минуты хочу заметить...это только для Оклада. Для Других расчетов Премия, Невыход нужно дописывать 1

@delphi_Int null 56 / 50 / 13 Регистрация: 06.11.2012 Сообщений: 418
	13.06.2014, 00:03	9
	Сообщение было отмечено Ackles как решение Решение А это уже от кухни зависит. Премию можно как угодно расчитывать(от базы,просто писать без расчетов от базы и т.д.). Невыход расчитывается по механизмам вытеснения. По мимо кода нужно еще объекты планов расчета верно настроить от требований кухни Добавлено через 2 минуты Просто так вписать не получится т.к. механизмы другие в корне 1

@Ackles 0 / 0 / 0 Регистрация: 09.10.2012 Сообщений: 16
	13.06.2014, 00:38 [ТС]	10
	Невыход он и так не формирует результат и в отчете его нет) а вот с премией Вы правы, немного сложновато) дело в том, что если премию прописать(рис 1), то в движении регистра Начисление результат рассчитывается (рис 2). но вот когда премию не прописывать (рис 3), то почему то и исходных данных тоже нет (рис 4) Миниатюры 0

@OLJA 17 / 0 / 0 Регистрация: 16.06.2015 Сообщений: 3
	17.12.2017, 19:19	13
	в общем все делала по книге радченко Добавлено через 10 минут мне нужно рассчитать з/плату сотрудникам, вроде все получилось но вот с отчетом о начислениях возникли проблемы Добавлено через 1 час 31 минуту я поняла в чем моя ошибка))) спасибо за подсказку)) 0