powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / [игнор отключен] [закрыт для гостей] / Загрузка из Excel в справочник 1c 8
5 сообщений из 5, страница 1 из 1
Загрузка из Excel в справочник 1c 8
    #37467802
Сергей1981
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Необходимо записать из файла Excel, имеющего 2 колонки(артикул справочника номенклатура, дополнительный код ТТКод ) в поле формы справочника Номенклатура каким-то образом ТТКод. Где может быть ошибка? Вот пример кода обработки:

Процедура КнопкаВыполнитьНажатие(Файл, Excel)
//Сообщить(ИмяФайла);
ExcelПриложение = Новый COMОбъект("Excel.Application");
ExcelФайл = ExcelПриложение.WorkBooks.Open(ИмяФайла);
Sheet =ExcelФайл.Sheets(1);

НомерСтроки = 1;
Пока НомерСтроки < 5340 Цикл
НомерСтроки = НомерСтроки +1;
Артикул = Sheet.Cells(НомерСтроки, 1).Value;
ТТКод = Sheet.Cells(НомерСтроки, 2).Value;

СсылкаТТКод = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул",ТТКод);
Если не Справочники.Номенклатура.НайтиПоРеквизиту("Артикул", Артикул).Пустая() Тогда
СсылкаНоменклатура = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул", Артикул);
Сообщить("Найдено " + Строка(НомерСтроки));
СсылкаТТКод = Справочники.Номенклатура.СоздатьЭлемент();
СсылкаТТКод.ТТКод = ТТКод;
СсылкаТТКод.Записать();
Сообщить(СсылкаНоменклатура);
Сообщить(СсылкаТТКод);
КонецЕсли;

ОбработкаПрерыванияПользователя();


КонецЦикла;

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

Ошибка следующая: Найдено 2
Перед записью в элементе справочника "Номенклатура" необходимо заполнить "базовая единица"!
Перед записью в элементе справочника "Номенклатура" необходимо заполнить "вид номенклатуры"!
...
Рейтинг: 0 / 0
Загрузка из Excel в справочник 1c 8
    #37467838
Господин ПЖ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>Если не Справочники.Номенклатура.НайтиПоРеквизиту("Артикул", Артикул).Пустая() Тогда

это что за народное творчество...
...
Рейтинг: 0 / 0
Загрузка из Excel в справочник 1c 8
    #37467856
Сергей1981
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Убрал в коде строку Если не Справочники.Номенклатура.НайтиПоРеквизиту("Артикул", Артикул).Пустая(), ошибка прежняя

Процедура КнопкаВыполнитьНажатие(Файл, Excel)
//Сообщить(ИмяФайла);
ExcelПриложение = Новый COMОбъект("Excel.Application");
ExcelФайл = ExcelПриложение.WorkBooks.Open(ИмяФайла);
Sheet =ExcelФайл.Sheets(1);

НомерСтроки = 1;
Пока НомерСтроки < 5340 Цикл
НомерСтроки = НомерСтроки +1;
Артикул = Sheet.Cells(НомерСтроки, 1).Value;
ТТКод = Sheet.Cells(НомерСтроки, 2).Value;

СсылкаТТКод = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул",ТТКод);
СсылкаНоменклатура = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул", Артикул);
Сообщить("Найдено " + Строка(НомерСтроки));
СсылкаТТКод = Справочники.Номенклатура.СоздатьЭлемент();
СсылкаТТКод.ТТКод = ТТКод;
СсылкаТТКод.Записать();
Сообщить(СсылкаНоменклатура);
Сообщить(СсылкаТТКод);

ОбработкаПрерыванияПользователя();


КонецЦикла;

КонецПроцедуры
...
Рейтинг: 0 / 0
Загрузка из Excel в справочник 1c 8
    #37467912
Господин ПЖ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>Перед записью в элементе справочника "Номенклатура" необходимо заполнить "базовая единица"!
>Перед записью в элементе справочника "Номенклатура" необходимо заполнить "вид номенклатуры"!

ну так заполняй...
...
Рейтинг: 0 / 0
Загрузка из Excel в справочник 1c 8
    #37469050
Фотография Dinamo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Сергей1981,
Код: plaintext
1.
СсылкаТТКод = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул",ТТКод);
СсылкаНоменклатура = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул", Артикул);
Зачем два раза ищете один и тот же элемент?
На заметку: в результате поиска по реквизиту может быть найдено более одного элемента.
Зачем, вне зависимости от результатов поиск по артикулу, создаете и записываете элемент справочника?

Ну и Господин ПЖ вам рекомендации написал...
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / [игнор отключен] [закрыт для гостей] / Загрузка из Excel в справочник 1c 8
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]