Проект

Общее

Профиль

Регистры сведений » История » Версия 1

Всеволод Дорофеев, 02.03.2020 10:18

1 1 Всеволод Дорофеев
h1. Регистры сведений
2 1 Всеволод Дорофеев
3 1 Всеволод Дорофеев
h3. Перезапись ресурсов регистра сведений
4 1 Всеволод Дорофеев
5 1 Всеволод Дорофеев
<pre>
6 1 Всеволод Дорофеев
	Запрос = Новый Запрос;
7 1 Всеволод Дорофеев
	Запрос.Текст = 
8 1 Всеволод Дорофеев
		"ВЫБРАТЬ
9 1 Всеволод Дорофеев
		|	КонтактнаяИнформация.Объект,
10 1 Всеволод Дорофеев
		|	КонтактнаяИнформация.Тип,
11 1 Всеволод Дорофеев
		|	КонтактнаяИнформация.Вид,
12 1 Всеволод Дорофеев
		|	КонтактнаяИнформация.Поле10,
13 1 Всеволод Дорофеев
		|	КонтактнаяИнформация.Представление
14 1 Всеволод Дорофеев
		|ИЗ
15 1 Всеволод Дорофеев
		|	РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
16 1 Всеволод Дорофеев
		|ГДЕ
17 1 Всеволод Дорофеев
		|	КонтактнаяИнформация.Вид = &ВидКИ";
18 1 Всеволод Дорофеев
	
19 1 Всеволод Дорофеев
	Запрос.УстановитьПараметр("ВидКИ", ВидКИ);
20 1 Всеволод Дорофеев
	РезультатЗапроса = Запрос.Выполнить();
21 1 Всеволод Дорофеев
	
22 1 Всеволод Дорофеев
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
23 1 Всеволод Дорофеев
	
24 1 Всеволод Дорофеев
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
25 1 Всеволод Дорофеев
		ТелТекст = сокрЛП(ВыборкаДетальныеЗаписи.Представление);
26 1 Всеволод Дорофеев
		
27 1 Всеволод Дорофеев
		Поле10 = ТолькоЦифры(ТелТекст);
28 1 Всеволод Дорофеев
		Если СтрДлина(Поле10)=11 и (Лев(Поле10, 1)= "8" или Лев(Поле10, 1)= "7") тогда
29 1 Всеволод Дорофеев
			Поле10 = Прав(Поле10, 10);
30 1 Всеволод Дорофеев
		КонецЕсли;
31 1 Всеволод Дорофеев
		сообщить(ТелТекст + "  / " + поле10);
32 1 Всеволод Дорофеев
		
33 1 Всеволод Дорофеев
		МенеджерЗаписи = РегистрыСведений.КонтактнаяИнформация.СоздатьМенеджерЗаписи();
34 1 Всеволод Дорофеев
		МенеджерЗаписи.Объект = ВыборкаДетальныеЗаписи.Объект;
35 1 Всеволод Дорофеев
		МенеджерЗаписи.Тип = ВыборкаДетальныеЗаписи.Тип;
36 1 Всеволод Дорофеев
		МенеджерЗаписи.Вид = ВыборкаДетальныеЗаписи.Вид;
37 1 Всеволод Дорофеев
		МенеджерЗаписи.Прочитать();
38 1 Всеволод Дорофеев
		
39 1 Всеволод Дорофеев
		
40 1 Всеволод Дорофеев
		Если МенеджерЗаписи.Выбран() Тогда
41 1 Всеволод Дорофеев
			МенеджерЗаписи.Поле10 = Поле10;
42 1 Всеволод Дорофеев
			Попытка
43 1 Всеволод Дорофеев
				МенеджерЗаписи.Записать();
44 1 Всеволод Дорофеев
			Исключение
45 1 Всеволод Дорофеев
				ТекстСообщения = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
46 1 Всеволод Дорофеев
				ЗаписьЖурналаРегистрации(НСтр("ru = 'Обновление информационной базы'"), УровеньЖурналаРегистрации.Ошибка,,, ТекстСообщения);
47 1 Всеволод Дорофеев
			КонецПопытки;
48 1 Всеволод Дорофеев
		КонецЕсли;
49 1 Всеволод Дорофеев
		
50 1 Всеволод Дорофеев
		ОбработкаПрерыванияПользователя();
51 1 Всеволод Дорофеев
	КонецЦикла;
52 1 Всеволод Дорофеев
53 1 Всеволод Дорофеев
</pre>