Számla alap adatok mentése

A számla alap adatok mentése során előállított adatok.

PSzaAla – Számla alap tábla

Modify

Program által előállított adatok:

Érték adatok – DEV:

É11. DeNtto Számla nettó összege DEV Sum(Round(PSzaAru.TetErt,2))

É12. DeAfaO ÁFA összeg DEV Sum(Round(PSzaAru.AfaErt,2))

É13. DeOssz Számla összesen DEV DeNtto + DeAfaO

É18. KerDev Kerekítés DEV

If AFimTor(PSzaAla.FimKod).EdiTip In [’4’,’5’] Then {Készpénzes fizetési mód}

Begin

KerDev = PSzaAla.MinCim * Round(DeOssz / PSzaAla.MinCim, 0) – DeOssz

End

Érték adatok – HUF:

É1. FtNtto Számla nettó összege HUF

Sum(Round(PSzaAla.DevArf * PSzaAru.TetErt,2))

É2. FtAfaO ÁFA összeg HUF

Sum(Round(PSzaAla.DevArf * PSzaAru.TetErt,2))

É3. FtOssz Számla összesen HUF FtNtto + FtAfaO

É8. KerHUF Kerekítés HUF

If AFimTor(PSzaAla.FimKod).EdiTip In [’4’,’5’] Then {Készpénzes fizetési mód}

Begin

KerHuf = Round(KerDev * PSzaAla.DevArf, 2)

End

Állapot adatok:

Á9. Allapo Számla állapot

If Abs(DeKiOs) + Abs(ElOssz) > Abs(DeOssz+KerDev) + KisOssz Then Allapo = '4' {Túl}

Else

If (abs(DeKiOs) + abs(ElOssz) < abs(DeOssz +KerDev) - KisOssz)

and (abs(DeKiOs) + abs(ElOssz) > 1E-4) Then Allapo = '2' {Részben teljesített}

Else If abs(DeKiOs) + abs(ElOssz) > 1E-4 Then Allapo = '3' {Kiegyenlített}

Else Allapo = '1' {Elővezetett}

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