A saját termelésű készletetek (STK – félkész és késztermék) utókalkulációt megelőző bevételezési (termelés) és kiadási (értékesítés, felhasználás, egyéb kiadás) mozgásai a tervezett önköltségen lettek könyvelve. A számított egység önköltség (AAruTor.Onktg) és az utókalkuláció elvégzése előtt használt tervezett önköltség (AAruTor.NyilAr) különbözetével át kell értékelni a kalkuláció előtt termelt mennyiséget. (Nem csak az aktuális készletet!)
Jogosultságkód: 232242 Help context: 232242

Ha AAruTor.Onktg > AAruTor.NyilAr Megtakarítás
Termelés készletérték különbözet (TermKÉK) = Termelt mennyiség * (Tervezett önköltség – Tényleges önköltség)
1 000 db * (1 200 Ft/db – 1 100 Ft/db) = 100 000 Ft (A KÉK számla egyenlege!)
T258 Késztermék KÉK számla TermKÉK
K251 Késztermék készlet számla TermKÉK
Ha AAruTor.Onktg > AAruTor.NyilAr Többlet költség
T/K felcserélődik.
Termelés készletérték különbözet (TermKÉK) = Termelt mennyiség * (Tény önköltség – Tervezett önköltség)
1 000 db * (1 100 Ft/db – 1 000 Ft/db) = 100 000 Ft (A KÉK számla egyenlege!)
T251 Késztermék készlet számla TermKÉK
K258 Késztermék KÉK számla #
T AAktTor.SFokKod Anyag számla Készletérték különbözet
(AAruTor.Onktg – AAruTor.NyilAr) * KRakMoz.Bevete
K AAktTor.SKekSzl Késztermék készletérték különbözet számla
# Készletérték különbözet
Az átértékelés elszámolásának módja:
1. Termék kiválasztása AruKodX AAruTor
2. Feltételek ellenőrzése
a. Élő áru AAruTor.EloKod=I
b. Az áru utókalkulációja megtörtént AAruTor.UtoKal=I
c. Az átértékelés még nem történt meg AAruTor.KalAter=N
d. Az árun van elszámolandó mozgás qry_StkTerMozTet>Nulla
3. Input adatok megadása
a. Az átárazás elszámolásának intervalluma: KezDatX – VegDatX
A záró dátumnak a nyitott időszakba kell esnie. (Forduló nap.)
4. Adatrögzítés és kontírozás
Begin Transaction
While qry_AruMozTet Not Eof Do
Begin
If Abs(qry.AktErtX)>0 Then Van átértékelési különbözet
Begin
If qry.JogCim = ’2’ Then KTetKes.Upgrade Tételes készlet tételek átértékelése
KMozFej.Insert Addicionális mozgás fej készítése
KRakMoz.Insert Addicionális készlet bevételezési mozgás
End
Next
End
Árutörzs Upgrade AAruTor.KalAter := ’I’ {A kalkulációs átértékelés megtörtént.}
End Transaction
Az átértékelendő mozgások adminisztrációja
A program megjeleníti a kiválasztott áru átértékelendő mozgásait.
Script: StkTerMozTet.sql
A raktári mozgás táblába az értékmódosítás érvényesítésére új tételt szúrunk be. Ez a tétel lesz kapcsolatban a számla áru tábla kiválasztott sorával.
1. Tételes készlet tétel átértékelése
KTetKes - Tételes készlet
Select
TeKeIdX:=qry.TeKeId
KTetKes - Tételes készlet
Modify - Egy tétel
Alap adatok:
A7. BevEar Bevételezési egységár <qry.OnKtg>
A12. AktEar Aktuális egységár <qry.OnKtg>
2. Addicionális mozgás fej készítése
Az átértékelés miatt egy új raktári mozgás fej és mozgás tétel keletkezik. Egy átértékelés fejhez így mindig csak egy mozgás tétel tartozik.
KMozFej – Mozgásfej adatok:
Select
BizAzoX:=qry.BizAzo -> KMozFej[R]
Az addicionális mozgás fejet a program az alap készlet mozgás fej adatai alapján állítja elő.
KMozFej – Mozgásfej adatok:
Insert
Az addicionális fej adatai alapvetően megegyeznek az alap fej adataival, ezért csak az eltéréseket részletezzük.
Alapadatok:
A1. BizAzo Bizonylatazonosító Bizonylat tömb + Inkrementális sorszám
Az alapfej bizonylattömbje és az addicionális fej dátuma alapján generált.
A2. BizAzoP Pénzügyi bizonylat azonosító <0>
Általános input adatok:
I5. MozDat Mozgás dátuma <DatumX>
If KMozFej.MozDat > VegDatX Then DatumX := KMozFej.MozDat
Else DatumX := VegDatX
Amennyiben az alap mozgás dátuma későbbi, mint az átértékelés intervallumának záró dátuma, akkor az új mozgás fej dátuma megegyezik az alap mozgáséval. Egyébként a mozgás fej dátuma az átértékelési intervallum záró dátuma lesz.
I15. Megjeg Megjegyzés
KMozFej[R].BizAzo+’ átértékelése.’
Állapot adatok:
Á3. PenAll Pénzügyi állapot PPA <0>
Á4. FokAll Főkönyvi állapot FAL <0>
Á5. StoKod Stornó állapot STO <0>
Á6. SzNyDb Nyomtatott bizonylat példányszáma <0>
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
2. Addicionális raktári mozgás tétel készítése
KRakMoz – Mozgástétel adatok:
Select
RaMoIdX:=qry.RaMoId -> KRakMoz[R]
Az átértékelési mozgás tételt a program az alap készlet mozgás tétel adatai alapján állítja elő.
KRakMoz – Mozgástétel adatok:
Insert
Program által előállított adatok:
Alap adatok:
A1. RaMoID Raktári mozgás ID generált
A2. BizAzoP Pénzügyi bizonylat azonosító <0>
Kapcsolódási kulcs a számlanyilvántartáshoz.
Input adatok:
I3. MozKod Mozgáskód
If qry.Jogcim = ’2’ Then SA.StkAtBevMoz
Else KRakMoz[R].MozKod
A termelés átértékelő mozgásának az eltérő kontírozás miatt más a mozgáskódja, mint az alap mozgásnak. A kiadás átértékelő mozgások kódja megegyezik az alap mozgás kódjával.
I4. Megjeg Megjegyzés KRakMoz[R].RaMoId+’ átértékelése.’
I5. Bevete Bevét mennyiség <0>
I6. Kiadas Kiadás mennyiség <0>
Az átértékelési mozgás tételek mennyisége 0!
Állapot adatok:
Á2. PenAll Pénzügyi állapot PPA <0>
Á3. FokAll Főkönyvi állapot FAL <0>
Á4. TaeAll Tárgyi eszköz állapot MAL <0>
Á5. DoeAll Dolgozói állapot MAL <0>
Á6. EgysAr Egységár – Mozgás HUF <qry.OnKtg>
Á9. BesErt Beszerzési áras érték HUF <qry.BesErtX>
Á10. AktErt Aktuális áras érték HUF <qry.AktErtX>
Á11. StoKod Stornó állapot: STO <0>
Á15. AddAzo Addicionális azonosító <gry.RaMoID>
Addicionális tétel: Bevételezés: Alap bevételezés tétel azonosító (RaMoId)
Kiadás: Alap kiadási tétel azonosító (RaMoId)
Á16. AdBevAz Addicionális bevételezési azonosító felhasználáshoz
Addicionális tétel: Bevételezés: 0 (Nem üres!)
Kiadás: Addicionális bevételezési tétel azonosító (RaMoId)
Á16. UtaAll Utalványozási állapot EAL <0>
Napló adatok:
N1. Opekod Operátor kód generált
N2. Terkod Terminál kód generált
N3. Rogdat Rögzítés dátuma generált
Az alap és az addicionális mozgások kapcsolata:
|
Alap raktári mozgás adatai |
Addicionális raktári mozgás adatai |
||||
|
MozgásAzon. |
AddAzo |
AdBevAz |
MozgásAzon |
AddAzo |
AdBevAz |
Termel |
SGY-00/01052/001 |
0 |
0 |
SGY-00/01079/001 |
SGY-00/01052/001 |
0 |
Felhasznál |
AFE-00/01047/002 |
0 |
0 |
AFE-00/01051/001 |
AFE-00/01047/002 |
SGY-00/01079/001 |
Értékesít |
KKÉ-01/01003/001 |
0 |
0 |
KKÉ-00/01006/001 |
KKÉ-01/01003/001 |
SGY-00/01079/001 |
Az addicionális mozgások előállítása után a program megmutatja, hogy melyik alap mozgáshoz, milyen addicionális mozgás készült.