FONTE NFE VB.NET

 Tópico anterior Próximo tópico Novo tópico

FONTE NFE VB.NET

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#469074 - 21/11/2016 11:54:43

AUTEMP
SOLEDADE
Cadast. em:Janeiro/2011


Alguem tem um exemplo em VB.NET da CC-e para NF-e ?

autemp@hotmail.com

AUTEMP Automação Empresarial

#469102 - 22/11/2016 09:22:09

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Última edição em 22/11/2016 09:25:21 por MFLAVIO

Citação:
:
Boa tarde,

Alguém já adaptou a leitura do XML para ler o elemento <CEST> ?

Grato.


Estou usando assim, Funciona Perfeitamente

Do While Bconter <> InnerNode2.ChildNodes(0).ChildNodes.Count
Select Case InnerNode2.ChildNodes(0).ChildNodes(Bconter).Name
Case "NCM"
Detalhamento.Prod.NCM = InnerNode2.ChildNodes(0).ChildNodes(Bconter).InnerText
Case "genero"
Detalhamento.Prod.genero = InnerNode2.ChildNodes(0).ChildNodes(Bconter).InnerText
Case "CFOP"
Detalhamento.Prod.CFOP = InnerNode2.ChildNodes(0).ChildNodes(Bconter).InnerText
Case "uCom"
Detalhamento.Prod.uCom = InnerNode2.ChildNodes(0).ChildNodes(Bconter).InnerText.Replace(".", ",")
Case "qCom"
Detalhamento.Prod.qCom = InnerNode2.ChildNodes(0).ChildNodes(Bconter).InnerText.Replace(".", ",")
Case "vUnCom"
Detalhamento.Prod.vUnCom = InnerNode2.ChildNodes(0).ChildNodes(Bconter).InnerText.Replace(".", ",")
Case "vProd"
Detalhamento.Prod.vProd = InnerNode2.ChildNodes(0).ChildNodes(Bconter).InnerText.Replace(".", ",")
Case "cEANTrib"
Detalhamento.Prod.cEANTrib = InnerNode2.ChildNodes(0).ChildNodes(Bconter).InnerText
Case "uTrib"
Detalhamento.Prod.uTrib = InnerNode2.ChildNodes(0).ChildNodes(Bconter).InnerText.Replace(".", ",")
Case "qTrib"
Detalhamento.Prod.qTrib = InnerNode2.ChildNodes(0).ChildNodes(Bconter).InnerText.Replace(".", ",")
Case "vUnTrib"
Detalhamento.Prod.vUnTrib = InnerNode2.ChildNodes(0).ChildNodes(Bconter).InnerText.Replace(".", ",")
Case "CEST"
Detalhamento.Prod.CEST = InnerNode2.ChildNodes(0).ChildNodes(Bconter).InnerText.Replace(".", ",")
End Select                          
Loop



Deus e o maior dos Programadores, ele criou tudo em liguagem visual
                                           .... e viu Deus que era bom

#469205 - 24/11/2016 10:41:47

DARKOR
SAO PAULO
Cadast. em:Novembro/2016


Citação:
:
:
Boa tarde,

Alguém já adaptou a leitura do XML para ler o elemento <CEST> ?

Grato.

Estou usando assim, Funciona Perfeitamente

Do While Bconter <> InnerNode2.ChildNodes(0).ChildNodes.Count
Select Case InnerNode2.ChildNodes(0).ChildNodes(Bconter).Name
Case "NCM"
Detalhamento.Prod.NCM = InnerNode2.ChildNodes(0).ChildNodes(Bconter).InnerText
Case "genero"
Detalhamento.Prod.genero = InnerNode2.ChildNodes(0).ChildNodes(Bconter).InnerText
Case "CFOP"
Detalhamento.Prod.CFOP = InnerNode2.ChildNodes(0).ChildNodes(Bconter).InnerText
Case "uCom"
Detalhamento.Prod.uCom = InnerNode2.ChildNodes(0).ChildNodes(Bconter).InnerText.Replace(".", ",")
Case "qCom"
Detalhamento.Prod.qCom = InnerNode2.ChildNodes(0).ChildNodes(Bconter).InnerText.Replace(".", ",")
Case "vUnCom"
Detalhamento.Prod.vUnCom = InnerNode2.ChildNodes(0).ChildNodes(Bconter).InnerText.Replace(".", ",")
Case "vProd"
Detalhamento.Prod.vProd = InnerNode2.ChildNodes(0).ChildNodes(Bconter).InnerText.Replace(".", ",")
Case "cEANTrib"
Detalhamento.Prod.cEANTrib = InnerNode2.ChildNodes(0).ChildNodes(Bconter).InnerText
Case "uTrib"
Detalhamento.Prod.uTrib = InnerNode2.ChildNodes(0).ChildNodes(Bconter).InnerText.Replace(".", ",")
Case "qTrib"
Detalhamento.Prod.qTrib = InnerNode2.ChildNodes(0).ChildNodes(Bconter).InnerText.Replace(".", ",")
Case "vUnTrib"
Detalhamento.Prod.vUnTrib = InnerNode2.ChildNodes(0).ChildNodes(Bconter).InnerText.Replace(".", ",")
Case "CEST"
Detalhamento.Prod.CEST = InnerNode2.ChildNodes(0).ChildNodes(Bconter).InnerText.Replace(".", ",")
End Select                          
Loop



Valeu, gostei da maneira que você colocou utilizando os Cases. Já implementei no meu.



#469206 - 24/11/2016 10:46:39

DARKOR
SAO PAULO
Cadast. em:Novembro/2016


Bom dia pessoal.

Ao tentar utilizar qualquer metodo, ao retornar aparece " Impossível conectar-se ao servidor remoto"

Já me certifiquei questões de rede. Alguma dica ?

Grato.



#469375 - 02/12/2016 15:49:06

DARKOR
SAO PAULO
Cadast. em:Novembro/2016


Citação:
:
Bom dia pessoal.

Ao tentar utilizar qualquer metodo, ao retornar aparece " Impossível conectar-se ao servidor remoto"

Já me certifiquei questões de rede. Alguma dica ?

Grato.



Já descobri o que era.

Agora parei em um outro ponto.
Ao enviar retorna o erro:   A solicitação foi anulada: Não foi possível criar um canal seguro para SSL/TLS

Alguém pode me ajudar.
Grato



#469458 - 06/12/2016 17:49:35

FASULO
SAO PAULO
Cadast. em:Abril/2016


Boa tarde !

Deve ser simples mais não consigo sair desta !!

Na hora de montar o XML tem casos como o do ICMS90 com campos opcionais como ICMSDeson e motDesICMS que devem ser incluídos por EX numa NFe de ENTRADA-RETORNO e não devem ser incluídos numa NFe de SAÍDA-REMESSA.
Acontece que se implemento na classe ICMS90 as PROPIEDADES, a ENTRADA homologa e a SAÍDa não, e obviamente acontece o contraio se retiro as propriedades.

Como posso deixar as propriedades e fazer com que apareçam no XML de ENTRADA e não na SAÍDA, ou melhor como poder utilizar qdo seja necessário implementar no XML ?

Obrigado.      



#469459 - 06/12/2016 18:43:15

FUTURA
.
Cadast. em:Maio/2004


Vi no portal que para meados do ano que vem  vai mudar versão da nfe 4.0.  Esse governo  não sussega mesmo..  Será  que  tem  alguma  regra nova para esse restinho de ano  e  início  do próximo?   não sei pra vocês, mas entender as NTs é difícil não?



#469707 - 13/12/2016 17:08:58

JOERBETH

Cadast. em:Junho/2005


boa tarde pessoal,

alguém pode disponibilizar o arquivo de como está agora?

grato

Joerbeth

Joerbeth

#469836 - 18/12/2016 20:17:54

TABPRS
GOIANIA
Cadast. em:Dezembro/2003


Alguém já implementou a NFCe nesse projeto?

Jesus te Ama !
Pedro r. Sousa

#469897 - 21/12/2016 11:08:48

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Gente uma Pergunta

Qual e a regra de IE em Homologação?

eu não consigo emitir em Homologação da retorno 209(IE invalida)
em produção esta tudo OK

Deus e o maior dos Programadores, ele criou tudo em liguagem visual
                                           .... e viu Deus que era bom

 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário