1с реквизит недоступный для редактирования

Подскажите что я не так делаю, выдает ошибку

{Документ.Подписаный.Форма.ФормаДокумента.Форма(20)}: Поле объекта не обнаружено (Доступность)
Результат.Ответственный.Доступность = Ложь;

Код 1C v 8.х

 Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

|	Форма1.Ссылка,

|	Форма1.Ответственный

|ИЗ

|	Документ.Форма1 КАК Форма1

|ГДЕ

|	Форма1.Организация = &Организация

|	И Форма1.Квартал = &Квартал";


		Запрос.Параметры.Вставить("Организация", ЭлементыФормы.Организация.Значение);

        Запрос.Параметры.Вставить("Квартал", ЭлементыФормы.Квартал.Значение);

 		Результат = Запрос.Выполнить().Выбрать();   

	
		Пока Результат.Следующий() Цикл

			Результат.Ответственный.Доступность = Ложь;

       КонецЦикла;

Ответственный тип Справочник

В модуле кнопки подпись напиши:
Код 1C v 8.х

 ЭлементыФормы.Ответсвенный.Доступность = Не РеквизитХраненияДоступностиБулево;   

создай РеквизитХраненияДоступностиБулево

Код 1C v 8.х

 

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

|	Форма1.Ссылка КАК Документ

|ИЗ

|	Документ.Форма1 КАК Форма1

|ГДЕ

|	Форма1.Организация = &Организация

|	И Форма1.Квартал = &Квартал"

;


Запрос.Параметры.Вставить("Организация",  ЭлементыФормы.Организация.Значение);

Запрос.Параметры.Вставить("Квартал",          ЭлементыФормы.Квартал.Значение);

Результат = Запрос.Выполнить().Выбрать();   

	
Пока Результат.Следующий() Цикл

	ДокументБлокировки = Результат.Документ.ПолучитьОбъект();

	ДокументБлокировки.РеквизитХраненияДоступностиБулево = Истина;

	ДокументБлокировки.Записать(РежимЗаписиДокумент.Запись);

КонецЦикла;   

На корректность кода (если что) не обращайте внимания. Писал «от руки» *09 Но смысл думаю будет доставлен *17

---

Изменено 13.03.13 22:10:49

Не много код не понял, создал реквизит РеквизитХраненияДоступности в документе Форма1 и добавил код в документ Подпись, после нажатия на кнопку все равно можно редактировать документ Форма1.

---

Изменено 14.03.13 09:02:52

Если вы имеет это объединение то у них есть два одинаковый реквизита, это Квартал и Организация, по этим реквизитам я делал отбор в документе Форма1Код 1C v 8.х

 Запрос.Параметры.Вставить("Организация",  ЭлементыФормы.Организация.Значение);

Запрос.Параметры.Вставить("Квартал",          ЭлементыФормы.Квартал.Значение);   

смысл такой, устанавливаю данные в документе подпись для организации и квартал, он ищет в документ Форма1 такие же данные когда находит документы с этими же данными то делает реквизит ответственный не доступным.
Больше эти документы не чем не объединяются.

Всем спасибо я разобрался!
Кому нужно вот код

В Документы.Подпись

Код 1C v 8.х

 Процедура Кнопка1Нажатие(Элемент)

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

|	Форма1.Ссылка КАК Ссылка 

|ИЗ

|	Документ.Форма1 КАК Форма1

|ГДЕ

|	Форма1.Организация = &Организация

|	И Форма1.Квартал = &Квартал";


Запрос.Параметры.Вставить("Организация",  ЭлементыФормы.Организация.Значение);

Запрос.Параметры.Вставить("Квартал",          ЭлементыФормы.Квартал.Значение);

Результат = Запрос.Выполнить().Выбрать();   

	
Пока Результат.Следующий() Цикл

	ДокументБлокировки = Результат.Ссылка.ПолучитьОбъект();

	ДокументБлокировки.РеквизитХраненияДоступности = Ложь;

	ДокументБлокировки.Записать(РежимЗаписиДокумента.Запись);

КонецЦикла;   

КонецПроцедуры



  


                       
  

Документы.Форма1

Код 1C v 8.х

 Процедура ПриОткрытии()

	ЭлементыФормы.Ответственный.Доступность = РеквизитХраненияДоступности;

КонецПроцедуры

   

А можно как нибудь через запрос сделать это действие

ЭлементыФорым…..Доступность = РеквизитХраненияДоступности;

чтобы каждый реквизит не прописывать.

Подскажите, тут я обращаюсь к документуКод 1C v 8.х

 "ВЫБРАТЬ

|   Форма1.Ссылка 

|ИЗ

|   Документ.Форма1 КАК Форма1

|ГДЕ

|   Форма1.Организация = &Организация

|   И Форма1.Квартал = &Квартал

|   И Форма1.Ссылка <> &Ссылка";   

и использую ссылку

а если я буду обращаться к регистру накопления там же не ссылки как мне быть тогда?

