Не могу написать правильно цикл. #746702

Привет Всем есть задача. Грузить в УТ 11.1 Данные из екселя. Сделал обработку но дойдя до первой строчки екселя она зацикливается и крутиться на месте. Не могу понять что такое. вот код: Циклится на 1-й строчке екселя а дальше не спускаеться хоть колонка ИД содержит значения. Помогите добрые люди

Так где у тебя цикл по строкам экселя?

Пока ЗначениеЗаполнено(ИД)=Истина Цикл

Во-первых, ЗначениеЗаполнено(ИД)=Истина Это - фу, достаточно ЗначениеЗаполнено(ИД) Во-вторых, ИД в цикле не меняется. "Отсюда и бесконечный цикл"

Нет. Это у тебя бесконечный цикл в случае, если в 3-й строке экселя есть ИД :))

у тебя условие Пока ЗначениеЗаполнено(ИД)=Истина Цикл не изменяется в цикле следовательно цикл будет бесконечным

"Сообщить("Валер, создан клиент..." - эта пять я считаю!)))

а нельзя по ИД сразу фильтр сделать,чтобы не обрабатывать в 1С

а это не пять? ) Пока ЗначениеЗаполнено(ИД)=Истина Цикл Запрос = Новый Запрос; ...

Как правильно написать чтоб он шел дальше? Проверять ечть ли в следующей троке ИД

Как правильно написать чтоб он шел дальше? Проверять есть ли в следующей строке ИД

Правильно. А где ты это делаешь?

вообще там область ячеек берется в комсейфэрей, а у него есть метод Выгрузить, получается обычный массив, с которым очень удобно работать. а у тебя жесть какая-то. ну и счетчик ты не ++

ну так и пиши, цикл пока не конец файла или цикл от 1 до количества строк в файле..

...

а не ту ахинею, что у тебя в бесконечном цикле сейчас

мб так? ... КонецЦикла

намечается убийца Мега-прайса

а Сообщить ("Валер, ты чего грузишь то??" + Покупатель + " уже есть" );

))

Не работает

Что именно? количество строк не определяется? Напиши временно 1000 и в цикле если Лист.Cells(Строка,1).Text="" тогда продолжить;конецесли;

а так:

Как мне сказать чтоб он перескачил на другую сточку (проверить есть ли в ней данные и начал выполнять запрос)?

Тебе то нужно чтобы менялась строчка в цикле вот тут ты перебираешь строчки с 3 по 1000 и если в 1й колонке пусто, ты её пропускаешь. В идеале бы не выполнять никаких, запросов в цикле...Но для начала, чтобы хоть в каком то виде работало, вставляешь в этот цикл свой запрос и т.д. Для Строка  = 3 по 1000 цикл если Лист.Cells(Строка,1).Text="" тогда продолжить;конецесли;

что-то не так делаешь, - работает, проверил:

А ещё в твоём коде _СпрПокупатель= Справочники.Партнеры.СоздатьЭлемент;     Не хватает _СпрПокупатель.записать;

Да это вижу.

Еще совет : Если ищешь по наименованию, выгрузи запрос в ТЗ и пройди циклом по наименованиям всем.Удали пробелы , сделай Нрег, удали всякие незначащие символы. По этой строке и ищи.

Спасибо.

ну дык занести код в цикл и увеличивать Строка

Это следующая стадия мастерства, от той что есть у ТС))) Кроме того если Партнёров периодически создают руками,  и между именем и фамилией не 1 пробел, а два, тогда результат запроса будет пустой)

Все нашел в чем проблемма ребят - сам торможу. Я не говорил коду что перед концом цикла Строка = Строка +1;  Вот он и крутился по кругу!

Так по-хорошему при записи надо двойные пробелы в ФИО убирать.

Но тут вот еще новый гим...й в екселе с покупателями есть столбец email и в справочнике куда я это вношу есть табличная часть "электронный адрес" вот как к ней обратиться....?

РегистрСведений.КонтактнаяИнформация скорее всего.

Сейчас по религии БСП кошерно Контактную информацию в ТЧ хранить.

Хмм щас покопаю

Ответил что первое на ум пришло %). УТ 11 под рукой нет.

Сообщить("Валер, запросы в цикле это плохо!");

Сообщить("Валер, прости что так долго !");

)))

Сообщить("Валер, прости!!!");

УТ 11 Последний релиз это нечто.... Просто волосы дыбом встают

Сообщить("Валер, это из-за меня у тебя волосы дыбом?");

В УТ 11 у справочника "Контрагенты" есть табличная часть "КонтактнаяИнформация", где есть реквизит АдресЭП. Вот туда и пиши данные экселя.

ММдддаааа

Я знаю что она там есть. но обратиться к АдресЭП не получается Отвечает Поле объекта не обнаружено (АдресЭП)

Правильно. тк. Надо писать как-то так:

Ок

Прописал, ошибки нет но почту не вставляет

А записываешь?

Обратись к специалисту.

Да конечно записываю. В справочнике Партнеры фамилия имя загоняются, создается новый партнер, но электронкка ни как не записывается

Почта        = Лист.Cells(Строка,5).Text;

Пробую

Сообщить("Валера, твой выход");

Нет. Не записывается

чего пишет? валера, клиент уже есть?

С контактной информацией в БСП всё не так просто. Посмотри, как в типовой форме записывается КИ.

Ты пошутил что-ли?) Ты предлагаешь ТСу, который только начал разбираться в коде, разобраться как что-то происходит в УТ?) Если доступ дашь, могу глянуть.

Ну когда-то надо начинать разбираться в работе типовых механизмов. И это имхо лучший способ.

Короче: Вместо непонятных конструкций вставь слово "Почта".

Кроме первых трех строчек конечно)

Последняя строчка тебе тоже не нужна.

Ого, вот теперь вообще ни чего не понял...

ААААААААААААААААААААА... УТТТТТТТТТТТТ.... Как же в справочник Партнеры записать электронную почтууууу...

Ппц!

ВСЕ!!! Заработало!!! Спасибо!!! Ничего себе он куда запихивает это.... Жесть просто! Все спасибо!

Алиллуйа!!! Вообще ТС - сегодня тебе повезло. Не каждый день тут отвечают на такие вопросы. Обычно книжки курить или типовые.