Procedura testata per chi sviluppa in VB

Promemoria primo messaggio :

Procedura che opera in ambiente effettivo per applicativi in VB


1. Modificare l’endpoint http://172...... Con https://sisssl.sistri.it/SIS/services/SIS? wsdl
2. Avere un certificato valido in formato p12
3. Il file wsdl così modificato deve essere caricato nel vostro applicativo dal comando “aggiungere riferimento al servizio”
4. Modificare il file app.config (presente in esplora soluzioni) parametro ‘clientcredentialtype’
<security mode="Transport">
<transport clientCredentialType="Certificate" proxyCredentialType="None"
realm="" />
5. Metodo GetversioneSIS

Dim obj1 As SIS_WSDLClient = New SIS_WSDLClient

Dim obj5 As SIS_WSDLClient = New SIS_WSDLClient()
Dim identity = "userid******"

Dim store As New X509Store("teststore", StoreLocation.CurrentUser)
store.Open(OpenFlags.ReadWrite)
Dim certificate As New X509Certificate2()

Dim certificate1 As New X509Certificate2("c:\certificato.p12", "eventuale password certificato")

Dim collection As New X509Certificate2Collection()
collection.Add(certificate1)

store.Add(certificate1)

store.AddRange(collection)
obj1.ClientCredentials.ClientCertificate.SetCertificate(StoreLocation.CurrentUser, _
StoreName.My, X509FindType.FindBySubjectName,“CN=nome certificato”)


Dim versione2 = obj1.GetVersioneSIS(identity)

MsgBox(versione2)


6. Metodo GetAzienda
Dim obj1 As SIS_WSDLClient = New SIS_WSDLClient

Dim obj5 As SIS_WSDLClient = New SIS_WSDLClient()
Dim identity = "userid****"
Dim codfisc1 = "codice fiscale azienda"
Dim obj2 As ParametriAggiuntivi = New ParametriAggiuntivi
obj1.ClientCredentials.ClientCertificate.SetCertificate(StoreLocation.CurrentUser, _
StoreName.My, X509FindType.FindBySubjectName,”CN=nome certificato")

Dim campo1 = obj1.GetAzienda(identity, obj2, codfisc1).ragioneSociale

MsgBox(campo1)


************* Per la gestione errori SISEXCEPTION *********
Prima di invocare il metodo

Try

....... Metodo......

Catch error1 As FaultException(Of SISException)



Dim errormsg As String = error1.Detail.Nodes(1).InnerText
Dim errorcode As String = error1.Detail.Nodes(0).InnerText

MsgBox(errorcode)
MsgBox(errormsg)

End Try

Con questa routine potete leggere eventuali errori generati dall'applicazione

Allora ho riletto tutto l'altro post 'Sistri e visualstudio' in cui mi sembrava esserci la risposta, ed infatti l'ho trovata.
Il nome certificato lo si recupera visualizzando i dettagli del certificato all'interno di Internet Explorer.
Finalmente adesso ho accesso anche io all'interoperabilità.
Grazie a tutti.

Ciao a causa di un progettino ho perso un po il filo...
Il mio problema è quello che aveva massimo 2000 " impossibile relazione di trust etc ect "

Chiedo a Massimo che cortesemente ha postato il link se può passarmi il suo metodo in quanto anche se prendo spunto dalla guida continiuo a ricevere l'errore

Grazie
Ciao

sandrino71 ha scritto:Ciao a causa di un progettino ho perso un po il filo...
Il mio problema è quello che aveva massimo 2000 " impossibile relazione di trust etc ect "

Chiedo a Massimo che cortesemente ha postato il link se può passarmi il suo metodo in quanto anche se prendo spunto dalla guida continiuo a ricevere l'errore

Grazie
Ciao

Ecco il codice che ho inserito

Dim identity = "aaaa.bbbb1234"
Dim obj1 As SIS_WSDLClient = New SIS_WSDLClient

Private Shared Function CertificateHandler(ByVal sender As Object, ByVal certificate As X509Certificate, ByVal chain As X509Chain, ByVal SSLerror As SslPolicyErrors) As Boolean
Return True
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'GetVersioneSIS

System.Net.ServicePointManager.ServerCertificateValidationCallback = AddressOf CertificateHandler
Dim versione2 = obj1.GetVersioneSIS(identity)

msgbox(versione2)
End Sub

Devi anche mettere:
Imports System.Security.Cryptography.X509Certificates
Imports System.Net.Security

Credo che utilizzare questa procedura sia sbagliato perchè si bypassa la connessione con certificato. Magari funziona con alcuni metodi ma con altri non può funzionare.
Avete installato il RootCaSistri tra le autorità attendibili ?

lucky2005 ha scritto:Credo che utilizzare questa procedura sia sbagliato perchè si bypassa la connessione con certificato. Magari funziona con alcuni metodi ma con altri non può funzionare.
Avete installato il RootCaSistri tra le autorità attendibili ?

Adesso ho capito il problema ... non avevo importato il certificato RootCA Sistri.
Grazie di nuovo.

Ciao grazie per aver postato il codice
io purtroppo ottengo ancora errori questo è l'ultimo;
"Richiesta HTTP vietata con lo schema di autenticazione client 'Anonymous'."
Scusate ma il rootCa sistri qual'è non mi ricordo più ??
------------------------------
Questo è il mio codice dentro il quale ho inserito la funzione consigliata da massimo2000
Senza questa funzione ottengo come errore " impossibile eseguire relazioni di trust"...
Chiedo a Lucky se per cortesia riesce ad avvallare questo codice in modo che se ho ancora problemi probabilmente è il certificato
Grazie
----------------------------
Private Shared Function CertificateHandler(ByVal sender As Object, ByVal certificate As X509Certificate, ByVal chain As X509Chain, ByVal SSLerror As SslPolicyErrors) As Boolean
Return True
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

System.Net.ServicePointManager.ServerCertificateValidationCallback = AddressOf CertificateHandler
'Dim versione2 = obj1.GetVersioneSIS(identity)


Dim obj1 As ServiceReference1.SIS_WSDLClient = New ServiceReference1.SIS_WSDLClient
Dim identity = "paperino"
Dim codfisc1 = "pippo"
Dim obj2 As ParametriAggiuntivi = New ParametriAggiuntivi
Dim store As New X509Store("teststore", StoreLocation.CurrentUser)
store.Open(OpenFlags.ReadWrite)
Dim certificate1 As New X509Certificate2("p:\certificate.p12", "password")
Dim collection As New X509Certificate2Collection()
collection.Add(certificate1)
store.Add(certificate1)
store.AddRange(collection)
obj1.ClientCredentials.ClientCertificate.SetCertificate(StoreLocation.CurrentUser, _
StoreName.My, X509FindType.FindBySubjectName, "nome del certificato senza cn=")
Dim campo1 = obj1.GetAzienda(identity, obj2, codfisc1).ragioneSociale
MsgBox(campo1)
End Sub
--------------------------------------------------

Ma è incompatibile ciò che hai scritto nella prima parte eludi il certificato(e come ho scritto prima è una procedura sbagliata) e nella seconda parte richiami il certificato utilizzando la connessione ssl.
Controlla in Internet Explorer nei certificati se tra le fonti attendibili esiste RootCaSistri

Ciao Lucky ok ora ho provato i metodi " versione " e "azienda" e funzionano.

Sto leggendo la guida ma non ho capito come si recupera il valore ID_SIS che ci server per gli altri metodi
Grazie
Ciao

Per IDSIS anagrafica :
Dim idsisanagrafica = obj1.GetAzienda(identity, obj2, codfisc).idSIS

Per IDSIS SEde
Dim idsissede = obj1.GetAzienda(identity, obj2, codfisc).sedeLegale.idSIS

ma per adesso ti servono a poco perchè quanto vai ad interrogare altri metodi ti ritorna l'errore "utente non abilitato" sicuramente ancora non possiamo utilizzare in effettivo il sistri.

Grazie lucky per la tua disponibilità.
Mi dici per favore quale metodo ti ha dato ad esempio " utente non abilitato" in modo da vedere che errore ottengo.

Un'ultima cosa: Hai per caso individuato qual'è il metodo che espone tutta la scheda sistri chiusa?
Grazie

Ciao

Per la gestione degli errori devi utilizzare il metodo SISexception come nel post iniziale.
Per la gestione della scheda non potendo testare l'idsis non i sono cimentato più di tanto.
Sto in ogni caso predisponendo l'applicativo per la verifica degli allineamenti , per la ricezione del numero del registro cronologico , lettura codici Cer e altro. Ma ovviamente senza avere la possibilità di provare.

Ciao Lucky scusa se ti stresso ma per il discorso delle anagrafiche non ho capito leggendo il manuale se si deve fare una query per estrapolare tutte le anagrafiche per avere gli id_sis dei miei attuali fornitori?

Grazie
Ciao

Quella che ho indicato io è IDSIS dell'anagrafica dell'Azienda