Как втянуть и подставить данные с другого документа, Есть 1 справочник и 1 документа. С справочника надо вытягивать инфу и

Заказы на доработку 1С (сервис удаленной работы)	Хранилище	База знаний
Неназначенных незавершенных заказов: 2, свеженьких 1	Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С	Статьи, описание работы, методики по работе с 1С

Форум ПРАВИЛА ВОЙНА с РОССИЕЙ Обратная связь Поиск

Здравствуйте, гость ( Вход | Зарегистрироваться )

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 » Программисту » Программирование в 1С Предприятие 8.3

Как втянуть и подставить данные с другого документа , Есть 1 справочник и 1 документа. С справочника надо вытягивать инфу и

2 страниц

1 2 >

Опции

burza

03.03.17, 14:59

Сообщение #1

Оратор

Группа: Пользователи
Сообщений: 312
Спасибо сказали: 1 раз
Рейтинг: 1

Есть 1 справочник и 1 документа. С справочника надо вытягивать инфу и подставлять в форму документа. вот такое написал но это не сработало. помогите.

&НаКлиенте
Процедура ПланСменаПриИзменении(Элемент)
    
    Если Элементы.План.ТекущиеДанные.Смена = Справочники.артЦеновыеСмены.НайтиПоНаименованию тогда
    Элементы.План.ТекущиеДанные.ДатаНачала = Справочники.артЦеновыеСмены.ДатаНачала И 
    Элементы.План.ТекущиеДанные.ДатаОкончания = Справочники.артЦеновыеСмены.ДатаОкончания
    
    КонецЕсли
        
КонецПроцедуры

Ответить Цитировать выделенное

podcast

03.03.17, 15:04

Сообщение #2

Оратор

Группа: Местный
Сообщений: 306
Спасибо сказали: 74 раз
Рейтинг: 0

burza @ Сегодня, 14:59

Справочник = Справочники.артЦеновыеСмены.НайтиПоНаименованию("НаименованиеСправочника");

  Если Элементы.План.ТекущиеДанные.Смена = Справочник Тогда
  
КонецЕсли

НайтиПоНаименованию доступно только на Сервере, вроде.

Ответить Цитировать выделенное

burza

03.03.17, 15:26

Сообщение #3

Оратор

Группа: Пользователи
Сообщений: 312
Спасибо сказали: 1 раз
Рейтинг: 1

podcast @ Сегодня, 15:04

,
Сменил на сервере ничего не происходит

Просто ничего не происходит на форме

&НаСервере
Процедура ПланСменаПриИзменении(Элемент)
         //Элементы.План.ТекущиеДанные.ДатаНачала = Элементы.План.ТекущиеДанные.Смена.ДатаНачала;
     Справочник = Справочники.артЦеновыеСмены.НайтиПоНаименованию("артЦеновыеСмены");
     
     Если Элементы.План.ТекущиеДанные.Смена = Справочник Тогда
    Элементы.План.ТекущиеДанные.ДатаНачала = Справочники.артЦеновыеСмены.ДатаНачала И 
    Элементы.План.ТекущиеДанные.ДатаОкончания = Справочники.артЦеновыеСмены.ДатаОкончания
    
    КонецЕсли
        
КонецПроцедуры

Ответить Цитировать выделенное

podcast

03.03.17, 15:39

Сообщение #4

Оратор

Группа: Местный
Сообщений: 306
Спасибо сказали: 74 раз
Рейтинг: 0

burza @ Сегодня, 15:26

&НаКлиенте
Процедура ПланСменаПриИзменении(Элемент)
    ПланСменаПриИзменении();
КонецПроцедуры

&НаСервере
Процедура ПланСменаПриИзменении()
    СправочникАртЦеновыеСмены = Справочники.артЦеновыеСмены.НайтиПоНаименованию("артЦеновыеСмены");
    Если Объект.Смена   = СправочникАртЦеновыеСмены Тогда 
        ЗначениеВРеквизитФормы(СправочникАртЦеновыеСмены.ДатаНачала, "ДатаНачала ");
    КонецЕсли;    
