Как перевязывать элемент подчиненного справочника к другому элементу справочника хозяина
то есть
справочник хозяин "Номенклатура"
Справочник Подчиненный "СредстваКонтроля"
у подчиненного справочника имеется реквизит типа Перечисление.СостояниеСК
и Идентификатором "Состояние"
этот реквизит переодический
в перечислении есть значения
Новое,
Установленное,
Снятое,
Уничтоженное.
установка реквизита "Состояние" в Новое производится документом
ПоступлениеТМЦ
этим документом реквизит Состояние этих средств контроля устанавливается только в НОВОЕ
а уже документом АктВыполненыхРабот
оно должно переходить из нового в Установленый а из установленного в снятый!!!
дело в том что мне при установке состояния в Новое нужно было использовать владельца вот я и создал новый элемент справочника "Номенклатура" для использования его в качестве ячейки для хранения новых средств контроля
но теперь же мне нужно его перевязать к другому элементу справочника "Номенклатура" но как это сделать я не понимаю
я сделал следующее но вышло что реквизит меняется на "Установленное" а вот владелец нет
вот код


Пока ПолучитьСтроку() = 1 Цикл
       ХранительСК = СоздатьОбъект("Справочник.Номенклатура");
       Если ХранительСК.НайтиПоКоду(123456) = 1 Тогда
           ЭСУХранитель = ХранительСК.ТекущийЭлемент();
       КонецЕсли;
       спрСКНов = СоздатьОбъект("Справочник.СредстваКонтроля");
       спрСКНов.ИспользоватьВладельца(ЭСУХранитель);
       _спрСКНов = СоздатьОбъект("Справочник.СредстваКонтроля");
       _спрСКНов.ИспользоватьВладельца(ЭСУ);
       код_ = СнятыйСК1;
       если _спрСКНов.НайтиПоКоду(код_) = 1 Тогда
           элемент = _спрСКНов.ТекущийЭлемент();
           Если элемент.Состояние.Получить(ДатаДок) = Перечисление.СтатусСК.Установленный Тогда
               снято = Перечисление.СтатусСК.снятое;
               УстановитьРеквизитСправочника(элемент,"Состояние",снято,ДатаДок,,,);
           КонецЕсли;
       КонецЕсли;
       
       код_2 = СнятыйСК2;
       если _спрСКНов.НайтиПоКоду(код_) = 1 Тогда
           элемент = _спрСКНов.ТекущийЭлемент();
           Если элемент.Состояние.Получить(ДатаДок) = Перечисление.СтатусСК.Установленный Тогда
               снято = Перечисление.СтатусСК.снятое;
               УстановитьРеквизитСправочника(элемент,"Состояние",снято,ДатаДок,,,);
           КонецЕсли;
       КонецЕсли;
       
       кодСК = УстановленныйСК1.Код;
       если спрСКНов.НайтиПоКоду(кодСК) = 1 Тогда
           элемент = спрСКНов.ТекущийЭлемент();
           Если элемент.Состояние.Получить(ДатаДок) = Перечисление.СтатусСК.Новое Тогда
               элемент.ИспользоватьВладельца(ЭСУ);
               Установлено = Перечисление.СтатусСК.Установленный;
               УстановитьРеквизитСправочника(элемент,"Состояние",Установлено,ДатаДок,,,);
           КонецЕсли;
       КонецЕсли;
       
       кодСК_ = УстановленныйСК2.Код;
       если спрСКНов.НайтиПоКоду(кодСК_) = 1 Тогда
           элемент = спрСКНов.ТекущийЭлемент();
           Если элемент.Состояние.Получить(ДатаДок) = Перечисление.СтатусСК.Новое Тогда
               элемент.ИспользоватьВладельца(ЭСУ);
               Установлено = Перечисление.СтатусСК.Установленный;
               УстановитьРеквизитСправочника(элемент,"Состояние",Установлено,ДатаДок,,,);
           КонецЕсли;
       КонецЕсли;
   КонецЦикла;
       //*********************************************************************************

помогите пожалуйста разобраться с данной для меня дилеммой

(0) У тебя в самом деле средства контроля перемещаются между номенклатурами?

Если нет, то менять владельца не надо. Лучше будет создавать новый, но с нужным статусом, и смотреть, чтобы для каждой номенклатуры выполнялась цепочка "Новый-Установлен-Демонтирован"

здесь в коде
_спрСКНов.ИспользоватьВладельца(ЭСУ); "ЭСУ" это реквизит во много строчной части документа типа Справочник.Номенклатура

Поставь в карточке пол женский, год рождения 1985 и фотку соответствующую. Тогда взлетит.

пока они не перемещаются! именно это мне нужно

а поменять владельца это не как?

мне нужно что бы они перемещались

(4) не спасибо я был воспитан хорошим отцом :))
поэтому если не поможете то придумаю что ни будь сам!

(4) а ты обычно так делаешь? :)))))

а чего раньше не пришёл? До того, как выдумать (да ещё и реализовать!) муть из (0)?

ну что есть кто нибудь кто может мне помочь? ато у меня 10 метров на нет осталось :))
а положить денег уже негде все закрыто уже

(10) ну что ж поделаешь что сделано то сделано переделывать не хочу а доделать нужно!!

вру уже 7 метров ЛЮДИ ПОМАГИТЕ

(10) +100

(13) Отмотай веревку :)))))))

(14) :))

владельца сменишь присваиванием:
.Владелец=<тут_нужный_владелец>.

