IF (EXISTS (select proc_name from sysprocedure where LCase(proc_name)=LCase('SetVtdWithoutVat'))) THEN
Drop procedure SetVtdWithoutVat
END IF

GO

create procedure SetVtdWithoutVat()
begin
  declare InvName varchar(50);
  declare SetName varchar(50);
  declare MinN    integer;
  set InvName='Опростена Сметка договор-ваучер в ';
  for f as curs scroll cursor for
     select KodCurrency as @KodCurrency,Symbol as @Symbol
     from Currencies
     where KodCurrency>1  and KodCurrency<=3
     order By KodCurrency
  do
     set SetName=InvName+@Symbol;
     if (select count(*) from VidSmetki where SmetkaIme=SetName)=0 then
        select MIN(N) into MinN from VidSmetki;
        if  MinN>0 then
          set MinN=0;
        end if;
        insert into VidSmetki(N,SmetkaIme,KodCurrency,SmetkaFile,IsFaktura,SvoService,TextPrint,SlujSmetka,Language)
                   values    ((MinN-1),SetName,@KodCurrency,'OprFaktura.qri',1,0,0,4,0);
     end if
  end for;
end;


GO

Call  SetVtdWithoutVat();