**************************
* kontrola existence ICO *
**************************
FUNCTION ICAK
PARAMETERS S_ICO
PRIVATE sumaX,iX,nX
nX = ABS(S_ICO)
sumaX = 0
nX = INT(nX / 10)
iX = 2
DO WHILE nX > 0
sumaX = sumaX + ((nX - (INT(nX / 10) * 10)) * iX)
iX = iX + 1
nX = INT(nX / 10)
ENDDO
IF .NOT.(MOD(11 - MOD(sumaX,11),10) = MOD(S_ICO,10))
RETURN .F.