Имя: Пароль:
1C
1С v8
1С 8.2 УТ - Вывести свойства контрагента в "Сообщить"
,
0 ZloyGenie
 
24.05.12
15:19
Здравствуйте!

Только начал изучать 8.2 и столкнулся с проблемой.
В "Заказе покупателя" нужно по кнопке вывести в "Сообщить" не помеченные на удаление свойства и их значения. Подскажите как это сделать проще?
1 acsent
 
24.05.12
15:19
300р
2 ZloyGenie
 
24.05.12
15:28
Очень смешно.
В 7.7 я сам кому хочешь что хочешь расскажу, а тут... :(
3 0_Serg_0
 
24.05.12
15:30
350 р
(я ещё ссылки на нужные книжки дам!;))
4 pessok
 
24.05.12
15:32
(0) как-то так

ВЫБРАТЬ
   Контрагенты.Ссылка КАК Контрагент,
   ЗначенияСвойствОбъектов.Ссылка КАК ЗначениеСвойства
ИЗ
   Справочник.Контрагенты КАК Контрагенты
       ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
       ПО Контрагенты.Ссылка = ЗначенияСвойствОбъектов.Владелец
ГДЕ
   (НЕ ЗначенияСвойствОбъектов.ПометкаУдаления)
5 pessok
 
24.05.12
15:34
вообще хрень написал :)
ща
6 pessok
 
24.05.12
15:43
ВЫБРАТЬ
   ЗначенияСвойствОбъектов.Объект,
   ЗначенияСвойствОбъектов.Свойство,
   ЗначенияСвойствОбъектов.Значение
ИЗ
   Справочник.ХарактеристикиНоменклатуры КАК ХарактеристикиНоменклатуры
       ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
       ПО ХарактеристикиНоменклатуры.Ссылка = ЗначенияСвойствОбъектов.Объект
7 pessok
 
24.05.12
15:43
вставь свой справочник
8 ZloyGenie
 
24.05.12
15:48
Спасибо, а где же "собщить"?
9 pessok
 
24.05.12
15:51
Выборка = Запрос.Выполнить.Выбрать()

Пока Выборка.Следующий() Цикл

Сообщить("Ном "+Выборка.Объект+", Св:"+Выборка.Свойство+", Зн: "+Выборка.Значение);
Сообщить("500рэ 2 pessok");

КонецЦикла


ГДЕ
   (НЕ ЗначенияСвойствОбъектов.Свойство.ПометкаУдаления)

еще в запрос добавь
10 0_Serg_0
 
24.05.12
15:51
(7)
тебе ещё надо ему рассказать куда это вставить и как с поддержки снять;)
11 pessok
 
24.05.12
15:52
зачем с поддержки снимать? 0_0
12 ZloyGenie
 
24.05.12
16:03
Спасибо огромное, щас буду вставлять. С поддержки снята.
Очень трудно с 77 на 82 сразу перепрыгнуть. И синтаксис и функции все разное.
Еще раз огромное спасибо "pessok"!
13 pessok
 
24.05.12
16:05
кстати, запрос можно написать нманого лучше :) не присоединяя нужный справочник, а загнав в параметр Свойство.НазначениеСвойства
14 pessok
 
24.05.12
16:05
(12) не за что

вот так запрос напиши:

ВЫБРАТЬ
   ЗначенияСвойствОбъектов.Объект,
   ЗначенияСвойствОбъектов.Свойство,
   ЗначенияСвойствОбъектов.Значение
ИЗ
   РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
ГДЕ
   (НЕ ЗначенияСвойствОбъектов.Свойство.ПометкаУдаления)
   И ЗначенияСвойствОбъектов.Свойство.НазначениеСвойства = &НазначениеСвойства


ну и параметр заполни правильно
15 ZloyGenie
 
24.05.12
16:20
А параметр "&НазначениеСвойства" вот так задать:

Запрос.УстановитьПараметр("НазначениеСвойства", Константы.СвойствоКонтрагентаМаршрут.Получить());

а как сюда еще добавить условие, чтоб отбирал свойства только нужно контрагента, который в документе указан?
16 pessok
 
24.05.12
16:31
ГДЕ
   (НЕ ЗначенияСвойствОбъектов.Свойство.ПометкаУдаления)
   И ЗначенияСвойствОбъектов.Свойство.НазначениеСвойства = &НазначениеСвойства
   И ЗначенияСвойствОбъектов.Объект = &Объект

Контрагент = Справочники.Контрагенты.НайтиПоКоду("УПП12131415");
Запрос.УстановитьПараметр("Объект", Контрагент);
17 ZloyGenie
 
24.05.12
17:44
Спасибо, все получилось!
18 ZloyGenie
 
24.05.12
18:26
Балин, вот беда то...
Оказывается у этого контрагента, что в документе стоит галочка "Головной контрагент". И он выбирает свойства почему то из головного контрагента. А как сделать, чтоб выбирал из того, что указан в документе?
19 ZloyGenie
 
24.05.12
18:32
Сам разобрался...
Оказывается там надо грузополучатель подставлять, если это холдинг.
20 pessok
 
24.05.12
18:32
(18) не может он выбирать из головного. Он берет из того, что указан в ДокументОбъект.Контрагент
21 pessok
 
24.05.12
18:33
(19) странно вообще. ну да работает и ладно
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший