поиск по наименованию в справочнике

[anna.tepl]

Здравствуйте!

У меня не происходит поиск контрагента из соответствующего справочника. Обработку делаю как внешную, считываю из файла excel наименование, в отладчике вижу его, а потом почему-то это наименование теряется, и получается пустое значение. ниже приведен код.

Код Выделить Развернуть

&НаСервере
Процедура ЗагрузитьДанныеНаСервере()

Excel = Новый COMОбъект("Excel.Application");

Книга = Excel.WorkBooks.Open(Объект.ИмяФайла);
Лист = Книга.WorkSheets(1);
ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;

Для НомерСтроки = 2  по ВсегоСтрок Цикл   

РасходнаяНакладная = Документы.РеализацияТоваровУслуг.СоздатьДокумент();

//ищем контрагента
        Контрагент = Справочники.Контрагенты.НайтиПоНаименованию((СокрЛП(Лист.Cells(НомерСтроки,3).Value)),истина);

Если Контрагент.Пустая() Тогда
Сообщить("Контрагент" + Контрагент + "не найден. Будет создан новый контрагент");

Контрагент = Справочники.Контрагенты.СоздатьЭлемент();
    Контрагент.Наименование = Контрагент;
    Контрагент.Записать();
// далее идет поиск договора и
КонецПроцедуры

[SitnovaMarina]

Здравствуйте!

У меня не происходит поиск контрагента из соответствующего справочника. Обработку делаю как внешную, считываю из файла excel наименование, в отладчике вижу его, а потом почему-то это наименование теряется, и получается пустое значение. ниже приведен код.

Код Выделить Развернуть

&НаСервере
Процедура ЗагрузитьДанныеНаСервере()

Excel = Новый COMОбъект("Excel.Application");

Книга = Excel.WorkBooks.Open(Объект.ИмяФайла);
Лист = Книга.WorkSheets(1);
ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;

Для НомерСтроки = 2  по ВсегоСтрок Цикл   

РасходнаяНакладная = Документы.РеализацияТоваровУслуг.СоздатьДокумент();

//ищем контрагента
        Контрагент = Справочники.Контрагенты.НайтиПоНаименованию((СокрЛП(Лист.Cells(НомерСтроки,3).Value)),истина);

Если Контрагент.Пустая() Тогда
Сообщить("Контрагент" + Контрагент + "не найден. Будет создан новый контрагент");

Контрагент = Справочники.Контрагенты.СоздатьЭлемент();
    Контрагент.Наименование = Контрагент;
    Контрагент.Записать();
// далее идет поиск договора и
КонецПроцедуры

все просто! вы используете одну и ту же переменную и для поиска контрагента и для создания нового.
Вам нужно переменную Контрагент, которой вы пользуетесь для поиска по наименованию, переименовать, например в НайденыйКонтрагент, и прописать Контрагент.Наименование = НайденыйКонтрагент

Добавлено: 19 янв 2015, 19:10

Здравствуйте!

У меня не происходит поиск контрагента из соответствующего справочника. Обработку делаю как внешную, считываю из файла excel наименование, в отладчике вижу его, а потом почему-то это наименование теряется, и получается пустое значение. ниже приведен код.

Код Выделить Развернуть

&НаСервере
Процедура ЗагрузитьДанныеНаСервере()

Excel = Новый COMОбъект("Excel.Application");

Книга = Excel.WorkBooks.Open(Объект.ИмяФайла);
Лист = Книга.WorkSheets(1);
ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;

Для НомерСтроки = 2  по ВсегоСтрок Цикл   

РасходнаяНакладная = Документы.РеализацияТоваровУслуг.СоздатьДокумент();

//ищем контрагента
        Контрагент = Справочники.Контрагенты.НайтиПоНаименованию((СокрЛП(Лист.Cells(НомерСтроки,3).Value)),истина);

Если Контрагент.Пустая() Тогда
Сообщить("Контрагент" + Контрагент + "не найден. Будет создан новый контрагент");

Контрагент = Справочники.Контрагенты.СоздатьЭлемент();
    Контрагент.Наименование = Контрагент;
    Контрагент.Записать();
// далее идет поиск договора и
КонецПроцедуры

все просто! вы используете одну и ту же переменную и для поиска контрагента и для создания нового.
Вам нужно переменную Контрагент, которой вы пользуетесь для поиска по наименованию, переименовать, например в НайденыйКонтрагент, и НаименованиеКонтрагента = СокрЛП(Лист.Cells(НомерСтроки,3).Value). Затем прописать Контрагент.Наименование = НаименованиеКонтрагента