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

ringvault
мой варинт:

Код:

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

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

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

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

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

----------
Век живи - век учись!

Модерирует : 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