Naviga: |
Categoria: Codice | Ultimo Aggiornamento: 01/04/04 |
Inviato da: Umberto Migliore | Visite: 20805 |
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 | |
Massimiliano Chiodi | 09/12/18 12:41:03 |
Qui il codice aggiornato per il controllo del codice fiscale per la versione 17 di 4d ----- calcolocodicefiscale ----- If (Undefined($1)) $0=False End if $codicefiscale:=$1 If (Length($codicefiscale)=0) $0:=False End if If (Length($codicefiscale)#16) $0:=False End if // $omocodici:="LMNPQRSTUV" $listaControllo:="ABCDEFGHIJKLMNOPQRSTUVWXYZ" ARRAY INTEGER($alistapari;26) $alistapari{0}:=0 $alistapari{1}:=1 $alistapari{2}:=2 $alistapari{3}:=3 $alistapari{4}:=4 $alistapari{5}:=5 $alistapari{6}:=6 $alistapari{7}:=7 $alistapari{8}:=8 $alistapari{9}:=9 $alistapari{10}:=10 $alistapari{11}:=11 $alistapari{12}:=12 $alistapari{13}:=13 $alistapari{14}:=14 $alistapari{15}:=15 $alistapari{16}:=16 $alistapari{17}:=17 $alistapari{18}:=18 $alistapari{19}:=19 $alistapari{20}:=20 $alistapari{21}:=21 $alistapari{22}:=22 $alistapari{23}:=23 $alistapari{24}:=24 $alistapari{25}:=25 ARRAY INTEGER($alistadispari;26) $alistadispari{0}:=1 $alistadispari{1}:=0 $alistadispari{2}:=5 $alistadispari{3}:=7 $alistadispari{4}:=9 $alistadispari{5}:=13 $alistadispari{6}:=15 $alistadispari{7}:=17 $alistadispari{8}:=19 $alistadispari{9}:=21 $alistadispari{10}:=2 $alistadispari{11}:=4 $alistadispari{12}:=18 $alistadispari{13}:=20 $alistadispari{14}:=11 $alistadispari{15}:=3 $alistadispari{16}:=6 $alistadispari{17}:=8 $alistadispari{18}:=12 $alistadispari{19}:=14 $alistadispari{20}:=16 $alistadispari{21}:=10 $alistadispari{22}:=22 $alistadispari{23}:=25 $alistadispari{24}:=24 $alistadispari{25}:=23 $codicefiscale:=Uppercase($codicefiscale) ARRAY TEXT($cCodice;15) For ($k;0;14) $cCodice{$k}:=Substring($codicefiscale;$k+1;1) End for $somma:=0 $i:=0 While ($i<15) $s:=$cCodice{$i} $x:=Position($s;"0123456789";1) If ($x<=0) Else $s:=Substring($listaControllo;$x;1) End if $x:=Position($s;$listaControllo;1) If (Mod($i;2)=0) $x:=$alistaDispari{$x-1} Else $x:=$alistaPari{$x-1) End if $somma:=$somma+$x $i:=$i+1 End while $x:=Mod($somma;26)+1 $lungo:=Length($codicefiscale) $subcontrollo:=Substring($listaControllo;$x;1) $cofiscale:=Substring($codicefiscale;$lungo;1) If ($subcontrollo=$cofiscale) $0:=True End if | |
Massimiliano Chiodi | 09/12/18 12:42:25 |
Qui il codice aggiornato per il controllo del codice fiscale per la versione 17 di 4d ----- calcolocodicefiscale ----- If (Undefined($1)) $0=False End if $codicefiscale:=$1 If (Length($codicefiscale)=0) $0:=False End if If (Length($codicefiscale)#16) $0:=False End if // $omocodici:="LMNPQRSTUV" $listaControllo:="ABCDEFGHIJKLMNOPQRSTUVWXYZ" ARRAY INTEGER($alistapari;26) $alistapari{0}:=0 $alistapari{1}:=1 $alistapari{2}:=2 $alistapari{3}:=3 $alistapari{4}:=4 $alistapari{5}:=5 $alistapari{6}:=6 $alistapari{7}:=7 $alistapari{8}:=8 $alistapari{9}:=9 $alistapari{10}:=10 $alistapari{11}:=11 $alistapari{12}:=12 $alistapari{13}:=13 $alistapari{14}:=14 $alistapari{15}:=15 $alistapari{16}:=16 $alistapari{17}:=17 $alistapari{18}:=18 $alistapari{19}:=19 $alistapari{20}:=20 $alistapari{21}:=21 $alistapari{22}:=22 $alistapari{23}:=23 $alistapari{24}:=24 $alistapari{25}:=25 ARRAY INTEGER($alistadispari;26) $alistadispari{0}:=1 $alistadispari{1}:=0 $alistadispari{2}:=5 $alistadispari{3}:=7 $alistadispari{4}:=9 $alistadispari{5}:=13 $alistadispari{6}:=15 $alistadispari{7}:=17 $alistadispari{8}:=19 $alistadispari{9}:=21 $alistadispari{10}:=2 $alistadispari{11}:=4 $alistadispari{12}:=18 $alistadispari{13}:=20 $alistadispari{14}:=11 $alistadispari{15}:=3 $alistadispari{16}:=6 $alistadispari{17}:=8 $alistadispari{18}:=12 $alistadispari{19}:=14 $alistadispari{20}:=16 $alistadispari{21}:=10 $alistadispari{22}:=22 $alistadispari{23}:=25 $alistadispari{24}:=24 $alistadispari{25}:=23 $codicefiscale:=Uppercase($codicefiscale) ARRAY TEXT($cCodice;15) For ($k;0;14) $cCodice{$k}:=Substring($codicefiscale;$k+1;1) End for $somma:=0 $i:=0 While ($i<15) $s:=$cCodice{$i} $x:=Position($s;"0123456789";1) If ($x<=0) Else $s:=Substring($listaControllo;$x;1) End if $x:=Position($s;$listaControllo;1) If (Mod($i;2)=0) $x:=$alistaDispari{$x-1} Else $x:=$alistaPari{$x-1) End if $somma:=$somma+$x $i:=$i+1 End while $x:=Mod($somma;26)+1 $lungo:=Length($codicefiscale) $subcontrollo:=Substring($listaControllo;$x;1) $cofiscale:=Substring($codicefiscale;$lungo;1) If ($subcontrollo=$cofiscale) $0:=True End if E il codice per il controllo della partita iva ( o il codice fiscale assegnato agli enti pubblici ) ---- controllopartitaiva ---- If (Undefined($1)) $0=False End if $codice:=$1 // Controllo dell'esattezza formale della Partita IVA $n:=0 // contatore $cd:=0 // contributo cifre dispar $cp:=0 // contributo cifre pari $ct:=0 // contributo totale // controlla la lunghezza del codice If (Length($codice)=11) Else $0:=False End if // controlla l'esattezza del carattere di controllo ct:=0 For ($n;1;9;2) $cd:=Num(Substring($codice;$n;1)) $cp:=Num(Substring($codice;$n+1;1))*2 If ($cp>9) $cp:=$cp-9 End if $ct:=$ct+$cd+$cp End for $nn:=Substring($codice;11;1) $uu:=Num($nn) If (Mod(Mod(10-ct;10);10)=$uu) $0:=True Else $0:=False End if |
Se accedi con utente e password, puoi aggiungere dei commenti.
Mutuo Facile, iDigitalScout, iDigitalTags e altre app di Nexid srl per iPhone e iPad
Cidroid, distributore italiano lettori barcode per IOS Apple iPhone, iPod, iPad