Отключение проверки на уникальность регистрационного номера документа

Форум Администрирование Общие вопросы администрирования (Admin)

1. user1949521 05.10.23 08:15 Сейчас в теме

Помогите плиз. Мне нужно отключить проверку на уникальность регистрационного номера. Я нашел кусок кода в модуле формы который отвечает за это! Просто заккоментировать его и таким образом отключить у меня не получилось я как понимаю нужно условие полностью переписывать. Можете подсказать что делать. (Даже если номер такой уже существует все равно нужно что бы он его записал)

Прикрепленные файлы:

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

3. user1936667 05.10.23 08:51 Сейчас в теме

(1) У меня в ЗУП всё работает!

4. chg 05.10.23 08:51 Сейчас в теме

(3)тут ДО а не ЗуП

6. user1936667 05.10.23 08:53 Сейчас в теме

(4) Ух ты!

7. user1949521 05.10.23 08:54 Сейчас в теме

(4)Да это документооборот!

2. Skromnyi 13 05.10.23 08:44 Сейчас в теме

Это для всех видов документов или для какого-то одного?
Смотрите общий модуль "Делопроизводство", функция "РегистрационныйНомерУникален".

5. user1949521 05.10.23 08:53 Сейчас в теме

(2)Это для конкретного вида документа! НЕТ НЕ ДЛЯ ВСЕХ!

8. Skromnyi 13 05.10.23 08:54 Сейчас в теме

(5) ну вот в этой функции, что я писал выше и проверяете.

9. user1949521 05.10.23 08:58 Сейчас в теме

(8)Нашел такой код

Если Не Делопроизводство.РегистрационныйНомерУникален(ОбъектСтруктура) Тогда
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
НСтр("ru = 'Указанный регистрационный номер не уникален!'"));
Возврат Ложь;
КонецЕсли;

11. Skromnyi 13 05.10.23 09:00 Сейчас в теме

(9) ну, все правильно, в этой функции "РегистрационныйНомерУникален" общего модуля "Делопроизводство" Вам надо проверить, что за документ регистрируется, и если это Ваш вид документа верните "Истина".

12. user1949521 05.10.23 09:24 Сейчас в теме

(11)Сделал Возврат = Истина; но все равно он заругался хотя я открыл режим отладки нашел нужный вид документа и открыл его через режим конфигурации открылась форма та что мне нужна и уже в модуле нашел два эти кода ошибки не может быть это нужная форма(( но не получилось!
(11)

13. Skromnyi 13 05.10.23 09:55 Сейчас в теме

(12) Что значит Возврат = Истина ?????
У Вас должно быть что-то типа такого:

Функция РегистрационныйНомерУникален(Объект) Экспорт
	
	УстановитьПривилегированныйРежим(Истина);
	
	Нумератор = Нумерация.ПолучитьНумераторДокумента(Объект);
	Если Не ЗначениеЗаполнено(Нумератор) Тогда // документ без номера
		Если НРег(Объект.РегистрационныйНомер) = НСтр("ru = 'б\н'") 
		 Или НРег(Объект.РегистрационныйНомер) = НСтр("ru = 'б/н'") Тогда 
			Возврат Истина;
		КонецЕсли;
	КонецЕсли;
	
	//  Начало изменений
	Если ЗначениеЗаполнено(Нумератор)
		И Нумератор.Наименование = "Какое-то наименование Вашего нумератора" Тогда
		Возврат Истина;
	КонецЕсли;
	// Конец изменений
	
	Если ЗначениеЗаполнено(Нумератор) Тогда // автонумерация

Показать

14. user1949521 05.10.23 11:01 Сейчас в теме

(13) Я тут просто поменял с Ложь на Истину!! Я не большой знаток пока что программы только делаю первые шаги поэтому туплю вкзде!

Если Не Делопроизводство.РегистрационныйНомерУникален(ОбъектСтруктура) Тогда
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
НСтр("ru = 'Указанный регистрационный номер не уникален!'"));
Возврат Ложь;
КонецЕсли;

15. Skromnyi 13 05.10.23 11:03 Сейчас в теме

(14) не правильно, я написал где надо вносить правки и привел пример.

10. user1949521 05.10.23 09:00 Сейчас в теме

(8) И еще такой!!! Что с ними сделать нужно что бы убрать эту проверку на уникальность

Если НЕ ЗначениеЗаполнено(Нумератор) Тогда		
			
			Если Не ПараметрыЗаписи.Свойство("УказанРегистрационныйНомер") Тогда
				ОписаниеОповещения = Новый ОписаниеОповещения(
					"ПередЗаписьюПродолжениеПослеУказанияРегистрационногоНомера",
					ЭтотОбъект,
					ПараметрыЗаписи);
				РегистрационныйНомер = Объект.РегистрационныйНомер;
				ДелопроизводствоКлиент.ВвестиСтрокуСЗаголовком(
					РегистрационныйНомер, 
					НСтр("ru = 'Укажите регистрационный номер'"), 
					"", 
					30,
					ОписаниеОповещения);
				Отказ = Истина;
				Возврат;
			КонецЕсли;
			
		Иначе
			
			Если СоздатьСвязьДляНумерации И Не ПараметрыЗаписи.Свойство("ПоказанВопросОСозданииСвязи") Тогда
				ОписаниеОповещения = Новый ОписаниеОповещения(
					"ПередЗаписьюПродолжениеПослеВопросаОСозданииСвязи",
					ЭтотОбъект,
					ПараметрыЗаписи);
				
				ТекстВопроса = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
						НСтр("ru='Для регистрации документа необходимо заполнить связь ""%1"". Заполнить сейчас?'"),
						ТипСвязиНумератора);
						
				ПоказатьВопрос(ОписаниеОповещения, ТекстВопроса, РежимДиалогаВопрос.ДаНет);
				Отказ = Истина;
				Возврат;
			КонецЕсли;
		КонецЕсли;

Показать

Оставьте свое сообщение

E-mail: