Pénzügyi bizonylatok fordulónapi átértékelése |
  
|
Pénzügyi bizonylatok fordulónapi átértékelése |
|
Az egyedi devizás eszközök és források adminisztrációja pénzügyi bizonylatokon (számlákon) történik.
A funkció segítségével a devizás számlák mérleg fordulónapi egyenlege után a számla teljesítés napjának és a mérleg fordulónap árfolyamának eltéréséből adódó érték különbözetet számolhatjuk el automatizáltan.
Forrás: Frm_FordNapAtertek
Jogosultságkód: 242620 Help context: 242620
Problémák:
1. A forduló nap és az átértékelés tényleges elvégzésének napja között a számlára kiegyenlítési mozgások kerültek rögzítésre.
Megoldás: A számla fordulónapi egyenlegének kiszámításakor csak a fordulónapig rögzített pénzmozgásokat kell figyelembe venni.
Az elszámolás input adatai:
1. DevDatF A fordulónap dátuma
2. EgyNapX Egyenlegközlés napja
Ehhez a funkcióhoz ez a dátum közvetlenül nem szükséges. Csak azért szerepel ezen a formon, mert a fordulónaphoz van kötve.
3. BtoKodX Bizonylattömb
A generált átértékelési pénzmozgás bizonylattömbje.
Jogcím: PK
Az elszámolás fix feltételei:
Az átértékelést teljes körűen, szűrési feltételek megadása nélkül kell elvégezni.
A program az árfolyam különbség elszámolásának adatait a számla alap adatok (PSzaAla) és fordulónapig megtörtént kiegyenlítések (PSzaKie) alapján állítja elő.
SzamvErt – A számla számviteli értéke a fordulónapon
SzamvErtHuf := PSzaAla.FtOssz + PSzaAla.KerHuf – KiegyHuf – Eloleg_Huf
SzamvErtDev := PSzaAla.DeOssz + PSzaAla.KerDev – KiegyDev – Eloleg_Dev
A bizonylat számvitele értéke a fordulónapon a számla teljesítésnapi számviteli értékének (FtOssz+KerHuf) és fordulónapig lezajlott rendezések értékének (KiegyHuf+Eloleg_Huf) különbözete.
MerlegErt – Mérleg érték
MerlegErtHuf = SzamvErtDev * DevArfF
A számla mérleg szerinti értéke a devizás számviteli érték és fordulónapi árfolyam szorzata
ErtKulX – Fordulónapi értékelési különbözet
ErtKulX := MerlegErtHuf – SzamvErtHuf vagy részletesen:
A fordulónapi értékelési különbözet a fordulónapi mérlegérték (MerlegErtHuf) és a számviteli érték (SzamvErtHuf) különbsége.
Az adatok számítási módját alapvetően az befolyásolja, hogy szállító (1), vagy vevő (2) számláról van-e szó (PSzaAla.TipusK), illetve az, hogy milyen az értékelési különbözet (ErtKulX) előjele.
TipusK |
MerlegErtHuf > SzamvErtHuf |
MerlegErtHuf < SzamvErtHuf |
1 – Szállító |
Árfolyam veszteség |
Árfolyam nyereség |
2 – Vevő |
Árfolyam nyereség |
Árfolyam veszteség |
A pénzügyi bizonylatok átértékelése az [Elszámolás] gomb megnyomására indul el.
PSzaKie – Számla kiegyenlítés tábla
Insert
Alap adatok:
A1. SzKiID Szla kiegyenlítés ID pk f(BtoKod,KnyvEv)
A2. SzAlID Számla alap ID fk: PSzaAla.SzAlID
A3. KnyvEv Könyvelés éve <ForNapX-ból>
A4. KnyvHo Könyvelés hónapja <ForNapX-ból>
A5. TetSor Tétel sorszám
A6. BizAzo Számla bizonylatszám <PSzaAla.BizAzo>
A7. BizaSo Bizonylat sorszám f(BtoKod,KnyvEv)
A8. SzKiIDCs Számla kiegyenlítés ID – Csoportos 0
A9. SzKiIDEl Számla kiegyenlítés ID – Ellen 0
Input adatok:
I1. FimKod Fizetési mód fk: AFimTor.FimKod
<A:0>
I2. PeeKod Pénzeszköz kód – Pénzügyi rendezés fk: PPeeTor.PeeKod
A fordulónapi értékelés pénzügyi eszköze. A számla típusától és az értékelési különbözet előjelétől függ az ajánlott adat.
If PSzaAla.TipusK = ’1’ Then
Begin {Szállító}
If ErtekKulX < Nulla
Then SAzoAda.MePeeArfNy {Árfolyam nyereség}
Else SAzoAda.MePeeArfVe {Árfolyam veszteség}
End Else
Begin {Vevő}
If ErtekKulX > Nulla
Then SAzoAda.MePeeArfNy {Árfolyam nyereség}
Else SAzoAda.MePeeArfVe {Árfolyam veszteség}
End
I3. PeuKod Pénzügyi eszköz kód – Alap fk: PPeeTor.PeeKod
<A:PSzaAla.PeuKod>
I4. PeeJog Pénzeszköz mozgáskód fk: PPeJoDf.PeJoKd
A fordulónapi értékelés elszámolásának mozgáskódja. A számla típusától és a fordulónapi értékelésikülönbözet előjelétől függ az ajánlott adat.
A négy lehetséges elszámolási módhoz (Szállító / Vevő – Nyereség / Veszteség) négy különböző mozgáskód tartozik. Ez egyrészt azért van mert egy mozgáskód csak vagy a szállítói, vagy a vevői bizonylaton választható ki, másrészt pedig a nyereség és a vesztéség kontírozásának más a kontírozás típusa.
If PSzaAla.TipusK = ’1’ Then
Begin {Szállító}
If ErtekKulX < Nulla
Then KAzoAda.PeJoSzArfNy {Szállító árfolyam nyereség}
Else KAzoAda.PeJoSzArfVe {Szállító árfolyam veszteség}
End
Else
Begin {Vevő}
If ErtekKulX > Nulla
Then KAzoAda.PeJoVeArfNy {Vevő árfolyam nyereség}
Else KAzoAda.PeJoVeArfVe {Vevő árfolyam veszteség}
End
I5. BToKod Bizonylat tömb <BtoKodX> fk: KBToTor.BtoKod
I6. DevKod Devizanem kód <PSzaAla.DevKod> fk: ADevTor.DevKod
I7. MegJeg Megjegyzés Fordulónapi átértékelés
I8. MellDb Mellékletek száma <0>
I9. Bizony Bizonylatszám <0>
I10. KonDat Könyvelés dátum <ForNapX>
I11. ErtDat Értéknap dátum <ForNapX>
Deviza input adatok:
D1. DevBan Deviza átszámítási bank fk: PBanAzo.BanAzo
<KA.BanAzoD> A fordulónapi értékelés deviza bankja.
D2. DevDat Deviza átszámítási dátum
<ForNapX> Mérleg fordulónap.
D3. DevArf Deviza átszámítási árfolyam
<FordArf> Fordulónapi árfolyam.
Érték adatok:
É1. JovDev Jóváírás összege DEV <0>
É2. TerDev Terhelés összege DEV <0>
É3. EveDev Értékvesztés összege DEV <0>
É4. EheDev Értékhelyesbítés DEV <0>
É5. EgyDev Egyéb adat DEV <0>
Számított adatok:
S1. JovHuf Jóváírás összege HUF Abs(ErtekKul) Értékelési különbözet.
Adat minden esetben csak az alap devizanem (HUF) jóváírás oldalán szerepel. A devizás forgalmi adatok értéke 0.
S2. TerHuf Terhelés összege HUF <0>
S3. EveHuf Értékvesztés összege HUF <0>
S4. EheHuf Értékhelyesbítés HUF <0>
S5. EgyHuf Egyéb adat HUF <0>
If PpeJoDf(PSzaKie.PeeJog).Jelleg=’1’ Or Jelleg=’2’ Then
Begin
If PSzaAla.TipusK=1 Then {Szállító}
Begin
If PPeJoDf(PSzaKie.PeeJog}.KonTip=’451’ Then {Nyereség}
Begin
S7. KieDev Kiegyenlítés összege DEV =JovDev – TerDev
S6. KieHuf Kiegyenlítés összege HUF =JovHuf – TerHuf
End
Else {Veszteség és egyéb kiegyenlítés}
Begin
S7. KieDev Kiegyenlítés összege DEV =TerDev – JovDev
S6. KieHuf Kiegyenlítés összege HUF =TerHuf – JovHuf
End
End
Else {Vevő}
Begin
If PPeJoDf(PSzaKie.PeeJog}.KonTip=’451’ Then {Nyereség}
Begin
S7. KieDev Kiegyenlítés összege DEV =TerDev – JovDev
S6. KieHuf Kiegyenlítés összege HUF =TerHuf – JovHuf
End
Else {Veszteség és egyéb kiegyenlítés}
Begin
S7. KieDev Kiegyenlítés összege DEV =JovDev – TerDev
S6. KieHuf Kiegyenlítés összege HUF =JovHuf – TerHuf
End
End
End
Else
Begin
S7. KieDev Kiegyenlítés összege DEV = 0
S6. KieHuf Kiegyenlítés összege HUF = 0
End
Állapot adatok:
Á1. PenAll Pénzügyi állapot ARK <0>
Á2. FokAll Főkönyvi állapot FAL <0>
Á3. StoKod Stornó állapot: STO <0>
Á4. MozElj Mozgás előjel <1>
Á5. StornA Stornózott tétel azonosítója – Forrás <0>
Á6. StornB Stornó tétel azonosítója – Cél <0>
Á7. SzNyDb Nyomtatott bizonylat példányszáma <0>
Számviteli adatok:
F1. ProKod Project <0>
F2. SzeKod Szervezeti egység <0>
F3. DolKod Dolgozó <0>
F4. FokKod Főkönyvi számla <X>
F5. KtgSzl Költség főkszla <X>
F6. KtgJel Költség jelleg FKT <0>
F7. KtgTip Költség típus FTP <0>
F8. AktKod Áru katalógus <0>
F9. AruKod Áru kód <0>
F10. ParKod Partner <0>
F11. SzlJel Számla jelleg FSJ <0>
F12. TevKod Tevékenység kód <0>
Napló adatok:
N1. Opekod Rögzítés napló adatok – Operátor kód
N2. Terkod Terminál kód
N3. Rogdat Rögzítés időpontja
A kiegyenlítés hatásának átvezetése a kapcsolódó táblákon:
PSzaAla – Számla alap tábla
Modify
Fordulónapi adatok:
F1. DevDatF Deviza átszámítási dátum: <ForDatX>
F2. DevBanF Deviza átszámítási bank: <DevBanF>
F3. DevArfF Deviza átszámítási árfolyam: <FordArf>
F4. MerDev Mérleg érték <SzamvErtDe>
F5. MerHuf Mérleg érték <MerlegErtHu>
Napló adatok:
N1. Opekod Operátor kód generált
N2. Terkod Terminál kód generált
N3. Rogdat Rögzítés időpontja generált
PPeeTor – Pénzeszköz alap tábla – Pénzeszköz: PSzaKie.PeeKod
Modify
PPeeTor – Pénzeszköz alap tábla – Pénzügyi eszköz: PSzaKie.PeUKod
Modify