Tárgyi eszköz időszaki zárás |
  
|
Tárgyi eszköz időszaki zárás |
|
A tárgyi eszközökhöz értékcsökkenésének elszámolását, új időszak nyitását, valamint az új időszak értékcsökkenésének kiszámítását végzi el egy menetben ez a modul. Mozgást mindig csak az aktuális időszakba eső dátummal lehet rögzíteni. A zárás után a lezárt időszakba már nem enged mozgást felvinni a program.
Funkciók: Batch
Jogosultságkód: 253200 Help context: 253200
Forrás: TaeIdoZar
Az elszámolás elvégzésnek feltétele: Nincs
Funkció – Adat entitás kapcsolat:
Transaction Begin
1. A tárgy időszaki ÉCS elszámolása a tárgyi eszközökre
A. Értékcsökkenés mozgás rögzítése
Az előzetesen kiszámított időszaki értékcsökkenést mozgásként rögzíti a program.
FTaeMoz – Tárgyi eszköz mozgás tábla
Insert Csak akkor kell rögzíteni, ha FTaeFej.AktEcs>1E-4
Mozgás jelleg: TA – Terv szerinti ÉCS elszámolása
A program által előállított adatok:
Azonosító adatok:
A1. TaMoAz TE mozgás azonosító f(BToKod,MozDat)
A2. TaenAz Tárgyi eszköz azon. <FTaeFej.TaenAz>
Input adatok:
I1. BToKod Bizonylat tömb <TA> Mozgás jelleg: Terv szerinti ÉCS elszámolása
I2. MozDat Mozgás dátuma <TaiBefDat>
I3. TeMoKd Mozgás kód <A011> ÉCS elszámolása terv szerint
I4. Bizony Bizonylatszám <TaMoAz>
I5. Megjeg Megjegyzés <TaeAktEv.TaeAktId- időszaki ÉCS elszámolása>
I6. BttErt Bruttó érték – Számviteli <0>
I7. EcsErt Értékcsökkenés értéke – Számviteli <FTaeFej.AktEcs>
I8. HelErt Értékhelyesbítés értéke – Számviteli <0>
I9. BttErtD Bruttó érték – Adó <0>
I10. EcsErtD Értékcsökkenés értéke – Adó <FTaeFej.AktEcsD>
I11. HelErtD Értékhelyesbítés értéke – Adó <0>
Állapot adatok:
Á1. LeiMod Leírási mód – Számviteli <FTaeFej.LeiMod>
Á2. LeiModD Leírási mód – Adó <3>
Á3. StoKod Stornó állapot: <0>
Á4. StornA Stornózott szla száma <0>
Á5. StornB Stornó számla száma <0>
Á6. PenAll Pénzügyi állapot <0>
Á7. FokAll Főkönyvi állapot <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
B A tárgyi eszköz értékadatok átszámítása
Az elszámolt értékcsökkenés alapján a program átszámítja a tárgyi eszközök értékadatait: időszaki ÉCS, halmozott ÉCS, nettó érték.
FTaeFej – Tárgyi eszköz fej tábla
Modify
Számviteli törvény szerinti érték adatok:
Értékcsökkenés elszámolási adatok – Aktuális időszaki:
S2. AktHal Halmozott ÉCS <AktHal + AktEcs>
S4. AktNet Nettó érték <AktNet – AktEcs>
S6. KoNtEr Korrigált nettó érték <AktNet – ErtHel>
Értékcsökkenés nyitó adatok – Aktuális időszak:
Y1. IdoBtt Bruttó érték <AktBtt>
Y2. IdoHal Halmozott ÉCS <AktHal>
Y3. IdoHel Értékhelyesbítés <ErtHel>
Értékcsökkenés nyitó adatok – Folyó év időszak: Ha új év következik
<TaeAktId> 12. hó vagy 4. negyedév
Y4. FEvBtt Bruttó érték <AktBtt>
Y5. FEvHal Halmozott ÉCS <AktHal>
Y6. FEvHel Értékhelyesbítés <ErtHel>
Értékcsökkenés nyitó adatok – Folyó pénzügyi év időszak: Ha új pénzügyi év következik
If TaiBefDat.Ho.Nap=HatDat.Ho.Nap Then
Y7. PEvBtt Bruttó érték <AktBtt>
Y8. PEvHal Halmozott ÉCS <AktHal>
Y9. PEvHel Értékhelyesbítés <ErtHel>
S3. AktEcs Időszaki ÉCS <0>
K2. VarLei Várható leírás időpontja <' '>
Adó törvény szerinti érték adatok:
Értékcsökkenés elszámolási adatok – Aktuális időszaki:
D2. AktHalD Halmozott ÉCS <AktHalD + AktEcsD>
D4. AktNetD Nettó érték <AktNetD – AktEcsD>
D6. KoNtErD Korrigált nettó érték <AktNetD – ErtHelD>
Értékcsökkenés nyitó adatok – Aktuális időszak:
Q1. IdoBttD Bruttó érték <AktBttD>
Q2. IdoHalD Halmozott ÉCS <AktHalD>
Q3. IdoHelD Értékhelyesbítés <ErtHelD>
Értékcsökkenés nyitó adatok – Folyó év időszak: Ha új év következik
<TaeAktId> 12. hó vagy 4. negyedév
Q4. FEvBttD Bruttó érték <AktBttD>
Q5. FEvHalD Halmozott ÉCS <AktHalD>
Q6. FEvHelD Értékhelyesbítés <ErtHelD>
Értékcsökkenés nyitó adatok – Folyó pénzügyi év időszak: Ha új pénzügyi év következik
If TaiBefDat.Ho.Nap=HatDat.Ho.Nap Then
Q7. PEvBttD Bruttó érték <AktBttD>
Q8. PEvHalD Halmozott ÉCS <AktHalD>
Q9. PEvHelD Értékhelyesbítés <ErtHelD>
D3. AktEcsD Időszaki ÉCS <0>
K3. VarLeiD Várható leírás időpontja <' '>
Napló adatok:
N1. OpeKod varchar (10) NOT NULL , – Rögzítés/könyvelés napló adatok - Operátor
N2. TerKod varchar (10) NOT NULL , – Terminál kód
N3. RogDat datetime NOT NULL , – Könyvelés időpontja
Pénzügyi év zárás
If TaiBefDat.Ho.Nap=HatDat.Ho.Nap Then
If Abs(AktNet – MarErt) < Nulla Then ErtKod:='N' Else ErtKod:='I'
2. Az új időszak azonosító adatainak előállítása és eltárolása
A lezárt időszak (2001.2.) adatiból a program előállítja az új időszak azonosító adatait (2001.3.).
KAzoAda – Azonosító adatok
Modify
TaeAktID:=TaeAktId+1
If TaeIdoTip=4 Then {Negyedéves elszámolás}
Begin
If TaeAktId=5 Then
Begin
TaeAktId:=1
TaeAktEv:=TaeAktEv+1
End Else
End Else;
If TaeIdoTip=12 Then {Havi elszámolás}
Begin
If TaeAktId=13 Then
Begin
TaeAktId:=1
TaeAktEv:=TaeAktEv+1
End Else
End Else;
TaiKezDat: Tárgy időszak kezdő dátum kiszámítandó
TaiBefDat: Tárgy időszak befejező dátum kiszámítandó
EliKezDat: Előző időszak kezdő dátum kiszámítandó
EliBefDat: Előző időszak befejező dátum kiszámítandó
3. A tárgyi eszközök új időszaki adatainak kiszámítása és eltárolása
Az elszámolt értékcsökkenés és az új időszak adatai alapján a program átszámítja a tárgyi eszközök értékadatait: időszaki ÉCS, halmozott ÉCS, nettó érték.
FTaeFej – Tárgyi eszköz fej tábla
Modify
a. Előző időszak mozgásainak beolvasása:
QueryB
b. Előző időszaki mozgások feldolgozása
EliMozFeld
c. Tárgy időszaki mozgások beolvasása:
QueryC
Üres halmaz
d. Tárgy időszaki mozgások feldolgozása
TaiMozFeld
e. A tárgyi eszköz új adatainak kiszámítása
BttErtU:=0;EcsErtU:=0;
AktBttU:=0;AktHalU:=0;AktNetU:=0;
HibKodU:=0;
VarLeiU:='';
AktEcsU:=LeiErtSzam(FTaeFej.LeiMod, FTaeFej.Status, FTaeFej.SzuKez, FTaeFej.SzuVeg,
FTaeFej.SzvKul, FTaeFej.AktBtt, FTaeFej.AktHal, FTaeFej.AktEcs,
FTaeFej.IdoBtt, FTaeFej.IdoHal,
FTaeFej.EgLeIr,
FTaeFej.LeiNor, FTaeFej.LeiAla,
Now,0000,
0,0,
BttErtU,EcsErtU,
AktBttU,AktHalU,AktNetU,
HibKodU,
VarLeiU)
Az ÉCS számítást két menetben kell elvégezni. Először a számviteli adatok, majd az adó törvény szerinti adatok alapján kell az ÉCS-t kiszámítani.
f. A tárgyi eszköz adatainak módosítása
FTaeFej – Tárgyi eszköz fej tábla
Modify
Számviteli törvény szerinti adatok:
S3. AktEcs Időszaki ÉCS <AktEcsU>
S4. AktNet Nettó érték <AktNetU>
S6. KoNtEr Korrigált nettó érték <AktNet – ErtHel>
K2. VarLei Várható leírás időpontja <VarLeiU>
Adó törvény szerinti adatok:
D3. AktEcsD Időszaki ÉCS <AktEcsU>
D4. AktNetD Nettó érték <AktNetU>
D6. KoNtErD Korrigált nettó érték <AktNet – ErtHel>
K3. VarLeiD Várható leírás időpontja <VarLeiU>
Transaction End