Группа: Пользователи
Сообщений: 54
Спасибо сказали: 0 раз
Рейтинг: 0
Доброго времени суток. Появилась небольшой вопрос. Пишу я обработку для загрузки из хлс в справочник номенклатуры данных. появилась проблема такого плана. В файле хлс есть столбик с наименованием фирмы поставщика. так вот надо при загрузки создавать каталог с этим наименоваием и загружать туда данные из строки)
// Выбираем данные из файла Для а = 1 по ФайлСтрок Цикл
//Полуим данные из ячеек КодТовара=СокрЛП(Excel.Cells(а,НомерКолонкиАртикулаТовара).Value); НаименованиеТовара=СокрЛП(Excel.Cells(а,НомерКолонкиНаименованияТовара).Value); ПолнНаименование=СокрЛП(Excel.Cells(а,НомерКолонкиПолнНаименованияТовара).Value); НаименованиеПоставшика=СокрЛП(Excel.Cells(а,НомерКолонкиНаименованияПоставщика).Value); Цена= Число(Excel.Cells(а,НомерКолонкиЦеныТовара).Value);
Если (ПустоеЗначение(НаименованиеПоставшика)=1) тогда Записать(Товар,КодТовара,НаименованиеТовара,ПолнНаименование,Цена,НаименованиеПоставш ика); иначе
Если (Товар1=1) и (ИндГруппы=1) тогда Товар=СоздатьОбъект("Справочник.Номенклатура"); Товар.ВыбратьЭлементы(); Товар.Родитель=НаименованиеПоставшика; //Товар.ИспользоватьРодителя(НаименованиеПоставшика);
Записать(Товар,КодТовара,НаименованиеТовара,ПолнНаименование,Цена,НаименованиеПоставш ика); //продолжить; //тут должен быть код в котором будет описана "процедура" записи данных из функии записать(тоесть данные с строки ексела) // в существующую группу которую нашли. иначеЕсли ИндГруппы=0 тогда //тут обязана быть хрень в которой будет описан механизм создание группы которую не нашли и запись в ней данных их строкиэекселя
Группа: Местный
Сообщений: 186
Спасибо сказали: 31 раз
Рейтинг: 0
А вот на эту строку - Товар.Родитель=НаименованиеПоставшика; - Ваша обработка ничего вульгарного не пишет ? Товар.Родитель - это тоже объект ("Справочник.Номенклатура"), а Вы его строкой хотите сделать. Да и вообще, как то странно написана обработка. Может фрагмент xls файла покажите ?
в данном случае я ед езмерения не брал. ненужно пока.
она собственно все заполняет, но только сразу в справочник номенклатура. все хорошо проходит по условиям, все срабатывает, а вот именно заставить записывать в нужный каталог чет не могу(( не доходит мой моск)
Группа: Пользователи
Сообщений: 54
Спасибо сказали: 0 раз
Рейтинг: 0
Переделал как вы показали. хм. чет пока не хочет. я тут забыл еще функцию записать показать. скорей всего именно неправильная передача данных в неё.
иначеЕсли ИндГруппы=0 тогда //тут обязана быть хрень в которой будет описан механизм создание группы которую не нашли и запись в ней данных их строкиэекселя
иначеЕсли ИндГруппы=0 тогда //тут обязана быть хрень в которой будет описан механизм создание группы которую не нашли и запись в ней данных их строкиэекселя
// Выбираем данные из файла Для а = 1 по ФайлСтрок Цикл //Полуим данные из ячеек КодТовара=СокрЛП(Excel.Cells(а,НомерКолонкиАртикулаТовара).Value); НаименованиеТовара=СокрЛП(Excel.Cells(а,НомерКолонкиНаименованияТовара).Value); ПолнНаименование=СокрЛП(Excel.Cells(а,НомерКолонкиПолнНаименованияТовара).Value); НаименованиеПоставшика=СокрЛП(Excel.Cells(а,НомерКолонкиНаименованияПоставщика).Value); Цена= Число(Excel.Cells(а,НомерКолонкиЦеныТовара).Value);
Если ПустоеЗначение(НаименованиеПоставщика)=0) Тогда
Если (РодительТовара.НайтиПоНаиенованию(НаименованиеПоставщика)=0) Тогда РодительТовара.НоваяГруппа(); РодительТовара.Наименование = НаименованиеПоставщика; РодительТовара.Записать(); КонецЕсли; Записать(Товар,КодТовара,НаименованиеТовара,ПолнНаименование,Цена,НаименованиеПоставш ика,РодительТовара.ТекущийЭлемент()); Иначе Записать(Товар,КодТовара,НаименованиеТовара,ПолнНаименование,Цена,НаименованиеПоставш ика,НаименованиеПоставщика); КонецЕсли;
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!