Pénzmozgás adatok kontírozása (C)

A pénzmozgások kontírozására szolgáló funkció.

A kontírozás a pénzmozgás tételek (KkPenzTet) adatai alapján történik

Kontírozási feltételek:

1. Kontírozatlan pénzmozgás: KkPenzTet.FokAll = 0 Alap AND

2. Nem törölt tétel: KkPenzTet.Torolt = ’N’ AND

3. A mozgás dátuma a nyitott időszakba esik: KkPenzTet.Datum in [KezDatX,BefDatX AND

4. A devizás tételnek van árfolyama: ((KkPenzTet.Penzkod <> ’Ft’ AND

KkPenzTet.DevArf <> 1) OR

KkPenzTet.Penzkod = ’Ft’)

FKntFej - Kontírozási fejadatok

Insert

Program által előállított adatok:

Azonosító adatok:

A1. KontEv Kontírozás éve <KontDt-ból>

A2. KontHo Kontírozás hónapja <KontDt-ból>

A3. KontID Kontírozási tételsor f(’KOX’,KontEv)

A4. KontAz Kontírozási azonosító Program által generált KOX

Input adatok:

I1. KontDt Kontírozás dátuma KkPenzTet.Datum – A pénzügyi mozgás dátuma

I2. NapKod Napló kód: KAzoAda.SzKiKoP - Pénztár napló <2SX>

I3. Bizony Bizonylatszám: KkPenzTet.Bizszam – Bizonylat száma

I4. EloBiz Előző bizonylatszám 0

I5. ParKod Partner kód 0

I6. SzeKod Szervezeti egység KkPenzTet.Szervkod

I7. DolKod Dolgozó kód 0

I8. Megjeg Megjegyzés KkPenzTet.Szoveg

Kiegészítő adatok:

K1. BizAzo Bizonylat azonosító KkPenzTet.ZarasID – Zárás azonosító

K2. SzaSza Számlaszám KkPenzTet.Nev – Partner név

Alter table FKntFej.Szasza Varchar(60) !!!

K3. KonAzo Kontírozási azonosító FloatToStr(KkPenzTet.ID) – Tétel azonosító

K4. CsopTip Csoportos kontírozási típus CKT 0 – Nem csoportos

K5. CsKonAz Csoportos kontírozási azonosító 0

K6. OsKonAz Összetartozó kontírozási azonosító

Á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. StoKod Stornó állapot 0 – Alap

Á4. StoAzA Stornó azonosító A: 0

Á5. StoAzB Stornó azonosító B: 0

Á6. SzlJel Számla jelleg Case KkPenzTet.Ejelleg1 When ’T’ Then 1 Else 2 !!!

Á7.	KonTip Kontírozás típusa: Z44 – Pénzmozgás kontírozás (ArmCom)

Á8. Tartoz Tartozik összesen Sum(FKntTet.Tartoz)

Á9. Kovete Követel összesen Sum(FKntTet.Kovete)

Á10. Mennyi Mennyiség Sum(FKntTet.Mennyi)

Napló adatok:

N1. KOpeKo Kontírozási napló adatok: Operátor kód generált

N2. KTerko Terminál kód generált

N3. KRogda Rögzítés időpontja generált

N4. ROpeKo Könyvelési napló adatok: Operátor kód Üresen marad

N5. KTerko Terminál kód Üresen marad

N6. KRogda Rögzítés időpontja Üresen marad

FKntTet - Kontírozási tételadatok

Insert

A, Pénzügyi eszköz

Program által előállított adatok:

Azonosító adatok:

A1. KontEv Kontírozás éve <KnyDat-ból>

A2. KontHo Kontírozás hónapja <KnyDat-ból>

A3. KontID Kontírozási tételsor f(’KOX’,KontEv)

A4. KontAz Kontírozási azonosító Program által generált

A5. KoTeSo Tételsor. – Kontírozás

A6. KoTeAz Kontírozási tétel azonosító

A7. SzlTip Számla típus 1 – Alap

A8. SzlJel Számla jelleg FKntFej.SzlJel

A kontírozási fejnél meghatározott számla jelleg

Input adatok:

I1.	FokKod Főkönyvi számla KkPenzTet.Ptkod – Pénzügyi eszköz fkviszla

I2. ParKod Partner kód 0

I3. KtgSzl Költség számla X

I4. KtgJel Költség jelleg 0

I5. KtgTip Költség típus 0

I6. AkdKod ÁFA besorolás kód IsNull(KkPenzTet.Afak,’0’)

I7. ProKod Project kód KkPenzTet.Project

I8. TaenAz Tárgyi eszköz azon. 0

I9. SzeKod Szervezeti egység KkPenzTet.Szervkod

I10. DolKod Dolgozó kód 0

I11. Tartoz Tartozik összeg

If SzlJel=1 Then Round(Abs(Osszeg)*DevArf,2)

Else 0

I12. Kovete Követel összeg

If SzlJel=1 Then 0

Else Round(Abs(Osszeg)*DevArf,2)

I13. MeeKod Mennyiség egység 0

I14. Mennyi Mennyiség 0

I15. MlpAzo Munkalap azonosító 0

I16. TevKod Tevékenység kód 0

Kiegészítő adatok:

K1. KttAzo Kontírozási tétel azonosító FloatToStr(KkPenzTet.ID) – Tétel azonosító

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

B, Ellenszámla

Program által előállított adatok:

Azonosító adatok:

A1. KontEv Kontírozás éve <KnyDat-ból>

A2. KontHo Kontírozás hónapja <KnyDat-ból>

A3. KontID Kontírozási tételsor f(’KOX’,KontEv)

A4. KontAz Kontírozási azonosító Program által generált

A5. KoTeSo Tételsor. – Kontírozás

A6. KoTeAz Kontírozási tétel azonosító

A7. SzlTip Számla típus 2 – Ellenszámla

A8. SzlJel Számla jelleg Inverz(FKntFej.SzlJel)

Input adatok:

I1.	FokKod Főkönyvi számla KkPenzTet.Ellensz1 – Ellenszámla #1

I2. ParKod Partner kód 0

I3. KtgSzl Költség számla X

I4. KtgJel Költség jelleg 0

I5. KtgTip Költség típus 0

I6. AkdKod ÁFA besorolás kód IsNull(KkPenzTet.Afak,’0’)

I7. ProKod Project kód KkPenzTet.Project

I8. TaenAz Tárgyi eszköz azon. 0

I9. SzeKod Szervezeti egység KkPenzTet.Szervkod

I10. DolKod Dolgozó kód 0

I11. Tartoz Tartozik összeg

If SzlJel=1 Then Round(Abs(Osszeg1)*DevArf,2)

Else 0

I12. Kovete Követel összeg

If SzlJel=1 Then 0

Else Round(Abs(Osszeg1)*DevArf,2)

I13. MeeKod Mennyiség egység 0

I14. Mennyi Mennyiség 0

I15. MlpAzo Munkalap azonosító 0

I16. TevKod Tevékenység kód 0

Kiegészítő adatok:

K1. KttAzo Kontírozási tétel azonosító FloatToStr(KkPenzTet.ID) – Tétel azonosító

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

C, Áfa tétel

Áfa tétel létrehozásának feltételei:

1. Van áfa érték: Abs(KkPenzTet.Osszeg2) > 0 OR

2. Kontírozandó nullás áfa IsNull(KkPenzTet.Afak,’0’) not in (’0’,’-’) and

SA. FkviAfaOsz = ’I’

Program által előállított adatok:

Azonosító adatok:

A1. KontEv Kontírozás éve <KnyDat-ból>

A2. KontHo Kontírozás hónapja <KnyDat-ból>

A3. KontID Kontírozási tételsor f(’KOX’,KontEv)

A4. KontAz Kontírozási azonosító Program által generált

A5. KoTeSo Tételsor. – Kontírozás

A6. KoTeAz Kontírozási tétel azonosító

A7. SzlTip Számla típus 2 – Ellenszámla

A8. SzlJel Számla jelleg Inverz(FKntFej.SzlJel)

Input adatok:

I1.	FokKod Főkönyvi számla KkPenzTet.Ellensz2 – Ellenszámla #1

I2. ParKod Partner kód 0

I3. KtgSzl Költség számla X

I4. KtgJel Költség jelleg 0

I5. KtgTip Költség típus 0

I6. AkdKod ÁFA besorolás kód IsNull(KkPenzTet.Afak,’0’)

I7. ProKod Project kód KkPenzTet.Project

I8. TaenAz Tárgyi eszköz azon. 0

I9. SzeKod Szervezeti egység KkPenzTet.Szervkod

I10. DolKod Dolgozó kód 0

I11. Tartoz Tartozik összeg

If SzlJel=1 Then Round(Abs(Osszeg2)*DevArf,2)

Else 0

I12. Kovete Követel összeg

If SzlJel=1 Then 0

Else Round(Abs(Osszeg2)*DevArf,2)

I13. MeeKod Mennyiség egység 0

I14. Mennyi Mennyiség Round(Abs(Osszeg1)*DevArf,2)

I15. MlpAzo Munkalap azonosító 0

I16. TevKod Tevékenység kód 0

Kiegészítő adatok:

K1. KttAzo Kontírozási tétel azonosító FloatToStr(KkPenzTet.ID) – Tétel azonosító

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