Заказы на доработку 1С (сервис удаленной работы)

Хранилище

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

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



> создание элемента справочника программно          
Klotilda Подменю пользователя
сообщение 24.11.15, 16:38
Сообщение #1

Молчаливый
*
Группа: Пользователи
Сообщений: 8
Спасибо сказали: 0 раз
Рейтинг: 0

Здравсвуйте! Заполняю программно элементы справочника данными из файла excel. Есть 2 реквизита типа Справочни.Ссылка (то есть ссылка на другой справочник)
При попытке заполнить их выдается ошибка: эти поля недоступны для заполнения
Если же не заполнять их, выдается другая ошибка:
Перед записью в элементе справочника "Номенклатура" необходимо заполнить "базовая единица"!
Перед записью в элементе справочника "Номенклатура" необходимо заполнить "вид номенклатуры"!

Для счетчик=2 по ФайлСтрок Цикл
    
    ЗначАртикул        = Excel.Cells(счетчик,2).Value;
    ЗначАртикул        =СтрЗаменить(СокрЛП(Строка(Excel.Cells(счетчик, 2).Value)),Символ(160),"");
    
    ЗначКод            =Excel.Cells(счетчик,1).Value;
    ЗначКод            =СтрЗаменить(СокрЛП(Строка(Excel.Cells(счетчик, 1).Value)),Символ(160),"");
    
    ЗначНаимен        =Excel.Cells(счетчик,3).Value;
    ЗначНаимен        =СтрЗаменить(СокрЛП(Строка(Excel.Cells(счетчик, 3).Value)),Символ(160),"");

    ЗначЕд            =Excel.Cells(счетчик,6).Value;
    ЗначЕд            =СтрЗаменить(СокрЛП(Строка(Excel.Cells(счетчик, 6).Value)),Символ(160),"");
    
    ЗначВид            = Excel.Cells(счетчик,5).Value;
    //ЗначВид            =СтрЗаменить(СокрЛП(Строка(Excel.Cells(счетчик, 5).Value)),Символ(160),"");
    
    РеквизитСпр        =Справочники.Номенклатура.НайтиПоРеквизиту("Артикул",ЗначАртикул);
    Если РеквизитСпр=Справочники.Номенклатура.ПустаяСсылка()Тогда
        
        Сообщить("Артикул"+ЗначАртикул+"не найден");
        НовыйЭлемент    =справочники.Номенклатура.СоздатьЭлемент();

    НовыйЭлемент.ВидНоменклатуры=ЗначВид;
    НовыйЭлемент.БазоваяЕдиницаИзмерения=ЗначЕд;
    НовыйЭлемент.Артикул=ЗначАртикул;
    НовыйЭлемент.Код=ЗначКод;
    НовыйЭлемент.Наименование=ЗначНаимен;
    
        
    НовыйЭлемент.Записать();
    КонецЕсли;
КонецЦикла;



VikingKosmo Подменю пользователя
сообщение 24.11.15, 16:45
Сообщение #2

Общительный
**
Группа: Пользователи
Сообщений: 44
Из: Харьков
Спасибо сказали: 12 раз
Рейтинг: 0

Потому что, сначала Вам нужно найти ссылки на значения из файла, а потом присваивать уже собственно найденные ссылки. А Вы пытаетесь в ссылки подставить текст из файла.

Сообщение отредактировал Vofka - 24.11.15, 20:59

Klotilda Подменю пользователя
сообщение 24.11.15, 16:58
Сообщение #3

Молчаливый
*
Группа: Пользователи
Сообщений: 8
Спасибо сказали: 0 раз
Рейтинг: 0

Цитата(VikingKosmo @ 24.11.15, 16:45) *
Потому что, сначала Вам нужно найти ссылки на значения из файла, а потом присваивать уже собственно найденные ссылки. А Вы пытаетесь в ссылки подставить текст из файла.


благодарю

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


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

 

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