Загрузка в табличную часть документа из файла
Пытаюсь в Рознице 2.2 прикрутить к табличной части "Товары" документа "Оприходование товаров", загрузку из внешнего файла. Процедуры взял из демки БСП и адаптировал под себя. Но сталкиваюсь с ошибкой:
Код кнопки в форме:
Код модуле менеджера:
Подскажите, где проблема? Учитывая, что в демке всё работает прекрасно.
{Документ.ОприходованиеТоваров.МодульМенеджера(317)}: Ошибка при вызове метода контекста (ПолучитьИзВременногоХранилища)
Товары = ПолучитьИзВременногоХранилища(АдресТаблицыСопоставления);
по причине:
Ошибка получения значения из временного хранилища
по причине:
Неправильный путь к файлу 'ТаблицаЗначений'
Код кнопки в форме:
&НаКлиенте
Процедура ЗагрузитьТоварыИзФайла(Команда)
ПараметрыЗагрузки = ЗагрузкаДанныхИзФайлаКлиент.ПараметрыЗагрузкиДанных();
ПараметрыЗагрузки.ПолноеИмяТабличнойЧасти = "ОприходованиеТоваров.Товары";
ПараметрыЗагрузки.Заголовок = НСтр("ru = 'Загрузка списка товаров из файла'");
ДополнительныеПараметры = Новый Структура();
ДополнительныеПараметры.Вставить("Магазин", Объект.Магазин);
ДополнительныеПараметры.Вставить("Склад", Объект.Склад);
ДополнительныеПараметры.Вставить("Организация", Объект.Организация);
ПараметрыЗагрузки.ДополнительныеПараметры = ДополнительныеПараметры;
Оповещение = Новый ОписаниеОповещения("ЗагрузитьТоварыИзФайлаЗавершение", ЭтотОбъект);
ЗагрузкаДанныхИзФайлаКлиент.ПоказатьФормуЗагрузки(ПараметрыЗагрузки, Оповещение);
КонецПроцедуры
&НаКлиенте
Процедура ЗагрузитьТоварыИзФайлаЗавершение(АдресЗагруженныхДанных, ДополнительныеПараметры) Экспорт
Если АдресЗагруженныхДанных = Неопределено Тогда
Возврат;
КонецЕсли;
ЗагрузитьТоварыИзФайлаНаСервере(АдресЗагруженныхДанных);
КонецПроцедуры
&НаСервере
Процедура ЗагрузитьТоварыИзФайлаНаСервере(АдресЗагруженныхДанных)
ЗагруженныеДанные = ПолучитьИзВременногоХранилища(АдресЗагруженныхДанных);
ТоварыДобавлены = Ложь;
Для каждого СтрокаТаблицы Из ЗагруженныеДанные Цикл
Если Не ЗначениеЗаполнено(СтрокаТаблицы.Номенклатура) Тогда
Продолжить;
КонецЕсли;
НоваяСтрокаТовары = Объект.Товары.Добавить();
НоваяСтрокаТовары.Номенклатура = СтрокаТаблицы.Номенклатура;
НоваяСтрокаТовары.Цена = СтрокаТаблицы.Цена;
НоваяСтрокаТовары.Количество = СтрокаТаблицы.Количество;
НоваяСтрокаТовары.ЕдиницаИзмерения = СтрокаТаблицы.ЕдиницаИзмерения;
ТоварыДобавлены = Истина;
КонецЦикла;
Если ТоварыДобавлены Тогда
Модифицированность = Истина;
КонецЕсли;
КонецПроцедуры
ПоказатьКод модуле менеджера:
Процедура СопоставитьЗагружаемыеДанные(ПолноеИмяТабличнойЧасти, АдресЗагружаемыхДанных, АдресТаблицыСопоставления, СписокНеоднозначностей, ДополнительныеПараметры) Экспорт
Товары = ПолучитьИзВременногоХранилища(АдресТаблицыСопоставления);
ЗагружаемыеДанные = ПолучитьИзВременногоХранилища(АдресЗагружаемыхДанных);
МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц;
Запрос = Новый Запрос;
Запрос.МенеджерВременныхТаблиц = МенеджерВременныхТаблиц;
Запрос.Текст =
"ВЫБРАТЬ
| ВЫРАЗИТЬ(ДанныеДляСопоставления.Штрихкод КАК СТРОКА(13)) КАК Штрихкод,
| ДанныеДляСопоставления.Номенклатура КАК Номенклатура,
| ДанныеДляСопоставления.Идентификатор КАК Идентификатор
|ПОМЕСТИТЬ ДанныеДляСопоставления
|ИЗ
| &ДанныеДляСопоставления КАК ДанныеДляСопоставления
|;
|
|//////////////////////////////////////////////////////////// ////////////////////
|ВЫБРАТЬ
| ДанныеДляСопоставления.Идентификатор КАК Идентификатор,
| Штрихкоды.Штрихкод КАК Штрихкод,
| Штрихкоды.Владелец.Ссылка КАК Ссылка
|ПОМЕСТИТЬ СопоставленнаяНоменклатураПоШтрихкоду
|ИЗ
| ДанныеДляСопоставления КАК ДанныеДляСопоставления
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.Штрихкоды КАК Штрихкоды
| ПО ДанныеДляСопоставления.Штрихкод = Штрихкоды.Штрихкод
| И (ДанныеДляСопоставления.Штрихкод <> """")
|
|ИНДЕКСИРОВАТЬ ПО
| Идентификатор
|;
|
|//////////////////////////////////////////////////////////// ////////////////////
|ВЫБРАТЬ
| ДанныеДляСопоставления.Номенклатура КАК Номенклатура,
| ДанныеДляСопоставления.Идентификатор КАК Идентификатор
|ПОМЕСТИТЬ ДанныеДляСопоставленияПоНаименованию
|ИЗ
| ДанныеДляСопоставления КАК ДанныеДляСопоставления
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ СопоставленнаяНоменклатураПоШтрихкоду КАК СопоставленнаяНоменклатураПоШтрихкоду
| ПО ДанныеДляСопоставления.Штрихкод = СопоставленнаяНоменклатураПоШтрихкоду.Штрихкод
|
|ИНДЕКСИРОВАТЬ ПО
| Идентификатор
|;
|
|//////////////////////////////////////////////////////////// ////////////////////
|ВЫБРАТЬ
| МАКСИМУМ(спрНоменклатура.Ссылка) КАК Ссылка,
| ДанныеДляСопоставленияПоНаименованию.Идентификатор КАК Идентификатор,
| КОЛИЧЕСТВО(ДанныеДляСопоставленияПоНаименованию.Идентификатор) КАК Количество
|ИЗ
| ДанныеДляСопоставленияПоНаименованию КАК ДанныеДляСопоставленияПоНаименованию
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.Номенклатура КАК спрНоменклатура
| ПО (спрНоменклатура.Наименование = (ВЫРАЗИТЬ(ДанныеДляСопоставленияПоНаименованию.Номенклатура КАК СТРОКА(500))))
|
|СГРУППИРОВАТЬ ПО
| ДанныеДляСопоставленияПоНаименованию.Идентификатор
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| МАКСИМУМ(СопоставленнаяНоменклатураПоШтрихкоду.Ссылка),
| СопоставленнаяНоменклатураПоШтрихкоду.Идентификатор,
| КОЛИЧЕСТВО(СопоставленнаяНоменклатураПоШтрихкоду.Идентификатор)
|ИЗ
| СопоставленнаяНоменклатураПоШтрихкоду КАК СопоставленнаяНоменклатураПоШтрихкоду
|
|СГРУППИРОВАТЬ ПО
| СопоставленнаяНоменклатураПоШтрихкоду.Идентификатор";
Запрос.УстановитьПараметр("ДанныеДляСопоставления", ЗагружаемыеДанные);
РезультатыЗапросов = Запрос.ВыполнитьПакет();
ТаблицаНоменклатура = РезультатыЗапросов[3].Выгрузить();
ФункциональнаяОпцияХарактеристика = ?(ЗагружаемыеДанные.Колонки.Найти("Характеристика") <> Неопределено, Истина, Ложь);
Для каждого СтрокаТаблицы Из ЗагружаемыеДанные Цикл
Товар = Товары.Добавить();
Товар.Идентификатор = СтрокаТаблицы.Идентификатор;
Товар.Количество = СтрокаТаблицы.Количество;
Товар.Цена = СтрокаТаблицы.Цена;
СтрокаНоменклатура = ТаблицаНоменклатура.Найти(СтрокаТаблицы.Идентификатор, "Идентификатор");
Если СтрокаНоменклатура <> Неопределено Тогда
Если СтрокаНоменклатура.Количество = 1 Тогда
Товар.Номенклатура = СтрокаНоменклатура.Ссылка;
Если ФункциональнаяОпцияХарактеристика Тогда
Товар.Характеристика = Справочники._ДемоХарактеристики.НайтиПоНаименованию(СтрокаТаблицы.Характеристика,
Истина,, Товар.Номенклатура);
КонецЕсли;
ИначеЕсли СтрокаНоменклатура.Количество > 1 Тогда
ЗаписьОНеоднозначности = СписокНеоднозначностей.Добавить();
ЗаписьОНеоднозначности.Идентификатор = СтрокаТаблицы.Идентификатор;
ЗаписьОНеоднозначности.Колонка = "Номенклатура";
КонецЕсли;
КонецЕсли;
КонецЦикла;
ПоместитьВоВременноеХранилище(Товары, АдресТаблицыСопоставления);
КонецПроцедуры
Процедура ЗаполнитьСписокНеоднозначностей(ПолноеИмяТабличнойЧасти, СписокНеоднозначностей, ИмяКолонки, ЗагружаемыеЗначенияСтрока, ДополнительныеПараметры) Экспорт
Если ИмяКолонки = "Номенклатура" Тогда
Запрос = Новый Запрос;
ТекстГде = "";
Если ЗначениеЗаполнено(ЗагружаемыеЗначенияСтрока.Номенклатура) Тогда
ТекстГде = "ГДЕ Номенклатура.Наименование = &Наименование";
Запрос.УстановитьПараметр("Наименование", ЗагружаемыеЗначенияСтрока.Номенклатура);
КонецЕсли;
Если ЗначениеЗаполнено(ЗагружаемыеЗначенияСтрока.Штрихкод) Тогда
Если ЗначениеЗаполнено(ТекстГде) Тогда
ТекстГде = ТекстГде + " ИЛИ Штрихкоды.Штрихкод = &Штрихкод";
Иначе
ТекстГде = "ГДЕ Штрихкоды.Штрихкод = &Штрихкод";
КонецЕсли;
Запрос.УстановитьПараметр("Штрихкод", ЗагружаемыеЗначенияСтрока.Штрихкод);
КонецЕсли;
Запрос.Текст = "ВЫБРАТЬ
| Номенклатура.Ссылка
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.Штрихкоды КАК Штрихкоды
| ПО Номенклатура.Ссылка = Штрихкоды.Владелец.Ссылка " + ТекстГде;
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
СписокНеоднозначностей.Добавить(ВыборкаДетальныеЗаписи.Ссылка);
КонецЦикла;
КонецЕсли;
КонецПроцедуры
ПоказатьПодскажите, где проблема? Учитывая, что в демке всё работает прекрасно.
По теме из базы знаний
- Заполнение табличной части документов из файла Excel (для 1С 7.7 бухгалтерский учет, ред. 4.5)
- Загрузка в табличную часть документа Поступление товаров из файла с портала поставщика (импортера) для конфигурации Альфа-Авто: Автосалон+Автосервис+Автозапчасти ПРОФ, 5.1
- Загрузка данных в табличную часть документов Оприходование и Списание товаров из внешних файлов (Розница 2.3)
- Загрузка данных в табличную часть документов Внутреннее потребление и Перемещение товаров из внешних файлов (ERP 2, КА 2, УТ 11)
- Заполнение табличной части документа внешней обработкой с открытием формы, загрузкой из excel файла и переносом в документ
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот