FONTE NFE VB.NET
Citação::
MFlavio,
Coinsidentemente isso aconteceu ontem comigo, mas meu processo não gera nenhum erro, eu faço a mesma chamada que você.
A nota vai para o SEFAZ SP, porque depois eu pesquiso e encontro a danada no site e o bendito protocolo está lá...
Eu acredito que o problema está aqui
Dim L_Retornos As List(Of RetRecibo)
Minha duvida é eu só envio uma NF por vez, eu posso substituir o
For Each RetC In RetonoConsulta.L_Retornos
por simplesmente
RetonoConsulta.XmlRecibo
Bom vou testar aqui depois te falo,
Abraço
Eu tambem estou enviando 1 nota por vez
já fiz de tudo que eu imaginei e sempre vem o Recibo Vazio mais a nota vai normal par ao sefaz pois na consulta ela esta lá
o que pode ser?
se conseguir alguma coisa me da um toque Pleasy
Alguém tem alguma idéia do que está acontecendo?
Como quase todos vocês preciso disso urgentemente.
Já li a documentação de BH e acredito que n tenha nada errado com a rotina pois é a mesma que assina o lote.
Citação::
Galera, tô com dificuldades prá montar o XML do cancelamento,
Como gravar a informação do retorno de cancelamento no arquivo [Ô]nfexxxxx.protNFe[Ô]?
Barros, eu tô fazendo assim, to salvando o cancelamento:
Just_Cancela =[Ô]Erro de digitação na Nota Fiscal[Ô]
If MessageBox.Show([Ô]Confirma o cancelamento da NF-e nº [Ô] & Var_NF_Numero & [Ô] ?[Ô], Sys, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
Just_Cancela = InputBox([Ô]Digite a justificativa: [Ô], [Ô]Sistema NF-e 2.0[Ô], Just_Cancela)
Dim StrRetorno As RetEnvio
Dim CancelarDocumento As New NFE.NFe
CancelarDocumento.Id = ID_NF [ô]Somente numeros
CancelarDocumento.versao = [Ô]2.00[Ô]
CancelarDocumento.nProt = Var_Protocolo
CancelarDocumento.amb = [Ô]2[Ô] [ô]Ambiente Homologação
CancelarDocumento.xJust = Just_Cancela
Dim WebCanc As New C_WebService(UrlAcesso)
Dim certificado As X509Certificate2 = CertificadoDigital.SelecionarCertificado(Série_do_Certificado)
[ô]assina o xml
Dim xmlAssinado As XmlDocument = CertificadoDigital.Assinar(CancelarDocumento.GerarXMLCancelamento, [Ô]infCanc[Ô], certificado)
[ô]Salva XML Assinado
xmlAssinado.Save([Ô]C:
fe\NF-e Cancelada [Ô] & ID_NF & [Ô].XML[Ô])
Dim DocXml As New XmlDocument
DocXml.Load([Ô]C:
fe\NF-e Cancelada [Ô] & ID_NF & [Ô].XML[Ô])
[ô]Compara com o Schema
Dim resultado As String = ValidaXML.ValidarXML(DocXml, [Ô]XSD\cancNFe_v2.00.xsd[Ô])
If resultado.Trim().Length = 0 Then
resultado = [Ô]Validação Concluida com sucesso[Ô]
Else
MDI.Cursor = Cursors.Arrow
MessageBox.Show([Ô]O Cancelamento da NF-e nº [Ô] & Var_NF_Numero & [Ô] não foi possÃvel.[Ô] & vbCrLf & vbCrLf & [Ô]Motivo: [Ô] & resultado, [Ô]Sistema NF-e 2.0[Ô], MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
End If
[ô]Retorno
StrRetorno = WebCanc.CancelaNFe(xmlAssinado.OuterXml, Série_do_Certificado)
If StrRetorno.xMotivo = [Ô]Cancelamento de NF-e homologado[Ô] Then
MessageBox.Show([Ô]O Cancelamento da NF-e nº [Ô] & Var_NF_Numero & [Ô] foi Homologado[Ô], [Ô]Sistema NF-e 2.0[Ô], MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show([Ô]O Cancelamento da NF-e nº [Ô] & Var_NF_Numero & [Ô] não foi possÃvel.[Ô] & vbCrLf & vbCrLf & [Ô]Motivo: [Ô] & StrRetorno.xMotivo, [Ô]Sistema NF-e 2.0[Ô], MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End If
Veja se te ajuda blz
Peguei um cliente que é simples nacional e não sei como fazer.
Alguem já implementou o simples e poderia ajudar com algum exemplo bem prático?
Agradeço a todos e estou a disposição para qualquer dúvida que eu possa ajudar.
Obrigado
Citação::
PROCKFELLER, Se vc olhar na página 73, tem o código que eu uso prá criar o XML da NFe,
é a parte referente à CSOSN
Eu vi essa parte, mas não entendi. Por isso gostaria de um exemplo para adaptar no meu código.
Pelo que percebi essa informação tá dificil por aqui.
Mas vou continuar tentando....
Valeu