Preračun knjiženja u stranu valutu

Preračun knjiženja u stranu valutu

Često moramo preračunati određene naloge za kljiženje, koji su knjiženi u primarnoj valuti u stranu valutu (npr. za bilans u stranoj valuti).

Sledeći SQL vrši konverziju:

declare
  @cKljuc char(11),
  @iPoz int,
  @fDebet money,
  @fKredit money,
  @fTecaj money,
  @cValuta char(3),
  @dDatum datetime

set nocount on
set @cValuta = 'EUR'    -- valuta, u koju preračunavamo

declare crKurzor cursor local fast_forward for
  select KLJUC,POZ,DEBET,KREDIT,DATUMDOK
  from TEMEPOZ 
  where VALUTA <> @cValuta
    and -- OVDE UNESITE DODATNI USLOV,..


open crKurzor
fetch next from crKurzor into @cKljuc, @iPoz, @fDebet, @fKredit, @dDatum
  while @@fetch_status = 0
    begin
      -- u ovom slučaju po srednjem kursu. NBS, promenite ako koristite drugi kurs
      exec dl_PoisciTecaj 'BS - Srednji','EUR',@dDatum,@fTecaj output
      update TEMEPOZ 
        set VALUTA = @cValuta,
            DEVTEC = @fTecaj,
            VALDEBET = @fDebet / @fTecaj,
            VALKREDIT = @fKredit / @fTecaj
        where KLJUC = @cKljuc 
          and POZ = @iPoz
      fetch next from crKurzor into @cKljuc, @iPoz, @fDebet, @fKredit, @dDatum
    end
close crKurzor
deallocate crKurzor