Функция ПолучитьАдрФИАС(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

CREATE TABLE #TMP
(
   ii int
)
GO

INSERT INTO #TMP(ii) VALUES(1)
INSERT INTO #TMP(ii) VALUES(2)
INSERT INTO #TMP(ii) VALUES(3)

GO

--Create a cursor.
DECLARE cur CURSOR
FOR SELECT * FROM #TMP

--Display the status of the cursor before and after opening
--closing the cursor.

SELECT CURSOR_STATUS('global','cur') AS 'After declare'
OPEN cur
SELECT CURSOR_STATUS('global','cur') AS 'After Open'
CLOSE cur
SELECT CURSOR_STATUS('global','cur') AS 'After Close'

--Remove the cursor.
DEALLOCATE cur

--Drop the table.
DROP TABLE #TMP

CREATE PROCEDURE [dbo].[sp_UpdateCouponCount]
AS

Declare     @couponCount int,
            @CouponName nvarchar(50),
            @couponIdFromQuery int


Declare curP cursor For

  select COUNT(*) as totalcount , Name as name,couponuse.couponid  as couponid from Coupon as coupon 
  join CouponUse as couponuse on coupon.id = couponuse.couponid
  where couponuse.id=@cuponId
  group by couponuse.couponid , coupon.Name

OPEN curP 
Fetch Next From curP Into @couponCount, @CouponName,@couponIdFromQuery

While @@Fetch_Status = 0 Begin

    print @couponCount
    print @CouponName

    update Coupon SET NoofUses=@couponCount
    where couponuse.id=@couponIdFromQuery


Fetch Next From curP Into @couponCount, @CouponName,@couponIdFromQuery

End -- End of Fetch

Close curP
Deallocate curP