 | Loading… |
|
|
Preračun knjiženja u stranu valutu
Preračun knjiženja u stranu valutu
Preračun knjiženja u
stranu valutu
Često moramo preračunati određene naloge za kljuiženje, koji su knjiženi u primarnoj valuti u
stranu valutu (npr. za bilans u stranoj valuti). Najlakše to odradimo sledećim skriptom,
koji koristi stored proceduru za traženje kurseva:
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
 | Loading… |
 | Loading… |
|
|
|