Имя: Пароль:
1C
 
Перенос комментария контрагента в документ
0 vienya
 
14.06.24
11:05
В БП необходимо текст комментария контрагента автоматически переносить в комментарий кассового документа по данному контрагенту.
Через расширение в модуле формы документа ПКО создал процедуру При начале редактирования()
Объект.Комментарий =
И вот тут не знаю как обратиться к полю Справочники.Контрагенты.Комментарий
1 vde69
 
14.06.24
11:13
НА СЕРВЕРЕ

Объект.Комментарий = Объект.Контрагент.Комментарий
2 Мультук
 
14.06.24
11:17
(0)

1) "ПриИзменении" нужно брать событие - "ПриИзменении" !

2) Открываем в конфигураторе ПКО и видим в его реквизитах реквизит "Контрагент".

Думаем - угу, это "жжж не просто так" (с)

Пишем

Объект.Комментарий = Объект.Контрагент.Комментарий;

Радуемся.

Но зря. Ибо 1С говорит нельзя так "Контрагент.Комментарий" {нехорошое слово}, делать "НаКлиенте"

Пишем функцию

&НаСервереБезКонтекста
Функция ПолучитьКомментарийКонтрагента(Контрагент)

    Возврат ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Контрагент, "Комментарий");

КонецФункции

А в обработчике "ПриИзменении"

Объект.Комментарий = ПолучитьКомментарийКонтрагента(Объект.Контрагент);

Всё.
3 Мультук
 
14.06.24
11:23
(1)
Ну зачем так-то? Ну вот зачем?

НА СЕРВЕРЕ -- очень весело, когда так делают в форме заказа с 500 строками например.
Многие "неофиты" до сих пор от всей души не понимают разницу с "НаСервереБезКонтекста"

Объект.Контрагент.Комментарий  -- а вместо "контрагент" другой "тяжелый" объект.
А мальчик уже привык через точку и ему лень думать головой.

P.S.
А потом, вы, я и другие начинаем с этим кодом жить, ругаться матом и прочее.

P.P.S.
А потом вы ищите "хороших" "резиновых" ребят. А где же их взять?
4 Kongo2019
 
14.06.24
11:31
(3) Это будет потом.
5 vienya
 
14.06.24
11:43
(1) Спасибо
(2) Спасибо за разъяснение по событию. Ваши посты давно уже можно сформировать отдельным учебником. Подкупает авторская подача материала.
6 vienya
 
14.06.24
15:32
Получилось даже так:
&НаСервереБезКонтекста
Функция
ПолучитьКомментарийКонтрагента(Контрагент)
Контрагент.Комментарий;//безБСП
КонецФункции
&НаКлиенте
Процедура
ПриИзменении
Объект.Комментарий = ПолучитьКомментарийКонтрагента(Объект.Контрагент);
7 Мультук
 
14.06.24
15:35
(6)
Это не может работать

Вот это может

&НаСервереБезКонтекста
Функция ПолучитьКомментарийКонтрагента(Контрагент)
ВОЗВРАТ Контрагент.Комментарий;//безБСП -- ОЧЕНЬ ЗРЯ!
КонецФункции
8 Chameleon1980
 
15.06.24
09:34
А мне интересно стало вот это:
А потом вы ищите "хороших" "резиновых" ребят.
что значит?
9 Мультук
 
15.06.24
10:21
10 Chameleon1980
 
15.06.24
10:26
(9) спасибо