A [Kalkulációs adatok] fülön adhatjuk meg a vállalt szolgáltatás elvégzéséhez szükséges anyagokat és tevékenységeket. Ezek alapján kalkulálja a program a szolgáltatás bekerülési egységárát. A kalkulációs adatokat a vállalt szolgáltatás egységnyi mennyiségére (Pl: 1 db) kell megadni. Ezt szorozza majd fel a program az igénylési mennyiséggel.

Tábla: KRenTetKal
Kalkulációs tétel input adatok:
A kalkulációs tétel adatok adminisztrációja az alap devizanemben (KA.AlaDev = ’HUF’) történik.
Input adatok:

I1. AruTip Áru típus ART <A:1>
0 – N/A
1 – Termék
2 – Szolgáltatás
I2. AruKod Áru kód fk: AAruTor.AruKod
I3. Mennyi Mennyiség
I4. MeeKod Mennyiség egység fk: AMeeTor.MeeKod <A:AAruTor.MeeKod>
Érték adatok:
A bekerülési értéket két féle módon határozhatjuk meg:

I5. EladAr Értékesítési egységár Input / Számított adat <A:EladArX>
A program az értékesítési egységár számító funkcióval kiszámított értéket ajánlja be.
EladArX := EladArSzam(KRenTetKal.AruKod, KRenFej.ParKod, KRenFej.RenDat, KA.AlaDev)
Az input adat hatására számított adatok:
1. KedvezX := Round(100 * (1 - EladArX / AAruTor.ErEgAr),2)
2. Arres = Round(100 * (EladAr / BekerAr – 1),2)
I6. KedVezX Kedvezmény [%] Input / Számított adat
A program induló értékként a partnert megillető kedvezményt ajánlja fel, amelyet az operátor módosíthat.
Az input adat hatására számított adatok:
1. EladAr = AAruTor.ErEgAr * (1 – KedvezX/100)
2. Arres = Round(100 * (EladAr / BekerAr – 1),2)
I6. BekerAr Bekerülési egységár Input / Számított adat <A:BekerArX>
A program a bekerülési egységár számító funkcióval előállított értéket ajánlja be.
BekerArX := AnyagEgysegar(KRenTetKal.AruKod)
Az input adat hatására számított adatok:
1. EladAr = Round(BekerAr * (1 + Arres/100),0)
2. KedvezX
I7. Arres Árrés [%] Input / Számított adat <A:ArresX>
A program induló értékként, az értékesítési és bekerülési egységárból számított árrést ajánlja be.
ArresX := Round(100 * (EladAr / BekerAr – 1),2)
Az input adat hatására számított adatok:
1. EladAr = Round(BekerAr * (1 + Arres/100),0)
2. KedvezX
A program által előállított kalkulációs tétel adatok:
Alap adatok: A program által előállított adatok
A1. KalAzo Kalkulációs tétel azonosító pk
= TetAzo+’/’+EloNull(KalSor,4)
Pl: REV-00/00001/0006/00001
A kalkulációs tétel azonosító a rendelési tétel azonosító és a kalkulációs sorszám összetételéből keletkezik.
A2. TetAzo Rendelési tétel azonosító
Kapcsolódási kulcs a rendelés tétel alap táblához. fk: KRenTet.TetAzo
A3. KalSor Kalkulációs tétel sorszám
Egy adott rendelési tételhez rögzített kalkulációs tételek folyamatos sorszámát tartalmazó adatmező.
Számított adatok:
S1. AtpKod Ártípus kód ATP <AtpKodX>
A program által előállított adat.
S1. TetErt Tétel érték, alap devizában, ÁFA nélkül
= Round(Mennyi*EladAr,2)
S2. BesErt Bekerülési érték, alap devizában
= Round(Mennyi*BekerAr,2)
A program által előállított igénylési adatok:
P1. ArKepTip Az eladási árképzés típusa EAK <ArKepTipX>
0 – N/A
1 – Értékesítési egységár
2 – Beszerzési ár
3 – Átlagár
4 – Kalkulált beszerzési ár
P2. ArKepAr Az eladási árképzés alap ár értéke <BazisArX>
P3. ArKepSzaz Az eladási árképzés százaléka <SzazalekX>
Napló adatok:
N1. Opekod Operátor kód <gc_OpeKod>
N2. Terkod Terminál kód <gc_TerKod>
N3. Rogdat Rögzítés dátuma <Now>
Rendelési tétel kiegészítő tábla mezőinek átszámítása
KRenTetX.UpDate
É1. BekerArA Bekerülési egységár
Az alap devizanemben – Áru
Select TetAzo, Sum(BesErt) BekerArA
From KRenTetKal
Where KRenTetX.TetAzo = KRenTetKal.TetAzo
And AruTip = ’1’
Group by TetAzo
É2. BekerArM Bekerülési egységár
Az alap devizanemben – Munka
Select TetAzo, Sum(BesErt) BekerArM
From KRenTetKal
Where KRenTetX.TetAzo = KRenTetKal.TetAzo
And AruTip = ’2’
É3. EladArA Értékesítési egységár
Az alap devizanemben – Áru
Select TetAzo, Sum(TetErt) EladArA
From KRenTetKal
Where KRenTetX.TetAzo = KRenTetKal.TetAzo
And AruTip = ’1’
Group by TetAzo
É4. EladArM Értékesítési egységár
Az alap devizanemben – Munka
Select TetAzo, Sum(TetErt) EladArM
From KRenTetKal
Where KRenTetX.TetAzo = KRenTetKal.TetAzo
And AruTip = ’2’