Preračunavanje knjižb v tujo valuto

Preračunavanje knjižb v tujo valuto

Pogosto moramo preračunati določene knjižbe temeljnic, ki smo jih knjižili v primarni valuti v tujo valuto (npr. za bilanco v tuji valuti). Najlažje to naredimo s sledečim skriptom, ki uporablja stored proceduro za iskanje tečajev:

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

set nocount on
set @cValuta = 'EUR'    -- valuta, v katero preračunavamo

declare crKurzor cursor local fast_forward for
  select KLJUC,POZ,DEBET,KREDIT,DATUMDOK
  from TEMEPOZ 
  where VALUTA <> @cValuta
    and -- TU VNESITE DODATNI POGOJ, KATERE KNJIŽBE NAJ SE POPRAVLJAJO


open crKurzor
fetch next from crKurzor into @cKljuc, @iPoz, @fDebet, @fKredit, @dDatum
  while @@fetch_status = 0
    begin
      -- v tem primeru po srednjem teč. BS, popravi banko če uporabljaš drugega
      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