1C Программирование и поддержка - [20] :: Прикладное программирование

An4eus
Спасибо за советы!
1.состояние убирать уж очень не охота

((
хуже будет так или поставить условие чтобы состояние менялось каждые 10к записей наприме...
2.Кода единицы измерения там нет к сожалению, это сторонняя дбфка, это справочник из БЭСТ 4
vizlipuzli
Спасибо! Сжать уберу, и установку ставок тоже уберу, соответственно второе записать тоже.
dimaxmaster
станция достаточно сильная
4*2Ггц + 4Гб оперативы
винты скази
кстати, максимум загрузки проца 25% с этим можно чтото сделать??
чем вызвано это ограничение??
An4eus
физически да, на одной машине. имеет ли смысл разбивать по разным физическим винтам? или он всю таблицу грузит в память?
DARKDEAD
попробую транзакции каждые 10000 записей

Добавлено:
Итоговая обработка
Процедура Загрузить()
    НомГ = СоздатьОбъект("Справочник.Номенклатура");

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

            КодГруппы = ф.ПолучитьЗначениеПоля("GRUP");
            КодЭл = ф.ПолучитьЗначениеПоля("NNUM");
            Наименование = ф.ПолучитьЗначениеПоля("NAME");
            Единица         = ф.ПолучитьЗначениеПоля("ED");
            Цена         = ф.ПолучитьЗначениеПоля("CENA");


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

            Ном.ПорядокХраненияОтпускнойЦены = 2;
            Ном.Цена = Число(Цена);
            Ном.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Товар;
            //Ном.СтавкаНП.Установить(ТекущаяДата(),Константа.ОсновнаяСтавкаНП);
            //Ном.СтавкаНДС.Установить(ТекущаяДата(),Константа.ОсновнаяСтавкаНДС);
            Ном.Записать();
            ф.Следующая();
    КонецЦикла;
    ЗафиксироватьТранзакцию();
КонецПроцедуры

//*******************************************
Процедура ЗагрузитьДанные()
    ф = СоздатьОбъект("XBase");
    Если ФС.СуществуетФайл(ФормИмяФайлаДанных)=1 Тогда
        ф.ОткрытьФайл(ФормИмяФайлаДанных,,0);
//        ф.ОткрытьФайл(ФормИмяФайлаДанных);
        Если Ф.Открыта() =0 тогда
            Сообщить("Не удалось открыть файл!");
            возврат;
        КонецЕсли;
        Загрузить();
        ф.ЗакрытьФайл();
    КонецЕсли;
КонецПроцедуры
загрузила 230к за 20 минут

Модерирует : ShIvADeSt
ShIvADeSt (30-10-2009 09:51): http://forum.ru-board.com/topic.cgi?forum=33&topic=10715	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101