Controllo sul Codice Fiscale (non generatore dello stesso).

[maximum]

Questa è la funziona generalizzata:

 
//**********************************************************//
//               //
// isCodiceFiscale(field)- return "OK","VUOTO" or "ERRATO" //
//               //
// Funzione che controlla che il valore del campo del form //
// HTML <field> sia un codice fiscale valido    //
//               //
//**********************************************************//
 
function isCodiceFiscale(obj)
{
 var nTempNum;
 var nAppoNum;
 var i;
 var szTempCodFisc;
 var szLastChar;
 var szValued;
 var szInValued;
 
 szCodFisc = obj.value;
 
 if (szCodFisc.length<16) return false
 if (szCodFisc == "") return false;
 else {
  szCodFisc =szCodFisc.toUpperCase();
  szLastChar = szCodFisc.substr(szCodFisc.length - 1,1);
  szTempCodFisc =szCodFisc.substr(0,szCodFisc.length - 1);
  nTempNum = 0;
  i = 0;
 
  while (true) {
   szValued="B1A0KKPPLLC2QQD3RRE4VVOOSSF5TTG6UUH7MMI8NNJ9WWZZYYXX";
   // I DISPARI
   szInValued=szTempCodFisc.substr(i,1);
   nAppoNum = szValued.search(szInValued);
   nTempNum = nTempNum + (nAppoNum &  0x7FFE) / 2;
   i = i + 1;
   if (i>15)
    break;
   szValued="A0B1C2D3E4F5G6H7I8J9KKLLMMNNOOPPQQRRSSTTUUVVWWXXYYZZ";
   // I PARI
   szInValued=szTempCodFisc.substr(i,1);
   nAppoNum = szValued.search(szInValued);
   nTempNum =  nTempNum + (nAppoNum &  0x7FFE) / 2;
   i = i + 1;
  }
  nTempNum = nTempNum % 26; //mod
  szValued="ABCDEFGHIJKLMNOPQRSTUVWXYZ";
  szValued= szValued.substr(nTempNum, 1);
  if (szValued==szLastChar) return true;
  else return false;
 }
}
 

E questo il controllo specifico del campo:

 
 if ((aForm.cod_fisc.value==0) && !isCodiceFiscale(aForm.cod_fisc))
 {
  alert("Codice Fiscale non valido");
  aForm.cod_fisc.focus();
  return false;
 }

P.S. Moderatori, ho già provveduto a linkarlo nel 3d delle discussioni utli.

[Alethesnake]

Eeeehhh..
La indovino con cinque (righe):

<script language="Javascript">
<!--
function Trim(stringa){ //Levo eventuali spazi indesiderati
   reTrim=/\s+$|^\s+/g;
   return stringa.replace(reTrim,"");
}
function controlla(){  // Controllo correttezza codice fiscale
    var p=document.form1.text1;
    var re = /^[A-Z]{6}\d{2}[A-Z]\d{2}[A-Z]\d{3}[A-Z]$/;
    Codice=Trim(p.value.toUpperCase());
    alert(re.test(Codice));
}
//-->
</script>

Per controllare la correttezza del codice fiscale basta una regular expression

[Mich_]

Originariamente inviato da Alethesnake
Per controllare la correttezza del codice fiscale basta una regular expression

No, non basta.
L'ultimo carattere del codice fiscale e` un codice di parita` che fa una somma pesata degli altri 15 caratteri.

Il codice di maximum esegue tale controllo.

Ciao
Michele

[maximum]

Originariamente inviato da Mich_
Il codice di maximum esegue tale controllo.

Ciao
Michele

Grazie Michè!!!

[Alethesnake]

Originariamente inviato da Mich_
No, non basta.
L'ultimo carattere del codice fiscale e` un codice di parita` che fa una somma pesata degli altri 15 caratteri.

Il codice di maximum esegue tale controllo.

Ciao
Michele

Non mi ero accorto che eseguisse anche un test di conformità sull'ultimo carattere
Complimenti Max!

[$$$]

devo dire che il controllo ha una sua certa utilita'.
insomma non c'è il confronto con il nome+cognome+data+ecc
dell'utente col suo codice fiscale :-|

[maximum]

L'abbiamo scrito per un applicativo che stiamo svolgendo qui al lavoro, per conto dell'Università.

[br1]

Originariamente inviato da maximum
L'abbiamo scrito per un applicativo che stiamo svolgendo qui al lavoro, per conto dell'Università.

complimenti per il lavoro... non era facile tradurlo dal VB

' By:
' Domenico Statuto
' Night Eagle
' Marco Carnazzo
' Ettore Maronese (By -MES-)
'
' 04.07.98 Modificato per la ricerca interattiva sul database By A. Fasano - Matera
  Dim temp        As String
    Dim Vocali      As String
    Dim Consonanti  As String
    Dim i           As Integer
    Dim AppoNum     As Long
    Dim TempNum     As Long
    Dim TxtCodFis   As String
'
' Questo codice e' liberamente distribuibile/modificabile/utilizzabile
' Buon Lavoro.
'
............... (omissis)..........................    
    'Controllo caratteri pari
    TempNum = 0
    i = 1
    Do
        ' I DISPARI
        AppoNum = InStr("B1A0KKPPLLC2QQD3RRE4VVOOSSF5TTG6UUH7MMI8NNJ9WWZZYYXX", Mid(TxtCodFis, i, 1))
        TempNum = TempNum + ((AppoNum - 1) And &H7FFE) / 2
        i = i + 1
        If i > 15 Then Exit Do
    
        ' I PARI
        AppoNum = InStr("A0B1C2D3E4F5G6H7I8J9KKLLMMNNOOPPQQRRSSTTUUVVWWXXYYZZ", Mid(TxtCodFis, i, 1))
        TempNum = TempNum + ((AppoNum - 1) And &H7FFE) / 2
        i = i + 1
    Loop
    TempNum = TempNum Mod 26
    TxtCodFis = TxtCodFis & Mid$("ABCDEFGHIJKLMNOPQRSTUVWXYZ", TempNum + 1, 1)
    
    ' Ecco qui il codice bello finito
    CalcoloCodFis = TxtCodFis

End Function

ciao

[max161]

lo script sembra molto affidabile (se funzionasse) soprattuto per questa cosa del calcolo dell'ultimo carattere del codice fiscale che e` un codice di parita'.
è un 3d un po' vecchiotto, però essendoci pervenuto dalla raccolta di script utili, mi sembra opportuno sottolineare che non funzia, posso garantirlo!

:master: :master:

[allejo]

Sinceramente non funziona nemmeno a me.........
Come mai?