КонецПроцедуры

На работоспособность не проверял но принцип такой.

Ответить Цитировать выделенное

burza

03.03.17, 15:49

Сообщение #5

Оратор

Группа: Пользователи
Сообщений: 312
Спасибо сказали: 1 раз
Рейтинг: 1

podcast @ Сегодня, 15:39

,
сделал так

&НаКлиенте
Процедура ПланСменаПриИзменении(Элемент)
    ПланСмена();
КонецПроцедуры


&НаСервере
Процедура ПланСмена()
         //Элементы.План.ТекущиеДанные.ДатаНачала = Элементы.План.ТекущиеДанные.Смена.ДатаНачала;
     Справочник = Справочники.артЦеновыеСмены.НайтиПоНаименованию("артЦеновыеСмены");
     
     Если Элементы.План.ТекущиеДанные.Смена  = Справочник Тогда
     ЗначениеВРеквизитФормы(Справочники.артЦеновыеСмены.ДатаНачала, "ДатаНачала ");
     ЗначениеВРеквизитФормы(Справочники.артЦеновыеСмены.ДатаОкончания, "ДатаОкончания ");
    КонецЕсли
        
КонецПроцедуры

ошибка

{Документ.ПерспективнаяЗаявка.Форма.ФормаДокумента.Форма(57)}: Ошибка при получении значения атрибута контекста (ТекущиеДанные)
Если Элементы.План.ТекущиеДанные.Смена = Справочник Тогда
по причине:
Текущие данные таблицы недоступны на сервере

Ответить Цитировать выделенное

podcast

03.03.17, 16:01

Сообщение #6

Оратор

Группа: Местный
Сообщений: 306
Спасибо сказали: 74 раз
Рейтинг: 0

burza @ Сегодня, 15:49

СтрокаТаблицы = Объект.Товары.НайтиПоИдентификатору(Элементы.Товары.ТекущаяСтрока);
&НаКлиенте
Процедура ПланСменаПриИзменении(Элемент)
    ПланСмена();
КонецПроцедуры


&НаСервере
Процедура ПланСмена()
         //Элементы.План.ТекущиеДанные.ДатаНачала = Элементы.План.ТекущиеДанные.Смена.ДатаНачала;
     Справочник = Справочники.артЦеновыеСмены.НайтиПоНаименованию("артЦеновыеСмены");
     СтрокаТаблицы = Объект.План.НайтиПоИдентификатору(Элементы.План.ТекущиеДанные);
     
    Если СтрокаТаблицы.Смена  = Справочник Тогда
     ЗначениеВРеквизитФормы(Справочники.артЦеновыеСмены.ДатаНачала, "ДатаНачала ");
     ЗначениеВРеквизитФормы(Справочники.артЦеновыеСмены.ДатаОкончания, "ДатаОкончания ");
    КонецЕсли
        
КонецПроцедуры

Ответить Цитировать выделенное

Vidocq05

03.03.17, 16:19

Сообщение #7

Завсегдатай
Иконка группы

Группа: Местный
Сообщений: 214
Из: Сумы
Спасибо сказали: 38 раз
Рейтинг: 0

burza @ Сегодня, 15:49

,
попробуйте так

&НаКлиенте
Процедура ПланСменаПриИзменении(Элемент)
    Семена = Элементы.План.ТекущиеДанные.Смена;
    ПланСмена(Семена);
КонецПроцедуры


&НаСервере
Процедура ПланСмена(Семена)
         
     Справочник = Справочники.артЦеновыеСмены.НайтиПоНаименованию("артЦеновыеСмены");
     
     Если Семена  = Справочник Тогда
     ЗначениеВРеквизитФормы(Справочники.артЦеновыеСмены.ДатаНачала, "ДатаНачала ");
     ЗначениеВРеквизитФормы(Справочники.артЦеновыеСмены.ДатаОкончания, "ДатаОкончания ");
    КонецЕсли
        
