FONTE NFE VB.NET

Citação:

:

Olá amigos

Programo em VB6 (eu sei, ninguém usa mais) e estou passado meus sistemas para o vb.net.

Eu quero agradecer a ajuda de todos aqui, pois sempre que me surge um problema, acabo encontrando uma luz por aqui.

E o agradecimento é sincero, porque como trabalho sozinha, muitas vezes me vejo perdida.

Muito obrigada.

Citação:

:
Era bom vc primeiro estudar sobre como consumir webservices, depois vc pode tentar baixar o wsdl e converter em classes e aprender como funciona serialização... a partir dai vc pode pegar uns xml de exemplo e olhar o manual da sefaz pra emitir nf-e alem de incluir as outras funções como o webservice de Eventos para um eventual cancelamento da NF-e ou até mesmo uma carta de correção... Ou vc pode pegar o projeto da NF-e e começar a fuçar nele, quando começei a mexer eu apanhei bastante mas depois que entendi a logica que o projeto foi desenvolvido eu consigo dar manutenção e alteração normalmente inclusive quando houve as trocas dos webservices para a versao 3.10

                        
 If Vnfe.infNFE.Ide.natOp = [Ô]Importação[Ô] Then
                Detalhamento.Prod.Di = New DI
                Detalhamento.Prod.Di.nDI = Trim(DR([Ô]ndi[Ô]).ToString)
                Detalhamento.Prod.Di.dDI = Trim(DR([Ô]ddi[Ô]).ToString)
                Detalhamento.Prod.Di.xLocDesemb = Trim(DR([Ô]xlocdesemb[Ô]).ToString)
                Detalhamento.Prod.Di.dDesemb = Trim(DR([Ô]ddesemb[Ô]).ToString)
                Detalhamento.Prod.Di.UFDesemb = Trim(DR([Ô]ufdesemb[Ô]).ToString)
                Detalhamento.Prod.Di.tpViaTransp = Trim(DR([Ô]tpviatransp[Ô]).ToString)
                Detalhamento.Prod.Di.CNPJ = RemoveCaracterEspecial(Trim(DR([Ô]cnpj[Ô]).ToString), True)
                Detalhamento.Prod.Di.UFTerceiro = Trim(DR([Ô]ufterceiro[Ô]).ToString)
                Detalhamento.Prod.Di.cExportador = Trim(DR([Ô]cexportador[Ô]).ToString)
                Detalhamento.Prod.Di.tpIntermedio = Trim(DR([Ô]TPINTERMEEDIARIO[Ô]).ToString)
                Static sadi As New adi
                sadi.nAdicao = Trim(DR([Ô]nadicao[Ô]).ToString)
                sadi.cFabricante = Trim(DR([Ô]cfabricacao[Ô]).ToString)
                sadi.nSeqAdic = Trim(DR([Ô]nseqad[Ô]).ToString)
                sadi.nDraw = Trim(DR([Ô]ndraw[Ô]).ToString)
                Detalhamento.Prod.Di.Adi.Add(sadi)
            End If
 

 
    Public Function GerarXML() As XmlDocument
        Dim configXML As New XmlWriterSettings()
        configXML.Indent = True
        configXML.IndentChars = [Ô][Ô]
        configXML.NewLineOnAttributes = False
        configXML.OmitXmlDeclaration = False

        Dim xmlSaida As Stream = New MemoryStream()
        Dim oXmlGravar As XmlWriter = XmlWriter.Create(xmlSaida, configXML)

        oXmlGravar.WriteStartDocument()
        oXmlGravar.WriteStartElement([Ô]NFe[Ô], [Ô]http://www.portalfiscal.inf.br/nfe[Ô])
        [ô]abre nfe
        oXmlGravar.WriteStartElement([Ô]infNFe[Ô])
        oXmlGravar.WriteAttributeString([Ô]versao[Ô], versao.ToString())
        oXmlGravar.WriteAttributeString([Ô]Id[Ô], [Ô]NFe[Ô] & Id.ToString())

        Dim tipoObjeto As Type
        tipoObjeto = infNFE.Ide.[GetType]()
        Dim propriedades As PropertyInfo()
        propriedades = tipoObjeto.GetProperties()

        objetoParaXML(oXmlGravar, infNFE.Ide, False)
        objetoParaXML(oXmlGravar, infNFE.Emit, False)
        objetoParaXML(oXmlGravar, infNFE.Dest, False)

        For Each detalhe As det In infNFE.Det
            oXmlGravar.WriteStartElement([Ô]det[Ô])
            oXmlGravar.WriteAttributeString([Ô]nItem[Ô], detalhe.nItem.ToString())
            objetoParaXML(oXmlGravar, detalhe.Prod, False) [ô] erro acontece nesta linha

Citação:

:
SANKARVA,
abaixo segue exemplo de xml de pedido de inutilizacao.

Obrigado por se interessar, mas isso é apenas o layout do xml, precisava mesmo era da rotina de consumo e retorno.
Mas batendo cabeça eu consegui, pegando por base o projeto aqui do Daniel, estou disponibilizando para a galera a rotina mastigadinha.
São 3 Classes, duas já existe no projeto(ValidarXML e NfeInutilizacao2), outra eu criei(Inutilizacao).
é só adaptar a cada caso.
Detalhe, falta gerar o recibo assinado na pasta, vou desenvolver.
Abraço.

Citação:

:
Pessoal é possivel usar o campo de Substituição Tributaria, IPI e ICMS em NF-e (Devolução) emitidas pelo simples nacional? Estou quase entrando em guerra com um cliente que esta dizendo que o fornecedor dele diz q é possivel e obrigatorio... geralmente quando tem esses campos eu peço para colocar o valor no campo Outras Despesas e informar no campo Informações Complementares destacando nas observações
Obrigado