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

Как вытащить данные из регистранакопления?

Автор mila1231, 10 ноя 2015, 06:25

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

mila1231

Подскажите, как сделать, чтоб работало?))
Есть Документ Изменение_параметров, с него данные записываются в регистрнакопления РегистрПараметров, так вот из этого регистра нужно выдернуть данные в документ Свидетельство. Так вот при изменении одного из реквизитов Документа Свидетельства, должны меняться другие реквизиты, вот собственно сама процедура

Процедура ПолеВвода1ПриИзменении(Элемент)
   // Вставить содержимое обработчика.
   
   
   
    Запрос = Новый запрос;
    Запрос.текст = "ВЫБРАТЬ
                   |   РегистрПараметров.Температутра КАК Температура1,
                   |   РегистрПараметров.Влажность,
                   |   РегистрПараметров.давление,
                   |   РегистрПараметров.Дата,
                   |   Свидетельство.Дата КАК Дата1,
                   |   РегистрПараметров.Период
                   |ИЗ
                   |   РегистрНакопления.РегистрПараметров КАК РегистрПараметров,
                   |   Документ.Свидетельство КАК Свидетельство"  ;

   Выборка = Запрос.Выполнить().Выбрать();
Если Формат (выборка.Дата, "ДЛФ=Д")= Формат(выборка.Дата1, "ДЛФ=Д") тогда
    Температура =выборка.Температура1;
   
иначе
   Температура = 123
      
      
   КонецЕсли;
   
   
КонецПроцедуры

Это не работает, т.е условие по сути похоже выполняется, а значение параметраформы температура не меняется, что не так?
Заранее спасибо.


Vladimir_Sh

Цитата: mila1231 от 10 ноя 2015, 06:25Это не работает, т.е условие по сути похоже выполняется
Определите выполняется ли условие - с помощью отладчика
Цитата: mila1231 от 10 ноя 2015, 06:25а значение параметраформы температура
Может быть поля формы или реквизита формы? Нужно более конкретно чем у Вас является "Температура"?
Цитата: mila1231 от 10 ноя 2015, 06:25Выборка = Запрос.Выполнить().Выбрать();
Если Формат (выборка.Дата, "ДЛФ=Д")= Формат(выборка.Дата1, "ДЛФ=Д") тогда
    Температура =выборка.Температура1;
   
иначе
   Температура = 123
     
     
   КонецЕсли;
Отсутствует обход результата запроса Выборка.Следующий()

Вывод: думаю вам лучше всего почитать Радченко.

Если я Вам помог, нажми - Спасибо!

Теги:

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

Рейтинг@Mail.ru

Поиск