(Tcl) Cerved API Entity Search

Perform searches on a Subject, known indifferently, the Fiscal Code, VAT number or Name, and to obtain basic information of the Subject.

For more information, see https://apps-developer.cerved.com/

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set http [new_CkHttp]

# Implements the following CURL command:

# curl -X GET \
#   https://api.cerved.com/cervedApi/v1/entitySearch/live?testoricerca=test \
#   -H 'accept: application/json' \
#   -H 'apikey: ********************************'

# Use the following online tool to generate HTTP code from a CURL command
# Convert a cURL Command to HTTP Source Code

CkHttp_SetRequestHeader $http "accept" "application/json"
# Note: Your apikey is your Consumer Key
CkHttp_SetRequestHeader $http "apikey" "********************************"

set sbResponseBody [new_CkStringBuilder]

set success [CkHttp_QuickGetSb $http "https://api.cerved.com/cervedApi/v1/entitySearch/live?testoricerca=test" $sbResponseBody]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkStringBuilder $sbResponseBody
    exit
}

set jResp [new_CkJsonObject]

CkJsonObject_LoadSb $jResp $sbResponseBody
CkJsonObject_put_EmitCompact $jResp 0

puts "Response Body:"
puts [CkJsonObject_emit $jResp]

set respStatusCode [CkHttp_get_LastStatus $http]
puts "Response Status Code = $respStatusCode"
if {$respStatusCode >= 400} then {
    puts "Response Header:"
    puts [CkHttp_lastHeader $http]
    puts "Failed."
    delete_CkHttp $http
    delete_CkStringBuilder $sbResponseBody
    delete_CkJsonObject $jResp
    exit
}

# Sample JSON response:
# (Sample code for parsing the JSON response is shown below)

# {
#   "peopleTotalNumber": 1,
#   "companiesTotalNumber": 49,
#   "companies": [
#     {
#       "dati_anagrafici": {
#         "id_soggetto": 12207335,
#         "denominazione": "ANGELANTONI TEST TECHNOLOGIES S.R.L. IN FORMA ABBREVIATA ATT S.R.L.",
#         "codice_fiscale": "01234567890",
#         "partita_iva": "01234567890",
#         "indirizzo": {
#           "descrizione": "LOCALITA' CIMACOLLE, 464",
#           "cap": "06056",
#           "codice_comune": "PG028",
#           "descrizione_comune": "MASSA MARTANA",
#           "codice_comune_istat": "054028",
#           "provincia": "PG",
#           "descrizione_provincia": "PERUGIA"
#         }
#       },
#       "dati_attivita": {
#         "codice_ateco": "265129",
#         "ateco": "Fabbricazione di altri apparecchi di misura e regolazione, strumenti da disegno, di contatori di elettricita', gas, acqua ed altri liquidi, di bilance analitiche di precisione (incluse parti staccate ed accessori)",
#         "codice_stato_attivita": "A",
#         "flag_operativa": true,
#         "codice_rea": "PG 272575",
#         "company_form": {
#           "code": "SR",
#           "description": "SOCIETA' A RESPONSABILITA' LIMITATA",
#           "company_form_class": "SC"
#         }
#       },
#       "dati_pa": {
#         "ente": false,
#         "fornitore": true,
#         "partecipata": false
#       }
#     },
#     {
#       "dati_anagrafici": {
#         "id_soggetto": 1046896,
#         "denominazione": "TEST INDUSTRY S.R.L.",
#         "codice_fiscale": "01234567890",
#         "partita_iva": "01234567890",
#         "indirizzo": {
#           "descrizione": "CORSO VENEZIA, 36",
#           "cap": "20121",
#           "codice_comune": "MI146",
#           "descrizione_comune": "MILANO",
#           "codice_comune_istat": "015146",
#           "provincia": "MI",
#           "descrizione_provincia": "MILANO"
#         }
#       },
#       "dati_attivita": {
#         "codice_ateco": "265129",
#         "ateco": "Fabbricazione di altri apparecchi di misura e regolazione, strumenti da disegno, di contatori di elettricita', gas, acqua ed altri liquidi, di bilance analitiche di precisione (incluse parti staccate ed accessori)",
#         "codice_stato_attivita": "A",
#         "flag_operativa": true,
#         "codice_rea": "MI 2579272",
#         "company_form": {
#           "code": "SR",
#           "description": "SOCIETA' A RESPONSABILITA' LIMITATA",
#           "company_form_class": "SC"
#         }
#       },
#       "dati_pa": {
#         "ente": false,
#         "fornitore": true,
#         "partecipata": false
#       }
#     },
#     {
#       "dati_anagrafici": {
#         "id_soggetto": 300632,
#         "denominazione": "ITW TEST AND MEASUREMENT ITALIA S.R.L.",
#         "codice_fiscale": "01234567890",
#         "partita_iva": "01234567890",
#         "indirizzo": {
#           "descrizione": "VIA AIRAUDA, 12",
#           "cap": "10044",
#           "codice_comune": "TO189",
#           "descrizione_comune": "PIANEZZA",
#           "codice_comune_istat": "001189",
#           "provincia": "TO",
#           "descrizione_provincia": "TORINO"
#         }
#       },
#       "dati_attivita": {
#         "codice_ateco": "265129",
#         "ateco": "Fabbricazione di altri apparecchi di misura e regolazione, strumenti da disegno, di contatori di elettricita', gas, acqua ed altri liquidi, di bilance analitiche di precisione (incluse parti staccate ed accessori)",
#         "codice_stato_attivita": "A",
#         "flag_operativa": true,
#         "codice_rea": "TO 379571",
#         "company_form": {
#           "code": "SU",
#           "description": "SOCIETA' A RESPONSABILITA' LIMITATA CON UNICO SOCIO",
#           "company_form_class": "SC"
#         }
#       },
#       "dati_pa": {
#         "ente": false,
#         "fornitore": true,
#         "partecipata": false
#       }
#     }
#   ],
#   "people": [
#     {
#       "dati_anagrafici": {
#         "id_soggetto": 333333333,
#         "denominazione": "ROBUSTELLI TEST ALESSANDRO",
#         "dt_nascita": "08-22-1978",
#         "codice_fiscale": "RBSSMMMMMMMMMMMM",
#         "indirizzo": {
#           "descrizione": "VIA ALESSANDRINI, 22",
#           "cap": "26027",
#           "codice_comune": "CR084",
#           "descrizione_comune": "RIVOLTA D'ADDA",
#           "codice_comune_istat": "019084",
#           "provincia": "CR",
#           "descrizione_provincia": "CREMONA"
#         }
#       }
#     }
#   ]
# }

# Sample code for parsing the JSON response...
# Use the following online tool to generate parsing code from sample JSON:
# Generate Parsing Code from JSON

set peopleTotalNumber [CkJsonObject_IntOf $jResp "peopleTotalNumber"]
set companiesTotalNumber [CkJsonObject_IntOf $jResp "companiesTotalNumber"]
set i 0
set count_i [CkJsonObject_SizeOfArray $jResp "companies"]
while {$i < $count_i} {
    CkJsonObject_put_I $jResp $i
    set dati_anagraficiId_soggetto [CkJsonObject_IntOf $jResp "companies[i].dati_anagrafici.id_soggetto"]
    set dati_anagraficiDenominazione [CkJsonObject_stringOf $jResp "companies[i].dati_anagrafici.denominazione"]
    set dati_anagraficiCodice_fiscale [CkJsonObject_stringOf $jResp "companies[i].dati_anagrafici.codice_fiscale"]
    set dati_anagraficiPartita_iva [CkJsonObject_stringOf $jResp "companies[i].dati_anagrafici.partita_iva"]
    set dati_anagraficiIndirizzoDescrizione [CkJsonObject_stringOf $jResp "companies[i].dati_anagrafici.indirizzo.descrizione"]
    set dati_anagraficiIndirizzoCap [CkJsonObject_stringOf $jResp "companies[i].dati_anagrafici.indirizzo.cap"]
    set dati_anagraficiIndirizzoCodice_comune [CkJsonObject_stringOf $jResp "companies[i].dati_anagrafici.indirizzo.codice_comune"]
    set dati_anagraficiIndirizzoDescrizione_comune [CkJsonObject_stringOf $jResp "companies[i].dati_anagrafici.indirizzo.descrizione_comune"]
    set dati_anagraficiIndirizzoCodice_comune_istat [CkJsonObject_stringOf $jResp "companies[i].dati_anagrafici.indirizzo.codice_comune_istat"]
    set dati_anagraficiIndirizzoProvincia [CkJsonObject_stringOf $jResp "companies[i].dati_anagrafici.indirizzo.provincia"]
    set dati_anagraficiIndirizzoDescrizione_provincia [CkJsonObject_stringOf $jResp "companies[i].dati_anagrafici.indirizzo.descrizione_provincia"]
    set dati_attivitaCodice_ateco [CkJsonObject_stringOf $jResp "companies[i].dati_attivita.codice_ateco"]
    set dati_attivitaAteco [CkJsonObject_stringOf $jResp "companies[i].dati_attivita.ateco"]
    set dati_attivitaCodice_stato_attivita [CkJsonObject_stringOf $jResp "companies[i].dati_attivita.codice_stato_attivita"]
    set dati_attivitaFlag_operativa [CkJsonObject_BoolOf $jResp "companies[i].dati_attivita.flag_operativa"]
    set dati_attivitaCodice_rea [CkJsonObject_stringOf $jResp "companies[i].dati_attivita.codice_rea"]
    set dati_attivitaCompany_formCode [CkJsonObject_stringOf $jResp "companies[i].dati_attivita.company_form.code"]
    set dati_attivitaCompany_formDescription [CkJsonObject_stringOf $jResp "companies[i].dati_attivita.company_form.description"]
    set dati_attivitaCompany_formCompany_form_class [CkJsonObject_stringOf $jResp "companies[i].dati_attivita.company_form.company_form_class"]
    set dati_paEnte [CkJsonObject_BoolOf $jResp "companies[i].dati_pa.ente"]
    set dati_paFornitore [CkJsonObject_BoolOf $jResp "companies[i].dati_pa.fornitore"]
    set dati_paPartecipata [CkJsonObject_BoolOf $jResp "companies[i].dati_pa.partecipata"]
    set i [expr $i + 1]
}
set i 0
set count_i [CkJsonObject_SizeOfArray $jResp "people"]
while {$i < $count_i} {
    CkJsonObject_put_I $jResp $i
    set dati_anagraficiId_soggetto [CkJsonObject_IntOf $jResp "people[i].dati_anagrafici.id_soggetto"]
    set dati_anagraficiDenominazione [CkJsonObject_stringOf $jResp "people[i].dati_anagrafici.denominazione"]
    set dati_anagraficiDt_nascita [CkJsonObject_stringOf $jResp "people[i].dati_anagrafici.dt_nascita"]
    set dati_anagraficiCodice_fiscale [CkJsonObject_stringOf $jResp "people[i].dati_anagrafici.codice_fiscale"]
    set dati_anagraficiIndirizzoDescrizione [CkJsonObject_stringOf $jResp "people[i].dati_anagrafici.indirizzo.descrizione"]
    set dati_anagraficiIndirizzoCap [CkJsonObject_stringOf $jResp "people[i].dati_anagrafici.indirizzo.cap"]
    set dati_anagraficiIndirizzoCodice_comune [CkJsonObject_stringOf $jResp "people[i].dati_anagrafici.indirizzo.codice_comune"]
    set dati_anagraficiIndirizzoDescrizione_comune [CkJsonObject_stringOf $jResp "people[i].dati_anagrafici.indirizzo.descrizione_comune"]
    set dati_anagraficiIndirizzoCodice_comune_istat [CkJsonObject_stringOf $jResp "people[i].dati_anagrafici.indirizzo.codice_comune_istat"]
    set dati_anagraficiIndirizzoProvincia [CkJsonObject_stringOf $jResp "people[i].dati_anagrafici.indirizzo.provincia"]
    set dati_anagraficiIndirizzoDescrizione_provincia [CkJsonObject_stringOf $jResp "people[i].dati_anagrafici.indirizzo.descrizione_provincia"]
    set i [expr $i + 1]
}

delete_CkHttp $http
delete_CkStringBuilder $sbResponseBody
delete_CkJsonObject $jResp