Имя: Пароль:
1C
1С v8
Отбор пример
,
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) и индекс))