Banki utalások átértékelése |
  
|
Banki utalások átértékelése |
|
Alapértelmezett devizanemben (HUF) nyilvántartott pénzeszköz terhére történő devizás pénzügyi bizonylatok (számlák) kiegyenlítésekor előfordulhat, hogy a kiegyenlítés időpontjában nem áll rendelkezésre a tényleges átváltási árfolyam. Ebben az esetben az átszámítás egy vélelmezett árfolyamon történik. A tényleges árfolyam megismerése után ezzel a funkcióval tudjuk a vélelmezett árfolyamon számított forintos bekerülési értéket átszámítani a tényleges árfolyam tényleges bekerülési értékére.
Jogosultságkód: 243500 Help context: 243500
Forrás: Frm_BanUtaAtErt
Az átértékelendő pénzmozgások leválogatásához az operátornak az alábbi szűrési feltételeket kell megadni:
S1. PeeKodX Pénzeszköz kód Egy tétel választható PPeeTor
A kiegyenlítés pénzeszköze.
S2. FimKodX Fizetési mód Egy tétel választható AFimTor
A kiegyenlítés fizetési módja.
S3. KieDatX Kiegyenlítés dátuma Egy dátum választható Dátum
S4. KieArfX Kiegyenlítés árfolyam Egy érték adható meg Szám
S5. SzKiIdK Kiegyenlítés azonosító Kezdő érték varchar
SzKiIdZ Kiegyenlítés azonosító Záró érték varchar
Az átértékelés elvégzéséhez az alábbi input adatokra van szükség:
D1. DevBanX Deviza átszámítás bank PBanAzo
Annak a banknak az azonosítója, amelynek az árfolyamán a deviza érték átszámítása történik.
<A:KAzoAda.BanAzoD>
D2. DevDatX Deviza átszámítási dátum
D3. DevArfX Deviza átszámítási árfolyam
A bankazonosító, a devizanem és az átszámítás dátuma alapján az árfolyamtörzsből felolvassa a megfelelő árfolyamot (eladási, közép, vételi), ha az szerepel az árfolyamtörzsben. A felajánlott árfolyam felülírható, illetve ha nem tudott a program ajánlani adatok, akkor az árfolyam beírható.
Ajánlás: (DevDat,KAzoAda.DevBan,DevKod) alapján
Az átértékelés lépései:
1. Átértékelési input adatok megadása
2. A szűrési feltételek meghatározása
3. Az átértékelendő tételek kigyűjtése UtaAtertTet.sql
4. Átértékelési adatok kiszámítása
5. Az átértékelhetőség ellenőrzése
6. Az átértékelés elvégzése
6.1. A pénzügyi mozgások adatainak átszámítása
6.1.1. A kapcsolódó számlák kiegyenlítési adatainak módosítása
6.2. A pénzeszköz értékadatainak korrigálása
A kiegyenlítési mozgások átértékelésének feltételei:
1. A mozgások árfolyam különbsége még nincs elszámolva. Így a mozgás új bekerülési értéke átírható.
Sum(ArkTet) = 0
2. A mozgások nincsenek kikontírozva. Így a mozgás új bekerülési értéke átírható.
Sum(FokTet) = 0
3. A kiegyenlítési és az átértékelési árfolyam eltér egymástól.
Abs(KieArfX – DevArfX) > 1E-4
Az átértékelés elvégzése
N Átértékelendő tételek száma
AtErtX := 0 Kumulált átértékelési különbözet
For .i = 1 To N Do
Begin {Ciklus kezdete}
Módosított adatmezők: Csak, ha van átértékelés
1. PSzaKie.MellDb = PSzaKie.TerHuf
A mellékletek darabszáma mezőbe eltesszük a terhelés átértékelés előtti értékét, hogyha vissza kell csinálni az átértékelést, rendelkezésünkre álljon az eredeti érték.
2. PSzaKie.TerHuf = Round(PSzaKie.TerDev * DevArfX, 2) Terhelés forintos
A forintos terhelés új értéke a devizás terhelés és az új árfolyam szorzata lesz.
4. PSzaKie.DevArf = DevArfX Deviza árfolyam
A kiegyenlítés deviza árfolyama az új deviza árfolyam
5. PenAllKie PSzaKie.PenAll Pénzügyi (árfolyam különbözet elszámolási) állapot
If Abs(PSzaAla.DevArf-DevArfX) > Nulla Then PenAll := ’1’ Else PenAll := ’0’
Mivel a kiegyenlítés árfolyama megváltozott, ezért újra kell értékelni az árfolyam különbözet elszámolási állapotát.
6 PSzaKie.OpeKod, TerKod, RogDat Napló adatok
AtErtX := AtErtX + Round(PSzaKie.TerDev* (DevArfX – KieArfX),2)
A pénzmozgáshoz kapcsoló számla értékadatainak átszámítása
Ha a számlához kapcsolódó kiegyenlítés értéke megváltozik, akkor a számla kiegyenlítés összege is módosul.
Átszámított adatmezők:
1. PSzaAla.BizaDb := PSzaKie.FtKiOs
A bizonylatok darabszáma mezőbe eltesszük a számla átértékelés előtti értékét, hogyha vissza kell csinálni az átértékelést, rendelkezésünkre álljon az eredeti érték.
2. PSzaAla.FtKiOs := PSzaAla.FtKiOs + ErtValX Kiegyenlített összeg – forintos
If PSzaAla.TipusK = ’1’ Then ErtValX := PSzaKie.TerHuf[Új] - PSzaKie.TerHuf[Régi]
Else ErtValX := PSzaKie.TerHuf[Régi] - PSzaKie.TerHuf[Új]
A számla kiegyenlítés összegét a kiegyenlítési mozgás átértékelés előtti és utáni értékének különbözetével módosítjuk.
End {Ciklus vége}
A pénzeszköz értékadatainak korrigálása
UpDate PPeeTor
Set TerHuf := TerHuf – AtErtX