Eredmény számlák zárása |
  
|
Eredmény számlák zárása |
|
Az aktuális év eredményszámláinak zárását elvégző funkció.
A program elindulásához a zárni kívánt időszakot kell megadnunk. A 8-as és 9-es számla osztályok (ráfordítás és eredményszámlák) egyenlegét a program időszak záró dátumával, a rendszerparaméterek között megadott éves zárás naplóval a számlák egyenlegének jellegét figyelembe véve átvezeti az adózott eredmény elszámolási számlára. A társasági adó elszámolási számla egyenlege nem kerül átvezetésre. Ez utóbbi és az adózott eredmény elszámolási számla száma a rendszer paraméterek között van eltárolva. A programfunkció csak a kontírozást végzi el, a könyvelést külön el kell végezni (csoportos könyveléssel).
Pl: T493 Adózott eredmény elszámolása Az egyes ráfordítás számlák egyenlege
K8 Ráfordítások #
illetve
T9 Bevételek Az egyes bevétel számlák egyenlege
K493 Adózott eredmény elszámolása #
A ráfordítás számlák a Társasági adó elszámolási számláig (a TÁSA számla már nem), az eredmény számlák kivétel nélkül átvezetésre kerülnek.
Funkciók: Karbantartás Új tétel
Jogosultságkód: 252225 Help context: 252225
Forrás: EreSzlZar
1. Időszak választás
Alap időszak definíciós törzsből történő választás: AIdoTor
KezDatX:= PIdoDef.IdoKez Kezdő dátum
BefDatX:= PIdoDef.IdoBef Befejező dátum
2. Eredményszámlák zárása
Alaptábla: FFokMoz Főkönyvi mozgás tábla
Where ((Substring(FFokMoz.FokKod,1,1)>='8') And FFokMoz.FokKod<KAzoAda.TasaElsz) OR
(Substring(FFokMoz.FokKod,1,1)='9') Do
Begin
FokKodX:= FFokMoz.FokKod
If FFokTor(FokKodX).SziKod='I' Then ParKodX:= FFokMoz.ParKod
Else ParKodX:='0'
Select
EviForg:=Sum(Tartoz – Kovete)
From FFokMoz
Where FFokMoz.KnyDat>=KezDatX And
FFokMoz.KnyDat<=BefDatX And
Group by FFokMoz.FokKod And
ParKodX
If EviForg > Nulla Then
Begin
SzlJelX:=1 – Tartozik Átvezetés könyvelés – Eredményszámlák
End
Else
Begin
If EviForg < – Nulla Then
Begin
SzlJelX:=2 – Követel Átvezetés könyvelés
End
Else
Begin
Nincs könyvelés
End
End
Next End
Átvezetés könyvelés – Eredményszámlák
FKntFej - Kontírozási fejadatok
Insert
Program által előállított adatok:
Azonosító adatok: Automatikus
Input adatok:
I1. KontDt Kontírozás dátuma: BefDatX
I2. NapKod Napló kód: KAzoAda.EviZarNp (7Zy)
I3. Bizony Bizonylatszám: FokKodX
I4. EloBiz Előző bizonylatszám: <0>
I5. ParKod Partner kód: ParKod
I6. SzeKod Szervezeti egység <0>
I7. DolKod Dolgozó kód <0>
I8. Megjeg Megjegyzés: 'Eredményszámlák éves zárása'
Kiegészítő adatok:
K1. BizAzo Bizonylat azonosító <0>
K2. SzaSza Számlaszám: <0>
K3. KonAzo Kontírozási azonosító: <0>
Állapot adatok:
Á1. KonMod Kontírozás típusa: 2 – Gépi kontírozás
Á2. FokAll Főkönyvi állapot: 1 – Kontírozott
Á3. StoAzA Stornó azonosító A: 0
Á4. StoAzB Stornó azonosító B: 0
Á5. SzlJel Számla jelleg SzlJelX
Á6. KonTip Kontírozás típusa: 524 – Eredményszámlák éves zárása
Napló adatok: Automatikus
FKntTet - Kontírozási tételadatok
Insert
A, Adózott eredmény elszámolási számla
Azonosító adatok:
A7. SzlTip Számla típus: 1 - Alap
A8. SzlJel Számla jelleg: FKntFej.SzlJel
Input adatok:
I1. FokKod Főkönyvi számla KAzoAda.AdoEreSz (493)
I2. ParKod Partner kód: 0
I3. KtgSzl Költség számla: 0
I4. KtgJel Költség jelleg: 0
I5. KtgTip Költség típus: 0
I6. AkdKod ÁFA besorolás kód: 00
I7. ProKod Project kód: 0
I8. TaenAz Tárgyi eszköz azon. 0
I9. MeeKod Mennyiség egység 0
If SzlJel=1 Then
Begin
I10. Tartoz Tartozik összeg: Abs(EviForg)
I11. Kovete Követel összeg: 0
End
Else
Begin
I10. Tartoz Tartozik összeg: 0
I11. Kovete Követel összeg: Abs(EviForg)
End
I12. Mennyi Mennyiség 0
Kiegészítő adatok:
K1. KttAzo Kontírozási tétel azonosító: 0
Napló adatok: Automatikus
B, Eredmény számla
Azonosító adatok:
A7. SzlTip Számla típus: 2 - Ellen
A8. SzlJel Számla jelleg: Inverz(FKntFej.SzlJel)
Input adatok:
I1. FokKod Főkönyvi számla FokKodX (8/9)
I2. ParKod Partner kód: ParKodX
I3. KtgSzl Költség számla: 0
I4. KtgJel Költség jelleg: 0
I5. KtgTip Költség típus: 0
I6. AkdKod ÁFA besorolás kód: 00
I7. ProKod Project kód: 0
I8. TaenAz Tárgyi eszköz azon. 0
I9. MeeKod Mennyiség egység 0
If SzlJel=1 Then
Begin
I10. Tartoz Tartozik összeg: Abs(EviForg)
I11. Kovete Követel összeg: 0
End
Else
Begin
I10. Tartoz Tartozik összeg: 0
I11. Kovete Követel összeg: Abs(EviForg)
End
I12. Mennyi Mennyiség 0
Kiegészítő adatok:
K1. KttAzo Kontírozási tétel azonosító: 0
Napló adatok: Automatikus