AJUDA COM WEBSERVICE CTE

MALA 02/05/2010 10:46:58
#340739
Alguem poderia me ajudar com a conexão com servidor webservice da CTE.

desde já agradeço
TECLA 02/05/2010 10:54:12
#340741
Qual é o endereço eletrônico?
MALA 02/05/2010 11:56:23
#340748
<Recepcao>https://homologacao.cte.sefaz.rs.gov.br/ws/cterecepcao/cterecepcao.asmx</Recepcao>
<RetRecepcao>https://homologacao.cte.sefaz.rs.gov.br/ws/cteretrecepcao/cteretrecepcao.asmx</RetRecepcao>
<Cancelamento>https://homologacao.cte.sefaz.rs.gov.br/ws/ctecancelamento/ctecancelamento.asmx</Cancelamento>
<Inutilizacao>https://homologacao.cte.sefaz.rs.gov.br/ws/cteinutilizacao/cteinutilizacao.asmx</Inutilizacao>
<Consulta>https://homologacao.cte.sefaz.rs.gov.br/ws/cteconsulta/cteconsulta.asmx</Consulta>
<StatusServico>https://homologacao.cte.sefaz.rs.gov.br/ws/cteStatusServico/cteStatusServico.asmx</StatusServico>
<ConsultaCAD>https://sef.sefaz.rs.gov.br/ws/CadConsultaCadastro/CadConsultaCadastro.asmx</ConsultaCAD>

Estou tentando fazer a consulta status mas da erro, fala que falta informação no cabeçalho.
MALA 02/05/2010 11:58:21
#340749
Imports System.Security.Cryptography.X509Certificates
Imports System.xml.XmlNode
Imports System.xml

Public Class FrmConsWSCTe
Dim WS As New CteStatusServico.CteStatusServico
Dim Cabecalho As String [ô] cabeçalho para as consultas
Dim Resultado As System.Xml.XmlNode

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtStatusWS.Click
Dim Status_Servico As String = [Ô][Ô]

Status_Servico = [Ô]<?xml version=[Ô][Ô]1.0[Ô][Ô] encoding=[Ô][Ô]UTF-8[Ô][Ô]?><consStatServCte xmlns:xsi=[Ô][Ô]http://www.w3.org/2001/XMLSchema-instance[Ô][Ô] xmlns:xsd=[Ô][Ô]http://www.w3.org/2001/XMLSchema[Ô][Ô] versao=[Ô][Ô]1.03[Ô][Ô] xmlns=[Ô][Ô]http://www.portalfiscal.inf.br/cte[Ô][Ô]><tpAmb>2</tpAmb><cUF>51</cUF><tpEmis>1</tpEmis><xServ>STATUS</xServ></consStatServCte>[Ô]

[ô] variavel que contem os certificados configurados na maquina local
Dim store As New X509Store([Ô]My[Ô], StoreLocation.CurrentUser)
store.Open(OpenFlags.OpenExistingOnly)
Dim Certificado = store.Certificates(0)

[ô]adiciono o certificado correspondente a conexão com o web service
WS.ClientCertificates.Add(Certificado)

[ô]Dim WSCab As New CteStatusServico.cteCabecMsg
[ô]WSCab.cUF = [Ô]51[Ô]
[ô]WSCab.versaoDados = [Ô]1.03[Ô]

Dim XmlDoc As New Xml.XmlDocument

XmlDoc.LoadXml(Status_Servico)

Resultado = WS.cteStatusServicoCT(XmlDoc)

MsgBox(Resultado.OuterXml)
End Sub
End Class

este e o codigo que estou usando.
TECLA 02/05/2010 12:16:00
#340754
No teste que fiz, consumi o WS do endereço abaixo:
[txt-color=#0000f0]https://sef.sefaz.rs.gov.br/ws/CadConsultaCadastro/CadConsultaCadastro.asmx[/txt-color]

Dim ws As New sefaz.CadConsultaCadastro
Dim cab As String = [Ô]Cabecalho[Ô]
Dim dad As String = [Ô]Dados[Ô]
Dim ret As String = ws.consultaCadastro(cab, dad)
MessageBox.Show(ret)


Experimenta passar os parâmetros reais (do tipo String) e veja se o retorno vem correto.
MALA 02/05/2010 12:19:27
#340757
ME PASSA O PROJETO, OS ARQUIVOS
DUHHH 04/05/2010 09:02:24
#340846 Resposta escolhida
Amigo você tem que referencia o cabeçalho! Este é o problema.

Para resolver

ws4.cUF = cUF
ws4.versaoDados = [Ô]1.03[Ô]

ws3.cteCabecMsgValue = ws4

o ws3 é o cabeçalho... e o ws4 é o webservice que to usando!
MALA 04/05/2010 11:31:52
#340866
ESTE CODIGO ESTA COM PROBLEMA SE ALGUEM PUDER ME DAR UMA MAO.

CODIGO:

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

Dim DadosMsg As String = [Ô]<?xml version=[Ô][Ô]1.0[Ô][Ô] encoding=[Ô][Ô]UTF-8[Ô][Ô]?><consStatServCte xmlns:xsi=[Ô][Ô]http://www.w3.org/2001/XMLSchema-instance[Ô][Ô] xmlns:xsd=[Ô][Ô]http://www.w3.org/2001/XMLSchema[Ô][Ô] versao=[Ô][Ô]1.03[Ô][Ô] xmlns=[Ô][Ô]http://www.portalfiscal.inf.br/cte[Ô][Ô]><tpAmb>2</tpAmb><cUF>51</cUF><tpEmis>1</tpEmis><xServ>STATUS</xServ></consStatServCte>[Ô]

Dim WsC As New wsMTHStatusServico.cteCabecMsg

Dim WS As New wsMTHStatusServico.CteStatusServico

Dim resultado1 As XmlNode

Dim store As New X509Store([Ô]My[Ô], StoreLocation.CurrentUser)

Dim Msg As String = [Ô][Ô]

store.Open(OpenFlags.OpenExistingOnly)

Dim Certificado = store.Certificates(0)

WsC.cUF = 51

WsC.versaoDados = [Ô]1.03[Ô]

WsC.Relay = True

WS.cteCabecMsgValue = WsC

Dim Doc As New XmlDocument

Dim Doc1 As XmlNode

Doc.LoadXml(DadosMsg)

Doc1 = Doc

Try

resultado1 = WS.cteStatusServicoCT(Doc1)

MsgBox(resultado1)

Catch ex As Exception

MsgBox(ex.Message)

Msg = ex.Message.ToString

End Try

End Sub


ERRO :
A solicitao foi anulada: No foi possvel criar um canal seguro para SSL/TLS.
DUHHH 04/05/2010 11:50:20
#340868
Isto acontece quando o certificado não é valido. entra neste link e ve se vai abrir https://nfe.fazenda.sp.gov.br/nfeweb/services/nfestatusservico2.asmx

se der o mesmo erro é algo com o certificado!
MALA 04/05/2010 11:52:55
#340870
Deu erro, o que pode ser no sertificado.
MALA 04/05/2010 14:09:05
#340898
O certificado foi resolvido, mas agora esta me retornando um erro do webservice

MSG que envio
<?xml version=[Ô]1.0[Ô] encoding=[Ô]UTF-8[Ô]?><consStatServCte xmlns:xsi=[Ô]http://www.w3.org/2001/XMLSchema-instance[Ô] xmlns:xsd=[Ô]http://www.w3.org/2001/XMLSchema[Ô] versao=[Ô]1.03[Ô] xmlns=[Ô]http://www.portalfiscal.inf.br/cte[Ô]><tpAmb>2</tpAmb><cUF>51</cUF><tpEmis>1</tpEmis><xServ>STATUS</xServ></consStatServCte>

Erro :
<retConsStatServCte versao=[Ô]1.03[Ô] xmlns=[Ô]http://www.portalfiscal.inf.br/cte[Ô]><tpAmb>2</tpAmb><verAplic>1.02</verAplic><cStat>215</cStat><xMotivo>215 - Rejeicao : Falha no Schema XML.</xMotivo><cUF>51</cUF><dhRecbto>2010-05-04T13:06:18</dhRecbto><tMed>0</tMed><dhRetorno>2010-05-04T13:06:18</dhRetorno><xObs /></retConsStatServCte>
Página 1 de 2 [13 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar