|
Отбор пример
| ☑ |
0
Doman26
28.07.11
✎
12:08
|
Дайте какой нить простой пример отбора. Задача - взять запись регистра сведений по измерению и взять из него ресурс, знаю что легче легкого, но все же
|
|
1
vicof
28.07.11
✎
12:22
|
кури СрезПоследних()
|
|
2
zbv
28.07.11
✎
12:23
|
ВЫБРАТЬ
НужныйРегистрСведений.НужныйРесурс
ИЗ
РегистрСведений.НужныйРегистрСведений КАК НужныйРегистрСведений
ГДЕ
НужныйРегистрСведений.НужноеИзмерение = &ОтборПоИзмерению
- это для независимого, непериодического регистра сведений
|
|
3
Wobland
28.07.11
✎
12:24
|
(0) запрос?
|
|
4
Doman26
28.07.11
✎
12:24
|
(2)запросом я знаю, я хотел отбором это сделать, для ликбеза
|
|
5
Doman26
28.07.11
✎
12:25
|
отбор.добавить или как там?
|
|
6
zbv
28.07.11
✎
12:27
|
(4) тогда смотри СП, там должен быть пример.
|
|
7
PVV65
28.07.11
✎
12:29
|
КурсыВалют = РегистрыСведений.КурсыВалют;
НаборКурсов = КурсыВалют.СоздатьНаборЗаписей();
Доллар = Справочники.Валюты.НайтиПоНаименованию("USD");
НаборКурсов.Отбор.Валюта.Установить(Доллар);
НаборКурсов.Отбор.Период.Установить(НачалоДня(ТекущаяДата()));
НаборКурсов.Прочитать();
Если НаборКурсов.Количество() = 0 Тогда
НовыйКурс = НаборКурсов.Добавить();
НовыйКурс.Валюта = Доллар;
НовыйКурс.Период = ТекущаяДата();
ИначеЕсли НаборКурсов.Количество() = 1 Тогда
НовыйКурс = НаборКурсов[0];
Иначе
Предупреждение("Курс валюты задается один раз в день.", 60);
Возврат;
КонецЕсли;
НовыйКурс.Курс = 31.44;
НовыйКурс.Кратность = 1;
НаборКурсов.Записать();
Сообщить("Курс " + СокрЛП(НовыйКурс.Валюта) + " на сегодня: "+
НовыйКурс.Курс + " руб.");
|
|
8
Doman26
28.07.11
✎
12:33
|
(7) спасибо
|
|
9
Doman26
28.07.11
✎
12:50
|
(6) а что такое сп?
|
|
10
Wobland
28.07.11
✎
12:51
|
|
|
11
Doman26
28.07.11
✎
14:19
|
Вот такой отбор, почему то не работает, хотя записи есть, Может не так параметры отбора передаю (это реквизиты документа, в модуле котором нахожусь)
Регистры = РегистрыСведений.CW_ПараметрыДоговора;
НаборДог = Регистры.СоздатьНаборЗаписей();
НаборДог.Отбор.контрагент.Установить(Контрагент);
НаборДог.Отбор.ДоговорКонтрагента.Установить(ДоговорКонтрагента);
Если НаборДог.Количество() = 1 Тогда
Область.Параметры.Руководитель = НаборДог.Руководитель;
Область.Параметры.ГлавныйБухгалтер = НаборДог.ГлавныйБухгалтер;
КонецЕсли;
подскажите в чем дело
|
|
12
zbv
28.07.11
✎
14:20
|
(11) прочитать записи забыл.
|
|
13
Doman26
28.07.11
✎
14:53
|
(12) и индекс))
|
|
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший