Visual FoxPro
Visual FoxPro
Cerved API Entity Search
See more Cerved Examples
Perform searches on a Subject, known indifferently, the Fiscal Code, VAT number or Name, and to obtain basic information of the Subject.Chilkat Visual FoxPro Downloads
LOCAL lnSuccess
LOCAL loHttp
LOCAL loSbResponseBody
LOCAL loJResp
LOCAL lnRespStatusCode
LOCAL lnDati_anagraficiId_soggetto
LOCAL lcDati_anagraficiDenominazione
LOCAL lcDati_anagraficiCodice_fiscale
LOCAL lcDati_anagraficiPartita_iva
LOCAL lcDati_anagraficiIndirizzoDescrizione
LOCAL lcDati_anagraficiIndirizzoCap
LOCAL lcDati_anagraficiIndirizzoCodice_comune
LOCAL lcDati_anagraficiIndirizzoDescrizione_comune
LOCAL lcDati_anagraficiIndirizzoCodice_comune_istat
LOCAL lcDati_anagraficiIndirizzoProvincia
LOCAL lcDati_anagraficiIndirizzoDescrizione_provincia
LOCAL lcDati_attivitaCodice_ateco
LOCAL lcDati_attivitaAteco
LOCAL lcDati_attivitaCodice_stato_attivita
LOCAL lnDati_attivitaFlag_operativa
LOCAL lcDati_attivitaCodice_rea
LOCAL lcDati_attivitaCompany_formCode
LOCAL lcDati_attivitaCompany_formDescription
LOCAL lcDati_attivitaCompany_formCompany_form_class
LOCAL lnDati_paEnte
LOCAL lnDati_paFornitore
LOCAL lnDati_paPartecipata
LOCAL lcDati_anagraficiDt_nascita
LOCAL lnPeopleTotalNumber
LOCAL lnCompaniesTotalNumber
LOCAL i
LOCAL lnCount_i
lnSuccess = 0
* This example assumes the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.
loHttp = CreateObject('Chilkat.Http')
* 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
loHttp.SetRequestHeader("accept","application/json")
* Note: Your apikey is your Consumer Key
loHttp.SetRequestHeader("apikey","********************************")
loSbResponseBody = CreateObject('Chilkat.StringBuilder')
lnSuccess = loHttp.QuickGetSb("https://api.cerved.com/cervedApi/v1/entitySearch/live?testoricerca=test",loSbResponseBody)
IF (lnSuccess = 0) THEN
? loHttp.LastErrorText
RELEASE loHttp
RELEASE loSbResponseBody
CANCEL
ENDIF
loJResp = CreateObject('Chilkat.JsonObject')
loJResp.LoadSb(loSbResponseBody)
loJResp.EmitCompact = 0
? "Response Body:"
? loJResp.Emit()
lnRespStatusCode = loHttp.LastStatus
? "Response Status Code = " + STR(lnRespStatusCode)
IF (lnRespStatusCode >= 400) THEN
? "Response Header:"
? loHttp.LastHeader
? "Failed."
RELEASE loHttp
RELEASE loSbResponseBody
RELEASE loJResp
CANCEL
ENDIF
* 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
lnPeopleTotalNumber = loJResp.IntOf("peopleTotalNumber")
lnCompaniesTotalNumber = loJResp.IntOf("companiesTotalNumber")
i = 0
lnCount_i = loJResp.SizeOfArray("companies")
DO WHILE i < lnCount_i
loJResp.I = i
lnDati_anagraficiId_soggetto = loJResp.IntOf("companies[i].dati_anagrafici.id_soggetto")
lcDati_anagraficiDenominazione = loJResp.StringOf("companies[i].dati_anagrafici.denominazione")
lcDati_anagraficiCodice_fiscale = loJResp.StringOf("companies[i].dati_anagrafici.codice_fiscale")
lcDati_anagraficiPartita_iva = loJResp.StringOf("companies[i].dati_anagrafici.partita_iva")
lcDati_anagraficiIndirizzoDescrizione = loJResp.StringOf("companies[i].dati_anagrafici.indirizzo.descrizione")
lcDati_anagraficiIndirizzoCap = loJResp.StringOf("companies[i].dati_anagrafici.indirizzo.cap")
lcDati_anagraficiIndirizzoCodice_comune = loJResp.StringOf("companies[i].dati_anagrafici.indirizzo.codice_comune")
lcDati_anagraficiIndirizzoDescrizione_comune = loJResp.StringOf("companies[i].dati_anagrafici.indirizzo.descrizione_comune")
lcDati_anagraficiIndirizzoCodice_comune_istat = loJResp.StringOf("companies[i].dati_anagrafici.indirizzo.codice_comune_istat")
lcDati_anagraficiIndirizzoProvincia = loJResp.StringOf("companies[i].dati_anagrafici.indirizzo.provincia")
lcDati_anagraficiIndirizzoDescrizione_provincia = loJResp.StringOf("companies[i].dati_anagrafici.indirizzo.descrizione_provincia")
lcDati_attivitaCodice_ateco = loJResp.StringOf("companies[i].dati_attivita.codice_ateco")
lcDati_attivitaAteco = loJResp.StringOf("companies[i].dati_attivita.ateco")
lcDati_attivitaCodice_stato_attivita = loJResp.StringOf("companies[i].dati_attivita.codice_stato_attivita")
lnDati_attivitaFlag_operativa = loJResp.BoolOf("companies[i].dati_attivita.flag_operativa")
lcDati_attivitaCodice_rea = loJResp.StringOf("companies[i].dati_attivita.codice_rea")
lcDati_attivitaCompany_formCode = loJResp.StringOf("companies[i].dati_attivita.company_form.code")
lcDati_attivitaCompany_formDescription = loJResp.StringOf("companies[i].dati_attivita.company_form.description")
lcDati_attivitaCompany_formCompany_form_class = loJResp.StringOf("companies[i].dati_attivita.company_form.company_form_class")
lnDati_paEnte = loJResp.BoolOf("companies[i].dati_pa.ente")
lnDati_paFornitore = loJResp.BoolOf("companies[i].dati_pa.fornitore")
lnDati_paPartecipata = loJResp.BoolOf("companies[i].dati_pa.partecipata")
i = i + 1
ENDDO
i = 0
lnCount_i = loJResp.SizeOfArray("people")
DO WHILE i < lnCount_i
loJResp.I = i
lnDati_anagraficiId_soggetto = loJResp.IntOf("people[i].dati_anagrafici.id_soggetto")
lcDati_anagraficiDenominazione = loJResp.StringOf("people[i].dati_anagrafici.denominazione")
lcDati_anagraficiDt_nascita = loJResp.StringOf("people[i].dati_anagrafici.dt_nascita")
lcDati_anagraficiCodice_fiscale = loJResp.StringOf("people[i].dati_anagrafici.codice_fiscale")
lcDati_anagraficiIndirizzoDescrizione = loJResp.StringOf("people[i].dati_anagrafici.indirizzo.descrizione")
lcDati_anagraficiIndirizzoCap = loJResp.StringOf("people[i].dati_anagrafici.indirizzo.cap")
lcDati_anagraficiIndirizzoCodice_comune = loJResp.StringOf("people[i].dati_anagrafici.indirizzo.codice_comune")
lcDati_anagraficiIndirizzoDescrizione_comune = loJResp.StringOf("people[i].dati_anagrafici.indirizzo.descrizione_comune")
lcDati_anagraficiIndirizzoCodice_comune_istat = loJResp.StringOf("people[i].dati_anagrafici.indirizzo.codice_comune_istat")
lcDati_anagraficiIndirizzoProvincia = loJResp.StringOf("people[i].dati_anagrafici.indirizzo.provincia")
lcDati_anagraficiIndirizzoDescrizione_provincia = loJResp.StringOf("people[i].dati_anagrafici.indirizzo.descrizione_provincia")
i = i + 1
ENDDO
RELEASE loHttp
RELEASE loSbResponseBody
RELEASE loJResp