Sviluppo4d.it
Sito indipendente di informazioni tecniche per sviluppatori 4th Dimension italiani  

Sviluppatori 4D

Utility 4D

Risorse 4D



4d logo
Naviga: Prev Next

Titolo: Controllo Codice Fiscale

Categoria: Codice Ultimo Aggiornamento: 01/04/04


Questo metodo ritorna Vero se il codice fiscale passato è scritto correttamente, utilizzando il carattere di controllo finale. La procedura è un po' condensata: per l'algoritmo di controllo completo potete trovare il dettaglio sul sito del Ministero delle Finanze.

    `Metodo Controllo_CodiceFiscale
    `controlla il checksum del codice fiscale
    `Nexus srl 4-6-90
C_LONGINT($i;$n_l;$car_l;$cod_l)
C_STRING(16;$cf_s;$1)
C_STRING(43;$mysndcod_s)
$cf_s:=$1
If (Length($cf_s)#16)
  $0:=False
Else
  $n_l:=0
  For ($i;2;14;2)
    $car_l:=Ascii($cf_s[[$i]])
    Case of
      : (($car_l>=48) & ($car_l<=57))
        $cod_l:=$car_l-48
      : (($car_l>=65) & ($car_l<=90))
        $cod_l:=$car_l-65
      Else
        $cod_l:=0
    End case
    $n_l:=$n_l+$cod_l
  End for
  $mysndcod_s:="BAFHJNPRTVUMBERTOBAFHJNPRTVCESULDGIMOQKWZYX"
  For ($i;1;15;2)
    $car_l:=Ascii($cf_s[[$i]])-47
    $cod_l:=Ascii($mysndcod_s[[$car_l]])-65
    $n_l:=$n_l+$cod_l
  End for
  $0:=((65+$n_l-(Int($n_l/26)*26))=Ascii($cf_s[[16]]))
End if

Inviato da: Umberto Migliore Visite: 11784


PierPaolo Sichera 23/05/10 23:31:01
Se si vogliono utilizzare i web services, si può utilizzare il codice:

C_TEXT($metodo_t)
C_TEXT($urlServer_t)
C_TEXT($soapAction_t)
C_TEXT($namespace_t)
C_TEXT($risultato)
$metodo_t:="Check_CodiceFiscale" ´nome del metodo che mi serve

    ´le successive sono costanti...
$urlServer_t:="http://www.nexusonline.it:8088/4DSOAP/"
$soapAction_t:="Nexus_WebService#"
$namespace_t:="http://www.nexusonline.it/namespace/default"

AUTHENTICATE WEB SERVICE("nome@dominio.it";"")

CALL WEB SERVICE(urlServer_t;$soapAction_t+$metodo_t;$metodo_t;$namespace;Web Service Dynamic)
If (OK=1)
    GET WEB SERVICE RESULT($risultato;"codice_fiscale";*)
End if

Se accedi con utente e password, puoi aggiungere dei commenti.


Accesso

User: Nuovo
Pass: Accedi

Utenti Registrati

Cerca

Se non trovi le informazioni che cerchi scrivi a aiuto@sviluppo4d.it

4D Principali

4D Discussioni

Faq random


Crediti

Dominio registrato da ZetaNet
Sito realizzato da Nexus srl
4D SQL 11.8.0 offerto da 4D & Italsoftware
Icone di FAMFAMFAM
Moderato da Umberto Migliore
264 utenti registrati

Pagina servita il 25/09/17 alle 06:28:36 Valid HTML 4.01! Valid CSS!

Mutuo Facile, Serie Filmcards, Serie Singloids e altre app di Nexus srl per iPhone e iPad

Cidroid, distributore italiano lettori barcode per Apple iPhone, iPod, iPad della IPC