Как обратится к реквизитам формы справочника

Здравствуйте! Подскажите пожалуйста, как обратиться к реквизитам справочника из модуля формы документа. Есть табличная часть документа, в которой производится отбор номенклатуры товара по поставщикам из справочника НоменклатураПоставщиков. Нужно, чтобы при записи номенклатуры в документе, из соответствующих реквизитов Справочника поставщиков переносились в ячейки таблицы Документа характеристики товаров.
Делаю ПриИзменении (для записи Номенклатуры в документе) и объявляю переменную

СтрокаТабличнойЧасти = Элементы.ПриложениеКЗаявлению.ТекущиеДанные;
СтрокаТабличнойЧасти.ТНВД = ??

Если долго всматриваться в учебник…то в голову может прийти мысль его открыть!

Цитата: Golickoff от 24 янв 2017, 05:01
...
СтрокаТабличнойЧасти = Элементы.ПриложениеКЗаявлению.ТекущиеДанные;
СтруктураРеквизитов = ПолучитьСтруктуруРеквизитов(СтрокаТабличнойЧасти.Номенклатура);
СтрокаТабличнойЧасти.ТНВД = СтруктураРеквизитов.ТНВД;
СтрокаТабличнойЧасти.ЛюбойРеквизитНоменклатуры = СтруктураРеквизитов.ЛюбойРеквизитНоменклатуры;
...&НаСервере
Функция ПолучитьСтруктуруРеквизитов(НоменклатураСсылка)
    СтруктураРеквизитов = Новый Структура;
    СтруктураРеквизитов.Вставить("ТНВД", НоменклатураСсылка.ТНВД);
    СтруктураРеквизитов.Вставить("ЛюбойРеквизитНоменклатуры", НоменклатураСсылка.ЛюбойРеквизитНоменклатуры);
    Возврат СтруктураРеквизитов;
КонецФункции

Спасибо большое! Все получилось.

С обращением к табличной части справочника все понял. Подскажите пожалуйста, а как обратиться для другой колонки табличной части этой же строки документа НоменклатураТовара, уже к реквизитам другого справочника. То есть, есть справочник ТНВД (в котором сам ТНВД код прописан в Наименовании в стандартных реквизитах) реквизитами этого справочника являются ставки: обеспечения, таможенных платежей и акцизов. Необходимо вытащить эти реквизиты и поместить в табличную часть документа

ПолучениеСправочника = Справочники.НужныСправочник.НайтиПоНаименованию(«наименование»).ПолучитьОбъект;

И Потом ПолучениеСправочника.НужныйВамРеквизит;

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

То есть, я из процедуры модуля формы:

Процедура ПриложениеКЗаявлениюНоменклатураТоваровПриИзменении(Элемент)

Должен вызвать Функцию на сервере в которой будет выполняться данный скрипт?

Здравствуйте, я новичок в 1с, простите заранее на глупые вопросы.

Есть модуль формы Документа. Написал Процедуру при нажатии на кнопку, отправлять данные на email.

Вот только нужно, чтобы получатель был НЕ фиксированный в коде : Письмо.Получатели.Добавить(****@mail.ru), а чтобы подставлялся из реквизита справочника (Справочник Email). В справочнике есть следующие реквизиты: EmailАдрес, ФИО

Так вот, не получается сделать ссылку на реквизит справочника из модуля формы. Буду благодарен за помощь

Вот сам код. Сама процедура отправки выполняется на сервере:

&НаСервере  

Процедура SMTPОтправка()

    Профиль = Новый ИнтернетПочтовыйПрофиль;

   Профиль.АдресСервераSMTP = «smtp.yandex.ru»;

   Профиль.ПользовательSMTP = «mail@mail.ru»;

   Профиль.ПарольSMTP = «***»;

   Профиль.ИспользоватьSSLSMTP = Истина;

   Профиль.ПортSMTP = 465;

   Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;

   Письмо = Новый ИнтернетПочтовоеСообщение;

   Текст = Письмо.Тексты.Добавить(«Текст»);

   Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;

   Письмо.Тема = «В бухгалтерию»;

   Письмо.Отправитель = «mail@mail.ru»;

   Письмо.ИмяОтправителя = «1c»;

  
  ПолучательПисьма = Объект.Email.EmailАдес;

   Письмо.Получатели.Добавить(ПолучательПисьма);

  
  
  
    
   Почта = Новый ИнтернетПочта;

   Попытка

      Почта.Подключиться(Профиль);

      Сообщить(«Соединение с почтовым сервером установлено»);

   Исключение

       Сообщить(«Не удалось подключиться к серверу по причине: «);

       Сообщить(ОписаниеОшибки());

   КонецПопытки;

   Попытка

      Почта.Послать(Письмо);

      Сообщить(«Письмо отправлено в бухгалтерию!»);

   Исключение

       Сообщить(«Не удалось отправить письмо»);

       Сообщить(ОписаниеОшибки());

   КонецПопытки;

    
   Почта.Отключиться();

   Сообщить(«Соединение завершено»);

КонецПроцедуры

(5) Смысл в том, что в Справочнике Email есть — несколько реквизитов — EmailАдрес, Событие, ФИО.

И в зависимости от документа ( Счет на оплату, Задача). Письмо будет посылаться по заполненному справочнику.

Допустим:

Справочник Email

EmailАдрес ФИО Событие

123@mail.ru  Иванов Отправка счета

1234@mail.ru Петров Задача

То есть, Email пользователь заводит под конкретное событие в Справочнике.

(9) Появляется ошибка:Поле объекта не обнаружено.

Тогда я добавил реквизит в этот документ со ссылкой на справочник. Ошибка пропала. Сейчас ошибок не выдает, пишет, что отправлено но при этом не отправляет. Не приходят письма.

(10) ну, выведите там

Сообщить(«» +  Объект.Email);

Сообщить(«» +  Объект.Email.EmailАдес);

может просто ошиблись в адресе?

(20)

Объект — это документ,

Объект.Email — поле документа.

>>Мне нужно, чтобы данные тянулись со справочника

Из какого именно, в справочнике может быть много элементов. Может тебе константа нужна была, а не справочник.

(21) тогда не бери их из документа

(22) Смотрите, у меня есть справочник. В нем три реквизита — EmailАдрес, Событие, ФИО.

И в зависимости от документа ( Счет на оплату, Задача). Письмо будет посылаться по заполненному справочнику.

Допустим:

Справочник Email

EmailАдрес ФИО Событие

123@mail.ru  Иванов Отправка счета

1234@mail.ru Петров Задача

То есть, Email пользователь заводит под конкретное событие в Справочнике.

То есть:

Получатели должны тянуться из справочника из реквизита «EmailАдрес»

(24) Так вот в том и вопрос.

Процедура отправки я пишу в форме документа. Как из формы мне обратиться к этому справочнику ?

(24) Пробовал как-то так,

ПолучательПисьма = Справочники.Email.НайтиПоРеквизиту(«Событие»,»Оплата счета»);

ПолучателиПисьма1 = ПолучательПисьма.EmailАдрес;

Пока тоже безуспешно.

Oleg37701

40 — 25.04.21 — 15:31

ДокСсылка = СсылкаНаДокумент(ТипДокумента, НомерДок);
ДокОбъект = ДокСсылка.ПолучитьОбъект();
 
ФормаОбъекта = ДокОбъект.ПолучитьФорму();
Для Каждого Элемент Из ФормаОбъекта.ЭлементыФормы Цикл
        Сообщить(Элемент);
КонецЦикла;     
 

 
Для Каждого Элемент Из ФормаОбъекта.ЭлементыФормы Цикл
        Сообщить(Элемент.Имя);
        Если Тип(Элемент) = Тип("ТабличноеПоле") Тогда
                Сообщить(" Это табличное поле! "  + Элемент.Имя );
                Для Каждого Колонка Из Элемент.Колонки Цикл
                        ИмяКолонки = Колонка.Имя;
                        Сообщить(ИмяКолонки);
                КонецЦикла;
        КонецЕсли;      
КонецЦикла;     
 

 
ФормаОбъекта = ДокОбъект.ПолучитьФорму("ФормаДокумента");
Поставщик = ФормаОбъекта.ЭлементыФормы.Поставщик;
Поставщик = ФормаОбъекта.ЭлементыФормы.Получатель;
Сообщить(ФормаОбъекта.ЭлементыФормы.ТаблПоле.Колонки.Количество());
 

 
  ДокОбъект = Док.ПолучитьОбъект(); //здесь Док - ссылка на объект
  //просканируем построчно таб часть документа
  Для Каждого Стр из ДокОбъект.Товары Цикл
      Номенклатура = Стр.Номенклатура;
      Стр.Коэффициент = 1;
  КонецЦикла;
 

      Номенклатура = Стр.Номенклатура;

 
        ДокСсылка = СсылкаНаДокумент(ТипДокумента, НомерДок);
        ДокОбъект = ДокСсылка.ПолучитьОбъект();
                                
        ФормаОбъекта = ДокОбъект.ПолучитьФорму();
        Для Каждого Элемент Из ФормаОбъекта.ЭлементыФормы Цикл
                Если Тип(Элемент) = Тип("ТабличноеПоле") Тогда //элемент формы - табличное поле
                                                        
                        Если Элемент.Имя = "Товары" Тогда
                                Сообщить("Это табличное поле!! "  + Элемент.Имя );
                                
                                //ТабПоле = ФормаОбъекта.ЭлементыФормы.Товары.Значение;
                                ТабПоле = Элемент.Значение;
                                Колво = ТабПоле.Количество();
                                Сообщить("Количество строк: " + Колво); 
                                
                                Для Каждого ТекущаяСтрока Из ТабПоле Цикл
                                        
                                        Имя = ТекущаяСтрока.Номенклатура;
                                        Сообщить(Имя); 
                
                                КонецЦикла;                             
                                
                        КонецЕсли;      
                                                        
                КонецЕсли;                                      
        КонецЦикла;  
 

 
        ДокСсылка = СсылкаНаДокумент(ТипДокумента, НомерДок);
        ДокОбъект = ДокСсылка.ПолучитьОбъект();
                                
        ФормаОбъекта = ДокОбъект.ПолучитьФорму("ФормаДокумента");
        Для Каждого Элемент Из ФормаОбъекта.ЭлементыФормы Цикл
                Если Тип(Элемент) = Тип("ТабличноеПоле") Тогда
                                                        
                        Если Элемент.Имя = "ВыданныеАвансы" Тогда //таб часть объекта
                                Сообщить(" Это табличное поле!! "  + Элемент.Имя );
                                
                                ТабПоле = Элемент.Значение;
                                Индекс = 0;
                                Для Каждого ТекущаяСтрока Из ТабПоле Цикл
                                        
                                        Сообщить("=======================");
                                        Для Каждого Колонка Из Элемент.Колонки Цикл
                                                
                                                ИмяКолонки = Строка(Колонка.Имя);
                                                Сообщить(ИмяКолонки);
                                                Имя = ТекущаяСтрока[ИмяКолонки];//сработает только если есть такое поле таб части объекта
                                                Сообщить("=== " + Имя); 
                                                
                                        КонецЦикла;
                                        
                                        Индекс = Индекс + 1;
                                        Если Индекс > 0 Тогда break КонецЕсли; //только первая строка
                                        
                                        
                                КонецЦикла;                             
                                
                                                        
                        КонецЕсли;      
                                                        
                КонецЕсли;                                      
        КонецЦикла;    
 

Это табличное поле!! ВыданныеАвансы
=======================
НомерСтроки 1
ДокументАванса Расходный кассовый ордер ТК000000004 от 15.02.2007 19:24:03
СуммаДокументаАванса 300
ВалютаДокументаАванса USD
Выдано 300
Сумма 174

 Такое двойное сканирование удобно использовать для быстрой проверки того, что все колонки таб части формы имеют связь с реквизитами таб части объекта. Если такой связи у какой-либо колонки нет, система сгенерирует ошибку.

Элементы формы 1С 8.3 могут содержать реквизиты двух видов: реквизиты объекта 1С и реквизиты формы.

Красным помечен реквизит объекта 1С Контрагент, а зеленым – реквизит формы в 1С.

Интерактивно выберем эти элементы в пользовательском режиме 1С и попробуем прочитать их «программно» кнопкой «Прочитать».

Именно на сервере у элемента формы 1С 8.3 становится доступно свойство ПутьКДанным, по которому его можно извлечь либо из Объекта, который имеет тип ДанныеФормыСтруктура: