Добрый вечер форумчане, не подскажете как в обработке по созданию и заполнению табличной части оптимизировать скорость? Как получить объект один раз а не в цикле каждый раз?

переписать её

Функция ПрочитатьТабличныйДокументExcelВТЗВДокумент(ИмяФайла)

  xlLastCell = 11;
   
   ВыбФайл = Новый Файл(ИмяФайла);    
   Если НЕ ВыбФайл.Существует() Тогда        
       Сообщить("Файл не существует!");
       Возврат 0;
   КонецЕсли;
   
   Попытка
       Excel = Новый COMОбъект("Excel.Application");    
       Excel.WorkBooks.Open(ИмяФайла);                    
       ExcelЛист = Excel.Sheets(2);                      
   Исключение
       Сообщить("Ошибка. Возможно неверно указан номер листа книги Excel.");
       Возврат 0;
   КонецПопытки;
   
   ActiveCell = ExcelЛист.Cells.SpecialCells(xlLastCell);
   RowCount = ActiveCell.Row;                            
   ColumnCount = ActiveCell.Column;
   
   Перебрано = 0;
   НеУникально = 0;
   Добавлено = 0;
   
        ТЗ = Новый ТаблицаЗначений;
        ТЗ.Колонки.Добавить("Артикул");
        ТЗ.Колонки.Добавить("Товар");
        ТЗ.Колонки.Добавить("Цена");
        ТЗ.Колонки.Добавить("Номер");
        ТЗ.Колонки.Добавить("Количество");
       
   
   Док = Документы.ЗаказКлиента.СоздатьДокумент();             //Создали и заполнили документ
   Док.Дата = ТекущаяДата();                                               //
   Док.Статус = Перечисления.СтатусыУстановокЦенНоменклатуры.Согласован;   //
   ТЧ = Док.Товары.Добавить();                                        //  Добавляем строки
   Запись = ТЗ.Добавить();    
   
   
   
   
   ДобСтроку = Док.Товары.Добавить();
   
   Для Row = 2 По RowCount Цикл
        Запись.Артикул = ExcelЛист.Cells(Row, 3).Value;
        Запись.Товар = ExcelЛист.Cells(Row, 4).Value;
        Запись.Цена = ExcelЛист.Cells(Row, 5).Value;
        Запись.Номер = ExcelЛист.Cells(Row, 1).Value;
        Запись.Количество = ExcelЛист.Cells(Row, 2).Value;
   КонецЦикла;    
   
    ТЗ.Сортировать("Номер Возр");
    Док = Док.ПолучитьОбъект();
   
   
   Для Каждого Элемент ИЗ ТЗ Цикл
       
           Док = Документы.ЗаказКлиента.;      
                                                                                                           
           Если Док.Пустая() Тогда                                                                          
               Док = Документы.ЗаказКлиента.СоздатьДокумент();  
               Добавлено = Добавлено + 1;
           Иначе                    
               НеУникально = НеУникально + 1;  
               Док = Док.ПолучитьОбъект();  //!!!!!!!!!
           КонецЕсли;                                                                                      
           Док.Дата = ТекущаяДата();
           Док.НомерПоДаннымКлиента = Элемент.Номер;
           
           А = 0;
           
           Для Каждого Строка ИЗ Док.Товары Цикл
               Если Строка.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(Строка(Элемент.Товар), Истина) Тогда
                  А = А + 1;
              КонецЕсли;
           КонецЦикла;  
         
           Если А = 0 Тогда
               
               ДобСтроку.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(Строка(Элемент.Товар), Истина);                                                                                                    
               ДобСтроку.Цена = Элемент.Цена;
               ДобСтроку.Количество = Элемент.Количество;
               Док.Записать();
           КонецЕсли;            
       КонецЦикла;
       
       Обработано = Добавлено + НеУникально;
       
       Сообщение = Новый СообщениеПользователю;
       Сообщение.Текст = "Загрузка документов завершена, обработано: " + Обработано;
       Сообщение.Сообщить();

КонецФункции

Очень хочется по максимуму оптимизировать ...опыта у меня почти ноль написал как мог ...знаю что там есть ошибки...

Укажите какие ...ну очень хочется избавиться от "получить объект()" в цикле

запрос тебя спасет

кем формируется эксель-файл ?

либо помести ПолучитьОбъект в общий модуль с хешированием

Файл формирует фирма...сторонняя

кстати вот здесь ничего не попутано?

Запись = ТЗ.Добавить();    
   
   
   
   
   ДобСтроку = Док.Товары.Добавить();
   
   Для Row = 2 По RowCount Цикл
        Запись.Артикул = ExcelЛист.Cells(Row, 3).Value;
        Запись.Товар = ExcelЛист.Cells(Row, 4).Value;
        Запись.Цена = ExcelЛист.Cells(Row, 5).Value;
        Запись.Номер = ExcelЛист.Cells(Row, 1).Value;
        Запись.Количество = ExcelЛист.Cells(Row, 2).Value;
   КонецЦикла;

О_о с хэшированием? ...боюсь для меня это что то невыполнимое... + обработка должна быть внешней

ну я сначала всё в ТЗ , там сортирую, после в цикле создаю документы если таких еще нет, и заполняю табличную часть

уже из ТЗ

(12) не вижу в цикле в (9) - добавить строку.

Посмотри замером производительности что дольше всего выполняется.

>  Док = Документы.ЗаказКлиента.СоздатьДокумент();

док -- это объект документ

//...
> Док = Док.ПолучитьОбъект();

как у тебя он тогда не ругается на это ?

Пардон =)

   Для Row = 2 По RowCount Цикл
        Запись = ТЗ.Добавить();    
        Запись.Артикул = ExcelЛист.Cells(Row, 3).Value;
        Запись.Товар = ExcelЛист.Cells(Row, 4).Value;
        Запись.Цена = ExcelЛист.Cells(Row, 5).Value;
        Запись.Номер = ExcelЛист.Cells(Row, 1).Value;
        Запись.Количество = ExcelЛист.Cells(Row, 2).Value;
   КонецЦикла;

тут два варианта:
- сунуть полученную ТЗ в запрос и соединить со справочником номенклатура
- использовать функцию хешируемого общего модуля

volfy, не зачет, читай ЖКК, приходи через неделю :)

Да уже просто весь код перелопатил ..ща кину есть исходник

Функция ПрочитатьТабличныйДокументExcelВТЗВДокумент(ИмяФайла)

  xlLastCell = 11;
   
   ВыбФайл = Новый Файл(ИмяФайла);    
   Если НЕ ВыбФайл.Существует() Тогда        
       Сообщить("Файл не существует!");
       Возврат 0;
   КонецЕсли;
   
   Попытка
       Excel = Новый COMОбъект("Excel.Application");    
       Excel.WorkBooks.Open(ИмяФайла);                    
       ExcelЛист = Excel.Sheets(2);                      
   Исключение
       Сообщить("Ошибка. Возможно неверно указан номер листа книги Excel.");
       Возврат 0;
   КонецПопытки;
   
   ActiveCell = ExcelЛист.Cells.SpecialCells(xlLastCell);
   RowCount = ActiveCell.Row;                            
   ColumnCount = ActiveCell.Column;
   
   Перебрано = 0; //Сколько строк будет перебираться
   НеУникально = 0;
   Добавлено = 0;
   
   //Попытка
       
        ТЗ = Новый ТаблицаЗначений;
        ТЗ.Колонки.Добавить("Артикул");
        ТЗ.Колонки.Добавить("Товар");
        ТЗ.Колонки.Добавить("Цена");
        ТЗ.Колонки.Добавить("Номер");
   Для Row = 2 По RowCount Цикл
        Запись = ТЗ.Добавить();
        Запись.Артикул = ExcelЛист.Cells(Row, 3).Value;
        Запись.Товар = ExcelЛист.Cells(Row, 4).Value;
        Запись.Цена = ExcelЛист.Cells(Row, 5).Value;
        Запись.Номер = ExcelЛист.Cells(Row, 1).Value;
   КонецЦикла;    
   
    ТЗ.Сортировать("Номер Возр");

   
   Для Каждого Элемент ИЗ ТЗ Цикл
       
           Док = Документы.ЗаказКлиента.НайтиПоРеквизиту("НомерПоДаннымКлиента", Строка(Элемент.Номер));      
                                                                                                           
           Если Док.Пустая() Тогда                                                                          
               Док = Документы.ЗаказКлиента.СоздатьДокумент();  
               Добавлено = Добавлено + 1;
           Иначе                    
               НеУникально = НеУникально + 1;  
               Док = Док.ПолучитьОбъект();
           КонецЕсли;                                                                                      
           Док.Дата = ТекущаяДата();
           Док.НомерПоДаннымКлиента = Элемент.Номер;
           
           А = 0;
           
           Для Каждого Строка ИЗ Док.Товары Цикл
               Если Строка.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(Строка(Элемент.Товар), Истина) Тогда
                  А = А + 1;
              КонецЕсли;
           КонецЦикла;  
         
           Если А = 0 Тогда
               ДобСтроку = Док.Товары.Добавить();
               ДобСтроку.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(Строка(Элемент.Товар), Истина);                                                                                                    
               ДобСтроку.Цена = Элемент.Цена;                          
               Док.Записать();
           КонецЕсли;            
       КонецЦикла;
       
       Обработано = Добавлено + НеУникально;
       
       Сообщение = Новый СообщениеПользователю;
       Сообщение.Текст = "Загрузка документов завершена, обработано: " + Обработано;
       Сообщение.Сообщить();

КонецФункции

Вот за это начальник ...не погладил =) сказал что слишком часто получаю объект...

попытка там лишняя конечно...просто убрать забыл

Код работает...интересует увеличение оперативности..

будь мужиком, блеать! сделай (17)!

servs  К твоему возрасту я буду шарить не хуже=)

Нуф-Нуф, хорошо =) I'll try

Толпа дятлов...

Нуф-Нуф самый главный дъятель, походу.

Для Row = 2 По RowCount Цикл
        Запись = ТЗ.Добавить();
        Запись.Артикул = ExcelЛист.Cells(Row, 3).Value;
        Запись.Товар = ExcelЛист.Cells(Row, 4).Value;
        Запись.Цена = ExcelЛист.Cells(Row, 5).Value;
        Запись.Номер = ExcelЛист.Cells(Row, 1).Value;
   КонецЦикла;

Это что за ёб4566й стыд?

Убрать (29) и почитать про
Worksheet.UsedRange

http://msdn.microsoft.com/ru-ru/library/microsoft.office.tools.excel.worksheet.usedrange.aspx

H A D G E H O G s  разве не это?


    ActiveCell = ExcelЛист.Cells.SpecialCells(xlLastCell);
   RowCount = ActiveCell.Row;                            
   ColumnCount = ActiveCell.Column;

Получаю последние заполненные ячейки

...вроде)

А, не не заметил, что ты исправился.
Запись = ТЗ.Добавить();

(27) (34) +1

Тогда просто используй
UsedRange

Это COMSafeArray - передашь 1 раз и данные твои, чем 100500 раз чехвостить тормозной standalone сервер Excel.

Объясните уже по нубовски... Вот я получил ячейки... мне нужно просто выцепить эти данные и записать в документы "ЗаказыПокупателей"

Там просто заполнить таб часть, и всё... при условии что повторный вызов не убъёт документы и номенклатуру конечно ...

Да извини.... там из перелопаченого кода просто куски((

Ой спасибо =) Ща прочитаю про него и сделаю))

Нуф-Нуф -а не забудьте перевести в падаваны, чтобы отчеты писать или в руководители проектов, чтобы эффективно автоматизировать.

(0) ну косаря за 3 могу помочь)

(40) За 3 косаря я могу двойной апперкот прописать)

(41) + в мортал комбат хД)

Молодой, горячий, наивный, глупый... Эххх, годы, годы..

H A D G E H O G s   да ты сам не стар =)

(41) + (42) дерзай

(45) не уходим от темы

(44) Реальные пацаны играют в Battlefield 3!

Функция ПрочитатьТабличныйДокументExcelВТЗВДокумент(ИмяФайла)

  xlLastCell = 11;
   
   ВыбФайл = Новый Файл(ИмяФайла);    
   Если НЕ ВыбФайл.Существует() Тогда        
       Сообщить("Файл не существует!");
       Возврат 0;
   КонецЕсли;
   
   Попытка
       Excel = Новый COMОбъект("Excel.Application");    
       Excel.WorkBooks.Open(ИмяФайла);                    
       ExcelЛист = Excel.Sheets(2);                      
   Исключение
       Сообщить("Ошибка. Возможно неверно указан номер листа книги Excel.");
       Возврат 0;
   КонецПопытки;
   
   ActiveCell = ExcelЛист.Cells.SpecialCells(xlLastCell);
   RowCount = ActiveCell.Row;                            
   ColumnCount = ActiveCell.Column;
   
   
    ДанныеExcel = ExcelЛист.UsedRange.Value;
    ТаблДанные = Новый ТаблицаЗначений;
    ВсегоКолонок = ДанныеExcel.GetLength(1);
    А = 0;
    Для нКол=1 По ВсегоКолонок-0 Цикл
       А = А + 1; // КОЛОНКИ С СИМВОЛАМИ ДАЮТ ОШИБКУ!!!
     Имя = "Колонка" + А;
    //ИмяКолонки = ДанныеExcel.GetValue(нКол,1);
    ТаблДанные.Колонки.Добавить(Имя); // Ошибка НЕВЕРНОЕ ИМЯ КОЛОНКИ

И так и сяк крутил ... в  отладке в табло имя присваивается ....а на деле...нет =(

(47) у меня 2 работы...какие тут игры

100500 тема на мисте была.

Почему вы, молодешъ, не пользуете поиск? Как так????

https://www.google.ru/search?as_sitesearch=forum.mista.ru&q=UsedRange

(51) Извини =( правда уже "кипю" .... с 6 утра за 1с... учусь

v8: Как узнать сколько всего строк в на листе Excel?
пост номер 3, готовый код @Fragster-а, ему можно верить, он куйню не пишет.

Вернее, пост номер 2, пардон.

(52) Иди, выпей 100 грамм красного полусладкого и ложись спать, завтра с утра за 10 минут напишешь.

(55) Хорошо ...всем спокойной ночи =) спасибо!

(53) я тебе (ну и всем заинтересованным в многопоточности) подарочек ваяю счас, тока помощь нужна будет для тестирования

(57) Тестирование новых экспериментальных препаратах на ежиках?
Кошки дохнут?
Мышки взрываются?

Да я всегда -только за!

Результат такой


..................

Функция ПрочитатьТабличныйДокументExcelВТЗВДокумент(ИмяФайла, ЕстьНазванияКолонок = Истина)

  xlLastCell = 11;
  Таблица = Новый ТаблицаЗначений;

  Массив = Новый Массив;                               //
  КЧ = Новый КвалификаторыСтроки(100);                  //     ОПИСЫВАЮ ТИПЫ КОЛОНОК, ОТ ЭТОГО НАДО
  Массив.Добавить(Тип("Строка"));                           //              КАК ТО ИЗБАВИТЬСЯ
  ОписаниеТиповЧ = Новый ОписаниеТипов(Массив, , ,КЧ);       //

 
   ВыбФайл = Новый Файл(ИмяФайла);    
   Если НЕ ВыбФайл.Существует() Тогда        
       Сообщить("Файл не существует!");
       Возврат 0;
   КонецЕсли;
       
       excel = Новый COMОбъект("excel.application");
       workbook = excel.workbooks.open(ИмяФайла);
       Массив = workbook.Sheets(2).usedrange.value.Выгрузить();
       workbook.close();
       workbook = 0;
       excel = 0;
       
       ЧислоКолонок = Массив.ВГраница();
       ЧислоСтрок = Массив.Получить(0).ВГраница();
       
       Для СчКол = 0 По ЧислоКолонок Цикл
           Если ЕстьНазванияКолонок Тогда
               Попытка
                   Таблица.Колонки.Добавить(Массив.Получить(СчКол).Получить(0), ОписаниеТиповЧ);
               Исключение
                   Таблица.Колонки.Добавить("Кол"+Формат(СчКол,"ЧГ=0"), ОписаниеТиповЧ);   // !!!!!!! ИЗМЕНИТЬ
               КонецПопытки;
           Иначе
               Таблица.Колонки.Добавить("Кол"+Формат(СчКол,"ЧГ=0"), ОписаниеТиповЧ);
           КонецЕсли;
       КонецЦикла;
           
       Для СчСтрок = ?(ЕстьНазванияКолонок,1,0) По ЧислоСтрок Цикл
           ЕстьЗначение = Ложь;
           Для СчКол = 0 По ЧислоКолонок Цикл
               Если Не ПустаяСтрока(Массив[СчКол][СчСтрок]) Тогда
                   ЕстьЗначение = Истина;
                   Прервать;
               КонецЕсли;
           КонецЦикла;
           Если ЕстьЗначение Тогда
               Строка = Таблица.Добавить();
               Для СчКол = 0 По ЧислоКолонок Цикл
                   Строка[СчКол] = Массив[СчКол][СчСтрок];
               КонецЦикла;
           КонецЕсли;
       КонецЦикла;
       
       
       
    //ПОЛУЧАЕМ УНИКАЛЬНЫЕ НОМЕРА ЗАКАЗЧИКОВ
               
       Запрос3 = Новый Запрос;
       Запрос3.УстановитьПараметр("Таблица", Таблица);
       Запрос3.Текст =
        "ВЫБРАТЬ РАЗЛИЧНЫЕ
        |    Таблица.Кол
        |ПОМЕСТИТЬ ВТ
        |ИЗ
        |    &Таблица КАК Таблица
        |;
        |ВЫБРАТЬ
        |    ВТ.Кол
        |ИЗ
        |    ВТ КАК ВТ";
       Выборка3 = Запрос3.Выполнить();
       Результат3 = Выборка3.Выбрать();
       
       Номера = Новый ТаблицаЗначений;
       Номера.Колонки.Добавить("Номер", ОписаниеТиповЧ);
       
           Пока Результат3.Следующий() Цикл
               Номера.Добавить().Номер = Число(Результат3.Кол);
          КонецЦикла;
       
         
         
   Для Каждого Номер ИЗ Номера Цикл
       // ИЩЕМ ДОКУМЕНТЫ   !!!!!!!!!!ДОБАВИТЬ ВЫБОР ПО ЗАКАЗЧИКУ И ОТБОР ПО ДАТЕ!!!
       Запрос = Новый Запрос;
       Запрос.Текст =
       "ВЫБРАТЬ
       |    ЗаказКлиента.Ссылка,
       |    ЗаказКлиента.Дата,
       |    ЗаказКлиента.НомерПоДаннымКлиента,
       |    ЗаказКлиента.Товары.(
       |        Номенклатура,
       |        Количество,
       |        Цена
       |    )
       |ИЗ
       |    Документ.ЗаказКлиента КАК ЗаказКлиента
       |ГДЕ
       |    ЗаказКлиента.НомерПоДаннымКлиента = &НомерПоДаннымКлиента";
       Запрос.УстановитьПараметр("НомерПоДаннымКлиента", Строка(Номер.Номер));
               
       Выборка = Запрос.Выполнить();
       Результат = Выборка.Выбрать();
       
       
       Если Выборка.Пустой() Тогда    /// ДОКУМЕНТ С ТАКИМ НОМЕРОМ НЕ НАЙДЕН! СОЗДАЁМ! И ЗАПОЛНЯЯЯЯЯЯЕМ!!!!
                       
                      // СОЗДАЁМ
                   Док = Документы.ЗаказКлиента.СоздатьДокумент();
                   Док.Дата = Дата;
                   Док.Статус = Перечисления.СтатусыЗаказовКлиентов.Согласован;
                   Док.НомерПоДаннымКлиента = Строка(Номер.Номер);
                   
                      // ЗАПОЛНЯЕМ
                   Запрос4 = Новый Запрос;
                   Запрос4.УстановитьПараметр("Таблица", Таблица);
                   Запрос4.УстановитьПараметр("Номер", Номер.Номер);
                   Запрос4.Текст =
                    "ВЫБРАТЬ
                    | *
                    |ПОМЕСТИТЬ ВТ
                    |ИЗ
                    |    &Таблица КАК Таблица
                    |
                    |ГДЕ
                    |     Таблица.Кол = &Номер
                    |;
                    |ВЫБРАТЬ
                    |    *
                    |ИЗ
                    |    ВТ КАК ВТ";
                   Выборка4 = Запрос4.Выполнить();
                   Результат4 = Выборка4.Выбрать();
                   Пока Результат4.Следующий() Цикл
                           ТЧ = Док.Товары.Добавить();
                           ТЧ.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(Результат4.Товар, ИСТИНА);
                           ТЧ.КоличествоУпаковок = Число(Результат4.Кол1);
                           ТЧ.Цена = Число(Результат4.Цена);
                           ТЧ.СтавкаНДС = ТЧ.Номенклатура.СтавкаНДС;
                           ТЧ.Сумма = ТЧ.Цена * ТЧ.КоличествоУпаковок;
                           СтруктураДействий = Новый Структура;
                           СтруктураПересчетаСуммы = ОбработкаТабличнойЧастиКлиентСервер.ПолучитьСтруктуруПересчетаСуммыНДСВСтрокеТЧ(Док);
                           СтруктураДействий.Вставить("ПересчитатьКоличествоЕдиниц");
                           СтруктураДействий.Вставить("ПересчитатьСуммуНДС", СтруктураПересчетаСуммы);
                           СтруктураДействий.Вставить("ПересчитатьСуммуСНДС", СтруктураПересчетаСуммы);
                           СтруктураДействий.Вставить("ПересчитатьСумму");
                           КэшированныеЗначения = Неопределено;
                           ОбработкаТабличнойЧастиСервер.ОбработатьСтрокуТЧ(ТЧ, СтруктураДействий, КэшированныеЗначения);

                  КонецЦикла;
                     Док.Записать();
               КонецЕсли;
               
       Пока Результат.Следующий() Цикл
   
           
           // ДОКУКМЕНТ НАЙДЕН! ЗАПОЛНЯЕМ ТАБ ЧАСТЬ
           Запрос2 = Новый Запрос;
           Запрос2.УстановитьПараметр("Таблица", Таблица);
           Запрос2.УстановитьПараметр("Номер", Номер.Номер);
           Запрос2.Текст =
           "ВЫБРАТЬ
                    | *
                    |ПОМЕСТИТЬ ВТ
                    |ИЗ
                    |    &Таблица КАК Таблица
                    |
                    |ГДЕ
                    |     Таблица.Кол = &Номер
                    |;
                    |ВЫБРАТЬ
                    |    *
                    |ИЗ
                    |    ВТ КАК ВТ";

           Выборка2 = Запрос2.Выполнить();
           Результат2 = Выборка2.Выбрать();
           Пока Результат2.Следующий() Цикл
                   Док = Результат.Ссылка.ПолучитьОбъект();
                   ТЧ = Док.Товары.Добавить();
                   ТЧ.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(Результат2.Товар, ИСТИНА);
                   ТЧ.КоличествоУпаковок = Число(Результат2.Кол1);
                   ТЧ.Цена = Число(Результат2.Цена);
                   ТЧ.СтавкаНДС = ТЧ.Номенклатура.СтавкаНДС;
                   ТЧ.Сумма = ТЧ.Цена * ТЧ.КоличествоУпаковок;
                   СтруктураДействий = Новый Структура;
                   СтруктураПересчетаСуммы = ОбработкаТабличнойЧастиКлиентСервер.ПолучитьСтруктуруПересчетаСуммыНДСВСтрокеТЧ(Док);
                   СтруктураДействий.Вставить("ПересчитатьКоличествоЕдиниц");
                   СтруктураДействий.Вставить("ПересчитатьСуммуНДС", СтруктураПересчетаСуммы);
                   СтруктураДействий.Вставить("ПересчитатьСуммуСНДС", СтруктураПересчетаСуммы);
                   СтруктураДействий.Вставить("ПересчитатьСумму");
                   КэшированныеЗначения = Неопределено;
                   ОбработкаТабличнойЧастиСервер.ОбработатьСтрокуТЧ(ТЧ, СтруктураДействий, КэшированныеЗначения);            
                   Док.Записать();
           КонецЦикла;
           КонецЦикла;
     КонецЦикла;

           
           // кол - Номер
           // кол1 - Позиций
           // Артикул - Артикул        СПРАВКА
           // Товар = Наименование
           // Цена = Цена
       
   Возврат Таблица;
КонецФункции
........................

Можно еще что то оптимизировать?
Из планов в доработку :

  Поиск номенклатуры по артикулу, как сделать так что бы поиск был максимально быстрым? (если не найдено добавим)

   Не добавлять дубли строк тч если такой документ уже есть ( КАК УЗНАТЬ ЧТО ЭТО ИМЕННО ТОТ ДОКУМЕНТ?)
 
   Документы добавляются по номеру заказчика сейчас так как это первый ввод документов, как добавлять документы в следующий раз новыми а не опять в эти же документы?

Ну это уже доработки...основную роль она выполняет .... большое спасибо всем кто помогал кстати =)

Если еще есть советы и предложения во вопросам или есть варианты оптимизации скажите пожалуйста

(62)За запрос в цикле тебя щас порвут на британский флаг

А как избавиться?

у меня импорт из экселя....

там несколько строк могут относиться к одному документу

просто уж как короче не знаю....и так обработка на моём двухядерном 1.6 ггц проце выполняется 1 минуту

как сократить...не знаю честно.... подскажи)

(67)Получить все данные сразу и уже результат запроса обрабатывать

(68) Выгрузить в тз?

просто схема не ясна....ща покумекаю

Запрос3 = Новый Запрос;
       Запрос3.УстановитьПараметр("Таблица", Таблица);
       Запрос3.Текст =
        "ВЫБРАТЬ РАЗЛИЧНЫЕ
        |    Таблица.Кол
        |ПОМЕСТИТЬ ВТ
        |ИЗ
        |    &Таблица КАК Таблица
        |;
        |ВЫБРАТЬ
        |    ВТ.Кол
        |ИЗ
        |    ВТ КАК ВТ";
       Выборка3 = Запрос3.Выполнить();
       Результат3 = Выборка3.Выбрать();
       
       Номера = Новый ТаблицаЗначений;
       Номера.Колонки.Добавить("Номер", ОписаниеТиповЧ);
       
           Пока Результат3.Следующий() Цикл
               Номера.Добавить().Номер = Число(Результат3.Кол);
          КонецЦикла;
        а это у тебя точно работает?

Признаюсь у меня идей нет.

Вот тут
Запрос3 = Новый Запрос;
       Запрос3.УстановитьПараметр("Таблица", Таблица);
       Запрос3.Текст =
        "ВЫБРАТЬ РАЗЛИЧНЫЕ
        |    Таблица.Кол
        |ПОМЕСТИТЬ ВТ
        |ИЗ
        |    &Таблица КАК Таблица
        |;
        |ВЫБРАТЬ
        |    ВТ.Кол
        |ИЗ
        |    ВТ КАК ВТ";
       Выборка3 = Запрос3.Выполнить();
       Результат3 = Выборка3.Выбрать();
       
       Номера = Новый ТаблицаЗначений;
       Номера.Колонки.Добавить("Номер", ОписаниеТиповЧ);
       
           Пока Результат3.Следующий() Цикл
               Номера.Добавить().Номер = Число(Результат3.Кол);
          КонецЦикла;
       
         
         
   Для Каждого Номер ИЗ Номера Цикл
       // ИЩЕМ ДОКУМЕНТЫ   !!!!!!!!!!ДОБАВИТЬ ВЫБОР ПО ЗАКАЗЧИКУ И ОТБОР ПО ДАТЕ!!!

       Запрос = Новый Запрос;
       Запрос.Текст =
       "ВЫБРАТЬ
       |    ЗаказКлиента.Ссылка,
       |    ЗаказКлиента.Дата,
       |    ЗаказКлиента.НомерПоДаннымКлиента,
       |    ЗаказКлиента.Товары.(
       |        Номенклатура,
       |        Количество,
       |        Цена
       |    )
       |ИЗ
       |    Документ.ЗаказКлиента КАК ЗаказКлиента
       |ГДЕ
       |    ЗаказКлиента.НомерПоДаннымКлиента = &НомерПоДаннымКлиента";
       Запрос.УстановитьПараметр("НомерПоДаннымКлиента", Строка(Номер.Номер));
               
       Выборка = Запрос.Выполнить();
       Результат = Выборка.Выбрать();

Почему не сделать одним запросом сразу а уже его результат обходить?

У меня всё отрабатывает отлично

Запрос3 = Новый Запрос;
       Запрос3.УстановитьПараметр("Таблица", Таблица);
       Запрос3.Текст =
        "ВЫБРАТЬ РАЗЛИЧНЫЕ
        |    Таблица.Кол
        |ПОМЕСТИТЬ ВТ
        |ИЗ
        |    &Таблица КАК Таблица
        |;
        |ВЫБРАТЬ
        |    ВТ.Кол
        |ИЗ
        |    ВТ КАК ВТ";
       Выборка3 = Запрос3.Выполнить();
       Результат3 = Выборка3.Выбрать(); - я конечно туплю и спать хочу неимоверно, но разве это без менеджера временных таблиц работает?

Из него но я и без него обошелся, как? не спрашивай , сам понятия не имею)

(73) ЛЕВОЕ СОЕДИНЕНИЕ? Или ВНутренний запрос?.... я в соединениях еще слаб....поэтому нублю =)

(77)Левое соединение. Если нет заказа будет значение нулл

понял, еще косяки есть?)

Запрос4 = Новый Запрос;
                   Запрос4.УстановитьПараметр("Таблица", Таблица);
                   Запрос4.УстановитьПараметр("Номер", Номер.Номер);
                   Запрос4.Текст =
                    "ВЫБРАТЬ
                    | *
                    |ПОМЕСТИТЬ ВТ
                    |ИЗ
                    |    &Таблица КАК Таблица
                    |
                    |ГДЕ
                    |     Таблица.Кол = &Номер
                    |;
                    |ВЫБРАТЬ
                    |    *
                    |ИЗ
                    |    ВТ КАК ВТ";
Этот запрос тоже объединить с первым

ТЧ.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(Результат2.Товар, ИСТИНА); - вот это тот же запрос в цикле

(79) ну вот это

 Для Каждого Строка ИЗ Док.Товары Цикл  
       Если Строка.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(Строка(Элемент.Товар), Истина)

зачем 55 раз ищешь одну и ту же номенклатуру? От этого она лучше найдется что ли?

вот так можно

НайдТовар = Справочники.Номенклатура.НайтиПоНаименованию(Строка(Элемент.Товар), Истина);
Для Каждого Строка ИЗ Док.Товары Цикл  
       Если Строка.Номенклатура = НайдТовар Тогда

Таблица.Колонки.Добавить(Массив.Получить(СчКол).Получить(0), ОписаниеТиповЧ);
               Исключение
                   Таблица.Колонки.Добавить("Кол"+Формат(СчКол,"ЧГ=0"), ОписаниеТиповЧ);   // !!!!!!! ИЗМЕНИТЬ

               КонецПопытки;
           Иначе
               Таблица.Колонки.Добавить("Кол"+Формат(СчКол,"ЧГ=0"), ОписаниеТиповЧ);
           КонецЕсли;
       КонецЦикла; - ты тут определил тип данных, зачем же в цикле  ТЧ.КоличествоУпаковок = Число(Результат2.Кол1);
                   ТЧ.Цена = Число(Результат2.Цена);

(83) Тип определил как строка ...просто название переменной не поменял) .....это называется помоему быдлокод, я исправлю

Получается что запрос3 (ЗапросТри) вовсе не нужен?

как ни крутите....а запросы объединить не получается... =(

(86)еще как получится

можешь показать как ? может я просто не понимаю ...не дает соединять :(

Работает не трожь ...

(89) не вариант

задача решена не без помощи начальника:) если надо решение скину

Мне кажется  // !!!!!!! ИЗМЕНИТЬ добавить во все строчки.

(92) Уже всё кординально изменил (начальник помог направил в нужное русло) всем спасибо =) есть новый вопрос, как в типовой УТ 11.0.9.12 программно добавить контрагента, с юридическим адресом и телефоном? никак не могу найти места где хранится эта информация... это справочник ВидыКонтактнойИнформации? если да то как же там привязывается строка именно к этому контрагенту? вообще непонятки((

Никто не знает?

(94)С УТ не имел дело, но в других конфах обычно есть регистр сведений "КонтактнаяИнформация". Адрес или телефон - это реквизит "ВидКонтактнойИнформации"

Вот в том то и дело что реквизитов адрес и телефон нет и такого регистра тоже =)

А хотя...сек ща проверю еще разок

"ВидКонтактнойИнформации" справочник есть ... в нем реквезиты с перечислениями ...ну там всё понятно...а регистра нету... =)

есть АдресныйКлассификатор... походу там всё храниться, осталось найти куда сунуть телефон

Нет ...и то не то и этого нет =(

Вроде пошло ...ща покручу поверчу потом если сделаю выложу решение

Да нифига ... как же всё запутано помогите кто нибудь((

читать всю ветку лениво

ааах ок .... сам разберусь)

резюмировал бы что не так, может быть и подсказал бы

(105) Надо программно заполнять Юридический адрес у контрагента.... Но если подскажешь как... (УТ 11.0.9.12 ) буду благодарен)

ой ...фактическии

ой , фактический адрес...но это сути дела не меняет

ну а в чем собственно проблема? контактная информация это ТЧ контрагента

НЕЕЕТ =) в ней нет этого реквизита

в том то и дело =)

стоп...

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

всё... =)

АААААААА

кажись понял

ну вот - что творит волшебный пендель :)))

автор пива клинского перепил ?

НоваяСтрока = ФормаНового.НаборКонтактнойИнформации.Добавить();
НоваяСтрока.Объект = ФормаНового.ЭтотОбъект;
НоваяСтрока.Вид = Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента;
НоваяСтрока.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
НоваяСтрока.Представление = "Юридический адрес, дом, улица ";
НоваяСтрока.Комментарий = "Комментарий Юридический";


чужое но кажись оно

спасибо =) пробую

Кста пиво клинское просто ужааасно =)

разжижает мозг оно

=) так я его и не пью ...не намекай....я учусь ты знаешь)

авда муть ...сам открой и посмотри =)

Для Каждого Элемент ИЗ ТЗ Цикл
       НовыйКонтрагент = Справочники.Контрагенты.СоздатьЭлемент();
       НовыйКонтрагент.Наименование = Элемент.КонтактноеЛицо;
       НовыйКонтрагент.НаименованиеПолное = НовыйКонтрагент.Наименование;
       НовыйКонтрагент.Партнер = Справочники.Партнеры.НеизвестныйПартнер;
       НовыйКонтрагент.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ЮрЛицо;
       НовыйКонтрагент.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ЮридическоеЛицо;
       
       НовыйКонтрагент.НомерТелефона = Элемент.Телефон;  
       
       НовыйКонтрагент.Вид = Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента;
       НовыйКонтрагент.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
       НовыйКонтрагент.Представление = Элемент.КонтактноеЛицо;

   КонецЦикла;


а вот ничего подобного ... ошибочка =(

и при таком обращении и терез табличную часть... открывал в отладчике таб часть...она вообще пустая

Свойство    Значение    Тип
НовыйКонтрагент    наталья николаевна якушкина    СправочникОбъект.Контрагенты
ВерсияДанных    "            "    Строка
Владелец        Неопределено
ДополнительнаяИнформация    ""    Строка
ДополнительныеРеквизиты    СправочникТабличнаяЧасть.Контрагенты.ДополнительныеРеквизиты    СправочникТабличнаяЧасть.Контрагенты.ДополнительныеРеквизиты
ДополнительныеСвойства    Структура    Структура
ИНН    ""    Строка
КПП    ""    Строка
Код    ""    Строка
КодПоОКПО    ""    Строка
КонтактнаяИнформация    СправочникТабличнаяЧасть.Контрагенты.КонтактнаяИнформация    СправочникТабличнаяЧасть.Контрагенты.КонтактнаяИнформация
Наименование    "наталья николаевна якушкина"    Строка
НаименованиеПолное    "наталья николаевна якушкина"    Строка
ОбменДанными    ПараметрыОбменаДанными    ПараметрыОбменаДанными
Партнер    Неизвестный партнер    СправочникСсылка.Партнеры
ПометкаУдаления    Ложь    Булево
Предопределенный    Ложь    Булево
Родитель        СправочникСсылка.Контрагенты
Ссылка        СправочникСсылка.Контрагенты
УдалитьФизЛицо        СправочникСсылка.ФизическиеЛица
ЭтоГруппа    Ложь    Булево
ЭтотОбъект    наталья николаевна якушкина    СправочникОбъект.Контрагенты
ЮрФизЛицо    Юр. лицо    ПеречислениеСсылка.ЮрФизЛицо
ЮридическоеФизическоеЛицо        ПеречислениеСсылка.ЮридическоеФизическоеЛицо


вот во время отладки....

в (125) ты пытаешь создать объект справочник контрагенты
в (119) добавляешь на форму данные

ты чего хочешь ?

Контактная информация пустая

да тот код (119) вообще чужой ... я так не делал я пытался так же обратиться...а ничего подобного ...такая табличная часть не имеет таких реквезитов в конфигураторе ...а когда открываю форму в конфигураторе там даже эта табличная часть не отобраджается(

Я вообще понять не могу где хранится этот долбаный Фактический адрес

Задачу на 70% решил а тут ...жо....ра

Спасайте старейшины 1С =)

Кажись залез в дырочку ) ДобКонтИнфо = НовыйКонтрагент.КонтактнаяИнформация.Добавить();
       ДобКонтИнфо.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;

дырочка ? о_О

КонтактнаяИнформация -- это независимый непериодический регистр сведений

Так нет его  в списке регистров сведений =(

там это где ?

ну в конфигураторе

в древе РС

а что за конфигурация у тебя ?

УТ 11.0.9.12

Последняя

в УТ хранится в ТЧ КонтактнаяИнформация справочника Контрагенты

Да может я опять перекипел ...(( процессор слабый не разогнанный.... (я про бошку) =) я просто не видел этой самой ТЧ так как её там просто нет... она есть в конфигураторе а на форме нет...

зачем так сделано?

это тебе знатоки ут 11 расскажут

(146) RLS

Но вообще конечно бредово сделано.

кстати, H A D G E H O G s как в ТЧ КонтактнаяИнформация  добавить несколько элементов ? =)

Автору дать медаль за упорство и коммисовать.

=) Автору просто нравится эта работа

(150) Что за странные вопросы?
ТЧ.Добавить(); в цикле.

Или загрузить из ТЗ.

А смысл добавлять несколько? если их всё равно не будет видно О_о

Все не читал. Автор, че не получается?

(153) только на форме ТП нет

(153) аську включи, да!

Да вроде всё получается уже =) Суть в том что в форме НЕТ табличной части вообще... а сделано как таб часть ...

(159) Она создастся в ПриСозданииНаСервере()

а смысл? почему не простые реквизиты?

Юридический и Фактический адреса они же единичны... как одна фирма может быть в двух местах О_о

(162) Че не так?

Есть ЮрАдрес, а есть Факт адрес, например, у нас был пожар и мы полгода сидели по другому факт. адресу.

кажется понял ....ща скину код который получился...посмотрите

(164) не идентичны, а ЕДИНИЧНЫ

зачем такой геморой не понимаю ...кто это делал


       ДобКонтИнфо = НовыйКонтрагент.КонтактнаяИнформация.Добавить();
       ДобКонтИнфо.Тип = Перечисления.ТипыКонтактнойИнформации.Телефон;
       ДобКонтИнфо.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента;
       ДобКонтИнфо.НомерТелефона = Элемент.Телефон;
       НовыйКонтрагент.Записать();
   КонецЦикла;

На кой хер тут ВИД и ТИП ....

Для Каждого Элемент ИЗ ТЗ Цикл
       НовыйКонтрагент = Справочники.Контрагенты.СоздатьЭлемент();
       НовыйКонтрагент.Наименование = Элемент.КонтактноеЛицо;
       НовыйКонтрагент.НаименованиеПолное = НовыйКонтрагент.Наименование;
       НовыйКонтрагент.Партнер = Справочники.Партнеры.НеизвестныйПартнер;
       НовыйКонтрагент.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ЮрЛицо;
       НовыйКонтрагент.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ЮридическоеЛицо;
       
       ДобКонтИнфо = НовыйКонтрагент.КонтактнаяИнформация.Добавить();
       ДобКонтИнфо.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
       ДобКонтИнфо.Вид = Справочники.ВидыКонтактнойИнформации.ФактАдресКонтрагента;
       ДобКонтИнфо.Представление = Элемент.АдресДоставки;
       ДобКонтИнфо.НомерТелефона = Элемент.Телефон;
       НовыйКонтрагент.Записать();
   КонецЦикла;


Вышло так...ладно вид понял зачем...нахера ТИП ... =(

Адрес, Электрока, Веб, Другое, Телефон, Сайт. - Это варианты перечисления.... кто нибудь объяснит Зачем?!

(168) ну, на самом деле типа Вид = телефон, тип = телефон, тип = мобильныйтелефон и т.п... это поскольку 1с не поддерживает в РС множество записей с одинаковыми измерениями. А вообще - с учетом того, что тех же мобильников может быть несколько - логичнее было бы все-таки подчиненный справочник.

(170) тяжелое наследие клюшек, когда не было предопределенных элементов

Если тут всего по 1 реквезиту по идее надо заполнить ... и в 1 строке я указываю и адрес и телефон... и электронку...

Просто пропущу ка я это ... закомментю пусть начальник решит

Кто знает как преобразовать строчку так что бы каждая первая буква слова в ней была заглавной

????

есть встроенная функция для этого

Встроенные функции языка (Script functions)
ТРег (Title)
Синтаксис:
ТРег(<Строка>)
Параметры:
<Строка> (обязательный)
Тип: Строка.
Преобразуемая строка.
Возвращаемое значение:
Тип: Строка.
Описание:
Преобразует строку к титульному регистру. Это означает, у каждого слова первый символ преобразуется к титульному регистру или, если титульный регистр для символа не определен, то к верхнему регистру. Все остальные символы преобразуются к нижнему регистру.
Доступность:
Тонкий клиент, веб-клиент, сервер, толстый клиент, внешнее соединение, мобильное приложение(клиент), мобильное приложение(сервер).
Пример:
Фамилия = ТРег(Стр);

спасибо)