Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Как групово изменить реквизиты контрагента ЕГРПОУ нужна помошь
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.2 > Программирование обычных форм 1С 8.2 и не интерфейсной логики
peace-yes
Начну с самого начала:
Пытались перенести данные из 1С 7,7 в 8,2 и при переносе наплодилось много контрагентов без заполненого ЕГРПОУ
и теперь нельзя ставить пометку на удаление потому что выдает ошибку "Невозможно записать, не заполнен ЕГРПОУ"
соответственно груповое удаление не могу сделать, а контрагентов то ООЧЕНЬ много
значит нужно всем заполнить ЕГРПОУ

Облазил инет не нашел решения проблемы, решил делать обработку
(я пока учусь, строго не судите)
вылазит ошибка
{Обработка.Заполн_егрпоу.Форма.Форма.Форма(9)}: Итератор для значения не определенДля Каждого КодПоЕДРПОУ ИЗ док Цикл

Вот код обработки:


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

Для Каждого КодПоЕДРПОУ ИЗ док Цикл      
Если            
док.КодПоЕДРПОУ = 0      
Тогда              
док.КодПоЕДРПОУ = "123456789";                        
док.Записать(РежимЗаписиДокумента.Проведение);
Сообщить ("Записал");  
КонецЕсли;
КонецЦикла;;
КонецЦикла;;
КонецПроцедуры


Помогите пожалуйста!
sava1
Цитата(peace-yes @ 29.06.15, 10:53) необходимо зарегистрироваться для просмотра ссылки
Процедура КнопкаВыполнитьНажатие(Кнопка)      
Докум = Справочники.Контрагенты.Выбрать();
Пока Докум.Следующий() Цикл
док = Докум.ПолучитьОбъект();

//Для Каждого КодПоЕДРПОУ ИЗ док Цикл      
Если            
док.КодПоЕДРПОУ = 0      
Тогда              
док.КодПоЕДРПОУ = "123456789";                        
док.Записать();
Сообщить ("Записал");  
КонецЕсли;
КонецЦикла;;
//КонецЦикла;;
КонецПроцедуры

Домовик
Автор, я точной кострукции не подскажу в восьмой версии. Но лучше поискать готовое решение в типовых обработках вашей конфигурации. Должно быть что-то вроде обработок проведения документов скопом или подобное. Там можно посмотреть код по обходу документов в цикле.
второй вариант - приглашать программиста 1С.
да, сейчас гугл в помощь. все кому не лень расчитывают траектории падения самолетов, пишут коды на 1С, ставят себе диагнозы, достают исторические и юридические справки, и тп, но , наверное, кроме количества информации нужно еще время для ее систематизации в голове, практических тренировок, и только потом...
Vofka
Выборка = Справочники.Контрагенты.Выбрать();
Пока Выборка.Следующий() Цикл
   Если ЗначениеЗаполнено(Выборка.КодПоЕДРПОУ) Тогда
      Продолжить;
   КонецЕсли;
   Объект = Выборка.Ссылка.ПолучитьОбъект();
   Объект.КодПоЕДРПОУ = "123456789";
   Объект.Записать();
   Сообщить("Записан конрагент "+Выборка.Код);
КонецЦикла;
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.