Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 2
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Ошибка при проверке группы в регистре          
alexk Подменю пользователя
сообщение 09.02.13, 15:43
Сообщение #1

Общительный
**
Группа: Пользователи
Сообщений: 48
Спасибо сказали: 0 раз
Рейтинг: 0

Добрый вечер. Такая ситуация. В регистре сведений есть запись о курсанте и его группе. Делаю документ с 2-я реквизитами -Курсант и Группа. Так вот, как сделать так, чтобы если в реквизите группа была выбрана группа, которая не подходит данному выбранному курсанту (то если в регистре у него одна группа, а в документе ставим ему совсем другую группу), то проведение документа запрещалось бы. Сделал запрос на проверку группы в регистре, но почему то даже при правильно выбранной группе, все равно документ не проводит? Скажите пожалуйста в чем ошибка?

&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
    Если Проверка() Тогда
        Сообщить("Данный курсант не заполнял заявление на данную группу. Выберите другого курсанта или заполните заявление на данного курсанта для зачисления в данную группу");
        Отказ=Истина;
    Иначе
        Отказ=Ложь;
    КонецЕсли;
КонецПроцедуры

Функция Проверка()
    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    РегистрЗаявленийСрезПоследних.Группа
        |ИЗ
        |    РегистрСведений.РегистрЗаявлений.СрезПоследних КАК РегистрЗаявленийСрезПоследних
        |ГДЕ
        |    РегистрЗаявленийСрезПоследних.Курсант = &Курсант";

    Запрос.УстановитьПараметр("Курсант", Объект.Курсант);
    Результат = Запрос.Выполнить();
    
   Если  Результат <> Объект.Группа Тогда
       Возврат Истина
            Иначе
         Возврат Ложь;
    КонецЕсли;    
КонецФункции

Vofka Подменю пользователя
сообщение 09.02.13, 16:08
Сообщение #2

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 14050
Из: Киев
Спасибо сказали: 4612 раз
Рейтинг: 3748.8

Функция Проверка()

    Запрос = Новый Запрос;
    Запрос.Текст = "
    |ВЫБРАТЬ
    |    РегистрЗаявленийСрезПоследних.Группа
    |ИЗ
    |    РегистрСведений.РегистрЗаявлений.СрезПоследних КАК РегистрЗаявленийСрезПоследних
    |ГДЕ
    |    РегистрЗаявленийСрезПоследних.Курсант = &Курсант";

    Запрос.УстановитьПараметр("Курсант", Объект.Курсант);
    Результат = Запрос.Выполнить().Выбрать();
    Результат.Следующий();

    Если Результат.Группа <> Объект.Группа Тогда
        Возврат Истина;
    Иначе
        Возврат Ложь;
    КонецЕсли;    
КонецФункции


Сообщение отредактировал Vofka - 09.02.13, 16:19

Спасибо сказали: alexk,

alexk Подменю пользователя
сообщение 09.02.13, 17:27
Сообщение #3

Общительный
**
Группа: Пользователи
Сообщений: 48
Спасибо сказали: 0 раз
Рейтинг: 0

Спасибо, все работает!

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 15.06.25, 13:58
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!