КонецПроцедуры

Но не проверял ))

Цитата(Vidocq05 @ 03.03.17, 16:10)

Семена

Переменную неправильно написал

Ответить Цитировать выделенное

burza Просмотр профиля Найти сообщения пользователя	03.03.17, 16:25 Сообщение #8
Оратор Группа: Пользователи Сообщений: 312 Спасибо сказали: 1 раз Рейтинг: 1	podcast @ Сегодня, 16:01 , Таже ошибка Vidocq05 @ Сегодня, 16:10 , Ничего не происходит, тоже не работает) Vidocq05 @ Сегодня, 16:19 , ))))

Ответить Цитировать выделенное

podcast

03.03.17, 16:32

Сообщение #9

Оратор

Группа: Местный
Сообщений: 306
Спасибо сказали: 74 раз
Рейтинг: 0

burza @ Сегодня, 16:25

&НаКлиенте
Процедура ПланСменаПриИзменении(Элемент)
    ПланСмена();
КонецПроцедуры


&НаСервере
Процедура ПланСмена()
     Справочник = Справочники.артЦеновыеСмены.НайтиПоНаименованию("артЦеновыеСмены");
     СтрокаТаблицы = Объект.План.НайтиПоИдентификатору(Элементы.План.ТекущийЭлемент);
     
    Если СтрокаТаблицы.Смена  = Справочник Тогда
     ЗначениеВРеквизитФормы(Справочники.артЦеновыеСмены.ДатаНачала, "ДатаНачала ");
     ЗначениеВРеквизитФормы(Справочники.артЦеновыеСмены.ДатаОкончания, "ДатаОкончания ");
    КонецЕсли
        
КонецПроцедуры

Поставьте точку останова и посмотрите чему равна СтрокаТаблицы.

Ответить Цитировать выделенное

burza

03.03.17, 16:36

Сообщение #10

Оратор

Группа: Пользователи
Сообщений: 312
Спасибо сказали: 1 раз
Рейтинг: 1

podcast @ Сегодня, 16:32

,

{Документ.ПерспективнаяЗаявка.Форма.ФормаДокумента.Форма(54)}: Ошибка при вызове метода контекста (НайтиПоИдентификатору)
СтрокаТаблицы = Объект.План.НайтиПоИдентификатору(Элементы.План.ТекущийЭлемент);
по причине:
Несоответствие типов (параметр номер '1')

Ответить Цитировать выделенное

podcast Просмотр профиля Найти сообщения пользователя	03.03.17, 16:42 Сообщение #11
Оратор Группа: Местный Сообщений: 306 Спасибо сказали: 74 раз Рейтинг: 0	burza @ Сегодня, 16:36 , `СтрокаТаблицы = Объект.План.НайтиПоИдентификатору(Элементы.План.ТекущаяСтрока);`

Ответить Цитировать выделенное

burza Просмотр профиля Найти сообщения пользователя	03.03.17, 16:47 Сообщение #12
Оратор Группа: Пользователи Сообщений: 312 Спасибо сказали: 1 раз Рейтинг: 1	Ошибку не выбивает но и ничего не подставляет podcast @ Сегодня, 16:42 ,

Ответить Цитировать выделенное

logist

03.03.17, 17:40

Сообщение #13

Про1С-ник

Группа: Местный
Сообщений: 9564
Из: Kharkiv, UA
Спасибо сказали: 2536 раз
Рейтинг: 0

&НаКлиенте
Процедура ПланСменаПриИзменении(Элемент)
    ПланСмена();
КонецПроцедуры


&НаСервере
Процедура ПланСмена()
     Справочник = Справочники.артЦеновыеСмены.НайтиПоНаименованию("артЦеновыеСмены");
     СтрокаТаблицы = Объект.План.НайтиПоИдентификатору(Элементы.План.ТекущаяСтрока);
     
    Если СтрокаТаблицы.Смена  = Справочник Тогда
     СтрокаТаблицы.ДатаНачала = Справочники.артЦеновыеСмены.ДатаНачала;
     СтрокаТаблицы.ДатаОкончания = Справочники.артЦеновыеСмены.ДатаОкончания;
    КонецЕсли
        
КонецПроцедуры

p.s. вы бы хоть форму документа показали, а то непонятно что у вас там в объекте, а что на форме. в гадалки играем тут...

Сообщение отредактировал logist - 03.03.17, 17:38

Личные бесплатные консультации не даю, для этого есть форум!

Ответить Цитировать выделенное

burza Просмотр профиля Найти сообщения пользователя	03.03.17, 20:01 Сообщение #14
Оратор Группа: Пользователи Сообщений: 312 Спасибо сказали: 1 раз Рейтинг: 1	logist @ Сегодня, 17:40 ,

Ответить Цитировать выделенное

logist Просмотр профиля Найти сообщения пользователя	03.03.17, 20:47 Сообщение #15
Про1С-ник Группа: Местный Сообщений: 9564 Из: Kharkiv, UA Спасибо сказали: 2536 раз Рейтинг: 0	ну тогда то что я выше написал должно работать. Личные бесплатные консультации не даю, для этого есть форум!

Ответить Цитировать выделенное

burza Просмотр профиля Найти сообщения пользователя	03.03.17, 21:40 Сообщение #16
Оратор Группа: Пользователи Сообщений: 312 Спасибо сказали: 1 раз Рейтинг: 1	logist @ Сегодня, 20:47 , Вроде да но не работает. Смена выбираеться и все, даты не подтягивает, поля пустые(

Ответить Цитировать выделенное

logist

04.03.17, 9:40

Сообщение #17

Про1С-ник

Группа: Местный
Сообщений: 9564
Из: Kharkiv, UA
Спасибо сказали: 2536 раз
Рейтинг: 0

Цитата(burza @ 03.03.17, 22:40)

и все, даты не подтягивает, поля пустые(

СтрокаТаблицы нужная? Покажите отладчик с развернутой СтрокаТаблицы, покажите отладчик с развернутым Справочник

Личные бесплатные консультации не даю, для этого есть форум!

Ответить Цитировать выделенное

burza Просмотр профиля Найти сообщения пользователя	04.03.17, 9:59 Сообщение #18
Оратор Группа: Пользователи Сообщений: 312 Спасибо сказали: 1 раз Рейтинг: 1	logist @ Сегодня, 9:40 ,

Ответить Цитировать выделенное

logist Просмотр профиля Найти сообщения пользователя	04.03.17, 10:26 Сообщение #19
Про1С-ник Группа: Местный Сообщений: 9564 Из: Kharkiv, UA Спасибо сказали: 2536 раз Рейтинг: 0	Вы знаете что такое отладчик? Как посмотреть значения в режиме отладки? Почитайте, это надо знать. Личные бесплатные консультации не даю, для этого есть форум! Спасибо сказали: candrey,

Ответить Цитировать выделенное

candrey Просмотр профиля Найти сообщения пользователя	05.03.17, 21:32 Сообщение #20
Завсегдатай Группа: Пользователи Сообщений: 155 Спасибо сказали: 6 раз Рейтинг: 0	Ставишь точку оставки и смотришь какая есть инфа в Справочник и СтрокаТаблицы. И уже потом анализируешь результат СлушайТЕ что говорят вам форумчане))) Сообщение отредактировал logist - 06.03.17, 8:11

Ответить Цитировать выделенное

Не нашли ответа на свой вопрос?

Зарегистрируйтесь и задайте новый вопрос.

« Предыдущая тема · Программирование в 1С Предприятие 8.3 · Следующая тема »

2 страниц

1 2 >

Ответить Новая тема

1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)

Пользователей: 0

Режим отображения: Стандартный · Переключить на: Линейный · Переключить на: Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

Текстовая версия

Сейчас: 18.04.24, 8:43

1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!