Проблема с уникальностью номеров при обмене

Форум Учет и отчетность Бухгалтерский учет и налоги (БУ)

1С:Комплексная 7.7 Бухгалтерский учет 7.7 Оперативный учет 7.7 Расчет 7.7

1. alexchebanenko 18.01.12 10:16 Сейчас в теме

Доброго времени суток! С УРБД только начал работать. Сразу появилась проблема - в центральной базе загружают выписку банка и в переферийной выписку из другого банка. После обмена в базе задвоились выписки! И сейчас при попытке загрузки ругается "Номер не уникальный". Помогите, pls.

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

Ответы

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

Свернуть все

2. Gisborn 18.01.12 10:30 Сейчас в теме

Устанавливать префикс узла при создании документов

3. alexchebanenko 18.01.12 10:33 Сейчас в теме

(2) Gisborn, А каким образом? Конфигурация самописанная, в 1С я не специалист (старый спец уволился, нового пока не взяли). А я просто админ. Где эти префиксы прописываются?

4. hellf 37 18.01.12 10:55 Сейчас в теме

(3) alexchebanenko, Константы проставьте в базах- Префикс ИБ. Для каждой базы свой уникальный. Этот префикс будет добавляться к номерам создаваемых объектов.
В режиме предприятие Операции---Константы

5. alexchebanenko 18.01.12 11:06 Сейчас в теме

(4) hellf, К сожалению нет такой константы... И как мне сейчас перенумеровать задвоенные документы?

6. hellf 37 18.01.12 11:30 Сейчас в теме

Если константы нет (у вас конфигурация вообще с нуля самописная?) сделайте обработку вроде такой:

	Для Сч=1 По Метаданные.Документ() Цикл
		ИдентДок = Метаданные.Документ(Сч).Идентификатор;
		Если (Метаданные.Документ(Сч).ТипНомера="Текстовый")И
		     (Найти(ДокБезПрефиксаИБ, ","+ИдентДок+",")=0) Тогда
			ПрефиксАвтоНумерации("Документ."+ИдентДок, Префикс);
		КонецЕсли;
	КонецЦикла;
	Для Сч=1 По Метаданные.Справочник() Цикл
		ИдентСпр = Метаданные.Справочник(Сч).Идентификатор;
		Если (Метаданные.Справочник(Сч).ТипКода="Текстовый") И 
			 (Найти(СпрБезПрефиксаИБ, ","+ИдентСпр+",")=0) Тогда
			ПрефиксАвтоНумерации("Справочник."+ИдентСпр, Префикс);
		КонецЕсли;
	КонецЦикла;

Показать

8. alexchebanenko 18.01.12 11:52 Сейчас в теме

(6) hellf, Собственно, как я писал в 1С я практически ноль, подскажите куда эту обработку вставить? И еще, нумератор документа "выписка" числовой - как тогда быть? Перенумеровать получилось этой обработкой - http://1c.proclub.ru/modules/mydownloads/personal.php?cid=5&lid=1196

7. hellf 37 18.01.12 11:32 Сейчас в теме

А те которые непонятно как загрузились- выгрузились можно проверить с помощью ИБСозданияОбъекта() и соответственно перенумеровать.

9. alexchebanenko 18.01.12 11:54 Сейчас в теме

И если я добавлю константу ПрефиксИБ, что надо дописать в глобальном модуле?

10. hellf 37 18.01.12 12:03 Сейчас в теме

(9) alexchebanenko, вот это в процедуре приоткрытии:
Префикс=константа. ПрефиксИБ;
Для Сч=1 По Метаданные.Документ() Цикл
ИдентДок = Метаданные.Документ(Сч).Идентификатор;
Если (Метаданные.Документ(Сч).ТипНомера="Текстовый")И
(Найти(ДокБезПрефиксаИБ, ","+ИдентДок+",")=0) Тогда
ПрефиксАвтоНумерации("Документ."+ИдентДок, Префикс);
КонецЕсли;
КонецЦикла;
Для Сч=1 По Метаданные.Справочник() Цикл
ИдентСпр = Метаданные.Справочник(Сч).Идентификатор;
Если (Метаданные.Справочник(Сч).ТипКода="Текстовый") И
(Найти(СпрБезПрефиксаИБ, ","+ИдентСпр+",")=0) Тогда
ПрефиксАвтоНумерации("Справочник."+ИдентСпр, Префикс);
КонецЕсли;
КонецЦикла;

11. alexchebanenko 18.01.12 12:08 Сейчас в теме

(10) hellf, А если нумератор числовой его надо сделать текстовым?

13. alexchebanenko 18.01.12 16:10 Сейчас в теме

(10) hellf, Извиняюсь еще раз, этот код в модуль документа надо вставлять?

15. hellf 37 18.01.12 16:29 Сейчас в теме

(13) alexchebanenko, в глобальник вставьте в процедуру при открытии, чтоб не мучиться. При первом же запуске он вам автонумерацию сделает с префиксом.
На копии только пробуйте штоли=))
А, и уберите проверку для документов и справочников без префиксов. Вы же все будете перенумеровывать?
Если нет, то исключения поставьте перед кодом.
вот например исключения в типовой бухгалтерии:

	//Список видов документов и справочников, для которых не используются префиксы ИБ
	//при работе в распределенной информационнй базе
	ДокБезПрефиксаИБ = ",СчетФактура,";
	СпрБезПрефиксаИБ = ",Валюты,ВидыДеятельности,ЕдиницыИзмерений,КлассификаторЕН,НалогиИОтчисления,ОсновныеСредства,
НематериальныеАктивы,Сотрудники,Подразделения,";

16. alexchebanenko 18.01.12 16:42 Сейчас в теме

(15) hellf, В глобальнике нет процедуры ПриОткрытии, есть только ПриНачалеРаботыСистемы. А доки похоже все придется с префиксом делать. Просто получилось так, что на меня эту работу скинули - типа админ все может, распредиленки-то я создал и тут же начались проблемы. А 1С я только как админ знаю, переводил с dbf на sql.

12. hellf 37 18.01.12 12:37 Сейчас в теме

Спросите у бухгалтеров, не принципиален ли им числовой номер у выписки. Мало ли что там за банк.
Хотя в любом случае можно номер для конфигурации и уриб иметь текстовый, а для банка, банк-клиента- сделать еще один, числовой.

14. alljoke 18.01.12 16:27 Сейчас в теме

Модуль формы документа. ПриОткрытии() - открывается же форма документа (визуально)

17. hellf 37 18.01.12 18:21 Сейчас в теме

запихайте в приначалеработысистемы
про нумерацию уточните у бухгалтеров и если префиксы нужны везде оставьте только

Префикс=константа. ПрефиксИБ; 
Для Сч=1 По Метаданные.Документ() Цикл 
 ИдентДок = Метаданные.Документ(Сч).Идентификатор; 
 Если (Метаданные.Документ(Сч).ТипНомера="Текстовый") Тогда 
 ПрефиксАвтоНумерации("Документ."+ИдентДок, Префикс); 
 КонецЕсли; 
 КонецЦикла; 
 Для Сч=1 По Метаданные.Справочник() Цикл 
 ИдентСпр = Метаданные.Справочник(Сч).Идентификатор; 
 Если (Метаданные.Справочник(Сч).ТипКода="Текстовый")  Тогда 
 ПрефиксАвтоНумерации("Справочник."+ИдентСпр, Префикс); 
 КонецЕсли; 
 КонецЦикла;

Показать

18. alexchebanenko 19.01.12 08:45 Сейчас в теме

(17) hellf, Спасибо!

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

E-mail: