С Новым годом! Форум программистов, компьютерный форум, киберфорум
1С: Собственные программы
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.64/64: Рейтинг темы: голосов - 64, средняя оценка - 4.64
0 / 0 / 0
Регистрация: 01.03.2016
Сообщений: 7
1C 8.x (тонкий)

Как связать значение константы с реквизитом документа?

01.03.2016, 12:33. Показов 14208. Ответов 12
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Как связать значение константы с реквизитом документа?
Есть константа Название_организации. Необходимо, чтобы при открытии документа поле Название_организации заполнилось автоматически из константы.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
01.03.2016, 12:33
Ответы с готовыми решениями:

Как связать значение константы с реквизитом на форме
Данные в реквизите не выводятся. Что я не так делаю? На форме элементу назначаю событие "ФермаСоздание" &НаСервере ...

Обработка: заполнение реквизита документа реквизитом другого документа
делаю обработку.В документе ПТУ в ТЧ товары есть Заказы, но в ТЧ товары нету Проекта, поэтому на основании одного заказа создается документ...

Как связать константы с формулами?
Подскажите, пожалуйста, как привязывать разные константы к формулам и формулы между собой, например: x=2; y=5; n=3; m=4; z=x*y=...

12
Эксперт 1С
 Аватар для GreenkA
3064 / 2011 / 525
Регистрация: 25.06.2009
Сообщений: 6,964
01.03.2016, 14:44
malekula, обычное/управляемое приложение?
Пример для управляемого:
1C
1
2
3
4
5
6
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
 Если Объект.Ссылка.Пустая() //заполняем только для новых документов
  Объект.Название_организации = Константы.Название_организации_Получить();
 КонецЕсли;
КонецПроцедуры
0
0 / 0 / 0
Регистрация: 01.03.2016
Сообщений: 7
02.03.2016, 11:43  [ТС]
Спасибо за ответ). Вставила этот код и мне выдает ошибку: Ожидается ключевое слово 'КонецПроцедуры' ('EndProcedure') <<?>>КонецЕсли; (Проверка: Тонкий клиент)
0
Эксперт 1С
 Аватар для GreenkA
3064 / 2011 / 525
Регистрация: 25.06.2009
Сообщений: 6,964
02.03.2016, 11:48
malekula, выложите весь код.
0
0 / 0 / 0
Регистрация: 01.03.2016
Сообщений: 7
02.03.2016, 12:38  [ТС]
1C
1
2
3
4
5
6
7
8
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    Если Объект.Ссылка.Пустая() 
  Объект.Полное_наименование = Константы.Полное_наименование.Получить();
  Объект.Место_нахождения = Константы.Место_нахождения.Получить();
  Объект.УНП = Константы.УНП.Получить();
 КонецЕсли;
КонецПроцедуры

Пробовала через этот код, тоже ничего не выводит(
1C
1
2
3
4
5
6
7
8
&НаКлиенте
  Процедура ПриОткрытии(Отказ)
     РеквизитыНаСервере(); 
КонецПроцедуры
   &НаСервере
 Процедура РеквизитыНаСервере()
     Объект.Полное_наименование= Константы.Полное_наименование.Получить();  
КонецПроцедуры
0
Модератор
Эксперт 1С
 Аватар для Dethmontt
4032 / 2977 / 594
Регистрация: 10.03.2011
Сообщений: 11,703
Записей в блоге: 1
02.03.2016, 12:52
malekula, ответьте на вопрос!
Цитата Сообщение от GreenkO Посмотреть сообщение
malekula, обычное/управляемое приложение?
0
0 / 0 / 0
Регистрация: 01.03.2016
Сообщений: 7
02.03.2016, 12:59  [ТС]
управляемое
0
Эксперт 1С
 Аватар для GreenkA
3064 / 2011 / 525
Регистрация: 25.06.2009
Сообщений: 6,964
02.03.2016, 13:17
malekula, а вы этот код связывали с событиями формы?
0
0 / 0 / 0
Регистрация: 01.03.2016
Сообщений: 7
02.03.2016, 13:23  [ТС]
нет, подскажите, пожалуйста, что именно нужно сделать.
0
Эксперт 1С
 Аватар для GreenkA
3064 / 2011 / 525
Регистрация: 25.06.2009
Сообщений: 6,964
02.03.2016, 13:26
malekula, открываете свойства Формы и внизу находите События - ПриСозданииНаСервере/ПриОткрытии. При наличии уже вышенаписанного кода, можно напротив этих событий просто выбрать нужный обработчик из предложенного списка.
0
0 / 0 / 0
Регистрация: 01.03.2016
Сообщений: 7
02.03.2016, 13:36  [ТС]
сделала так как Вы сказали, но все равно выдает эту же ошибку(
0
Эксперт 1С
 Аватар для GreenkA
3064 / 2011 / 525
Регистрация: 25.06.2009
Сообщений: 6,964
02.03.2016, 13:39
malekula, какую ошибку? Вы это пишите в модуле формы?
Конфигурация самописная? Если да, то выложите сюда.
0
0 / 0 / 0
Регистрация: 01.03.2016
Сообщений: 7
02.03.2016, 13:47  [ТС]
Спасибо. Все получилось) Просто в Вашем коде не хватало слова Тогда.


1C
1
2
3
4
5
6
7
8
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Объект.Ссылка.Пустая() 
  Тогда Объект.Полное_наименование = Константы.Полное_наименование.Получить();
  Объект.Место_нахождения = Константы.Место_нахождения.Получить();
  Объект.УНП = Константы.УНП.Получить();
 КонецЕсли;
 КонецПроцедуры
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
02.03.2016, 13:47
Помогаю со студенческими работами здесь

1C 8.x Сравнение реквизитов из табличной части одного документа с реквизитом другого
Доброго времени суток! Имеются 2 документа, в одном реквизит &quot;Покупатель&quot; находится в табличной части, в другом - нет. Также в...

Как из одного документа перенести значение из табличной части в реквизит другого документа?
Только начинаю осваивать 1С, учебная задача. Есть два документа &quot;Индивидуальный заказ&quot; и &quot;Конкретное изделие в заказе&quot;...

Как связать предопределенные планы видов расчета и реквизиты документа?
Создал в плане видов расчета ОсновныеНачисленияОрганизаций предопределенные виды расчета &quot;МатериальнаяПомощь&quot;,...

Программно записать значение в поле формы, если оно не связано ни с одним реквизитом
Как программно записать значение в поле формы, если оно не связано ни с одним реквизитом.

Как разбить значение переменной/константы
При написании &lt;? $mpcards_file = 'http://test.ru/1659.php'; include ($mpcards_file); ?&gt; всё работает корректно....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
13
Ответ Создать тему
Новые блоги и статьи
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока
igorrr37 05.01.2026
/ * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03
palva 04.01.2026
Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru