HyperLink
Bejelentkezés
E-mail: 
Jelszó: 





Skip Navigation Links
 

Adóazonosító jel ellenőrzése


Példaprogram letöltése

4148 bájt

Az adóazonosító jelek tartalmaznak egy ellenőrző logikát, amely alapján meghatározható, hogy egy adóazonosító jel létező-e. Készítünk egy komponenst, amely segítségével ezt az ellenőrzést végrehajthatjuk.

A mellékelt példaprogram megnyitása előtt az AdoJel.pas-ban lévő komponenst telepítenie kell a Delphi alá. Ehhez válassza a Component - Install Component menüpontot.
A komponens Number tulajdonságában kel megadnunk magát az adóazonosító jelet. Miután a property értékét beállítottuk, az IsValid property értéke jelzi, hogy a megadott adóazonosító jel valós-e.
Az adóazonosító jel egy 10 jegyű számsorozat. Tartalmaz egy ellenőrző logikát, amely a következő. Az első kilenc számjegy értékét összeadjuk, úgy, hogy közben az adott számot megszorozzuk azzal a számmal, ahányadik a sorban. Az adóazonosító jel utolsó számjegyét úgy kapjuk meg, hogy az összeget osztjuk 11-el, majd vesszük a maradékot, ez lesz a 10. számjegy.
Például, vegyük a 8888888888 adóazonosító jelet.
Az első 9 szám összege: 1*8+2*8+3*8+4*8+5*8+6*8+7*8+8*8+9*8=360.
Az utolsó jegy: a 360/11 egész értékű osztás maradéka, azaz 8.
Ezt algoritmussal felírva:
n:=0;
for i:=1 to 9 do
  n:=n+i*StrToInt(FNumber[i]);
nl:=n mod 11;
if nl=10 then
  nl:=0;
if nl=StrToInt(FNumber[10]) then
  FIsValid:=True;

Könyv
Ez a cikk megtalálható ebben a könyvben: Delphi Software Offline 2003 évkönyv 285. oldal

Felhasználási feltételek
A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!

Copyright © 1999-2012 Animare Software Kft. Minden jog fenntartva!
| Készült: Animare Stúdió | Adatvédelem | Kapcsolat |