 | Loading… |
|
|
Preračunavanje knjiženja u stranu valutu
Preračunavanje knjiženja u stranu valutu
Preračunavanje
knjiženja u stranu valutu
Često moramo preračunati oderđena knjiženja temeljnica, koje smo knjižili u
primarnoj valuti u stranu valutu (npr. za bilancu u stranoj valuti). Najlakše to
napravimo slijedećom skriptom, koja koristi stored proceduru za traženje
tečaja:
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
 | Loading… |
 | Loading… |
|
|
|