Копировать код номенклатуры в артикул

@Dezember · Регистрация: 11.03.2013

Author24 — интернет-сервис помощи студентам

8.2 УТ 10.3.15.9

Здравствуйте.
С начала работы с номенклатурой коды забивались вручную (копировались коды поставщика), теперь пришло понимание, что для этого есть поле "артикул", а автонумерацию лучше не трогать.

Теперь хотелось бы привести все к норме. А для этого:
1. Скопировать коды номенклатуры в артикул.
2. Восстановить автоматическую номерацию кодов номенклатуры.

По первому вопросу в инете нашел такой код:

Выборка = Справочники.Номенклатура.Выбрать();
Пока Выборка.Следующий() Цикл
спрОбъект = Выборка.Ссылка.ПолучитьОбъект();
спрОбъект.Артикул = Строка(Число(Выборка.Код));
спрОбъект.Записать();
КонецЦикла;

Но он выдает ошибку "преобразование значения к типу число не может быть выполнено"

По второму вопросу тоже как то натыкался на подсказку, но сейчас сходу не нашел.

Спасибо.

@Xomych · 11.03.2013, 14:08

1C

Выборка = Справочники.Номенклатура.Выбрать();
Пока Выборка.Следующий() Цикл
         спрОбъект = Выборка.Ссылка.ПолучитьОбъект();
         спрОбъект.Артикул = Строка(СпрОбъект.Код); //хотя если код тоже строковый ,то Строка() не нужна
         спрОбъект.Записать();
КонецЦикла;

@duk337 · 11.03.2013, 14:58

По второму - отключить контроль уникальности и автонумерацию, обработкой очистить код, включить автонумерацию, обработкой открывать объекты по желаемому порядку и записывать, включить контроль.

@Dezember · 11.03.2013, 16:11 **[ТС]**

Сообщение от Xomych

1C

Выборка = Справочники.Номенклатура.Выбрать();
Пока Выборка.Следующий() Цикл
         спрОбъект = Выборка.Ссылка.ПолучитьОбъект();
         спрОбъект.Артикул = Строка(СпрОбъект.Код); //хотя если код тоже строковый ,то Строка() не нужна
         спрОбъект.Записать();
КонецЦикла;

Уважаемый, Xomych. Спасибо.
Я пытался с помощью Вашего кода создать обработку, но моих способностей не хватило, к сожалению.
Не могли бы Вы помочь мне еще?

@Xomych · 11.03.2013, 18:23

Код в Артикул скопировали?

Теперь Код по всему справочнику надо сначала заменить на значения больше последнего введенного кода, а потом пронумеровать второй раз начиная с единицы.
Добавим в обработку реквизит типа Число, например КодНачала и пишем такую программку. и прогоняем ее 2 раза. Сначала для КодНачала, который на 1 больше вашего последнего кода, а потом для КодНачала=1;

1C

i=КодНачала;
Выборка = Справочники.Номенклатура.Выбрать();
Пока Выборка.Следующий() Цикл
         спрОбъект = Выборка.Ссылка.ПолучитьОбъект();
         спрОбъект.Код= Строка(i); //елси код строковый , если чиловой то просто спрОбъект.Код=i;
         спрОбъект.Записать();
         i=i+1;
КонецЦикла;

@duk337 · 11.03.2013, 18:45

-----

@Dezember · 12.03.2013, 07:04 **[ТС]**

Сообщение от Xomych

Код в Артикул скопировали?

Выдает ошибку.

@duk337 · 12.03.2013, 09:10

1C

1 2	Пока Выборка.Следующий() Цикл Если Выборка.Ссылка.ЭтоГруппа Тогда Продолжить;КонецЕсли;

Либо создайте выборку запросом с условием
"ГДЕ НЕ Ссылка.ЭтоГруппа"

Не по теме:

Обычно группы имеют код и наименование...

@Xomych · 12.03.2013, 09:18

Сообщение от duk337

Не по теме:

Обычно группы имеют код и наименование...

Так он не на Код, а на Артикул ругается.
ТСу, добавьте условие как duk напиасал.

@duk337 · 12.03.2013, 09:23

Не по теме:

Сообщение от Xomych

Так он не на Код, а на Артикул ругается.

Верно. Читать стал по диагонали :)

@Dezember · 12.03.2013, 11:05 **[ТС]**

Сообщение от duk337

1C

1 2	Пока Выборка.Следующий() Цикл Если Выборка.Ссылка.ЭтоГруппа Тогда Продолжить;КонецЕсли;

Спасибо, помогло.
Сейчас займусь перенумерацией.

@timonberkovec · 13.11.2014, 08:53

А не могли бы подсказать такое же решение но на 1С 7.7. ? Очень нуждаюсь. Проблема в точности та же. Только я не знаю как создавать обработку. Если я правильно понял то в конфигураторе создать новую "обработку" и туда добавить код. верно?

@Xomych · 13.11.2014, 10:14

1C

Спр=СоздатьОбъект("Справочники.ВашСправочник");
Спр.ВыбратьЭлементы();
while Спр.ПолучитьЭлемент()=1 do
   if Спр.ЭтоГруппа()=1 then continue endif;
   Спр.Артикул=Строка(Спр.Код);
   Спр.Записать();
enddo;

Да, создать внешнюю обработку и добавить код

@timonberkovec · 13.11.2014, 11:14

прошу прощения за назойливость. но мне он выдает вот енто:

Спр=СоздатьОбъект("Справочники.Номенклатура");
{C:\USERS\NIKOLAI\DESKTOP\1C\СТАРАЯ\EXTFORMS\КОДВАРТИКУЛ.ERT(2)}: Неудачная попытка создания объекта (Справочники.Номенклатура)

или я тупанул где то с кодом?

@Xomych · 13.11.2014, 11:20

Справочник.Номенклатура пардон в единственном числе Справочник

@timonberkovec · 13.11.2014, 14:57

Спасибо! Получилось! С вашего позволения напишу как именно я сделал. Вдруг еще кому пригодится:

1C

//обработка КодВАртикул.ert
 
Спр=СоздатьОбъект("Справочник.Номенклатура");
Спр.ВыбратьЭлементы();
while Спр.ПолучитьЭлемент()=1 do
   if Спр.ЭтоГруппа()=1 then continue endif;
   Спр.Артикул=Строка(Спр.Код);
   Спр.Записать();
enddo;
 
//обработка нумерация кода от "52380101" (ну это в моем случае):
 
i=52380101;
Спр=СоздатьОбъект("Справочник.Номенклатура");
Спр.ВыбратьЭлементы();
while Спр.ПолучитьЭлемент()=1 do
   if Спр.ЭтоГруппа()=1 then continue endif;
   Спр.Код=Строка(i);
   Спр.Записать(); 
   i=i+1;
enddo;   
 
//И потом обработка та же, только от "1":
 
i=1;
Спр=СоздатьОбъект("Справочник.Номенклатура");
Спр.ВыбратьЭлементы();
while Спр.ПолучитьЭлемент()=1 do
   if Спр.ЭтоГруппа()=1 then continue endif;
   Спр.Код=Строка(i);
   Спр.Записать(); 
   i=i+1;
enddo;

Огромнейшее, человеческое СПАСИБО Хомычу )))

@Dezember 0 / 0 / 0 Регистрация: 11.03.2013 Сообщений: 27
		1
	1C 7.x Копировать код номенклатуры в артикул 11.03.2013, 12:34. Показов 7388. Ответов 15 Метки нет (Все метки) 8.2 УТ 10.3.15.9 Здравствуйте. С начала работы с номенклатурой коды забивались вручную (копировались коды поставщика), теперь пришло понимание, что для этого есть поле "артикул", а автонумерацию лучше не трогать. Теперь хотелось бы привести все к норме. А для этого: 1. Скопировать коды номенклатуры в артикул. 2. Восстановить автоматическую номерацию кодов номенклатуры. По первому вопросу в инете нашел такой код: Выборка = Справочники.Номенклатура.Выбрать(); Пока Выборка.Следующий() Цикл спрОбъект = Выборка.Ссылка.ПолучитьОбъект(); спрОбъект.Артикул = Строка(Число(Выборка.Код)); спрОбъект.Записать(); КонецЦикла; Но он выдает ошибку "преобразование значения к типу число не может быть выполнено" По второму вопросу тоже как то натыкался на подсказку, но сейчас сходу не нашел. Спасибо. 0

@duk337 2955 / 1767 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	11.03.2013, 14:58	3
	По второму - отключить контроль уникальности и автонумерацию, обработкой очистить код, включить автонумерацию, обработкой открывать объекты по желаемому порядку и записывать, включить контроль. 1

@Dezember 0 / 0 / 0 Регистрация: 11.03.2013 Сообщений: 27
	12.03.2013, 07:04 [ТС]	7
	Сообщение от Xomych Код в Артикул скопировали? Выдает ошибку. 0

@Xomych 857 / 656 / 111 Регистрация: 01.11.2012 Сообщений: 2,411
	12.03.2013, 09:18	9
	Сообщение от duk337 Не по теме: Обычно группы имеют код и наименование... Так он не на Код, а на Артикул ругается. ТСу, добавьте условие как duk напиасал. 0

@duk337
	12.03.2013, 09:23 #10
	Не по теме: Сообщение от Xomych Так он не на Код, а на Артикул ругается. Верно. Читать стал по диагонали :) 0

@timonberkovec 0 / 0 / 0 Регистрация: 13.11.2014 Сообщений: 9
	13.11.2014, 08:53	12
	А не могли бы подсказать такое же решение но на 1С 7.7. ? Очень нуждаюсь. Проблема в точности та же. Только я не знаю как создавать обработку. Если я правильно понял то в конфигураторе создать новую "обработку" и туда добавить код. верно? 0

@timonberkovec 0 / 0 / 0 Регистрация: 13.11.2014 Сообщений: 9
	13.11.2014, 11:14	14
	прошу прощения за назойливость. но мне он выдает вот енто: Спр=СоздатьОбъект("Справочники.Номенклатура"); {C:\USERS\NIKOLAI\DESKTOP\1C\СТАРАЯ\EXTFORMS\КОДВАРТИКУЛ.ERT(2)}: Неудачная попытка создания объекта (Справочники.Номенклатура) или я тупанул где то с кодом? 0

@Xomych 857 / 656 / 111 Регистрация: 01.11.2012 Сообщений: 2,411
	13.11.2014, 11:20	15
	Справочник.Номенклатура пардон в единственном числе Справочник 1