Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
25 ноя 2024, 11:38

Установка цен номенклатуры

Автор Men117, 24 мар 2015, 03:24

0 Пользователей и 2 гостей просматривают эту тему.

vitasw

Цитата: Men117 от 24 мар 2015, 08:25Но в спр.номенклатуры не перезаписывает значения а добавляет новые, т.е задваивает.
Блин! у вас задваииват что?!?! цены? или номенклатуру?


Men117

Цитата: vitasw от 24 мар 2015, 11:03
Цитата: Men117 от 24 мар 2015, 08:25Но в спр.номенклатуры не перезаписывает значения а добавляет новые, т.е задваивает.
Блин! у вас задваииват что?!?! цены? или номенклатуру?
Только номенклатуру.

vitasw

Мне тяжело понять логику ваших вопросов. У вас есть какая-то самописная обработка по загрузке, лезть в код которой вам лень. У вас есть какой-то документ "Установка цен", в какой конфигурации этот документ - тоже тайна за семью печатями. В этот документ вы тоже не хотите лезть и разбираться. При этом вы ожидаете, что вдруг появится Ванга и по вашим текстам догадается почему двоит справочник...

Men117

Цитата: vitasw от 24 мар 2015, 11:27
Мне тяжело понять логику ваших вопросов. У вас есть какая-то самописная обработка по загрузке, лезть в код которой вам лень. У вас есть какой-то документ "Установка цен", в какой конфигурации этот документ - тоже тайна за семью печатями. В этот документ вы тоже не хотите лезть и разбираться. При этом вы ожидаете, что вдруг появится Ванга и по вашим текстам догадается почему двоит справочник...

Я грешу на на документ "установки цен ном".
Что я не правильно делаю?

cska-fanat-kz

Цитата: Men117 от 24 мар 2015, 11:58Я грешу на на документ "установки цен ном".

зряяяя )))
сам документ не создает новую номенклатуру.
номенклатура в документ выбирается из справочника.
потом указываете цены и док при проведении делает движения в регистр ЦеныНоменклатуры.
ВСЕ!

Т.е. из-за документа номенклатура задвоиться не может по определению.
Другой вопрос обработка, которая из Экселя заполняет ТЧ документа Установка цен.
она считывает с экселя наименование номенклатуры (или код или что нибудь еще)
вот и далее надо проверить - номенклатура создается в любом случае (что скорее всего так)
или пытается искать существующий элемент и почему-то не находит...
Получил помощь - скажи СПАСИБО.
Разобрался сам - расскажи другим.

vitasw

Ну е-мое! Конфигурация какая? Документ дописан или нет?

Men117

спрНом = Справочники.Номенклатура;
      спрЕдИзм = Справочники.ЕдиницыИзмерения;
       НомИсх = спрНом.НайтиПоНаименованию(Арт,ложь,родитель);
   если НомИсх=Справочники.Номенклатура.ПустаяСсылка() тогда
        КонецЕсли;

         НовНом =  спрНом.СоздатьЭлемент();
        НовНом.Наименование = Номенклатура;
        НовНом.НаименованиеПолное = Номенклатура;
        НовНом.ВидНоменклатуры = Справочники.ВидыНоменклатуры.НайтиПоКоду("0000112");
      НовНом.БазоваяЕдиницаИзмерения = БазоваяЕдиница;
      НовНом.НоменклатурнаяГруппа = Справочники.НоменклатурныеГруппы.НайтиПоКоду("000002451");
      НовНом.Родитель = родитель;
        НовНом.Записать();
        //новЗапись
      НовЕд= спрЕдИзмерения.СоздатьЭлемент();
      НовЕд.ЕдиницаПоКлассификатору = БазоваяЕдиница;
      НовЕд.Вес = Вес;
      НовЕд.Коэффициент = 1;
      НовЕд.Наименование = "шт";
      НовЕд.Владелец = НовНом.Ссылка;
      НовЕд.Записать();
      //-------------
      ПВХсвойство = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("Основное свойство");
      НовЗапись = РегистрыСведений.ЗначенияСвойствОбъектов.СоздатьМенеджерЗаписи();
      НовЗапись.Объект = НовНом.ссылка;
      НовЗапись.Свойство = ПВХсвойство.Ссылка;
      НовЗапись.Значение = Свойство;
      НовЗапись.Записать();
      //-----------      
      НовНом.СтавкаНДС=Перечисления.СтавкиНДС.НДС18;
      НовНом.ЕдиницаДляОтчетов = НовЕд.Ссылка;
      НовНом.ЕдиницаХраненияОстатков = НовЕд.Ссылка;
      НовНом.Записать();
      НомИсх =НовНом.Ссылка;
             Сообщение.Текст = "Запись "+Номенклатура + " - " + Цена;
       Сообщение.Сообщить();

   //КонецЕсли;
     ДокТЧ = ДокЦена.Товары.Добавить();
     ДокТЧ.Номенклатура = НомИсх;
     ДокТЧ.Валюта = валюта;
     ДокТЧ.Цена = цена;
     ДокТЧ.ЕдиницаИзмерения = НомИсх.ЕдиницаХраненияОстатков;
     ДокТЧ.ТипЦен = ТипЦены;
  КонецЦикла; 
   Документ.Application.Quit();
   ДокТЧЦен = ДокЦена.ТипыЦен.Добавить();
   ДокТЧЦен.ТипЦен = ТипЦены;
   ДокЦена.Записать(РежимЗаписиДокумента.Запись);

cska-fanat-kz

Получил помощь - скажи СПАСИБО.
Разобрался сам - расскажи другим.

Men117

Цитата: cska-fanat-kz от 25 мар 2015, 04:01
выделил

Не понял.
Добавлено: 26 мар 2015, 23:06


Цитата: cska-fanat-kz от 25 мар 2015, 04:01
выделил

Что тут не правильно?

Men117

Цитата: cska-fanat-kz от 25 мар 2015, 04:01
выделил

Добрый день подскажите что вставить?

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск