Нашли или выдавили из себя код, который нельзя назвать нормальным,
на который без улыбки не взглянешь?
Не торопитесь его удалять или рефакторить, — запостите его на
говнокод.ру, посмеёмся вместе!
//Тут был код
//!Проверки на корректность данных.
ИначеЕсли (Строка(Лист.Cells(Счетчик,8).value) = "") ИЛИ (Строка(Лист.Cells(Счетчик,8).value) = "") ИЛИ ((Лист.Cells(Счетчик,8).value) = 0) ИЛИ ((Лист.Cells(Счетчик,8).value) = 0) Тогда
Сообщить("У номенклатуры в строке №"+Счетчик+" не хватает данных по ценам! Позиция не добавлена!", СтатусСообщения.Важное);
ИначеЕсли ((Лист.Cells(Счетчик,8).value) < 0) ИЛИ ((Лист.Cells(Счетчик,8).value) < 0) Тогда
Сообщить("У номенклатуры в строке №"+Счетчик+" отрицательная цена! Позиция не добавлена!", СтатусСообщения.Важное);
Иначе
Мас.Добавить(Строка(Лист.Cells(Счетчик, 1).value));
ЭлементСправочника = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул", Строка(Лист.Cells(Счетчик, 1).value));
//Там дальше код
Фрагмент обработки найден в конфиге клиента. До фрагмента - открытие файла excel. После - распихивание данных с него по регистрам. Гениальная проверка на корректность гениальна.
получает имя файла например 122341_20101207201000.pdf и ищет по коду в справочники с лидирующими нулями, если кто то может предложить лучше предложение, то я буду только рад)
Родит=ДокР.Контрагент.Родитель;
Если ПустоеЗначение(Родит.Телефон)=1 Тогда
Родит1=Родит.Родитель;
Если ПустоеЗначение(Родит1.Телефон)=1 Тогда
Родит2=Родит1.Родитель;
Если ПустоеЗначение(Родит2.Телефон)=1 Тогда
Родит3=Родит2.Родитель;
ТЗДок.Тел=Родит3.Телефон;
Иначе
ТЗДок.Тел=Родит2.Телефон;
КонецЕсли;
Иначе
ТЗДок.Тел=Родит1.Телефон;
КонецЕсли;
Иначе
ТЗДок.Тел=Родит.Телефон;
КонецЕсли;