Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

Работа со справочниками

MaxTi
читатель
офлайн
Дата регистрации: 10.02.2010
Сообщений: 52
Пост №1
 
24.02.2010 11:58

Есть ситуация в справочнике номенклатура есть позиции с одинаковыми артикулами, как программно можно сделать повторяющиеся артикулы разными, т.е. найти элементы с одинаковыми артикулами и один из них сделать другим? например есть 2 элемента с артикулом "ААА", надо один элемент оставить таким же, а второй "ААА_", подскажите плиз

zak555 (398843952)
читатель
офлайн
Дата регистрации: 27.03.2008
Сообщений: 4656
Пост №2
 
24.02.2010 12:04

наименование конфигурации ?<br>+ типовая или нет ?

MaxTi
читатель
офлайн
Дата регистрации: 10.02.2010
Сообщений: 52
Пост №3
 
24.02.2010 12:06

комплексная 7.7

zak555 (398843952)
читатель
офлайн
Дата регистрации: 27.03.2008
Сообщений: 4656
Пост №4
 
24.02.2010 13:15

"потренируйся на копии, вот примерный код:<br><br> МоёЗначениеАртикула = "ААА";<br> НовоеЗначениеАтикула = "ААА_";<br> Спр = СоздатьОбъект("Справочник.Номенклатура");<br> Если Спр.ВыбратьЭлементыПоРеквизиту("Артикул",МоёЗначениеАртикула,0,1)=0 Тогда<br> Сообщить("нет такого реквизита");<br> КонецЕсли;<br> Спр.ПолучитьЭлемент();<br> Спр.Артикул = НовоеЗначениеАтикула;<br> Спр.Записать();"

MaxTi
читатель
офлайн
Дата регистрации: 10.02.2010
Сообщений: 52
Пост №5
 
24.02.2010 14:30

суть в том что повторяющихся артикулов много, и какие они я незнаю, если бы был 1 то я бы ручками поменял, т.е.:<br>есть в справочнике колонка артикул и выглядит примерно так <br>1.ААА<br>2.ААА<br>3.BBB<br>4.CCC<br>5.CCC<br>6.DDD<br>7.EEE<br>8.FFF<br>9.FFF<br>а мне надо чтобы выглядело так:<br>1.ААА<br>2.ААА_<br>3.BBB<br>4.CCC<br>5.CCC_<br>6.DDD<br>7.EEE<br>8.FFF<br>9.FFF_<br>

zak555 (398843952)
читатель
офлайн
Дата регистрации: 27.03.2008
Сообщений: 4656
Пост №6
 
24.02.2010 14:45

ясно...<br><br>они необязательно задвоены ?

MaxTi
читатель
офлайн
Дата регистрации: 10.02.2010
Сообщений: 52
Пост №7
 
24.02.2010 15:26

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

zak555 (398843952)
читатель
офлайн
Дата регистрации: 27.03.2008
Сообщений: 4656
Пост №8
 
24.02.2010 15:41

> да необязательно, просто это произошло из-за некорректного заполнения справочника, у меня переносом из другой базы ищет по артикулу, а бухгалтера зачем-то заносили ручками некоторое время и не ставили артикул, поэтому создаваля новый товар<br><br>1. делаешь запрос по справочнику - получаешь СЗ совсеми возможными Артикулами...<br>2. далее делаешь запрос для каждого и заменяешь<br><br>первое, что на мысль пришло

Thorvardr
читатель
офлайн
Дата регистрации: 25.02.2005
Сообщений: 3082
Пост №9
 
24.02.2010 17:09

"ТекстЗапроса="Товар=Справочник.Номенклатура.ТекущийЭлемент;<br>             |Артикул=Справочник.Номенклатура.Артикул;<br>             |Группировка Артикул;<br>             |Группировка Товар без групп без упорядочивания;";<br> <br>Запрос=СоздатьОбъект("Запрос");<br>Если Запрос.Выполнить(ТекстЗапроса)=1 Тогда<br> Номенклатура=СоздатьОбъект("Справочник.Номенклатура");<br> Пока Запрос.Группировка(1)=1 Цикл<br>       ТекАртикул=СокрЛП(Запрос.Артикул);<br>       Если ПустаяСтрока(ТекАртикул)=0 Тогда<br>             Счетчик=0;<br>             Пока Запрос.Группировка(2)=1 Цикл<br>                   Счетчик=Счетчик+1;<br>                   Если Счетчик>1 Тогда<br>                         Если Номенклатура.НайтиЭлемент(Запрос.Товар)=1 Тогда<br>                              Номенклатура.Артикул=ТекАртикул+?(Счетчик=2,"_",Строка(Счетчик)); //а вдруг дубликатов много?! в результате такого будет "ААА", "ААА_", "ААА2", "ААА3"...<br>                              Номенклатура.Записать();<br>                         КонецЕсли;<br>                   КонецЕсли;<br>             КонецЦикла;<br>       КонецЕсли;<br> КонецЦикла;<br>КонецЕсли;"

MaxTi
читатель
офлайн
Дата регистрации: 10.02.2010
Сообщений: 52
Пост №10
 
26.02.2010 10:20

спс

Показывать по 10 20 40 сообщений

Читают тему:

Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация