MDFE IMPLEMANTAR

MALA 07/04/2016 22:08:54
#460715
MDFE implemantar , alguem tem algum exemplo pra mim ajudar ?

Dim ttt As New MDFeConsulta.MDFeConsultaSoap12Client
KERPLUNK 07/04/2016 22:15:11
#460716 Resposta escolhida
Neste vídeo, eu mostro como consumir um webservice SOAP.

E é [Ô]ME[Ô] ajudar e não [Ô]MIM[Ô] ajudar
MALA 07/04/2016 22:38:36
#460717
Dim Doc As New XmlDocument
Dim lcerts As X509Certificate2Collection
Dim lStore As New X509Store(StoreName.My, StoreLocation.CurrentUser)

[ô] Abre o Store
lStore.Open(OpenFlags.[ReadOnly])

[ô] Lista os certificados
lcerts = lStore.Certificates

For Each cert As X509Certificate2 In lcerts
If cert.HasPrivateKey AndAlso cert.NotAfter > DateTime.Now AndAlso cert.NotBefore < DateTime.Now Then
Dim cabecMsg As New MDFeConsulta.mdfeCabecMsg
Dim lServ As MDFeConsulta.MDFeConsultaSoap12Client

lServ = New MDFeConsulta.MDFeConsultaSoap12Client

lServ.ClientCredentials.ClientCertificate.Certificate = cert


cabecMsg.cUF = [Ô]35[Ô]
cabecMsg.versaoDados = [Ô]1.00[Ô]

Dim consulta = lServ.mdfeConsultaMDF(cabecMsg, Doc)
End If
Next
lStore.Close()

alguem pode me ajudar com essa funcao
KERPLUNK 07/04/2016 22:44:50
#460718
Bom, qual seu problema com a função?
MALA 07/04/2016 22:48:16
#460720
Nao sei se ela esta funcionado, pois comecei a desenvolver o MDFe a pouco e nao sei como usar as funçoes do webservices, achei essa função
KERPLUNK 07/04/2016 22:56:27
#460721
Você sabe o que ela faz? Você viu o vídeo que te passei? Você entendeu o que é e como se usa um WebService SOAP?
MALA 07/04/2016 23:02:20
#460722
ERRO : Não foi possível localizar o elemento de ponto de extremidade padrão que referencia o contrato [ô]MDFeConsulta.MDFeConsultaSoap12[ô] na seção de configuração do ServiceModel cliente. Isso pode ter ocorrido devido à falta de um arquivo de configuração para o seu aplicativo ou porque nenhum elemento de ponto de extremidade correspondendo a este contrato pôde ser encontrado no elemento cliente.


Dim cabecMsg As New MDFeConsulta.mdfeCabecMsg
Dim lServ As MDFeConsulta.MDFeConsultaSoap12Client
Dim Cert As New Certificado

lServ = New MDFeConsulta.MDFeConsultaSoap12Client NESSA LINHA DA ESSE ERRO
KERPLUNK 07/04/2016 23:42:05
#460724
é provável que isso não seja a classe de client. Pode passar o endereço do webservice?
MALA 08/04/2016 07:28:33
#460728
https://mdfe-homologacao.svrs.rs.gov.br/ws/MDFeStatusServico/MDFeStatusServico.asmx

obrigado pela sua atenção amigo.
MALA 08/04/2016 07:43:15
#460729
NOVO ERRO

[txt-color=#e80000]A solicitação HTTP está proibida com o esquema de autenticação de cliente [ô]Anonymous[ô].
[/txt-color]

Dim cabecMsg As New MDFeStatusServico.mdfeCabecMsg
Dim lServ As New MDFeStatusServico.MDFeStatusServicoSoap12Client
Dim Cert As New Certificado
Dim Doc As New XmlDocument
Dim Doc1 As XmlNode
Dim Ret As XmlNode
Dim vNomeCertificado As String = [Ô][Ô]

Cert.SelecionarCertificado(vNomeCertificado)

lServ.ClientCredentials.ClientCertificate.Certificate = Cert.BuscaCertificadoNome(vNomeCertificado)

cabecMsg.cUF = 51
cabecMsg.versaoDados = [Ô]1.00[Ô]

Doc.LoadXml(GeraXML)

Doc1 = Doc

Ret = lServ.mdfeStatusServicoMDF(cabecMsg, Doc1) == [txt-color=#e80000]A solicitação HTTP está proibida com o esquema de autenticação de cliente [ô]Anonymous[ô].
[/txt-color]

MsgBox(Ret.InnerText)
Tópico encerrado , respostas não são mais permitidas
Voltar