Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
25 ноя 2024, 03:56

{Форма.Форма.Форма(814)}: Поле объекта не обнаружено (ПолноеНаименование)

Автор Айя Удинцева, 17 мар 2016, 07:31

0 Пользователей и 1 гость просматривают эту тему.

Айя Удинцева

Здравствуйте, не понимаю почему ошибка. Прайс xls/
Процедура ЗагрузитьУралГалантНажатие(Элемент)
   
   Если НЕ ЗначениеЗаполнено(ЭтотОбъект.КонтрагентУралГалант) Тогда
      Предупреждение("Не указан контрагент!");
      Возврат;
   КонецЕсли;
   
   Если НЕ ЗначениеЗаполнено(ЭтотОбъект.ТипЦенУралГалант) Тогда
      Предупреждение("Не указан тип цен!");
      Возврат;
   КонецЕсли;
   
   ТекКонтрагент = ЭтотОбъект.КонтрагентУралГалант;
   ЗагрузитьНоменклатуруУралГалант(ТекКонтрагент);
   ЗагрузитьУстановкуЦенУралГалант(ТекКонтрагент);
   
КонецПроцедуры

Процедура ЗагрузитьНоменклатуруУралГалант(ТекКонтрагент)
   
   КорневаяГруппа = Справочники.Номенклатура.НайтиПоНаименованию(ТекКонтрагент.Наименование);
   Если КорневаяГруппа.Пустая() Тогда
      НоваяГруппа = Справочники.Номенклатура.СоздатьГруппу();
      НоваяГруппа.Наименование = ТекКонтрагент.Наименование;
      НоваяГруппа.Записать();
      КорневаяГруппа = НоваяГруппа.Ссылка;
   КонецЕсли;
   
   ТекВидНоменклатуры = Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Товар");
   Если ТекВидНоменклатуры.Пустая() Тогда
      НовыйВид = Справочники.ВидыНоменклатуры.СоздатьЭлемент();
      НовыйВид.Наименование = "Товар";
      НовыйВид.ТипНоменклатуры = Перечисления.ТипыНоменклатуры.Товар;
      НовыйВид.Записать();
      ТекВидНоменклатуры = НовыйВид.Ссылка;
   КонецЕсли;
   ЭтотОбъект.ВидНоменклатуры = ТекВидНоменклатуры;
   
   ТабличныйДокумент = ЭлементыФормы.ПолеТабличногоДокументаУралГалант;
   Сообщить("Загрузка номенклатуры """ + ТекКонтрагент + """...", СтатусСообщения.Информация);
   Для Сч = ЭтотОбъект.НачальнаяСтрокаУралГалант По ТабличныйДокумент.ВысотаТаблицы Цикл
      НоваяСтрока = ЭтотОбъект.НоменклатураУралГалант.Добавить();
      НоваяСтрока.Группа = ТабличныйДокумент.Область(Сч, 2).Текст;
      НоваяСтрока.КодТовара = ТабличныйДокумент.Область(Сч, 3).Текст;
      НоваяСтрока.Артикул = ТабличныйДокумент.Область(Сч, 5).Текст;
      НоваяСтрока.Наименование = ТабличныйДокумент.Область(Сч, 6).Текст;
      НоваяСтрока.Бренд = ", " + СокрЛП(ТабличныйДокумент.Область(Сч, 8).Текст);
      НоваяСтрока.Цвет = ", " + СокрЛП(ТабличныйДокумент.Область(Сч, 10).Текст);
      НоваяСтрока.ПолноеНаименование = ТабличныйДокумент.Область(Сч, 11).Текст;
      НоваяСтрока.Материал = ", " + СокрЛП(ТабличныйДокумент.Область(Сч, 12).Текст);
      НоваяСтрока.Размер = ", " + СокрЛП(ТабличныйДокумент.Область(Сч, 13).Текст);
      НоваяСтрока.Цена = Число(ТабличныйДокумент.Область(Сч, 14).Текст);
   КонецЦикла;
   Сообщить("Обработка номенклатуры """ + ТекКонтрагент + """ окончена", СтатусСообщения.Информация);
   
   Сообщить("Формирование номенклатуры """ + ТекКонтрагент + """ в справочнике...", СтатусСообщения.Информация);
   Для каждого СтрокаНоменклатуры Из ЭтотОбъект.НоменклатураУралГалант Цикл
      СтрокаНоменклатуры.Номенклатура = ПолучитьНоменклатуруУралГалант(ТекКонтрагент, СтрокаНоменклатуры, КорневаяГруппа);
   КонецЦикла;
   Сообщить("Номенклатура """ + ТекКонтрагент + """ сформирована в справочнике", СтатусСообщения.Информация);
   
КонецПроцедуры

Помогите пожалуйста

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск