Считать данные справочника в реквизит документа

@meverikxp · Регистрация: 28.10.2010

Студворк — интернет-сервис помощи студентам

Здравствуйте, вроде элементарная задача, но никак не получается сделать.
Проблема в следующем. Есть документ1 с реквизитом Цена и Справочник с Реквизитом ЦенаУслуг и Услуга. Как при выборе Услуги считать ЦенаУслуг именно для выбранной услуги и Присвоить ее Документ1.Цена.
Решал так:

1C
1
2
3
4
5
6
7
8
9
 Док = Справочники.Выезд;
    Выборка = Док.Выбрать();
    
    Пока Выборка.Следующий() Цикл
    КонецЦикла;
    Объект = Выборка.ПолучитьОбъект();
    ЦенаДорога = Объект.Цена;
         ТекЦена = ЭтотОбъект.Дорога;  
         Дорога = Объект.Цена;

Но реквизиту Дорога присваивается первый элемент справочника
Как сделать правильно. Спасибо всем за ответы.

Konctantin · 25.11.2010, 21:52

C++
1
2
        Пока Выборка.Следующий() Цикл
        КонецЦикла;

Это что такое?

Сначала, давайте вспомним, что есть запросы, и такие вещи намного удобней делать именно ими

@meverikxp · 26.11.2010, 11:44 **[ТС]**

Тогда, как сделать запросом?

Konctantin · 26.11.2010, 15:48

опа, а я телепат? вижу только непонятно какой код, и на основании него надо написать запрос.
максимум что смогу так это угадывать.

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

А получить цену можно уже простым запросом

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Запрос = Новый Запрос("ВЫБРАТЬ ПЕРВЫЕ 1
|   ЦеныНоменклатурыСрезПоследних.Цена
|ИЗ
|   РегистрСведений.ЦеныНоменклатуры.СрезПоследних(
|           &Период,
|           Номенклатура = &Номенклатура
|               И ТипЦен = &ТипЦен) КАК ЦеныНоменклатурыСрезПоследних");
Запрос.УстановитьПараметр("Период", Дата);
Запрос.УстановитьПараметр("Номенклатура", КакаятоНоменклатура);
Запрос.УстановитьПараметр("ТипЦен", КакойтоТипЦен);
 
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
    Цена = Выборка.Цена;
Иначе
    Цена = 0;
КонецЕсли;

@meverikxp · 09.12.2010, 10:45 **[ТС]**

Решил:

1C
1
2
3
4
5
6
7
8
9
10
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ Цена, Наименование
|ИЗ Справочник.ВыездСела
|ГДЕ Наименование = &Наименование";
Запрос.УстановитьПараметр("Наименование", ВыездЦена.Наименование);
Результат = Запрос.Выполнить().Выбрать();
    
Пока Результат.Следующий()  Цикл
Дорога = Результат.Цена; 
КонецЦикла;

Подскажите как то-же сделать в табличной части

06.01.2011, 10:19

Помогите пожалуйста, 1С 7,7 предприятие.. как поменять реквизиты(фирму. адрес) .куда как коды писать я не уменю.... .я чайник. опишите подробнее пожалуйста.

@direk · 14.01.2011, 01:44

Сообщение от руслан797

как поменять реквизиты(фирму. адрес)

- нужно изменить существующие реквизиты или завести новую фирму?
Если изменить - то справочники/фирмы и меняете. посколько это периодические реквизиты - выставляете нужную дату.

@fimbulwinter · 16.01.2011, 09:30

Сообщение от руслан797

Помогите пожалуйста, 1С 7,7 предприятие.. как поменять реквизиты(фирму. адрес) .куда как коды писать я не уменю.... .я чайник. опишите подробнее пожалуйста.

Операции-> Константы

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@meverikxp 0 / 0 / 0 Регистрация: 28.10.2010 Сообщений: 26
	26.11.2010, 11:44 [ТС]
	Тогда, как сделать запросом? 0

руслан797
	06.01.2011, 10:19
	Помогите пожалуйста, 1С 7,7 предприятие.. как поменять реквизиты(фирму. адрес) .куда как коды писать я не уменю.... .я чайник. опишите подробнее пожалуйста.

Опции темы