_GetNewPersNumber

Vrací osobní číslo podle předpisu pro osobní čísla. Předpis je spojen se  systémovým čítačem ,  který je definován takto:

Type=2000 a Id=0

Nastavit čítač můžete procedurou SetCountValue. Jestliže funkci _GetNewPersNumber použijete, bude automaticky zvýšen i uvedený systémový čítač.

Zjistit, zda se má používat automatizované přidělování osobních čísel lze z INI dokumentu:

dim F   : Byte;
dim Yes : Byte;
IOpen(F, "SYSTÉMOVÉ HODNOTY", true, "");
_IGet(F, "OSOBNÍ ČÍSLO", "POVOLENO AUTOMATICKÉ PŘIDĚLOVÁNÍ", Yes);
if(Yes)then
  ...  

Nastavit styl osobního čísla můžete rovněž pomocí INI dokumentu:

dim F   : Byte;
IOpen(F, "SYSTÉMOVÉ HODNOTY", true, "");
IPut(F, "OSOBNÍ ČÍSLO", "STYL", "%05i");

Do stylu se vkládá informace o formátu čísla dodaného systémovým čítačem. Tento formát může vypadat takto:

Formát stylu

Výsledek pro číslo "3"

%i

3

%05i

00003

ABC%04ixx

ABC0003xx

ABC

ABC

Pozor! Jestliže bude ve formátu chyba (dva znaky '%', znak '%' bez znaku 'i', mezi znakem '%' a 'i' nebudou čísla nebo jich bude více než dvě) nebude osobní číslo přidělováno!

Příklad:

dim OC : String;
OC := _GetNewPersNumber;

Podívejte se na:  System

Systémové hodnoty