Имя: Пароль:
1C
 
Поделитесь модулем создания Номенклатуры в типовых
0 Scooter
 
01.04.11
10:12
Нужно создать элементы/группы Справочника Номенклатуры и связанных справочников. Конфа типовая КА можно УТ, УПП. Что-то мне ленно писать самому
1 ASU_Diamond
 
01.04.11
10:27
$1000
2 Wobland
 
01.04.11
10:27
$1099
3 Сергей Д
 
01.04.11
10:28
$990
4 Scooter
 
01.04.11
10:29
(1)(2)(3) так вот значит. да?  )
5 Сергей Д
 
01.04.11
10:30
Дык... кушать очень хочется...
6 ASU_Diamond
 
01.04.11
10:37
7 Scooter
 
01.04.11
10:38
сабж остаётся актуальным
8 ASU_Diamond
 
01.04.11
10:38
(3) за демпинг пожалуюсь в профсоюз
9 Сергей Д
 
01.04.11
10:40
(8) Не надо, это конкуренция. :)
10 Eugeneer
 
01.04.11
10:44
11 palpetrovich
 
01.04.11
10:46
(0) мастер йода? ;)
12 Сергей Д
 
01.04.11
10:47
(10) все испортил :)
13 Scooter
 
01.04.11
10:49
(10)мне чёнить по проще
14 palpetrovich
 
01.04.11
10:49
(12) а че там, у него есть что-то бесплатное?!!!
15 mikecool
 
01.04.11
10:49
(10) а может она грузить прайсы со "ступенчатых" файлов типа:

артикул1   характеристика1    название   цена
          характеристика2    название   цена
артикул2   характеристика1    название   цена
          характеристика2    название   цена
          характеристика3    название   цена
??
16 mikecool
 
01.04.11
10:50
+15 ну или вместо артикулов наименования бывают, к примеру
17 ASU_Diamond
 
01.04.11
10:55
(15) $1100
18 Fragster
 
гуру
01.04.11
10:55
автор, возьми библиотеку стандартных подсистем с ИТС
19 mikecool
 
01.04.11
10:56
(17) у меня есть )) могу продать
20 Scooter
 
01.04.11
10:57
(18)о дельный совет, щас гляну
21 Scooter
 
01.04.11
11:29
мошт кому пригодится


   Номенклатура = Справочники.Номенклатура.СоздатьЭлемент();
   
   Номенклатура.БазоваяЕдиницаИзмерения = ЕдиницаПоКлассификатору;
   Номенклатура.Родитель                 = ГруппаДляНовойНоменклатуры;
   Номенклатура.ВидНоменклатуры         = ВидНоменклатуры;
   Номенклатура.Комментарий             = СтрокаТовара.ТоварУслугаКомментарий;
   Номенклатура.Наименование             = СтрокаТовара.ТоварУслугаНаименование;
   Номенклатура.НаименованиеПолное         = СтрокаТовара.ТоварУслугаНаименование;
   Номенклатура.СтавкаНДС                 = СтавкаНДС;
   Номенклатура.Услуга                 = ВидНоменклатуры.ТипНоменклатуры = Перечисления.ТипыНоменклатуры.Услуга;    
   
   Попытка
       
       Номенклатура.Записать();
       
   Исключение
       
       СообщитьОбИсключительнойОшибке(Ложь, ОписаниеОшибки());
       Возврат Справочники.Номенклатура.ПустаяСсылка();
       
   КонецПопытки;    
   
   ЕдиницаХраненияОстатков = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
   
   ЕдиницаХраненияОстатков.Наименование            = Номенклатура.БазоваяЕдиницаИзмерения.Наименование;
   ЕдиницаХраненияОстатков.ЕдиницаПоКлассификатору = Номенклатура.БазоваяЕдиницаИзмерения;
   ЕдиницаХраненияОстатков.Коэффициент             = 1;
   ЕдиницаХраненияОстатков.Владелец                = Номенклатура.Ссылка;
   
   Попытка
       ЕдиницаХраненияОстатков.Записать();
   Исключение
       СообщитьОбИсключительнойОшибке(Ложь, ОписаниеОшибки());
       Возврат Справочники.Номенклатура.ПустаяСсылка();
   КонецПопытки;    
   
   Номенклатура.ЕдиницаХраненияОстатков = ЕдиницаХраненияОстатков.Ссылка;
   Номенклатура.ЕдиницаДляОтчетов         = ЕдиницаХраненияОстатков.Ссылка;
   
   Попытка
       Номенклатура.Записать();
   Исключение
       СообщитьОбИсключительнойОшибке(Ложь, ОписаниеОшибки());
       Номенклатура = Справочники.Номенклатура.ПустаяСсылка();
   КонецПопытки;    
       
   Возврат Номенклатура.Ссылка;    
22 Wobland
 
01.04.11
11:30
(21) куда слать $1100?
23 Scooter
 
01.04.11
11:32
(22)я эта, какево ...
безваздмездно  )
24 Wobland
 
01.04.11
11:33
(23) демпингуешь