FONTE NFE VB.NET
Boa tarde !!
Agradeço qualquer ajuda !!
Consigo emitir em ambiente de homologação venda sem problemas
Para o Cancelamento consigo montar-assinar-validar schema porem na transmissão recebo a mensagem no retorno SEFAZ marcado abaixo [ô]###
Exception thrown: [ô]System.Net.WebException[ô] in System.Web.Services.dll
Additional information: The underlying connection was closed: An unexpected error occurred on a send.[/b]
wsMsg = New NfeCancelamento2([Ô]https://homologacao.nfe.fazenda.sp.gov.br/nfeweb/services/NfeCancelamento2.asmx[Ô])
[ô]Associando cabeçalho da NFe
wsMsg.nfeCabecMsgValue = cab
wsMsg.Timeout = 100000
wsMsg.ClientCertificates.Add(CERT)
wsMsg.SoapVersion = SoapProtocolVersion.Soap12
Notas = xmldoc.OuterXml
[ô]### AQUI DA ERRO RETORNO DA SEFAZ
strRetorno = wsMsg.nfeCancelamentoNF2(xmldoc)
Obs.: No ambiente de homologação a NF de Venda foi originada com Razão Social Destinatario [Ô]NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL[Ô]
O schema: cancNFe_v2.00.xsd
A URL é a que consta no site da Receita para EventoCancelamento [Ô]https://nfe.fazenda.sp.gov.br/ws/recepcaoevento.asmx[Ô]
Obrigado
Agradeço qualquer ajuda !!
Consigo emitir em ambiente de homologação venda sem problemas
Para o Cancelamento consigo montar-assinar-validar schema porem na transmissão recebo a mensagem no retorno SEFAZ marcado abaixo [ô]###
Exception thrown: [ô]System.Net.WebException[ô] in System.Web.Services.dll
Additional information: The underlying connection was closed: An unexpected error occurred on a send.[/b]
wsMsg = New NfeCancelamento2([Ô]https://homologacao.nfe.fazenda.sp.gov.br/nfeweb/services/NfeCancelamento2.asmx[Ô])
[ô]Associando cabeçalho da NFe
wsMsg.nfeCabecMsgValue = cab
wsMsg.Timeout = 100000
wsMsg.ClientCertificates.Add(CERT)
wsMsg.SoapVersion = SoapProtocolVersion.Soap12
Notas = xmldoc.OuterXml
[ô]### AQUI DA ERRO RETORNO DA SEFAZ
strRetorno = wsMsg.nfeCancelamentoNF2(xmldoc)
Obs.: No ambiente de homologação a NF de Venda foi originada com Razão Social Destinatario [Ô]NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL[Ô]
O schema: cancNFe_v2.00.xsd
A URL é a que consta no site da Receita para EventoCancelamento [Ô]https://nfe.fazenda.sp.gov.br/ws/recepcaoevento.asmx[Ô]
Obrigado
Citação::
Alguém tem o projeto atualizado, com o CSOSN 101,102,103...
Vi apenas com o CST 00,10,40,41...
Obrigado...
Alguém?
Citação::
:
Alguém tem o projeto atualizado, com o CSOSN 101,102,103...
Vi apenas com o CST 00,10,40,41...
Obrigado...
Alguém?
Tem que adaptar a sua realidade mais esta funcionando
[c] [ô]Simples Nacional
ElseIf Pnome = [Ô]101[Ô] Then
Detalhamento.Imposto.Icms = New ICMS()
Detalhamento.Imposto.Icms.Icmssn101 = New ICMSSN101
Detalhamento.Imposto.Icms.Icmssn101.orig = PegaOrigem(Trim(DR([Ô]codigo[Ô]).ToString))
Detalhamento.Imposto.Icms.Icmssn101.CSOSN = [Ô]101[Ô] [ô]Sem Permissão de Credito
Detalhamento.Imposto.Icms.Icmssn101.pCredSN = LeArquivoINI(nome_arquivo_ini, [Ô]Nota[Ô], [Ô]aliqcst[Ô], [Ô]Configure[Ô])
Detalhamento.Imposto.Icms.Icmssn101.vCredICMSSN = Trim(DR([Ô]vcredsn[Ô]).ToString)
Detalhamento.Imposto.Ipi = New IPI
Detalhamento.Imposto.Ipi.cEnq = [Ô]999[Ô]
Detalhamento.Imposto.Ipi.IpiTrib = New IPITrib
Detalhamento.Imposto.Ipi.IpiTrib.CST = [Ô]50[Ô]
Detalhamento.Imposto.Ipi.IpiTrib.vBC = Trim(DR([Ô]valor_t[Ô]).ToString)
Detalhamento.Imposto.Ipi.IpiTrib.pIPI = Trim(DR([Ô]aliq_ipi[Ô]).ToString)
Detalhamento.Imposto.Ipi.IpiTrib.vIPI = Trim(DR([Ô]valor_ipi[Ô]).ToString)
Detalhamento.Imposto.Pis = New PIS()
Detalhamento.Imposto.Pis.PisNT = New PISNT()
Detalhamento.Imposto.Pis.PisNT.CST = Trim(DR([Ô]pis[Ô]).ToString)
[ô]Detalhamento.Imposto.Pis.PisAliq.vBC = Trim(DR([Ô]valor_t[Ô]).ToString)
[ô]Detalhamento.Imposto.Pis.PisAliq.vPIS = Trim(DR([Ô]vpis[Ô]).ToString)
Detalhamento.Imposto.Cofins = New COFINS()
Detalhamento.Imposto.Cofins.CofinsNT = New COFINSNT()
Detalhamento.Imposto.Cofins.CofinsNT.CST = Trim(DR([Ô]cofins[Ô]).ToString)
ElseIf Pnome = [Ô]102[Ô] Then
Numeric = 0
Detalhamento.Imposto.Icms = New ICMS()
Detalhamento.Imposto.Icms.Icmssn102 = New ICMSSN102()
Detalhamento.Imposto.Icms.Icmssn102.orig = PegaOrigem(Trim(DR([Ô]codigo[Ô]).ToString))
Detalhamento.Imposto.Icms.Icmssn102.CSOSN = [Ô]102[Ô] [ô]Sem Permissão de Credito
Detalhamento.Imposto.Pis = New PIS()
Detalhamento.Imposto.Pis.PisNT = New PISNT()
Detalhamento.Imposto.Pis.PisNT.CST = Trim(DR([Ô]pis[Ô]).ToString)
Detalhamento.Imposto.Cofins = New COFINS()
Detalhamento.Imposto.Cofins.CofinsNT = New COFINSNT()
Detalhamento.Imposto.Cofins.CofinsNT.CST = Trim(DR([Ô]cofins[Ô]).ToString)
ElseIf Pnome = [Ô]103[Ô] Then
Detalhamento.Imposto.Icms = New ICMS()
Detalhamento.Imposto.Icms.Icmssn102 = New ICMSSN102()
Detalhamento.Imposto.Icms.Icmssn102.orig = PegaOrigem(Trim(DR([Ô]codigo[Ô]).ToString))
Detalhamento.Imposto.Icms.Icmssn102.CSOSN = [Ô]103[Ô] [ô]Isenção do ICMS no Simples Nacional para faixa dereceita(bruta)
Detalhamento.Imposto.Pis = New PIS()
Detalhamento.Imposto.Pis.PisNT = New PISNT()
Detalhamento.Imposto.Pis.PisNT.CST = Trim(DR([Ô]pis[Ô]).ToString)
Detalhamento.Imposto.Cofins = New COFINS()
Detalhamento.Imposto.Cofins.CofinsNT = New COFINSNT()
Detalhamento.Imposto.Cofins.CofinsNT.CST = Trim(DR([Ô]cofins[Ô]).ToString)
ElseIf Pnome = [Ô]201[Ô] Then [ô]funcionando
Detalhamento.Imposto.Icms = New ICMS()
Detalhamento.Imposto.Icms.Icmssn201 = New ICMSSN201
Detalhamento.Imposto.Icms.Icmssn201.orig = PegaOrigem(Trim(DR([Ô]codigo[Ô]).ToString))
Detalhamento.Imposto.Icms.Icmssn201.CSOSN = [Ô]201[Ô]
Detalhamento.Imposto.Icms.Icmssn201.modBCST = [Ô]5[Ô]
Detalhamento.Imposto.Icms.Icmssn201.pMVAST = Trim(DR([Ô]icms[Ô]).ToString)
Detalhamento.Imposto.Icms.Icmssn201.pRedBCST = Trim(DR([Ô]icms[Ô]).ToString)
Detalhamento.Imposto.Icms.Icmssn201.vBCST = Trim(DR([Ô]vbst[Ô]).ToString)
Detalhamento.Imposto.Icms.Icmssn201.pICMSST = Trim(DR([Ô]icms[Ô]).ToString)
Detalhamento.Imposto.Icms.Icmssn201.vICMSST = Trim(DR([Ô]vicmsst[Ô]).ToString)
Detalhamento.Imposto.Icms.Icmssn201.pCredSN = Trim(DR([Ô]icms[Ô]).ToString)
Detalhamento.Imposto.Icms.Icmssn201.vCredICMSSN = Trim(DR([Ô]vicmsst[Ô]).ToString)
P_Valor = 0
P_Valor = Trim(DR([Ô]valor_ipi[Ô]).ToString)
If P_Valor > 0 Then
Detalhamento.Imposto.Ipi = New IPI
Detalhamento.Imposto.Ipi.cEnq = [Ô]999[Ô]
Detalhamento.Imposto.Ipi.IpiTrib = New IPITrib
Detalhamento.Imposto.Ipi.IpiTrib.CST = [Ô]50[Ô]
Detalhamento.Imposto.Ipi.IpiTrib.vBC = Trim(DR([Ô]valor_t[Ô]).ToString)
Detalhamento.Imposto.Ipi.IpiTrib.pIPI = Trim(DR([Ô]aliq_ipi[Ô]).ToString)
Detalhamento.Imposto.Ipi.IpiTrib.vIPI = Trim(DR([Ô]valor_ipi[Ô]).ToString)
End If
Detalhamento.Imposto.Pis = New PIS()
Detalhamento.Imposto.Pis.PisNT = New PISNT()
Detalhamento.Imposto.Pis.PisNT.CST = Trim(DR([Ô]pis[Ô]).ToString)
Detalhamento.Imposto.Cofins = New COFINS()
Detalhamento.Imposto.Cofins.CofinsNT = New COFINSNT()
Detalhamento.Imposto.Cofins.CofinsNT.CST = Trim(DR([Ô]cofins[Ô]).ToString)
Pnome = LeArquivoINI(nome_arquivo_ini, [Ô]Nota[Ô], [Ô]Regime[Ô], [Ô]Configure[Ô])
If Pnome <> [Ô]1 - Simples Nacional[Ô] Then [ô]Simples nacional
If Vnfe.infNFE.Emit.EnderEmit.UF <> Vnfe.infNFE.Dest.EnderDest.UF Then [ô]partilha de icms
If Vnfe.infNFE.Dest.indIEDest = 1 Then
Vnfe.infNFE.Ide.indFinal = [Ô]1[Ô]
Detalhamento.Imposto.ICMSUFDest = New ICMSUFDest()
Detalhamento.Imposto.ICMSUFDest.vBCUFDest = [Ô][Ô]
Detalhamento.Imposto.ICMSUFDest.pFCPUFDest = [Ô][Ô]
Detalhamento.Imposto.ICMSUFDest.pICMSUFDest = [Ô][Ô]
Detalhamento.Imposto.ICMSUFDest.pICMSInter = [Ô][Ô]
Detalhamento.Imposto.ICMSUFDest.pICMSInterPart = [Ô][Ô]
Detalhamento.Imposto.ICMSUFDest.vFCPUFDest = [Ô][Ô]
Detalhamento.Imposto.ICMSUFDest.vICMSUFDest = [Ô][Ô]
Detalhamento.Imposto.ICMSUFDest.vICMSUFRemet = [Ô][Ô]
End If
End If
End If
ElseIf Pnome = [Ô]202[Ô] Then
Detalhamento.Imposto.Icms = New ICMS()
Detalhamento.Imposto.Icms.Icmssn202 = New ICMSSN202
Detalhamento.Imposto.Icms.Icmssn202.orig = PegaOrigem(Trim(DR([Ô]codigo[Ô]).ToString))
Detalhamento.Imposto.Icms.Icmssn202.CSOSN = [Ô]202[Ô] [ô]Imune
Detalhamento.Imposto.Icms.Icmssn202.modBCST = [Ô]5[Ô]
Detalhamento.Imposto.Icms.Icmssn202.pICMSST = Trim(DR([Ô]icms[Ô]).ToString)
Detalhamento.Imposto.Icms.Icmssn202.pMVAST = Trim(DR([Ô]icms[Ô]).ToString)
Detalhamento.Imposto.Icms.Icmssn202.pRedBCST = Trim(DR([Ô]icms[Ô]).ToString)
Detalhamento.Imposto.Icms.Icmssn202.vBCST = Trim(DR([Ô]vbst[Ô]).ToString)
Detalhamento.Imposto.Icms.Icmssn202.vICMSST = Trim(DR([Ô]vicmsst[Ô]).ToString)
Detalhamento.Imposto.Pis = New PIS()
Detalhamento.Imposto.Pis.PisNT = New PISNT()
Detalhamento.Imposto.Pis.PisNT.CST = Trim(DR([Ô]pis[Ô]).ToString)
Detalhamento.Imposto.Cofins = New COFINS()
Detalhamento.Imposto.Cofins.CofinsNT = New COFINSNT()
Detalhamento.Imposto.Cofins.CofinsNT.CST = Trim(DR([Ô]cofins[Ô]).ToString)
Pnome = LeArquivoINI(nome_arquivo_ini, [Ô]Nota[Ô], [Ô]Regime[Ô], [Ô]Configure[Ô])
If Pnome <> [Ô]1 - Simples Nacional[Ô] Then [ô]Simples nacional
If Vnfe.infNFE.Emit.EnderEmit.UF <> Vnfe.infNFE.Dest.EnderDest.UF Then [ô]partilha de icms
If Vnfe.infNFE.Dest.indIEDest = 1 Then
Vnfe.infNFE.Ide.indFinal = [Ô]1[Ô]
Detalhamento.Imposto.ICMSUFDest = New ICMSUFDest()
Detalhamento.Imposto.ICMSUFDest.vBCUFDest = [Ô][Ô]
Detalhamento.Imposto.ICMSUFDest.pFCPUFDest = [Ô][Ô]
Detalhamento.Imposto.ICMSUFDest.pICMSUFDest = [Ô][Ô]
Detalhamento.Imposto.ICMSUFDest.pICMSInter = [Ô][Ô]
Detalhamento.Imposto.ICMSUFDest.pICMSInterPart = [Ô][Ô]
Detalhamento.Imposto.ICMSUFDest.vFCPUFDest = [Ô][Ô]
Detalhamento.Imposto.ICMSUFDest.vICMSUFDest = [Ô][Ô]
Detalhamento.Imposto.ICMSUFDest.vICMSUFRemet = [Ô][Ô]
End If
End If
End If
ElseIf Pnome = [Ô]300[Ô] Then [ô]funcionando
Detalhamento.Imposto.Icms = New ICMS()
Detalhamento.Imposto.Icms.Icmssn102 = New ICMSSN102()
Detalhamento.Imposto.Icms.Icmssn102.orig = PegaOrigem(Trim(DR([Ô]codigo[Ô]).ToString))
Detalhamento.Imposto.Icms.Icmssn102.CSOSN = [Ô]300[Ô] [ô]Imune
Detalhamento.Imposto.Pis = New PIS()
Detalhamento.Imposto.Pis.PisNT = New PISNT()
Detalhamento.Imposto.Pis.PisNT.CST = Trim(DR([Ô]pis[Ô]).ToString)
Detalhamento.Imposto.Cofins = New COFINS()
Detalhamento.Imposto.Cofins.CofinsNT = New COFINSNT()
Detalhamento.Imposto.Cofins.CofinsNT.CST = Trim(DR([Ô]cofins[Ô]).ToString)
ElseIf Pnome = [Ô]400[Ô] Then [ô]funcionando
Boa noite Galera :) ja conclui minha NFe a Emissão porem estou tentando ler o Retorno do XMl. ---pro-rec
Monitorar uma pasta qnd chegar o retorno pegar esse xml e ler numa variavel para que possa ser feitos os procedimentos.
ler o status e gravar no banco de dados.
alguem poderia me dar uma força ?
Monitorar uma pasta qnd chegar o retorno pegar esse xml e ler numa variavel para que possa ser feitos os procedimentos.
ler o status e gravar no banco de dados.
alguem poderia me dar uma força ?
Boa tarde, alguem pode ajudar
Estou usando o exemplo do DANIELCPAETE, exemplo ótimo por sinal !!!
Porem cheguei na parte de gerar o pdf, como estou utilizando o printdocument, tem certas limitações, ja tentei diversas dll's , porem a unica que consegui fazer funcionar melhor foi a Spire.Pdf.dll, criando um arquivo com o Microsoft XPS Document Writer e convertendo para pdf com esta dll , porem ela escreve no cabeçalho que é uma copia free
Será que alguém pode dar uma ajuda como resolver isso, gerar o pdf a partir do printdocument ?
Obrigado
Att
Georgenes
Estou usando o exemplo do DANIELCPAETE, exemplo ótimo por sinal !!!
Porem cheguei na parte de gerar o pdf, como estou utilizando o printdocument, tem certas limitações, ja tentei diversas dll's , porem a unica que consegui fazer funcionar melhor foi a Spire.Pdf.dll, criando um arquivo com o Microsoft XPS Document Writer e convertendo para pdf com esta dll , porem ela escreve no cabeçalho que é uma copia free
Será que alguém pode dar uma ajuda como resolver isso, gerar o pdf a partir do printdocument ?
Obrigado
Att
Georgenes
Citação::
Boa tarde, alguem pode ajudar
Estou usando o exemplo do DANIELCPAETE, exemplo ótimo por sinal !!!
Porem cheguei na parte de gerar o pdf, como estou utilizando o printdocument, tem certas limitações, ja tentei diversas dll's , porem a unica que consegui fazer funcionar melhor foi a Spire.Pdf.dll, criando um arquivo com o Microsoft XPS Document Writer e convertendo para pdf com esta dll , porem ela escreve no cabeçalho que é uma copia free
Será que alguém pode dar uma ajuda como resolver isso, gerar o pdf a partir do printdocument ?
Obrigado
Att
Georgenes
cara eu uso a BullZipPdf
funciona perfeitamente
Citação::
Boa tarde, alguem pode ajudar
Estou usando o exemplo do DANIELCPAETE, exemplo ótimo por sinal !!!
Porem cheguei na parte de gerar o pdf, como estou utilizando o printdocument, tem certas limitações, ja tentei diversas dll's , porem a unica que consegui fazer funcionar melhor foi a Spire.Pdf.dll, criando um arquivo com o Microsoft XPS Document Writer e convertendo para pdf com esta dll , porem ela escreve no cabeçalho que é uma copia free
Será que alguém pode dar uma ajuda como resolver isso, gerar o pdf a partir do printdocument ?
Obrigado
Att
Georgenes
Amigo, se você consegui transmiitir e pegar o recibo com o programa do Daniel, preciso de sua ajuda.
Estou criando e assinando o xml de venda porem paro na função EnviaLote310 qdo chama o retorno SEFAZ
[Ô]strRetorno = wsMsg.nfeAutorizacaoLote(xmldoc)
Ja mudei as url para as de SP porem sempre para aqui.
Agradeço qualquer sugestão
Citação::
:
Boa tarde, alguem pode ajudar
Estou usando o exemplo do DANIELCPAETE, exemplo ótimo por sinal !!!
Porem cheguei na parte de gerar o pdf, como estou utilizando o printdocument, tem certas limitações, ja tentei diversas dll's , porem a unica que consegui fazer funcionar melhor foi a Spire.Pdf.dll, criando um arquivo com o Microsoft XPS Document Writer e convertendo para pdf com esta dll , porem ela escreve no cabeçalho que é uma copia free
Será que alguém pode dar uma ajuda como resolver isso, gerar o pdf a partir do printdocument ?
Obrigado
Att
Georgenes
Amigo, se você consegui transmiitir e pegar o recibo com o programa do Daniel, preciso de sua ajuda.
Estou criando e assinando o xml de venda porem paro na função EnviaLote310 qdo chama o retorno SEFAZ
[Ô]strRetorno = wsMsg.nfeAutorizacaoLote(xmldoc)
Ja mudei as url para as de SP porem sempre para aqui.
Agradeço qualquer sugestão
Qual URL voce esta usando ?, e qual erro ocorre ?
tem algumas rotinas que não carrega corretamente as URL'S, entao a S_Url.CodigoUF fica nothing
[ô]UF E VERSÃO DO CABEÇALHO
cab.cUF = S_Url.CodigoUF
cab.versaoDados = VersaoAtualNfe
neste ponto as vezes o cab.cUF fica nothing, ai talvez esteja o problema
voce precisa carregar antes o UrlAcesso = BuscaURL([Ô]SP[Ô], [Ô]Homologacao[Ô]), porque é esta rotina que alimenta a S_Url.CodigoUF
Georgenes
Obrigado pleas dicas
- Estou utilizando as URL da receita para SP homologação
- O cabeçalho esta bem porque ao igual que voê fiquei com duvidas e coloque um msg em cada um para mostrar o conteudo antes de ir para frente
- Tem uma chamada na Geração da NF
[ô]ENVIA LOTE DE NOTAS VERSÃO 2.00
StrRetorno = WebS.EnviaLote310(My.Application.Info.DirectoryPath & [Ô]\NFE\[Ô] & CAMINHONFEGERADA.Text)
que chama no C_Webservice a função
Public Function EnviaLote310(ByVal EndArquivoXml As String) As RetEnvio
e roda até aqui
[ô]RETORNO DA SEFAZ
strRetorno = wsMsg.nfeAutorizacaoLote(xmldoc)
tem uma chamada a o Namespace AutorizacaoNFe que tem a função Public Function nfeAutorizacaoLote que tem algumas URL que acho não podem ser editadas
Estou parado aqui
Obrigado pleas dicas
- Estou utilizando as URL da receita para SP homologação
- O cabeçalho esta bem porque ao igual que voê fiquei com duvidas e coloque um msg em cada um para mostrar o conteudo antes de ir para frente
- Tem uma chamada na Geração da NF
[ô]ENVIA LOTE DE NOTAS VERSÃO 2.00
StrRetorno = WebS.EnviaLote310(My.Application.Info.DirectoryPath & [Ô]\NFE\[Ô] & CAMINHONFEGERADA.Text)
que chama no C_Webservice a função
Public Function EnviaLote310(ByVal EndArquivoXml As String) As RetEnvio
e roda até aqui
[ô]RETORNO DA SEFAZ
strRetorno = wsMsg.nfeAutorizacaoLote(xmldoc)
tem uma chamada a o Namespace AutorizacaoNFe que tem a função Public Function nfeAutorizacaoLote que tem algumas URL que acho não podem ser editadas
Estou parado aqui
Olá FASULO, eu estou usando os dados dos webservices do PR, e estou exatamente com o mesmo problema seu, tanto no envio do lote o retorno é nulo
quanto na rotina de consulta
O retorno sempre é nulo, e verifiquei também que as rotinas assÃncronas nunca chegam a ser acionadas, nem os eventos completed.
Alguém conseguiu fazer funcionar?
strRetorno = wsMsg.nfeAutorizacaoLote(xmldoc)
quanto na rotina de consulta
strRetorno = wsMsg.nfeConsultaNF2(dados)
O retorno sempre é nulo, e verifiquei também que as rotinas assÃncronas nunca chegam a ser acionadas, nem os eventos completed.
Alguém conseguiu fazer funcionar?
Faça seu login para responder