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