Заодно исправь опечатки(?) в коде из (0), типа
>>код_2 = СнятыйСК2;
>>если _спрСКНов.НайтиПоКоду(код_) = 1 Тогда //<- тут, вероятно, надо бы искать по код_2?

А утром, когда проспишься, найди таки в себе мужество переписать всё заново или принять, что 1С - это не твоё.

кодСК = УстановленныйСК1.Код;
       если спрСКНов.НайтиПоКоду(кодСК) = 1 Тогда
           элемент = спрСКНов.ТекущийЭлемент();
           Если элемент.Состояние.Получить(ДатаДок) = Перечисление.СтатусСК.Новое Тогда
               элемент.ИспользоватьВладельца(ЭСУ);//здесь я именно это и делаю!!!владельца сменишь присваиванием:
               Установлено = Перечисление.СтатусСК.Установленный;
               УстановитьРеквизитСправочника(элемент,"Состояние",Установлено,ДатаДок,,,);
           КонецЕсли;
       КонецЕсли;

(18)две строки сравнить и увидеть разницу способен?

(19) не понял тебя

какие именно

>>//здесь я именно это и делаю!!!

это ты про какую строку?

элемент.Владелец = ЭСУ;
{Документ.АктВыполненныхРабот.Модуль Документа(56)}: Объект не может быть перепозиционирован!

+(23) почему?

(24)потому что полезно иногда читать документацию...
Присваивать - вместо ИспользоватьВладельца, а не вдобавок.

кодСК = УстановленныйСК1.Код;
       если спрСКНов.НайтиПоКоду(кодСК) = 1 Тогда
           элемент = спрСКНов.ТекущийЭлемент();
           Если элемент.Состояние.Получить(ДатаДок) = Перечисление.СтатусСК.Новое Тогда
               //элемент.ИспользоватьВладельца(ЭСУ);
               СоздатьОбъект("Справочник.СредстваКонтроля");
               элемент.Владелец = ЭСУ;
               Установлено = Перечисление.СтатусСК.Установленный;
               УстановитьРеквизитСправочника(элемент,"Состояние",Установлено,ДатаДок,,,);
           КонецЕсли;
       КонецЕсли;

Создай копию подчиненного элемента только у другого владельца и сделай замену по всем ссылка подчиненного элемента- образца.

(8) (9) Я безотсовщина и быдлокодер Учеба

А вообще внешняя обработка и запрос. В СП есть, за день справишься. Думаю.

спасибо

разберусь как нибудь

(31)разберись лучше "хорошо". Тех, что "как нибудь" и так чуть больше, чем доуя.

ps. Иногда полезно .Записать(), дабы зафиксировать изменения...

(32) ок постараюсь ХОРОШО!!!!!

ну так что продолжим тему?

Перевязки

Перевязки — лечебные мероприятия при ранениях, язвах и других нарушениях кожных покровов. Повязка (см.) защищает рану от вредных внешних воздействий и прежде всего от микробного загрязнения.
Частота перевязок зависит от характера и течения процесса. При чистых операционных ранах, протекающих без осложнений (отсутствие температуры, болей в ране, лейкоцитоза), первую перевязку производят через 7—9 дней для снятия швов. Так же редко перевязки делают при поверхностных ранах, заживающих под струпом. При остальных свежих ранах частота перевязок зависит от характера первичной хирургической обработки раны (см. Раны, ранения), от характера наложенного шва (первичный или отсроченный), от наличия осложнений.

http://www.medical-enc.ru/15/perevyazki.shtml

Форум медсестёр.

"- а как ты мандавошек лечишь?
-- а они й меня не болеют!!!"©

а по существу

кодСК = УстановленныйСК1.Код;
       если спрСКНов.НайтиПоКоду(кодСК) = 1 Тогда
           элемент = спрСКНов.ТекущийЭлемент();
           Если элемент.Состояние.Получить(ДатаДок) = Перечисление.СтатусСК.Новое Тогда
               элемент.Владелец = ЭСУ;
               элемент.Владелец.Записать();
               Установлено = Перечисление.СтатусСК.Установленный;
               УстановитьРеквизитСправочника(элемент,"Состояние",Установлено,ДатаДок,,,);
           КонецЕсли;
       КонецЕсли;
туплю извините
так выдает ошибку

Объект не может быть перепозиционирован!

что я не правильно делаю ну не доходит объясните

люююдииии ааааку

ну помагите

я то переделаю все но все таки как сделать

элемент.Владелец.Записать();
- это что?

не знаю

я уже все перепробовал

но не чего не выходит

опенкофт предложил а я не откозался :)

ну помагите если это возможно вообще сделать

урааа получилось

кодСК = УстановленныйСК1.Код;
       если спрСКНов.НайтиПоКоду(кодСК) = 1 Тогда
           элемент = спрСКНов.ТекущийЭлемент();
           Если элемент.Состояние.Получить(ДатаДок) = Перечисление.СтатусСК.Новое Тогда
               спрСКНов.Владелец = ЭСУ;
               спрСКНов.Записать();
               Установлено = Перечисление.СтатусСК.Установленный;
               УстановитьРеквизитСправочника(элемент,"Состояние",Установлено,ДатаДок,,,);
           КонецЕсли;
       КонецЕсли;

спрСКНов.ТекущийЭлемент() странно честно говоря я думал что  нужно делать с ТекущийЭлемент() а окозалось что не так

спасибо всем за помощь пока

(54) Кровь остановил?