Подсчет суммы по документам, получить переменную из функции

@Эмили · Регистрация: 14.05.2013

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

Как поместить в поле СуммаШтрафов значение поля СуммаШ и как в СуммаШ помещать сумму штрафов по всем документам сотрудника?

1C

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

@Dethmontt · 30.04.2015, 16:53

Выкинуть из запроса все поля кроме СУММА

и наложить условие на поле ДАТА

тогда и кодом проверять дату будет не нужно

@Эмили · 30.04.2015, 20:18 **[ТС]**

а что писать в дате?
я пробовала писать "Месяц (ТекущаяДата())" но он выдает ошибку

@Phil · 30.04.2015, 23:48

Эмили, Таб1.ДатаДок = &Дата в условие запроса, и в параметры Запрос.УстановитьПараметр("Дата",ТекущаяДата());

@Эмили · 01.05.2015, 15:57 **[ТС]**

теперь вообще ничего не работает

Добавлено через 1 час 20 минут
подскажите как заставить отбирать только этот месяц и год

1C

СуммаШ=0;
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        //Год = ДатаГод(ТекущаяДата());
        //Месяц = ДатаМесяц(ТекущаяДата());
        Если Год(ТекущаяДата()) =Год(ВыборкаДетальныеЗаписи.Период) Тогда
            Если Месяц(ТекущаяДата()) =Месяц(ВыборкаДетальныеЗаписи.Период) Тогда
                Сообщить(""+ ВыборкаДетальныеЗаписи.Сумма +"");
                 СуммаШ=СуммаШ+ВыборкаДетальныеЗаписи.Сумма;
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;
    Возврат СуммаШ;

@Dethmontt · 02.05.2015, 22:48

1C

| ГДЕ Дата МЕЖДУ &ДатаНач и &ДатаКон
 
Запрос.УстановитьПараметр("ДатаНач", НачалоМесяца(ТекущаяДата()));
Запрос.УстановитьПараметр("ДатаКон", КонецМесяца(ТекущаяДата()));

@Dethmontt Модератор 4029 / 2974 / 591 Регистрация: 10.03.2011 Сообщений: 11,702 Записей в блоге: 1
	30.04.2015, 16:53	2
	Выкинуть из запроса все поля кроме СУММА и наложить условие на поле ДАТА тогда и кодом проверять дату будет не нужно 0

@Эмили 1 / 1 / 1 Регистрация: 14.05.2013 Сообщений: 379
	30.04.2015, 20:18 [ТС]	3
	а что писать в дате? я пробовала писать "Месяц (ТекущаяДата())" но он выдает ошибку 0

@Phil 434 / 305 / 92 Регистрация: 28.05.2014 Сообщений: 1,247
	30.04.2015, 23:48	4
	Эмили, Таб1.ДатаДок = &Дата в условие запроса, и в параметры Запрос.УстановитьПараметр("Дата",ТекущаяДата()); 0

	02.05.2015, 22:48