Код 1C v 8.х

 "ВЫБРАТЬ

|   Форма1.Организация,

|   Форма1.Квартал,

|   Форма1.Исполнитель,

|   Форма1.Номенклатура,

|   Форма1.Группа,

|   Форма1.Подгруппа,

|   Форма1.БазЕдиница,

|   Форма1.Тип,

|   Форма1.Количество,

|   Форма1.Цена,

|   Форма1.Сумма,

|   Форма1.СуммаНДС

|ИЗ

|   РегистрНакопления.Форма1 КАК Форма1

|ГДЕ

|   Форма1.Организация = &Организация

|   И Форма1.Квартал = &Квартал";   

мне это нужно для это, что у меня будет 20 документов к которым нужно будет одновременно закрывать доступность при нажатии кнопки подпись.

(22) Ermak, по 21му теперь исправили и оно корректно? *17

(22) Ermak, с (20) DJ_Serega это по поводу (19) Ermak? Если «истина» *17 тогда где-то так:

Код 1C v 8.х

 

	ЗапросБлокировка = Новый Запрос(

	"ВЫБРАТЬ

	|	РегистрНакопления1.Регистратор КАК ДокументБлокировкиРегистратор,

	|	РегистрНакопления1.Измерение1 КАК ДокументБлокировкиИзмерение,

	|	РегистрНакопления1.Ресурс1 КАК ТутТолькоЧисло,

	|	РегистрНакопления1.Реквизит2 КАК ДокументБлокировкиРеквизит

	|ИЗ

	|	РегистрНакопления.РегистрНакопления1 КАК РегистрНакопления1

	|ГДЕ

	|	РегистрНакопления1.Регистратор.Номер = &Номер

	|	И РегистрНакопления1.Регистратор.Дата = &Дата"

	);

	ЗапросБлокировка.УстановитьПараметр("Номер",	НомерПоиска);

	ЗапросБлокировка.УстановитьПараметр("Дата",		ДатаПоиска);

	
	РезультатБлокировкаВыполнить = ЗапросБлокировка.Выполнить();

	Если РезультатБлокировкаВыполнить.Пустой() Тогда

		Предупреждение("Документы для блокировки не найдены.");

		Возврат;

	КонецЕсли;

	
	РезультатБлокировка = РезультатБлокировкаВыполнить.Выбрать();

	Пока РезультатБлокировка.Следующий() Цикл

		
		Если НужныйДокумент = "Это регистратор" Тогда

			ОбъектБлокировки = РезультатБлокировка.ДокументБлокировкиРегистратор.ПолучитьОбъект();

			ОбъектБлокировки.РеквизитХраненияДоступности = Истина;

			ОбъектБлокировки.Записать();

		КонецЕсли;

		
		Если НужныйДокумент = "Это Измерение" Тогда

			ОбъектБлокировки = РезультатБлокировка.ДокументБлокировкиИзмерение.ПолучитьОбъект();

			ОбъектБлокировки.РеквизитХраненияДоступности = Истина;

			ОбъектБлокировки.Записать();

		КонецЕсли;

		
		Если НужныйДокумент = "Это Ресурс" Тогда

			// Такого быть не может ;)

		КонецЕсли;

		
		Если НужныйДокумент = "Это реквизит" Тогда

			ОбъектБлокировки = РезультатБлокировка.ДокументБлокировкиРеквизит.ПолучитьОбъект();

			ОбъектБлокировки. РеквизитХраненияДоступности = Истина;

			ОбъектБлокировки.Записать();

		КонецЕсли;

		
	КонецЦикла;

*09

---

Изменено 19.03.13 00:37:20 по причине: Очепятки )

(25) DJ_Serega, я не понимаю этот кодКод 1C v 8.х

 	|	РегистрНакопления1.Измерение1 КАК ДокументБлокировкиИзмерение,

	|	РегистрНакопления1.Ресурс1 КАК ТутТолькоЧисло,

	|	РегистрНакопления1.Реквизит2 КАК ДокументБлокировкиРеквизит

   

Вы имеете ввиду поставить любое измерение и ресурс и реквизит? Мне нужно заблокировать полностью документ, чтобы его можно было только смотреть.

---

Изменено 22.03.13 10:18:51

(28) Ermak, я ж писал в (23) DJ_Serega.
Если нужный документ находится в измерении тогда «Это измерение», если в реквизите тогда «Это реквизит».
Допустим нужный документ для блокировки это Регистратор регистра. Тогда код по блокировке будет:
Код 1C v 8.х

 

	Пока РезультатБлокировка.Следующий() Цикл

		
		ОбъектБлокировки = РезультатБлокировка.ДокументБлокировкиРегистратор.ПолучитьОбъект();

		ОбъектБлокировки.РеквизитХраненияДоступности = Истина;

		ОбъектБлокировки.Записать();

		
	КонецЦикла;

(30) Ermak, Главное что разобрался и сделал *02
Наша задача «помочь» выполнена *12

з.ы.: темку то можно и закрыть *17