Ограничение на документы

[Lunik]

Возник такой вопрос.
Есть документы в которые после их закрытие не желательно, что бы любой пользователь мог их поправить.
Возможно ка кто,
Например:
Есть пользователи Кассиры, Бухгалтер, Главный Бухгалтер, Администратор.
Например Главный Бухгалтер закрывает документы за 30 июня. и что бы после закрытия Данный документ не кто не смог поправить, кроме гл. бухгалтера.

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


Дополнение: Как блокировать стандартно я знаю. Суть в том что, в Нашей Базе есть Так сказать свое нововедение. Так называемая Выручка новая
И данный документ не блокируеться.

[Алексей++]

а расшареная папка с правом только для чтения подойдёт ?

[Lunik]

а расшареная папка с правом только для чтения подойдёт ?

А причем, тут расшареная папка?

[Kivals]

Леш, Документ - это в смысле объект БД
Lunik, "Выручка новая" - это документ, созданный именно в вашей базе?
Если да - посмотрте как в стандартных документах вызывается проверка на запрет редактирования и вставьте такие же вызовы в свой документ (при открытии формы, при проведении, ...)
Кстати - платформа какая?

[Lunik]

Леш, Документ - это в смысле объект БД
Lunik, "Выручка новая" - это документ, созданный именно в вашей базе?
Если да - посмотрте как в стандартных документах вызывается проверка на запрет редактирования и вставьте такие же вызовы в свой документ (при открытии формы, при проведении, ...)
Кстати - платформа какая?

1C 7.7, если не трудно подскажите где просмотреть, на примере какого. Спасибо.

[Kivals]

Любого стандартного. Какая конфигурация была исходной?
Вот Бухгалтерский Учет для Украины, документ Договор:

Код:

// Модуль формы
// ===============================
Процедура ПриОткрытии()
	глПроверкаДатыДок(Контекст,"Открытие");
	...
КонецПроцедуры
...
// ===============================
Процедура ПриЗаписи()
	...
	глПроверкаДатыДок(Контекст,"Запись");
КонецПроцедуры

// Модуль документа
Процедура ОбработкаПроведения()
	...
	глПроверкаДатыДок(Контекст,"Проведение");
	...
КонецПроцедуры

// Глобальный модуль
// ===============================
Процедура глПроверкаДатыДок(Конт,Режим = "Открытие") Экспорт
	Перем ДатаДок;
	Попытка
		ДатаДок = Конт.ДатаДок;
	Исключение
		ДатаДок = Конт.ДатаОперации;
	КонецПопытки;
	...
КонецПроцедуры

Вот это самое глПроверкаДатыДок() в те же процедуры (желательно в те же места) и нужно вставить в новый документ

[Lunik]

Любого стандартного. Какая конфигурация была исходной?
Вот Бухгалтерский Учет для Украины, документ Договор:

Код:

// Модуль формы
// ===============================
Процедура ПриОткрытии()
	глПроверкаДатыДок(Контекст,"Открытие");
	...
КонецПроцедуры
...
// ===============================
Процедура ПриЗаписи()
	...
	глПроверкаДатыДок(Контекст,"Запись");
КонецПроцедуры

// Модуль документа
Процедура ОбработкаПроведения()
	...
	глПроверкаДатыДок(Контекст,"Проведение");
	...
КонецПроцедуры

// Глобальный модуль
// ===============================
Процедура глПроверкаДатыДок(Конт,Режим = "Открытие") Экспорт
	Перем ДатаДок;
	Попытка
		ДатаДок = Конт.ДатаДок;
	Исключение
		ДатаДок = Конт.ДатаОперации;
	КонецПопытки;
	...
КонецПроцедуры

Вот это самое глПроверкаДатыДок() в те же процедуры (желательно в те же места) и нужно вставить в новый документ

Вот у меня получаеться  Документ Выручка1

Код:

//_____________________________________________________________________________

Процедура ОбработкаПроведения()
	глКомментарийПроведения("Начало", Контекст);

	...
// Для карт	
            

...
	КонецЕсли; 
	
	 ...
	КонецЕсли; 
	
	   ...
	КонецЕсли;                           
	
	  ...
	КонецЕсли; 
	
КонецЕсли;
		
	
	
...
			КонецЕсли; 	// Сумма НП <> 0
		КонецЕсли;		// Сумма Безнала <> 0
//**********************************************************    Проводки для оборота по сч 62.1 на сумму НАЛИЧКИ
			Если (СуммаН <> 0)  Тогда    
				Операция.НоваяПроводка();
				Операция.СодержаниеПроводки = "Приход наличных ";
				Операция.НомерЖурнала = "БК";
				Операция.Дебет.Счет = Сч62_1; 
				Операция.Дебет.Контрагенты = чл;  
				Операция.Дебет.Договоры =  дог; 
				Операция.Дебет.ВидыРасчетовСПокупателями=  ра; 
				Операция.Кредит.Счет = Сч90_1;
				Операция.Кредит.ВидыНоменклатуры = Субконто1;
				Операция.Кредит.СтавкиНДС = Субконто2;
				Операция.Кредит.СтавкиНП = Субконто3;

				Операция.Сумма = СуммаН;        // Приход налички
			КонецЕсли;	

//**********************************************************    Окончание проводок для оборота по сч 62.1 на сумму НАЛИЧКИ

//**********************************************************    Дополнительные проводки для НАЛОГОВОГО УЧЕТА
...
		КонецЕсли;
//**********************************************************    Окончание дополнительных проводок для НАЛОГОВОГО УЧЕТА		
КонецЕсли;	                                                                         

	Операция.Записать();
...
	глКомментарийПроведения("Окончание", Контекст);
КонецПроцедуры
 //_____________________________________________________________________________

[Lunik]

Немного не разобрался

[Kivals]

глКомментарийПроведения - это скорее всего не проверка, а диагностические сообщения. Ищи еще...
Какая кофигурация была взята за базовую?

[Lunik]

глКомментарийПроведения - это скорее всего не проверка, а диагностические сообщения. Ищи еще...
Какая кофигурация была взята за базовую?

1с 7.7. Бухгалтери, беру Документы выручка

[Lunik]

Нашел вот пример смотри что у меня там стоит:

Код:

Процедура ПриЗаписи() //предопределенная
	Если глМожноЗаписатьДокумент(Контекст) = 0 Тогда
		СтатусВозврата(0);
		Возврат;
	ИначеЕсли глКонтрольДатыДокумента(Контекст, НачальнаяДатаДокумента) = 1 Тогда
		СтатусВозврата(0);
		Возврат;
	КонецЕсли;

Тоесть поидее стоит ведь проверка почему тогда она не проходит

[Lunik]

Спасибо большое разобрался)) Не там сначало сморел)