create proc rar22
(
@aoid varchar(2048),
@str varchar(2048),
@FORMALNAME varchar(2048),
@SHORTNAME varchar(2048),
@PARENTGUID varchar(2048)
)	
as
begin
select
@FORMALNAME = FORMALNAME,
@SHORTNAME = SHORTNAME,
@PARENTGUID = PARENTGUID
from FIAS_ADDROBJ
where AOID = @aoid

select @str = @FORMALNAME + ' '+ @SHORTNAME

while (@PARENTGUID <> '')
   select
   @FORMALNAME = FORMALNAME,
   @SHORTNAME = SHORTNAME,
   @PARENTGUID = PARENTGUID
   from FIAS_ADDROBJ
   where AOGUID = @PARENTGUID

   if @PARENTGUID <> ''
         select @str = @FORMALNAME + ' '+ @SHORTNAME
		 update rtt_net7 set fias_name= @str
		 
		

end

SELECT * FROM FIAS_ADDROBJ WHERE AOID = " + aoid +"
SELECT * FROM FIAS_ADDROBJ WHERE AOGUID = '" + PARENTGUID +FORMALNAME+SHORTNAME "' AND ACTSTATUS = 1"
USE licenses; UPDATE RTT_net SET fias_name = '" + aoid + "' WHERE id = "

Функция ПолучитьАдрФИАС(aoid)
ун_код = aoid;
Если ПустаяСтрока(ун_код) Тогда
    Возврат "";
КонецЕсли;    
ConnectionRAR = Новый COMОбъект("ADODB.Connection"); 
ConnectionRAR.Open
Str = Новый COMОбъект("ADODB.RecordSet");
Str.Open("SELECT * FROM FIAS_ADDROBJ WHERE AOID = '" + ун_код + "'",ConnectionRAR);  
стр_возвр = "";
Пока Str.EOF() = 0 Цикл 
    стр_возвр = "" + УбратьКав(Str.Fields("FORMALNAME").Value) + " " + Str.Fields("SHORTNAME").Value;
    родитель = Str.Fields("PARENTGUID").Value;
    Str.MoveNext(); 
КонецЦикла; 

Для иии = 1 По 7 Цикл 
    Если родитель = """" + """" Тогда
        Возврат стр_возвр;
        Прервать;
    КонецЕсли;
    Str = Новый COMОбъект("ADODB.RecordSet");
    Str.Open("SELECT * FROM FIAS_ADDROBJ WHERE AOGUID = '" + родитель + "' AND ACTSTATUS = 1",ConnectionRAR);  
    Пока Str.EOF() = 0 Цикл 
         стр_возвр= "" + УбратьКав(Str.Fields("FORMALNAME").Value) + " " + Str.Fields("SHORTNAME").Value + " " + стр_возвр;
        родитель = Str.Fields("PARENTGUID").Value;
        Str.MoveNext(); 
    КонецЦикла; 
КонецЦикла; 
ConnectionRAR.Close();
Возврат стр_возвр;

КонецФункции

Процедура ПроставитьАдресаФИАС(Элемент)
ConnectionRAR1 = Новый COMОбъект("ADODB.Connection"); 
ConnectionRAR1.Open
Command = Новый COMОбъект("ADODB.Command");
Command.ActiveConnection = ConnectionRAR1;
Для каждого стр Из ТаблицаПартий3 Цикл 
    Если (НЕ ПустаяСтрока(стр.aoid)) И ПустаяСтрока(стр.fias_name) Тогда
        Сообщить("!!!!!!!!!!    " + стр.rtt_addr);    
        адр_фиас = ПолучитьАдрФИАС(стр.aoid);
        Command.CommandText =  "USE licenses; UPD ATE RTT_net SET fias_name = '" + адр_фиас + "' WH ERE id = " + УбратьПробелы(Строка(стр.id));
        Command.Execute();
    КонецЕсли;
КонецЦикла; 
ConnectionRAR1.Close();
КонецПроцедуры

create proc ID2Fias
@id int
as
declare
@str   varchar(2048),
@aoid  varchar(2048),
@parentid varchar(2048),
@i int

select @aoid = AOID
from rtt_net7
where id = @id

SELECT 
  @str = FORMALNAME + ' '+ SHORTNAME, -- Кавычки
  @parentid = PARENTGUID 
FROM FIAS_ADDROBJ 
WHERE AOID = @aoid 

select @i = 0

while @i < 7
begin
if not isnull(@parentid,'""') = '""'
    select 
	   @str = FORMALNAME + ' '+ SHORTNAME + ' '+ @str,
	   @parentid = PARENTGUID 
	   from FIAS_ADDROBJ WHERE AOGUID = @parentid AND ACTSTATUS = 1   
select @i = @i + 1
end

select @str

update rtt_net7 
set fias_name = @str
where id = @id


go