Io folosesc procedura asta, pt cnp si cif. Cand o sa am timp o s-o extind si la iban

********* algocod
parameters pcod
IF EMPTY(pcod)
  RETURN      && decat cod gresit, mai bine fara
ENDIF
IF TYPE("pcod")#"C"
  RETURN .f.
ENDIF
IF VAL(pcod)=0
  RETURN .f.
ENDIF
swcod=.f.
DO CASE
CASE LEN(ALLTRIM(pcod))>10
  swcod= f_cnp()
CASE LEN(ALLTRIM(pcod))> 1  && intre 2 si 10 caractere numerice
  swcod= f_cui()
ENDCASE
RETURN swcod

**************
FUNCTION f_cnp
pcnp = pcod
FOR i = 1 TO 13
 IF !ISDIGIT(SUBSTR(pcnp,i,1))
   RETURN .f.
 ENDIF
 wn = "N" +ALLTRIM(STR(i,2))
 &wn = VAL(SUBSTR(pcnp , i ,1))
ENDFOR

c=MOD((N1*2+N2*7+N3*9+N4*1+N5*4+N6*6+N7*3+N8*5+N9*8+N10*2+N11*7+N12*9),11)
if ((int(c)=10 .and. n13=1) .or. int(c)=N13)
else
  retu .f.
endi
if left(pcnp,1)#"1" .and. left(pcnp,1)#"2" .and. ;
   left(pcnp,1)#"5" .and. left(pcnp,1)#"6"
  retu .f.
endi
if ctod(subs(pcnp ,6,2)+"/"+subs(pcnp ,4,2)+"/"+subs(pcnp ,2,2)) ={}
  retu .f.
endi
retu .t.

**************
FUNCTION f_cui
pcui = ALLTRIM(pcod)
FOR i = 1 TO LEN(pcui)    && test ca-s numa cifre
 IF !ISDIGIT(SUBSTR(pcui,i,1))
   RETURN .f.
 ENDIF
ENDFOR
kcui = "235712357"  && inversa cheii de test "7532 1 7532"
icui =""
FOR i = LEN(pcui) TO 1 STEP -1   && inversare cui
 icui = icui + SUBSTR(pcui,i,1)
ENDFOR
cifrac = VAL(LEFT(icui,1))    && cifra de control
totalul = 0
FOR i = 1 TO LEN(icui)
 j=i+1
 wtot = VAL(SUBSTR(icui,j,1)) * VAL(SUBSTR(kcui,i,1))
 totalul = totalul + wtot
ENDFOR
totalul = totalul * 10
c = MOD(totalul,11)
c = IIF(c=10,0,c)
IF c # cifrac
  RETURN .f.
ENDIF
RETURN