Загрузка адресов произвольного формата (КЛАДР и нестандартных "грязных" адресов) в ФИАС современных конфигураций из 1С 7.7

16.08.19

Интеграция - Загрузка и выгрузка в Excel

+9 –

Описание технологии загрузки любых адресов из 1С 7.7 с разложением по ФИАС в современные конфигурации 1C 8.3 на примере ERP. Предлагаемый способ просто чудо, он гарантирует результат, он очень простой и качественный! Моя обработка является синтаксическим анализатором, который подставляет в строку грязного адреса выражение "Дом №" и "Корпус", благодаря чему грязные адреса 7.7 сами очень хорошо раскладываются по значимым полям ФИАС - заполняется область, город, улица, дом, корпус.. все раскладывается само с помощью встроенного механизма современных конфигураций 1С 8.3, который написали сами сотрудники фирмы 1С!

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование	Скачано	Купить файл	По подписке PRO
Загрузка адресов произвольного формата (КЛАДР и нестандартных грязных адресов) в ФИАС современных конфигураций из 1С 7.7: СформироватьАдресДляФИАС.ert .ert 113,50Kb 22	22	2 500 руб. Купить	1 SM Скачать

Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».

0% комиссии — оплата напрямую исполнителю;
Исполнители любого масштаба — от отдельных специалистов до команд под проект;
Прямой обмен контактами между заказчиком и исполнителем;
Безопасная сделка — при необходимости;
Рейтинги, кейсы и прозрачная система откликов.

В современных конфигурациях есть встроенный хороший механизм, способный с небольшой доработкой на стороне 1С 7.7 удовлетворить требования по переносу адресов из 1С 7.7 с разложением по ФИАС в современные конфигурации 1C 8.3. Несколько раз я начинал преобразовывать адреса 1С 7.7 в адреса 8.3 не зная о нем, что я только не перекачал и не перечитал, даже с помощью интернет-сервисов качественного резутьтата загрузки некачественных адресов с разложением по полям ФИАС "область, город, улица, дом, корпус" в ERP добиться так и не смог, попытки доработать чьи-то заготовки сразу глубоко погружали меня в дебри кода ERP и манили к всяким внешним веб-сервисам налоговой, карт яндекса и Гугли - как стало ясно результат в них от нас не зависит и зачастую не достижим. Кидание в стороны потому что нет результата очень погружает и выматывает.

Моя обработка является синтаксическим анализатором, который подставляет в строку грязного адреса выражение "Дом №" и "Корпус", благодаря чему грязные адреса 7.7 сами очень хорошо раскладываются по значимым полям ФИАС - заполняется область, город, улица, дом, корпус.. все раскладывается по полям без единого веб-сервиса само с помощью встроенного механизма современных конфигураций 1С 8.3, который написали сами сотрудники фирмы 1С! На следующем скрине показан фрагмент модуля функции синтактического анализатора "Функция РазложитьАдресДляФИАС(Адрес)", код - под спойлером.

Функция РазложитьАдресДляФИАС(Адрес)

Функция РазложитьАдресДляФИАС(Адрес)

		Улица=0;
		Дом=0;
		Корпус=0;
		Квартира=0;
		//Сообщить("1)"+Адрес);
		Адрес = СтрЗаменить(Адрес, "     ", " ");
		Адрес = СтрЗаменить(Адрес, "    ", " ");
		Адрес = СтрЗаменить(Адрес, "   ", " ");
		Адрес = СтрЗаменить(Адрес, "  ", " ");		
		Адрес = СтрЗаменить(Адрес, "  ", " ");		
		Адрес = СтрЗаменить(Адрес, "  ", " ");		
		Адрес = СтрЗаменить(Адрес, "  ", " ");		
		Если Лев(Адрес,1)<>"," Тогда
			Если (Найти(нрег(Адрес),", д.")>0) Тогда
			    Адрес = СтрЗаменить(Адрес, ", д.",", дом № ");
			    Адрес = СтрЗаменить(Адрес, ", Д.",", дом № ");
			ИначеЕсли (Найти(нрег(Адрес),",д.")>0) Тогда
			    Адрес = СтрЗаменить(Адрес, ",Д.",", дом № ");
			    Адрес = СтрЗаменить(Адрес, ",д.",", дом № ");
			КонецЕсли;
			// Для адреса который никто не пытался внести по кладру корпус не выделен, вероятно не разложится
			//Если Найти("0123456789",Лев(НомерДома,1))>0 Тогда
			//	Если СтрДлина(НомерДома)>1 Тогда
			//...

			Если (Найти(нрег(Адрес),", кв.")>0) Тогда
			    Адрес = СтрЗаменить(Адрес, ", кв.",", квартира ");
			    Адрес = СтрЗаменить(Адрес, ", Кв.",", квартира ");
			    Адрес = СтрЗаменить(Адрес, ", КВ.",", квартира ");
			ИначеЕсли (Найти(нрег(Адрес),",кв.")>0) Тогда
			    Адрес = СтрЗаменить(Адрес, ",кв.",", квартира ");
			    Адрес = СтрЗаменить(Адрес, ",Кв.",", квартира ");
			    Адрес = СтрЗаменить(Адрес, ",КВ.",", квартира ");
			КонецЕсли;
			Возврат Адрес;
		Иначе    
			Если ((Найти(Адрес,"ул.,")=0)ИЛИ(Найти(Адрес,"ул. ,")=0))И(Найти(Адрес,"ул.")>0) Тогда
				Адрес = СтрЗаменить(Адрес,"ул.","ул");
				Если Найти(Адрес,",дом № ")=0 Тогда
					ПредставитьАдресВФорматеМНС(Адрес);
					Если Найти(Адрес,Улица+",")>0 Тогда
						ПозицияКонецУлицы = Найти(Адрес,Улица+",")+СтрДлина(Улица);
					Иначе
						ПозицияКонецУлицы = Найти(Адрес,СокрЛП(Улица+" ,"))+СтрДлина(Улица);
					КонецЕсли;
				Иначе
					Адрес = СтрЗаменить(Адрес,",дом № ","ул,дом № ");
					ПозицияКонецУлицы = Найти(нрег(Адрес)," ул,")+3;
				КонецЕсли;
			ИначеЕсли Найти(нрег(Адрес)," ул,")>0 Тогда
				ПозицияКонецУлицы = Найти(нрег(Адрес)," ул,")+3;
			ИначеЕсли Найти(нрег(Адрес)," пр-кт,")>0 Тогда
				ПозицияКонецУлицы = Найти(нрег(Адрес)," пр-кт,")+6;
			ИначеЕсли Найти(нрег(Адрес)," пер,")>0 Тогда
				ПозицияКонецУлицы = Найти(нрег(Адрес)," пер,")+4;
			ИначеЕсли Найти(нрег(Адрес)," ш,")>0 Тогда
				ПозицияКонецУлицы = Найти(нрег(Адрес)," ш,")+2;
			ИначеЕсли Найти(нрег(Адрес)," проезд,")>0 Тогда
				ПозицияКонецУлицы = Найти(нрег(Адрес)," проезд,")+7;
			ИначеЕсли Найти(нрег(Адрес)," нп,")>0 Тогда
				ПозицияКонецУлицы = Найти(нрег(Адрес)," нп,")+3;
			ИначеЕсли Найти(нрег(Адрес)," мкр,")>0 Тогда
				ПозицияКонецУлицы = Найти(нрег(Адрес)," мкр,")+4;
			ИначеЕсли Найти(нрег(Адрес)," б-р,")>0 Тогда
				ПозицияКонецУлицы = Найти(нрег(Адрес)," б-р,")+4;
			ИначеЕсли Найти(нрег(Адрес),"а/я")>0 Тогда
				ПозицияКонецУлицы = Найти(нрег(Адрес),"а/я")+3;
			ИначеЕсли Найти(нрег(Адрес)," площадь")>0 Тогда
				ПозицияКонецУлицы = Найти(нрег(Адрес)," площадь,")+8;
			ИначеЕсли Найти(нрег(Адрес)," проспект,")>0 Тогда
				ПозицияКонецУлицы = Найти(нрег(Адрес)," проспект,")+9;
			Иначе
				ПозицияКонецУлицы = СтрДлина(Адрес);
			КонецЕсли;
			ПредАдресНачало = Лев(Адрес,ПозицияКонецУлицы);
			АдресНачало = ПредАдресНачало;
			Если Прав(АдресНачало,3)<>"ул," Тогда
				Если Прав(АдресНачало,1)="," Тогда
					АдресНачало = Лев(АдресНачало,СтрДлина(АдресНачало)-1);
				КонецЕсли;
				АдресНачало = СокрЛП(АдресНачало)+" ул,";
			КонецЕсли;
			АдресКонец = СтрЗаменить(Адрес,ПредАдресНачало,"");
			АдресКонецТрансляция1 = нрег(АдресКонец);
			АдресКонецТрансляция2 = СтрЗаменить(АдресКонецТрансляция1," ул,"," ул########## дом № ");
			ФактическийАдрес2=АдресНачало+АдресКонецТрансляция2; 
			//Сообщить("2)"+ФактическийАдрес2);
			Если Найти(АдресКонецТрансляция2,"##########")=0 Тогда
				ВыделенныйНомерДомаНачало = 0;
			Иначе
				ВыделенныйНомерДомаНачало = Найти(АдресКонецТрансляция2," ул########## дом № ")+20;
			КонецЕсли;
			АдресКонецТрансляция2ДоНомераДома = Лев(АдресКонецТрансляция2,ВыделенныйНомерДомаНачало);
			//Сообщить("АдресКонецТрансляция2ДоНомераДома = "+АдресКонецТрансляция2ДоНомераДома);
			ВыделенныйНомерДомаБезКонца = СтрЗаменить(АдресКонецТрансляция2,АдресКонецТрансляция2ДоНомераДома,"");
			//Сообщить("ВыделенныйНомерДомаБезКонца = "+ВыделенныйНомерДомаБезКонца);
			Пока Лев(ВыделенныйНомерДомаБезКонца,1)="," Цикл
				ВыделенныйНомерДомаБезКонца = Прав(ВыделенныйНомерДомаБезКонца,СтрДлина(ВыделенныйНомерДомаБезКонца)-1);
			КонецЦикла;
			КонецНомераДома = Найти(ВыделенныйНомерДомаБезКонца,",");
			Если КонецНомераДома = 0 Тогда
				КонецНомераДома = Найти(ВыделенныйНомерДомаБезКонца,";");
			КонецЕсли;
			Если КонецНомераДома = 0 Тогда
				НомерДома = СокрЛП(ВыделенныйНомерДомаБезКонца);
				//проверить на неправильный корпус и т.д.
				//Сообщить("НомерДома1 = "+НомерДома);
				Если Найти("0123456789",Лев(НомерДома,1))>0 Тогда
					Если СтрДлина(НомерДома)>1 Тогда
						Если Найти("0123456789",Сред(НомерДома,2,1))>0 Тогда
							Если СтрДлина(НомерДома)>2 Тогда
								Если Найти("0123456789",Сред(НомерДома,3,1))>0 Тогда
									Если СтрДлина(НомерДома)>3 Тогда
										Если Найти("0123456789",Сред(НомерДома,4,1))>0 Тогда
											Если СтрДлина(НомерДома)>4 Тогда
												Если Найти("0123456789",Сред(НомерДома,5,1))>0 Тогда
													//Сообщить("Номер дома не корректный "+Адрес);
													Корпус = "";
												Иначе
													Корпус = "";
												КонецЕсли;
											КонецЕсли;
										Иначе
											Корпус = СокрЛП(Сред(НомерДома,4,100));
											НомерДома = СокрЛП(Лев(НомерДома,3));
										КонецЕсли;
									КонецЕсли;
								Иначе
									Корпус = СокрЛП(Сред(НомерДома,3,100));
									НомерДома = СокрЛП(Лев(НомерДома,2));
								КонецЕсли;
							КонецЕсли;
						Иначе
							Корпус = СокрЛП(Сред(НомерДома,2,100));
							НомерДома = СокрЛП(Лев(НомерДома,1));
						КонецЕсли;
					КонецЕсли;
				Иначе
					Корпус = НомерДома;
					НомерДома = "";
				КонецЕсли;
			Иначе
				НомерДома = Лев(ВыделенныйНомерДомаБезКонца,КонецНомераДома-1);
				Если Найти(ВыделенныйНомерДомаБезКонца,",,")>0 Тогда
				    ПозКвартиры = Найти(ВыделенныйНомерДомаБезКонца,",,")+1;
					Квартира = Прав(ВыделенныйНомерДомаБезКонца,СтрДлина(ВыделенныйНомерДомаБезКонца)-ПозКвартиры);
				КонецЕсли;
				Корпус = "";
				Если (Лев(НомерДома,2)="д.") 
				ИЛИ (Лев(НомерДома,2)="Д.") Тогда
				    НомерДома = СокрЛП(Прав(НомерДома,СтрДлина(НомерДома)-2));
				КонецЕсли;
				
				//Сообщить("НомерДома2 = "+НомерДома);
				
				Если Найти("0123456789",Лев(НомерДома,1))>0 Тогда
					Если СтрДлина(НомерДома)>1 Тогда
						Если Найти("0123456789",Сред(НомерДома,2,1))>0 Тогда
							Если СтрДлина(НомерДома)>2 Тогда
								Если Найти("0123456789",Сред(НомерДома,3,1))>0 Тогда
									Если СтрДлина(НомерДома)>3 Тогда
										Если Найти("0123456789",Сред(НомерДома,4,1))>0 Тогда
											Если СтрДлина(НомерДома)>4 Тогда
												Если Найти("0123456789",Сред(НомерДома,5,1))>0 Тогда
													//Сообщить("Номер дорма не корректный "+Адрес);
													Корпус = "";
												Иначе
													Корпус = СокрЛП(Сред(НомерДома,5,100));
													НомерДома = СокрЛП(Лев(НомерДома,4));
												КонецЕсли;
											КонецЕсли;
										Иначе
											Корпус = СокрЛП(Сред(НомерДома,4,100));
											НомерДома = СокрЛП(Лев(НомерДома,3));
										КонецЕсли;
									КонецЕсли;
								Иначе
									Корпус = СокрЛП(Сред(НомерДома,3,100));
									НомерДома = СокрЛП(Лев(НомерДома,2));
								КонецЕсли;
							КонецЕсли;
						Иначе
							Корпус = СокрЛП(Сред(НомерДома,2,100));
							НомерДома = СокрЛП(Лев(НомерДома,1));
						КонецЕсли;
					КонецЕсли;
				Иначе
					Корпус = НомерДома;
					НомерДома = "";
				КонецЕсли;
				Если Корпус = "" Тогда
					КолвоЗнаковНомерДома = СтрДлина(НомерДома)+1;//увеличили на запятую
					АдресКонецТрансляция3 = СокрЛП(Прав(ВыделенныйНомерДомаБезКонца,СтрДлина(ВыделенныйНомерДомаБезКонца)-КолвоЗнаковНомерДома));
					Если СокрЛП(АдресКонецТрансляция3)>"" Тогда
						Если Найти("0123456789",Лев(АдресКонецТрансляция3,1))=1 Тогда
							ПредполагаемаяКвартира = АдресКонецТрансляция3;
							КонецПредполагаемойКвартиры = Найти(ПредполагаемаяКвартира,",");
							Если КонецПредполагаемойКвартиры = 0 Тогда
								// все что записано в переменной квартира это действительно квартира
								Квартира = СокрЛП(ПредполагаемаяКвартира);
								Сообщить("КвартираБезКорпуса = "+Квартира);
							Иначе
								// оказывается это была не квартира а корпус
								Корпус = Лев(ПредполагаемаяКвартира,КонецПредполагаемойКвартиры);
								//Сообщить("Корпус = "+Корпус);
								Квартира = СтрЗаменить(АдресКонецТрансляция3,Корпус+",","");
								//Сообщить("Квартира = "+Квартира);
							КонецЕсли;
						ИначеЕсли Лев(АдресКонецТрансляция3,1)="," Тогда
							Корпус = "";
							Квартира = СтрЗаменить(АдресКонецТрансляция3,",","");
						Иначе
							//это корпус
							КонецКорпуса = Найти(АдресКонецТрансляция3,",");
							Корпус = Лев(АдресКонецТрансляция3,КонецКорпуса); 
							Корпус = СтрЗаменить(Корпус,",","");
							АдресКонецТрансляция3 = Прав(АдресКонецТрансляция3,СтрДлина(АдресКонецТрансляция3)-СтрДлина(Корпус));
							//Сообщить("Корпус = "+Корпус);
							Если Найти(АдресКонецТрансляция3,",")>0 Тогда
								Квартира = СокрЛП(Прав(АдресКонецТрансляция3,СтрДлина(АдресКонецТрансляция3)-КонецКорпуса+1));
							КонецЕсли;
							Квартира = СтрЗаменить(АдресКонецТрансляция3,",","");
						КонецЕсли;
					КонецЕсли;
				ИначеЕсли Лев(Корпус,1)=";" Тогда
					    Корпус = СокрЛП(Прав(Корпус,СтрДлина(Корпус)-1));
				КонецЕсли;
			КонецЕсли;
			Если СокрЛП(НомерДома)>"" Тогда
				Если Найти(АдресНачало,", дом №")=0 Тогда
					Если Прав(АдресНачало,1)="," Тогда
						ФактическийАдрес3=АдресНачало+" дом № "+НомерДома;
					Иначе
						ФактическийАдрес3=АдресНачало+", дом № "+НомерДома;
					КонецЕсли;
				КонецЕсли;
			КонецЕсли;
			Если СокрЛП(Корпус)>"" Тогда
				ФактическийАдрес3=ФактическийАдрес3+", корпус "+Корпус;
			КонецЕсли;
			Если СокрЛП(Квартира)>"" Тогда
				ФактическийАдрес3=ФактическийАдрес3+", квартира "+Квартира;
			КонецЕсли;
			//Сообщить("3)"+ФактическийАдрес3);
			Возврат ФактическийАдрес3;
		КонецЕсли;
КонецФункции

Предлагаемый синтаксический анализатор очень прост и не затейлив, опробован на загрузке адресов базы данных крупной торговой компании. Дает самый лучший результат из всего что я смог пощупать собственными руками и додумать. Если адрес не может разложиться, он сохраняется встроенным механизмом ERP как есть в виде представления, но не разложившихся адресов получается совсем не много. Единственное скажу - если адрес сильно замусорен, нестандартные головоломные значения попадают в поле "Корпус".

На стороне 1С 7.7 от нас требуется получить табличку вот такого вида:

Пример кода, который получает данную табличку - под следующим спойлером.

Процедура АдресаКонтрагентов()

Процедура АдресаКонтрагентов()
	//Компания
	//Частное лицо
	ГруппаКонтрагентов2 = СоздатьОбъект("Справочник.Контрагенты");
	ГруппаКонтрагентов = СоздатьОбъект("Справочник.Контрагенты");
	//КодКонтрагента = "00001107";
	РТ = глСформироватьТаблицуКонтрагентыЮрФизЛица(КодКонтрагента, 0);
	глПечатьТаблицы(РТ);
	РТ.НоваяКолонка("РабочееНаименование",,,,"Рабочее наименование");
	РТ.НоваяКолонка("Партнер",,,,"Партнер");
	РТ.НоваяКолонка("ЮрФизлицоERP","Строка",20,,"Юр/Физлицо", );
	РТ.НоваяКолонка("ФактическийАдрес",,,,"Фактический адрес");
	РТ.НоваяКолонка("ЮридическийАдрес",,,,"Юридический адрес");
	ПозУд = РТ.КоличествоСтрок();
	Пока ПозУд>0  Цикл
		РТ.ПолучитьСтрокуПоНомеру(ПозУд);
	    //Если РТ.Дата_ПЛ=Дата(1,1,1) Тогда
		//	РТ.УдалитьСтроку();
		//КонецЕсли;
		РТ.РабочееНаименование = РТ.Наименование;
		РТ.Партнер = РТ.Наименование;
		Если СокрЛП(РТ.ЮрКод)>"" Тогда
			Если Прав(РТ.Наименование,3) = " ИП" Тогда
				//РТ.ЮрФизлицоERP = "Индивидуальный предприниматель ";
				РТ.ЮрФизлицоERP = "Компания";
			Иначе
				РТ.ЮрФизлицоERP = "Компания";
			КонецЕсли;
			Адрес = РТ.ЮрФактАдрес;
		ИначеЕсли СокрЛП(РТ.ФизКод)>"" Тогда
			РТ.ЮрФизлицоERP = "Частное лицо";
			Адрес = РТ.ФизФактАдрес;
		КонецЕсли;
		//Сообщить("Фактический адрес");
		//Сообщить("1)"+Адрес);
		РТ.ФактическийАдрес = РазложитьАдресДляФИАС(Адрес);
		Если СокрЛП(РТ.ЮрКод)>"" Тогда
			Если Прав(РТ.Наименование,3) = " ИП" Тогда
				РТ.ЮрФизлицоERP = "Компания";
			Иначе
				РТ.ЮрФизлицоERP = "Компания";
			КонецЕсли;
			Адрес = РТ.ЮрЮрАдрес;
		ИначеЕсли СокрЛП(РТ.ФизКод)>"" Тогда
			РТ.ЮрФизлицоERP = "Частное лицо";
			Адрес = РТ.ФизЮрАдрес;
		КонецЕсли;
		//Сообщить("Юридический адрес");
		//Сообщить("1)"+Адрес);
		РТ.ЮридическийАдрес = РазложитьАдресДляФИАС(Адрес);
		ПозУд = ПозУд - 1;
	КонецЦикла;
	ГруппаКонтрагентов2.НайтиПоКоду(КодКонтрагента);
	ГруппаКонтрагентов = ГруппаКонтрагентов2.ТекущийЭлемент();

	глПечатьТаблицы(РТ,"ПечатьАдреса"+СокрЛП(КодКонтрагента)+СокрЛП(ГруппаКонтрагентов));
КонецПроцедуры

С точками партнеров (фактическими адресами забора и привоза товара) немножко больше возни, у них должны быть дополнительные "якоря", так как их идентифицировать надо в связке с контрагентом.

Пример кода для выгрузки адресов торговых точек прилагается под спойлером.

Процедура АдресаТорговыхТочекКонтрагентов()

Процедура АдресаТорговыхТочекКонтрагентов()
	//Компания
	//Частное лицо
	ГруппаКонтрагентов2 = СоздатьОбъект("Справочник.Контрагенты");
	ГруппаКонтрагентов = СоздатьОбъект("Справочник.Контрагенты");
	СпрТТ = СоздатьОбъект("Справочник.ТорговыеТочки"); 
	//КодКонтрагента = "00001107";
	РТ = глСформироватьТаблицуКонтрагентыЮрФизЛица(КодКонтрагента, 0);
	глПечатьТаблицы(РТ);
	РТ2 = СоздатьОбъект("ТаблицаЗначений");
	РТ2.НоваяКолонка("КодВладельцаТТ",,,,"Код владельца ТТ");
	РТ2.НоваяКолонка("Код77",,,,"Код 7.7");
	РТ2.НоваяКолонка("РабочееНаименование",,,,"Рабочее наименование");
	РТ2.НоваяКолонка("Партнер",,,,"Партнер");
	РТ2.НоваяКолонка("ЮрФизлицоERP","Строка",20,,"Юр/Физлицо", );
	РТ2.НоваяКолонка("ФактическийАдрес",,,,"Фактический адрес");
	//РТ2.НоваяКолонка("ЮридическийАдрес",,,,"Юридический адрес");
	ПозУд = РТ.КоличествоСтрок();
	Пока ПозУд>0  Цикл
		РТ.ПолучитьСтрокуПоНомеру(ПозУд);
		КодВладельцаТТ = СокрЛП(РТ.Код);
		ГруппаКонтрагентов2.НайтиПоКоду(КодВладельцаТТ);
		ГруппаКонтрагентов = ГруппаКонтрагентов2.ТекущийЭлемент();
		
		СпрТТ.ИспользоватьВладельца(ГруппаКонтрагентов);
		СпрТТ.ВыбратьЭлементы();
		Пока СпрТТ.ПолучитьЭлемент()=1 Цикл
			РТ2.НоваяСтрока();
			РТ2.РабочееНаименование = СпрТТ.Наименование;
			РТ2.Партнер = СпрТТ.Наименование;
			РТ2.КодВладельцаТТ = КодВладельцаТТ;
			РТ2.Код77 = СпрТТ.Код;
			Если СокрЛП(РТ.ЮрКод)>"" Тогда
				Если Прав(РТ.Наименование,3) = " ИП" Тогда
					//РТ.ЮрФизлицоERP = "Индивидуальный предприниматель ";
					РТ2.ЮрФизлицоERP = "Компания";
				Иначе
					РТ2.ЮрФизлицоERP = "Компания";
				КонецЕсли;
			ИначеЕсли СокрЛП(РТ.ФизКод)>"" Тогда
				РТ2.ЮрФизлицоERP = "Частное лицо";
			КонецЕсли;
			Адрес = СпрТТ.Адрес;
			РТ2.ФактическийАдрес = РазложитьАдресДляФИАС(Адрес);
		КонецЦикла;
		ПозУд = ПозУд - 1;
	КонецЦикла;
	ГруппаКонтрагентов2.НайтиПоКоду(КодКонтрагента);
	ГруппаКонтрагентов = ГруппаКонтрагентов2.ТекущийЭлемент();
	глПечатьТаблицы(РТ2,"СписокТорговыхТочек"+СокрЛП(КодКонтрагента)+СокрЛП(ГруппаКонтрагентов));
КонецПроцедуры

На всякий случай служебная функция, которая готовит список контрагентов для дозаполнения адресов - у помеченных элементов контрагентов и точек не должно быть адресов, чтобы отсечь путаницу у транспотрной логистики. Сами контрагенты и точки переносились ранее по правилам КД2 все без исключений (так как они могут быть в переносимых документах), процесс начального заполнения контрагентов и точек описан ранее в //infostart.ru/public/1100236/

***** глСформироватьТаблицуКонтрагентыЮрФизЛица *****

//******************************************* глСформироватьТаблицуКонтрагентыЮрФизЛица **************
// извлекает свойства всех контрагентов (кроме группы устаревщих) по коду выбранной группы или элемента 
// Пример запуска:
//Процедура СформироватьЦены()
	//КодКонтрагента = "Кб002338";ВыгрузитьГруппы = 0;
	//ТЗ = глСформироватьТаблицуКонтрагентыЮрФизЛица(КодКонтрагента, ВыгрузитьГруппы);
	//глПечатьТаблицы(ТЗ);
//КонецПроцедуры
Функция глСформироватьТаблицуКонтрагентыЮрФизЛица(КодКонтрагента="", ВыгрузитьГруппы=0) Экспорт

	Перем Запрос, ТекстЗапроса;
	ГруппаКонтрагентов2 = СоздатьОбъект("Справочник.Контрагенты");
	ГруппаКонтрагентов = СоздатьОбъект("Справочник.Контрагенты");

	ГруппаУстаревшие = СоздатьОбъект("Справочник.Контрагенты");
	Если ГруппаУстаревшие.НайтиПоКоду("У0000001") = 0 Тогда
		Возврат -1;
	КонецЕсли;

	Запрос = СоздатьОбъект("Запрос");
	ТекстЗапроса = 
	"//{{ЗАПРОС(Контрагенты)
	|ТекущийЭлемент = Справочник.Контрагенты.ТекущийЭлемент;
	|Код = Справочник.Контрагенты.Код;
	|Наименование = Справочник.Контрагенты.Наименование;
	//|Родитель = Справочник.Контрагенты.Родитель;
	|ЮрФизЛицо = Справочник.Контрагенты.ЮрФизЛицо;
	|ОсновнойДоговор = Справочник.Контрагенты.ОсновнойДоговор;
	|ОсновнойСчет = Справочник.Контрагенты.ОсновнойСчет;
	|Идентификатор = Справочник.Контрагенты.Идентификатор;
	|ЭлПочта = Справочник.Контрагенты.ЭлПочта;
	|Сайт = Справочник.Контрагенты.Сайт;
	|ПрайсЛист = Справочник.Контрагенты.ПрайсЛист;
	|ТоргОпция = Справочник.Контрагенты.ТоргОпция;
	|МинСуммаКредита = Справочник.Контрагенты.МинСуммаКредита;
	|Проводить = Справочник.Контрагенты.Проводить;
	|Район = Справочник.Контрагенты.Район;
	|КОБ = Справочник.Контрагенты.КОБ;
	|Замена = Справочник.Контрагенты.Замена;
	|КОБGillette = Справочник.Контрагенты.КОБGillette;
	|КОБNivea = Справочник.Контрагенты.КОБNivea;
	|ЭтоПоставщик = Справочник.Контрагенты.ЭтоПоставщик;
	|КодПоставщика = Справочник.Контрагенты.КодПоставщика;
	|ПерваяСтрока = Справочник.Контрагенты.ПерваяСтрока;
	|КолонкаКоличество = Справочник.Контрагенты.КолонкаКоличество;
	|КолонкаШтрихкода = Справочник.Контрагенты.КолонкаШтрихкода;
	|КолонкаЦены = Справочник.Контрагенты.КолонкаЦены;
	|КолонкаОстатка = Справочник.Контрагенты.КолонкаОстатка;
	|НастоящиеПодписи = Справочник.Контрагенты.НастоящиеПодписи;
	|ВыгруженВExceed = Справочник.Контрагенты.ВыгруженВExceed;
	|Приоритет = Справочник.Контрагенты.Приоритет;
	|НужнаТОРГ12 = Справочник.Контрагенты.НужнаТОРГ12;
	|Пн = Справочник.Контрагенты.Пн;
	|Вт = Справочник.Контрагенты.Вт;
	|Ср = Справочник.Контрагенты.Ср;
	|Чт = Справочник.Контрагенты.Чт;
	|Пт = Справочник.Контрагенты.Пт;
	|Сб = Справочник.Контрагенты.Сб;
	|Вс = Справочник.Контрагенты.Вс;
	|НеДействуетОграничениеПоСтроке = Справочник.Контрагенты.НеДействуетОграничениеПоСтроке;
	|ДатаЗапретаРедактированияДокументовКонтрагента = Справочник.Контрагенты.ДатаЗапретаРедактированияДокументовКонтрагента;
	//|ТекущийЭлемент1 = Справочник.Контрагенты.ЮрФизЛицо.ТекущийЭлемент;
	|ЮрФизЛицоКод = Справочник.Контрагенты.ЮрФизЛицо.Код;
	|ЮрФизЛицоНаименование = Справочник.Контрагенты.ЮрФизЛицо.Наименование;
	|Группировка ТекущийЭлемент;";
	Если СокрЛП(КодКонтрагента) > "" Тогда
		//|Условие(ТекущийЭлемент В ВыбНоменклатура);
		ГруппаКонтрагентов2.НайтиПоКоду(КодКонтрагента);
		ГруппаКонтрагентов = ГруппаКонтрагентов2.ТекущийЭлемент();
		//Сообщить(ВыбНоменклатура);
		ТекстЗапроса = ТекстЗапроса + "
		|Условие(ТекущийЭлемент В ГруппаКонтрагентов);
		|";
	КонецЕсли;
	ТЗ = СоздатьОбъект("ТаблицаЗначений");
	Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
		Возврат ТЗ;
	КонецЕсли;
	Запрос.Выгрузить(ТЗ,3,0);
	ТЗ.НоваяКолонка("Родитель");
	ТЗ.НоваяКолонка("РодКод");
	ТЗ.НоваяКолонка("ЮрКод");
	ТЗ.НоваяКолонка("ЮрНаименование");
	ТЗ.НоваяКолонка("ЮрПолнНаименование");
	ТЗ.НоваяКолонка("ЮрИНН");
	ТЗ.НоваяКолонка("ЮрОКПО");
	ТЗ.НоваяКолонка("ЮрТелефоны");
	ТЗ.НоваяКолонка("ЮрЮрАдрес");
	ТЗ.НоваяКолонка("ЮрФактАдрес");
	ТЗ.НоваяКолонка("ЮрКомментарий");
	ТЗ.НоваяКолонка("ФизКод");
	ТЗ.НоваяКолонка("ФизНаименование");
	ТЗ.НоваяКолонка("ФизПолнНаименование");
	ТЗ.НоваяКолонка("ФизИНН");
	ТЗ.НоваяКолонка("ФизТелефоны");
	ТЗ.НоваяКолонка("ФизЮрАдрес");
	ТЗ.НоваяКолонка("ФизФактАдрес");
	ТЗ.НоваяКолонка("ФизКомментарий");
    ТЗ.НоваяКолонка("УдСтр");
	ТекКонтрагент = СоздатьОбъект("Справочник.Контрагенты");
	ТЗ.ВыбратьСтроки();
	Пока ТЗ.ПолучитьСтроку()=1 Цикл
		ТекКонтрагент.НайтиЭлемент(ТЗ.ТекущийЭлемент);
		Если ВыгрузитьГруппы > 0 Тогда
			Если ТекКонтрагент.ЭтоГруппа()=0 Тогда
				ТЗ.УдСтр=1;
				Продолжить;
			КонецЕсли;
		ИначеЕсли ((ТекКонтрагент.ЭтоГруппа()=0)
		И (ТекКонтрагент.ПометкаУдаления()=1)) Тогда
			ТЗ.УдСтр=1;
			Продолжить;
		КонецЕсли;
		Если (ТекКонтрагент.ПринадлежитГруппе(ГруппаУстаревшие) = 1) Тогда
			ТЗ.УдСтр=1;
			Продолжить;
		КонецЕсли;
		Если ТекКонтрагент.ЭтоГруппа()=0 Тогда
			Если ТекКонтрагент.ЮрФизЛицо.Вид() = "ФизЛица" Тогда
				ТЗ.ФизКод = ТекКонтрагент.ЮрФизЛицо.Код;
				ТЗ.ФизНаименование = ТекКонтрагент.ЮрФизЛицо.Наименование;
				ТЗ.ФизПолнНаименование = ТекКонтрагент.ЮрФизЛицо.ПолнНаименование;
				ТЗ.ФизИНН = ТекКонтрагент.ЮрФизЛицо.ИНН;
				ТЗ.ФизТелефоны = ТекКонтрагент.ЮрФизЛицо.Телефоны;
				ТЗ.ФизЮрАдрес = ТекКонтрагент.ЮрФизЛицо.ЮрАдрес;
				ТЗ.ФизФактАдрес = ТекКонтрагент.ЮрФизЛицо.ФактАдрес;
				ТЗ.ФизКомментарий = ТекКонтрагент.ЮрФизЛицо.Комментарий;
			Иначе
				ТЗ.ЮрКод = ТекКонтрагент.ЮрФизЛицо.Код;
				ТЗ.ЮрНаименование = ТекКонтрагент.ЮрФизЛицо.Наименование;
				ТЗ.ЮрПолнНаименование = ТекКонтрагент.ЮрФизЛицо.ПолнНаименование;
				ТЗ.ЮрИНН = ТекКонтрагент.ЮрФизЛицо.ИНН;
				ТЗ.ЮрОКПО = ТекКонтрагент.ЮрФизЛицо.ОКПО;
				ТЗ.ЮрТелефоны = ТекКонтрагент.ЮрФизЛицо.Телефоны;
				ТЗ.ЮрЮрАдрес = ТекКонтрагент.ЮрФизЛицо.ЮрАдрес;
				ТЗ.ЮрФактАдрес = ТекКонтрагент.ЮрФизЛицо.ФактАдрес;
				ТЗ.ЮрКомментарий = ТекКонтрагент.ЮрФизЛицо.Комментарий;
			КонецЕсли;
		ИначеЕсли ВыгрузитьГруппы = 0 Тогда
			ТЗ.УдСтр=1;
			Продолжить;
		КонецЕсли;
		ТЗ.Код = ТекКонтрагент.Код;
		ТЗ.Наименование = ТекКонтрагент.Наименование;
		ТЗ.Родитель = СокрЛП(ТекКонтрагент.Родитель.Наименование);
		ТЗ.РодКод = СокрЛП(ТекКонтрагент.Родитель.Код);
	КонецЦикла;	
	Всего=ТЗ.Количествострок();        
	Сч=1;        
	Пока Сч<=Всего цикл        
		Состояние("Обработка строк: "+строка(Сч)+" из "+строка(Всего));
		ТЗ.ПолучитьСтрокуПоНомеру(Сч);
		Если ТЗ.УдСтр=1 Тогда
			ТЗ.Удалитьстроку(Сч);
			Всего = Всего-1;
		Иначе
			Сч=Сч+1;
		КонецЕсли;    
	Конеццикла;
    ТЗ.УдалитьКолонку("УдСтр");
	//глПечатьТаблицы(ТЗ);
	Возврат ТЗ;
	
КонецФункции

Теперь к самому главному - о том, как загрузить полученные адреса в современную конфигурацию на примере ERP.

Настраиваем соответствие полей

Выбираем поля по которым будет найден элемент для обновления адреса - сопоставить надо по совпадающему между 7.7 и ERP полю, например по коду 7.7 или по наименованию.

При нажатии на кнопку "Загрузить данные" для сопоставленных строк будут загружены адреса, где возможно (в большинстве случаев) они уже будут разложены по полям ФИАС, в совсем нестандартных случаях останется только текстовое представление адреса, которое позже пользователи смогут разложить вручную.

Обратите внимание, нет предела совершенству! При наличии свободного времени не сложно дописамь мою обработку так что ФИАС современной конфигурации (например ERP) поймет любые безумно сложные крези-адреса!

Вступайте в нашу телеграмм-группу Инфостарт

КЛАДР ФИАС

+9 –

См. также

Перенос данных из 1С:Бухгалтерия 7.7 в БП 3.0. Переносятся остатки, документы и справочники

Файловый обмен (TXT, XML, DBF), FTP Перенос данных 1C Разработчик 1С:Предприятие 7.7 1С:Предприятие 8 1С:Бухгалтерия 7.7 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Перенос данных из 1С:Бухгалтерия 7.7 в БП 3.0 | Продукт является развитием и исправлением ошибок стандартной обработки для выгрузки данных из 1С Бухгалтерии 7.7 в Бухгалтерию 3.0 | Перенос из 7.7 является сложным, и на рынке сложно найти специалистов 1С по "семерке" - сотрудники помогут вам выполнить переход в рамках техподдержки предлагаемого переноса данных!

58000 руб.

26.05.2020 39811 14 100

Загрузка банковской выписки для 1С 7.7 любой конфигурации

Банковские операции Загрузка и выгрузка в Excel Бухгалтер Пользователь 1С:Предприятие 7.7 1C77 Россия Бухгалтерский учет Платные (руб)

Решение предоставляет комплексную загрузку банковской выписки из CSV, XLS, TXT файла в 1С 7.7 любой конфигурации. Позволяет создавать документы выбранного вида, например "Строка выписки банка (приход/расход)", или многострочный табличный документ, например Выписка, для каждой операции из загружаемого файла банковской выписки. Загружает реквизиты документа, а также создаёт контрагентов и другие необходимые элементы справочников.

5999 руб.

29.07.2021 28832 23 27

Переход с 1С:Комплексной 7.7 на 1С:УТ 10.3

Перенос данных 1C Разработчик 1С:Предприятие 7.7 1С:Предприятие 8 1С:Управление торговлей 10 1С:Комплексная 7.7 Россия Управленческий учет Платные (руб)

Начните вести учет в УТ 10.3! Перенесите все свои данные в УТ 10.3 в любом месяце года и продолжите вести учет! Программа перенесёт любое количество баз с документами и остатками в больших количествах. Обработка выгрузки выполнит проверку исходных данных и сформирует отчет о найденных ошибках в справочниках и документах. Партии переносятся с себестоимостью. Штрихкоды номенклатуры загружаются. Цена переносится. Автор консультирует.

8540 руб.

17.03.2021 18173 5 13

Обмен данными ЗУП 3.1 - Бухгалтерия 7.7

Зарплата Перенос данных 1C Разработчик Бухгалтер Бухгалтерский учет 7.7 1С:Предприятие 8 1С:Бухгалтерия 7.7 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет Платные (руб)

Как известно, Бухгалтерия 7.7 не имеет штатной возможности для обмена с ЗУП 3.1. Данная разработка пригодится тем, кто перешел с ЗиК 2.3 на ЗУП 3.1, но вынужден по каким-то своим причинам оставаться на Бухгалтерии 7.7.

18300 руб.

29.09.2020 15495 2 0

Выгрузка данных из 1С 7.7. в формате EnterpriseData 1.6 (универсальный формат обмена) в конфигурации 8.3

Перенос данных 1C Разработчик 1С:Предприятие 7.7 1С:Предприятие 8 1С:Торговля и склад 7.7 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 Россия Бухгалтерский учет Управленческий учет Платные (руб)

Автоматизируйте обмен данными между 1С 7.7 и 8.3 за 1 день. Выгрузка в стандартном формате EnterpriseData 1.6 без доработок на принимающей стороне.

7320 руб.

18.05.2020 29584 80 43

Поддержка выгрузки в Excel 2007 для 1С 7.7 в одну строку

Разработка внешних компонент Загрузка и выгрузка в Excel Разработчик 1С:Предприятие 7.7 1C77 Абонемент ($m)

Внешняя компонента 1С 7.7. для сохранения таблиц в формате Excel 2007.

1 стартмани

21.03.2019 35368 88 MadDAD 347

Создание в 1С 7.7 XML в формате EnterpriseData (универсальный формат обмена), версия 1.5. Инструкции и примеры переноса данных из устаревшей конфигурации 1С 7.7 в любую современную 1С 8.3, поддерживающую EnterpriseData, через Конвертацию данных 3

Файловый обмен (TXT, XML, DBF), FTP Перенос данных 1C Разработчик 1С:Предприятие 7.7 1С:Предприятие 8 1C77 Россия Абонемент ($m)

Воспользоваться современным средством переноса данных "Конвертация данных 3.0.5.3" можно только выгрузив из системы - источника данных XML в формате обмена данными EnterpriseData. В этой публикации можно скачать приемы выгрузки из 1С 7.7 универсального формата обмена для Конвертации данных 3. Выполняем перенос данных из «1С:Предприятие 7.7» в «1С:Предприятие 8.3». Используем Конвертацию данных КД 3.0 из 1c 7.7 --> 1С 8.3. На первой стадии еще не опубликовано иного способа подложить файл для Конвертации данных 3 кроме как сформировать его вручную, постараемся решить данную проблему.

1 стартмани

26.02.2018 68807 83 ksnik 5

Не хватает памяти (OUT OF MEMORY) при переносе данных из 7.7

Перенос данных 1C Системный администратор Разработчик 1С:Предприятие 7.7 1С:Бухгалтерия 7.7 Россия Бесплатно (free)

Увеличение используемой памяти для 1С: 7.7

22.03.2017 28460 Amadeuc404 15

Комментарии

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

Свернуть все

1. markers 279 16.08.19 06:36 Сейчас в теме

Действительно, нет предела совершенству...
Простите, а вот такие портянки

Если (Лев(АдресКонецТрансляция3,1)="0")
ИЛИ (Лев(АдресКонецТрансляция3,1)="1")
ИЛИ (Лев(АдресКонецТрансляция3,1)="2")
ИЛИ (Лев(АдресКонецТрансляция3,1)="3")
ИЛИ (Лев(АдресКонецТрансляция3,1)="4")
ИЛИ (Лев(АдресКонецТрансляция3,1)="5")
ИЛИ (Лев(АдресКонецТрансляция3,1)="6")
ИЛИ (Лев(АдресКонецТрансляция3,1)="7")
ИЛИ (Лев(АдресКонецТрансляция3,1)="8")
ИЛИ (Лев(АдресКонецТрансляция3,1)="9")

Показать

Зачем? И так несколько раз у вас. Разве нельзя написать так

КодСимвола = КодСимвола(Лев(АдресКонецТрансляция3,1));
Если КодСимвола >= 48 и КодСимвола <= 57 Тогда

Или на худой конец, преобразовать в число и уже его проверить. Я уже молчу про это:

Если (Найти(нрег(Адрес),", кв.")>0) Тогда
    Адрес = СтрЗаменить(Адрес, ", кв.",", квартира ");
ИначеЕсли (Найти(нрег(Адрес),", Кв.")>0) Тогда
   Адрес = СтрЗаменить(Адрес, ", Кв.",", квартира ");
ИначеЕсли (Найти(нрег(Адрес),", КВ.")>0) Тогда
    Адрес = СтрЗаменить(Адрес, ", КВ.",", квартира ");
ИначеЕсли (Найти(нрег(Адрес),",кв.")>0) Тогда
    Адрес = СтрЗаменить(Адрес, ",кв.",",квартира ");
ИначеЕсли (Найти(нрег(Адрес),",Кв.")>0) Тогда
    Адрес = СтрЗаменить(Адрес, ",Кв.",",квартира ");
ИначеЕсли (Найти(нрег(Адрес),",КВ.")>0) Тогда
    Адрес = СтрЗаменить(Адрес, ",КВ.",",квартира ");

Показать

часть условий бессмыслено так как везде стоит "нрег" и они не выполнятся ни когда. Можно было вместо этого списка сделать такую проверку

Если (Найти(нрег(СтрЗаменить(Адрес, " ", "")),",кв.")>0) Тогда

И дальше парсить (что лучше) или на худой конец поставить кучу СтрЗаменить вообще без условия. И если я не ошибаюсь (а я с 77 почти не работал) всё это можно и в ней.

2. ksnik 728 16.08.19 07:55 Сейчас в теме

(1)

поставить кучу СтрЗаменить вообще без условия

Вот это точно негодное предложение, смысл проделанной работы не в том чтобы что-то тупо заменить, а в том, в какой последовательности. Суть предложения не в том, чтобы блеснуть своим хитро-микро-думо-мудро-программированием, а чтобы поделиться простым решением сложной проблемы. Спасибо, подумаю над первой частью, но перенос данных уже произошел, главное чтобы сделать качественный перенос данных. Оно работает достаточно быстро и понятно и без того.

3. markers 279 16.08.19 07:59 Сейчас в теме

(2) Ну так вашем случае часть условий не выполнима. То что делать чисто СтрЗаменить, согласен не лучший вариант (ибо можно заменить что-то в другом месте). Лучший вариант (на мой взгляд) это парсинг. Нашли через "Найти" точку отправления и от неё уже двигаться до запятой, этот кусок между отправной точкой и запятой, можно спокойно перевести в нижний регистр, удалить пробелы и сделать один СтрЗаменить и прибавить полученный результат к результирующей строке

4. ksnik 728 16.08.19 08:11 Сейчас в теме

(3) Мне лично нравится более наглядный код даже если я потеряю производительность, возможно это специфика моего взгляда на жизнь. Более медленный и наглядный код не хочется менять даже на более оптимальный но менее читаемый, пусть даже речь будет не об одной лишней секунде работы программы.

КодСимвола = КодСимвола(Лев(АдресКонецТрансляция3,1));
Если КодСимвола >= 48 и КодСимвола <= 57 Тогда

будет сложнее читать в контексте АдресКонецТрансляция3.
За совет по оптимизации спасибо!

5. markers 279 16.08.19 08:15 Сейчас в теме

(4) Речь не столько о производительности, сколько о том что часть условий ни когда не выполнится, вот посмотрите внимательно

ИначеЕсли (Найти(нрег(Адрес),", Кв.")>0) Тогда
ИначеЕсли (Найти(нрег(Адрес),", КВ.")>0) Тогда
ИначеЕсли (Найти(нрег(Адрес),",Кв.")>0) Тогда
ИначеЕсли (Найти(нрег(Адрес),",КВ.")>0) Тогда

В условии идет перевод в нижний регистр. И нрег(",КВ.") не будет равно ",КВ.". Может конечно 77 на регистр плевать при поиске....

6. ksnik 728 16.08.19 08:16 Сейчас в теме

(5) согласен с (4), нрег в этом случае помешало сохранить регистр источника и достаточно первой ветки отквоченного условия, остальные не нужны.
Вот это:

СтрЗаменить(Адрес, " ", "")

очень плохая идея. Правильный вариант будет такой:

Если (Найти(нрег(Адрес),",  кв.")>0) Тогда
    Адрес = СтрЗаменить(Адрес, ",  кв.",", квартира ");
ИначеЕсли (Найти(нрег(Адрес),", кв.")>0) Тогда
    Адрес = СтрЗаменить(Адрес, ", кв.",", квартира ");
ИначеЕсли (Найти(нрег(Адрес),",кв.")>0) Тогда
    Адрес = СтрЗаменить(Адрес, ",кв.",",квартира ");

7. markers 279 16.08.19 11:13 Сейчас в теме

(6) и то можно сократить до такого:

Адрес = СтрЗаменить(Адрес, " 
 ", " ");
Если (Найти(нрег(Адрес),", кв.")>0) Тогда
    Адрес = СтрЗаменить(Адрес), ", кв.",", квартира ");
ИначеЕсли (Найти(нрег(Адрес),",кв.")>0) Тогда
    Адрес = СтрЗаменить(Адрес, ",кв.",",квартира ");

я если честно не вижу ситуации, где двойной пробел был бы важен и его нельзя было убрать.

11. CheBurator 3235 16.08.19 13:38 Сейчас в теме

(7)

Адрес = СтрЗаменить(Адрес, " ", " ");

также, надо понимать что такой код при, например, 4 пробелах подряд никогда не заменит 4 пробела на один пробел... или три пробела на 1 пробел

8. insurgut 208 16.08.19 11:18 Сейчас в теме

(6)

Правильный вариант будет такой

А в данном случае не достаточно двух условий?

Если (Найти(нрег(Адрес)," кв.")>0) Тогда
    Адрес = СтрЗаменить(Адрес, " кв."," квартира ");
ИначеЕсли (Найти(нрег(Адрес),",кв.")>0) Тогда
    Адрес = СтрЗаменить(Адрес, ",кв.",", квартира ");

Ну и перед проверкой не лишним будет сразу избавиться от двойных/тройных/четверных/пятерных пробелов

Адрес = СтрЗаменить(Адрес, "     ", " ");
Адрес = СтрЗаменить(Адрес, "    ", " ");
Адрес = СтрЗаменить(Адрес, "   ", " ");
Адрес = СтрЗаменить(Адрес, "  ", " ");

9. ksnik 728 16.08.19 11:41 Сейчас в теме

(8) по цитате 1 - только в совокупности с решением по цитате №2, по цитате 2 да, но в адресе могут быть не только пробелы с кодом 40. Благодарю!

10. CheBurator 3235 16.08.19 13:36 Сейчас в теме

(4) ну, все-таки исходим из того что код будет читать какой-никакой программист, а не менеджер
на крайняк можно юхать для читабельности чтото типа
Найти("0123456789",СимволИзСтроки)