NFE - MANIFESTACAO DO DESTINATARIO

CLAYTON1107 27/06/2013 09:37:54
#425293

Bom dia,

Ultimamente foi anunciado que a manifestação sobre nota fiscal se tornou obrigatório para as grandes empresas, então as empresas tem um determinado prazo para realizar esse tipo de trabalho, porem existem uma séries de dificuldades na implantação desse tipo de trabalho, hoje estou aqui porque tenho um problema que estou ficando sem cabelos para resolver, o meu problema seria o seguinte toda vez que faço a conexão com o servidor web da Sefaz ele me retorna a seguinte mensagem:

O servidor remoto retornou um erro: (500) Erro interno do Servidor.

A seguir segue a rotina, gostaria de saber se alguém pode me ajudar?


Public Function enviaXML(ByVal CaminhoArqXml As String) As String

Dim store As New X509Store()
Dim GetCertificadoX509 As New X509Store([Ô]MY[Ô], StoreLocation.CurrentUser)
Dim certs As X509Certificate2Collection

[ô]Seleciona o certificado
GetCertificadoX509.Open(OpenFlags.ReadOnly Or OpenFlags.OpenExistingOnly)

certs = X509Certificate2UI.SelectFromCollection(GetCertificadoX509.Certificates, _
[Ô]Certificado(S) digital(is) disponível(is)[Ô], [Ô]Selecione o certificado DeMARCHI digital[Ô], _
X509SelectionFlag.SingleSelection)

Dim cert1 As X509Certificate
cert1 = certs.Item(0)

Dim requestD As HttpWebRequest = DirectCast(WebRequest.Create([Ô]https://homologacao.nfe.fazenda.sp.gov.br/nfeweb/services/nfestatusservico2.asmx[Ô]), HttpWebRequest)

If certs.Count = 1 Then
Dim sSoapMessage As String
Dim sSoapAction As String = [Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2/nfeStatusServicoNF2[Ô]


With requestD

[ô]Arquivo a ser enviado
[ô]**********************************************************************************
Dim oReader As TextReader = File.OpenText(CaminhoArqXml)
sSoapMessage = [Ô][Ô]

[ô] Lê uma linha de cada vez até alcançar o fim do arquivo

While oReader.Peek() <> -1
Dim line As String = oReader.ReadLine()
sSoapMessage = sSoapMessage & line
End While

[ô]parametros para o envio do arquivo XML
[ô]**********************************************************************************
.ClientCertificates.Add(cert1)
.PreAuthenticate = True
.ServicePoint.Expect100Continue = False
.ContentType = [Ô]text/xml; charset=UTF-8[Ô]
.Method = [Ô]POST[Ô]
.Accept = [Ô]text/xml[Ô]
.Headers.Add([Ô]soapaction[Ô], sSoapAction)
[ô] Set the ContentType property of the WebRequest.
.ContentType = [Ô]application/x-www-form-urlencoded[Ô]
Try

[ô] Create POST data and convert it to a byte array.
Dim postData As String = sSoapMessage
Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)

[ô] Set the ContentLength property of the WebRequest.
.ContentLength = byteArray.Length
[ô] Get the request stream.
Dim dataStream As Stream = .GetRequestStream()
[ô] Write the data to the request stream.
dataStream.Write(byteArray, 0, byteArray.Length)
[ô] Close the Stream object.
dataStream.Close()
[ô] Get the response.

Dim response As WebResponse = .GetResponse()
[ô] Display the status.
Console.WriteLine(CType(response, HttpWebResponse).StatusDescription)
[ô] Get the stream containing content returned by the server.
dataStream = response.GetResponseStream()
[ô] Open the stream using a StreamReader for easy access.
Dim reader As New StreamReader(dataStream)
[ô] Read the content.
Dim oxmlresp As XDocument [ô]= reader.ReadToEnd()

[ô] Display the content.
[ô] Clean up the streams.
reader.Close()
dataStream.Close()
response.Close()

Catch ex As Exception
Return ex.Message
End Try


End With
requestD = Nothing
Else
Return [Ô]Certificado inválido![Ô]
End If
End Function



conteúdo do arquivo XML a ser enviado

<?xml version=[Ô]1.0[Ô] encoding=[Ô]utf-8[Ô] standalone=[Ô]no[Ô]?>
<consNFeDest xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô] versao=[Ô]1.01[Ô]>
<tpAmb>2</tpAmb>
<xServ>CONSULTAR NFE DEST</xServ>
<CNPJ>0?????10000???</CNPJ>
<indNFe>1</indNFe>
<indEmi>0</indEmi>
<ultNSU>0</ultNSU>
</consNFeDest>