Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 16:05

Данный из регистра

Автор Kerbert, 15 мая 2017, 15:25

0 Пользователей и 1 гость просматривают эту тему.

Kerbert

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

Надо посчитать сумму ассистирования . Не могу понять как достать тариф из запроса. Данные хранятся в регистре сведений (Изм : Категория(Справочник),Специализация(Справочник) Ресурс : Тариф (Число))- независимый регистр периодический.

ilyay

Проверьте работу запроса в консоли запросов. Соединять со срезом последних нехорошо. А срез со срезом - дважды нехорошо.

wise

Представьте себе, какая была бы тишина, если бы люди говорили только то, что знают

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск