A Wizuál Bér programban előállított bérfeladások kontírozására szolgáló funkció.
Funkciók: Karbantartás Új tétel
Jogosultságkód: 252221 Help context: 252221
Forrás: BerFelKon

Kontírozáshoz szükséges input adatok:
| • | Bérfeladás – év |
| • | Bérfeladás – hónap |
| • | Kontírozás dátuma |
A kontírozás elvégzése előtt a keresés gombot kell megnyomni. A program ekkor ellenőrzi, hogy van-e a megadott feltételeknek megfelelő bérfeladási tétel. A kontírozás gomb csak akkor válik élővé, ha a program talált legalább egy kontírozható bérfeladási tételt.
A kontírozás gomb megnyomása után a program elvégzi a kijelölt bérfeladási tételek kontírozását. Amennyiben adódik egy olyan tétel, amely valamilyen oknál fogva nem kontírozható, akkor a program egy bérfeladási tétel kontírozását sem végzi el. A kontírozási szempontból hibás tételeket a program egy hiba listán jeleníti meg.
A kontírozott bérfeladási tételek azonosítóját a program bejegyzi egy külön adattáblába. Ezáltal meg tudja akadályozni a bérfeladási tételek többszöri kontírozását. A bér program azonban egy adott hónap újbóli bérfelosztásának lefuttatása után az ugyanazon havi tételeknek más azonosítókat generál. Ezáltal az újonnan előállított tételek újból kontírozhatóvá válnak. Így egy adott időszak többszöri kontírozását csak úgy lehet kizárni, ha egy adott hónap bérfelosztásának lekontírozása után nem futtatják le újból ennek a hónapnak a bérfelosztását.
Alap tábla: ber.berfeladas as bf
FBerFea – A kontírozott bérfeladási tételeket tartalmazó tábla
Azonosító adatok:
A1. ID float NOT NULL, – Azonosító pk1
A2. KontEv float NOT NULL, – Kontírozás éve pk2
A3. KontHo float NOT NULL – Kontírozás hónapja pk3
Napló adatok:
N1. Opekod varchar (10) NOT NULL , – Kontírozás napló adatok – Operátor kód
N2. Terkod varchar (10) NOT NULL , – Terminál kód
N3. Rogdat datetime NOT NULL – Kontírozás időpontja
Indexek:
1. (KontEv,KontHo)
1. Szűrési feltételek
1. Fix szűrési feltételek
1. bf.pid Kontírozatlan mozgások
If (bf.pid and bf.ev and bf.ho) Not In FBerFea Then True Else False
2. Alap szűrési feltételek
1. bf.ev Feladás éve Egy tétel
2. bf.ho Feladás hónapja Egy tétel
2. Input adatok
1. KontDtX Kontírozás dátuma
3. Kontírozás
FKntFej - Kontírozási fejadatok
Insert
A program a bérfeladási adatokból (bf) állítja elő a fejadatokat.
Program által előállított adatok:
Azonosító adatok:
A1. KontEv Kontírozás éve <KontDtX-ból>
A2. KontHo Kontírozás hónapja <KontDtX-ból>
A3. KontID Kontírozási tételsor f('KOX',KontEv)
A4. KontAz Kontírozási azonosító: Program által generált
Input adatok:
I1. KontDt Kontírozás dátuma: KontDtX – Mozgás dátuma
I2. NapKod Napló kód: <KAzoAda.BeFeKoN> - Bér feladás kontír napló
<7BX>
I3. Bizony Bizonylatszám: bf.ev+'/'+bf.ho+'/'+bf.pid
I4. EloBiz Előző bizonylatszám: bf.munkaszam
I5. ParKod Partner kód: <'1'+DolKod>
I6. SzeKod Szervezeti egység <bf.szerv>
I7. DolKod Dolgozó kód <bf.tsz>
I8. Megjeg Megjegyzés: -
Kiegészítő adatok:
K1. BizAzo Bizonylat azonosító bf.ev+'/'+bf.ho+'/'+bf.pid
K2. SzaSza Számlaszám: <0>
K3. KonAzo Kontírozási azonosító: bf.ev+'/'+bf.ho+'/'+bf.pid
Á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 1 – Tartozik
Á6. KonTip Kontírozás típusa: 521 – Bér feladás kontírozása
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. RTerko Terminál kód Üresen marad
N6. RRogda Rögzítés időpontja Üresen marad
FKntTet - Kontírozási tételadatok
Insert
A program a bérfeladási adatokból (bf) illetve a munkalapok adataiból állítja elő a fejadatokat. A kontírozási adatok előállítása attól függ, hogy a kontírozandó tétel tartalmaz-e munkaszámot (munkalapszámot), vagy sem.
| A – Nincs munkalapszám | bf.munkaszam=nil a kontírozási adatok a bérfeladás táblából származnak |
| B – Van munkalapszám | bf.munkaszam<>nil a kontírozási adatok a bérfeladás és a munkalapszám definíciós táblákból származnak |
1.tétel : Alap szá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 Inkrementális, a kontírozási csoporton belül 1-ről indul
A6. KoTeAz Kontírozási tétel azonosító
KoTeAz=KontAz+'/'+EloNull(KoTeSo,3)
A7. SzlTip Számla típus: 1 – Alap
A8. SzlJel Számla jelleg: 1 – Tartozik
Input adatok:
I1. FokKod Főkönyvi számla bf.fsztartozik
I2. ParKod Partner kód
If (bf.tsz<>'*') and (FFokTor(bf.fsztartozik).SziKod='I' Then '1'+EloNull(bf.tsz) Else '0'
I3. KtgSzl Költség számla:
If FokKod[1]<>'5' Then <X> Else
<A> <bf.koltseghely>
<B> <KMunLap.KtgHel>
I4. KtgJel Költség jelleg:
If FokKod[1]<>'5' Or KAzoAda.KtgJelKon = 'N' Then <0> Else
<A> <Copy(bf.sajatkod,2,1)>
<B> <KMunLap.KtgJel>
I5. KtgTip Költség típus:
If (FokKod[1]<>'5') Or KAzoAda.KtgTipKon = 'N' Then <0> Else <Copy(bf.sajatkod,1,1)>
I6. AkdKod ÁFA besorolás kód: <0>
I7. ProKod Project kód:
If FokKod[1]<>'5' Then <0> Else
<A> <0>
<B> <KMunLap.ProKod>
I8. TaenAz Tárgyi eszköz azonosító
If FokKod[1]<>'5' Then <0> Else
<A> <0>
<B> <KMunLap.TaenAz>
I9. SzeKod Szervezeti egység
If FokKod[1]<>'5' Then <0> Else
<A> <bf.szerv>
<B> <KMunLap.SzeKod>
I10. DolKod Dolgozó kód
If FokKod[1]<>'5' Then <0> Else
<A> <bf.tsz>
<B> <0>
I11 Tartoz Tartozik összeg bf.ft + bf.ftkorrekcio
I12 Kovete Követel összeg <0>
I13. MeeKod Mennyiség egység <0>
I14. Mennyi Mennyiség <0>
I15. MlpAzo Munkalap azonosító
<A> <bf.munkaszam>
<B> <KMunLap.MlpAzo>
I16. TevKod Tevékenység kód
<A> <0>
<B> <KMunLap.TevKod>
Kiegészítő adatok:
K1. KttAzo Kontírozási tétel azonosító: bf.pid – Mozgás 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
2.tétel : Ellen szá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 Inkrementális, a kontírozási csoporton belül 1-ről indul
A6. KoTeAz Kontírozási tétel azonosító
KoTeAz=KontAz+'/'+EloNull(KoTeSo,3)
A7. SzlTip Számla típus: 2 – Ellen
A8. SzlJel Számla jelleg: 2 – Követel
Input adatok:
I1. FokKod Főkönyvi számla bf.fszkovetel
I2. ParKod Partner kód
If (bf.tsz<>'*') and (FFokTor(bf.fszkovetel).SziKod='I') Then '1'+EloNull(bf.tsz) Else '0'
I3. KtgSzl Költség számla:
If FokKod[1]<>'5' Then <X> Else
<A> <bf.koltseghely>
<B> <KMunLap.KtgHel>
I4. KtgJel Költség jelleg:
If FokKod[1]<>'5' Or KAzoAda.KtgJelKon = 'N' Then <0> Else
<A> <Copy(bf.sajatkod,2,1)>
<B> <KMunLap.KtgJel>
I5. KtgTip Költség típus:
If (FokKod[1]<>'5') Or KAzoAda.KtgTipKon = 'N' Then <0> Else <Copy(bf.sajatkod,1,1)>
I6. AkdKod ÁFA besorolás kód: <0>
I7. ProKod Project kód:
If FokKod[1]<>'5' Then <0> Else
<A> <0>
<B> <KMunLap.ProKod>
I8. TaenAz Tárgyi eszköz azonosító
If FokKod[1]<>'5' Then <0> Else
<A> <0>
<B> <KMunLap.TaenAz>
I9. SzeKod Szervezeti egység
If FokKod[1]<>'5' Then <0> Else
<A> <bf.szerv>
<B> <KMunLap.SzeKod>
I10. DolKod Dolgozó kód
If FokKod[1]<>'5' Then <X> Else
<A> <bf.tsz>
<B> <0>
I11 Tartoz Tartozik összeg <0>
I12 Kovete Követel összeg bf.ft + bf.ftkorrekcio
I13. MeeKod Mennyiség egység <0>
I14. Mennyi Mennyiség <0>
I15. MlpAzo Munkalap azonosító
<A> <bf.munkaszam>
<B> <KMunLap.MlpAzo>
I16. TevKod Tevékenység kód
<A> <0>
<B> <KMunLap.TevKod>
Kiegészítő adatok:
K1. KttAzo Kontírozási tétel azonosító: bf.pid – Mozgás 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
FBerFea – A kontírozott bérfeladási tételeket tartalmazó tábla
Insert
A kontírozás megtörténtének rögzítése.
Azonosító adatok:
A1. ID Azonosító bf.pid
A2. KontEv Kontírozás éve bf.ev
A3. KontHo Kontírozás hónapja bf.ho
Napló adatok:
N1. Opekod Kontírozás napló adatok – Operátor kód generált
N2. Terkod Terminál kód generált
N3. Rogdat Kontírozás időpontja generált