FONTE NFE VB.NET

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

FONTE NFE VB.NET

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#475784 - 14/08/2017 22:59:29

VANELINHA
ITAJAI
Cadast. em:Setembro/2010


    
Olá, pessoal.
Alguém pode me ajudar a descobrir porque o envio de lote dá certo, retorna o número do recibo mas não consigo consultar esse recibo, pois não retorna nada?
Li vários posts aqui do fórum. Vi gente com o mesmo problema que eu, mas não encontrei solução.
Uso a classe RetAutorizacao baixada daqui, mas parece que a chamada dela é síncrona:
strRetorno = wsMsg.nfeRetAutorizacaoLote(dados)
Tentei usar a Assíncrona, mas deu erro de referência de instância.
Como passei da 2.00 para a 3.10, já atualizei as URLs adicionando o 3, pois é PR.
Se alguém tiver funcionando o retorno do lote e puder me ajudar, agradeço muito.
Estou á 4 dias pesquisando e testando, mas sem sucesso
Obrigada.

Legal!

#476268 - 04/09/2017 08:04:42

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Pessoal, uma duvida um rapaz aqui na empresa disse que o projeto NFE 4.0 foi descontinuado, eu não achei nada sobre isso na NET, mais não custa perguntar né
Alguém está sabendo de algo de algo relacionado a isso?

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

#476966 - 04/10/2017 14:47:14

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Última edição em 04/10/2017 14:48:04 por MFLAVIO

Ola Pessoal Estou tetando Migar o APP para NFe 4.00

pela NT_2016_002_V100

já criei o XML

Ja migrei os XSD para o 4.00

mais não estou conseguindo Consumir o WebServise

o Sistema usa o Seguinte código (consultar Status Serviço)

        Try
            Dim xHeaderMsg As New XmlDocument
            Dim strUrl As String
            Dim strXML As String

            Pnome = LeArquivoINI(nome_arquivo_ini, "Nota", "hambiente", "Configure")
            If UrlAcesso.CodigoUF = "" Then
                UrlAcesso = BuscaURL(MinhaUF, Pnome)
            End If
            strUrl = UrlAcesso.UrlNfeStatusServico

            If Pnome = "HOMOLOGAÇÃO" Then
                Pnome = 2
            Else
                Pnome = 1
            End If

            strXML = "<?xml version=" & """1.0""" & " encoding=" & """UTF-8""" & "?>"
            strXML = strXML & "<consStatServ xmlns=" & """http://www.portalfiscal.inf.br/nfe""" & " versao=" & """4.10""" & ">"
            strXML = strXML & "<tpAmb>" & Pnome & "</tpAmb>"
            strXML = strXML & "<cUF>" & UrlAcesso.CodigoUF & "</cUF>"
            strXML = strXML & "<xServ>STATUS</xServ>"
            strXML = strXML & "</consStatServ>"

            'Adição do Certificado ao Web Service
            '====================================
            Dim wSer As New NfeStatusServico2(strUrl)
            Dim retorno As New Object
            wSer = New NfeStatusServico2(strUrl)
            wSer.Url = strUrl

            Dim certificado As X509Certificate2 = CertificadoDigital.SelecionarCertificado("")
            wSer.ClientCertificates.Add(certificado)
            wSer.Timeout = 10000
Novo:
            xHeaderMsg.LoadXml(strXML)
            xHeaderMsg.Save(SPath & "\ConsultaST.xml")
            sXSD = System.Windows.Forms.Application.StartupPath & "\" & "PL_009\consStatServ_v4.40.xsd"
            Dim resultado As String = ValidaXML.ValidarXML(xHeaderMsg, sXSD)
            retorno = wSer.nfeStatusServicoNF2(xHeaderMsg).Item("xMotivo").InnerText
            funConsultaStatus = retorno.ToString

            If funConsultaStatus = "Rejeição: Cabeçalho - Falha no Schema XML" Then
                GoTo Novo
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

quanto executo o Retorno do Webservice e um erro de Handle request

alguem tem alguma dica? acredito que eu esteja tentando consumir o Webserve de forma errada

mais não achei nada que me ajude na WEB que me ajude
  

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

#477023 - 05/10/2017 16:32:29

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


 Anexos estao visíveis somente para usuários registrados

Pessoal Consegui executar a Consulta do Status de Servido da NFe 4.00 em varios UFs
usando a Classe em Anexo (achei essa classe no Uninfe converti para VB.net) mude a Extenão para vb
e usando o Seguinte Código
  Private Function funConsultaStatus() As RetRetorno
        Try
            Dim strRetorno As XmlElement
            Dim certificado As X509Certificate2 = CertificadoDigital.SelecionarCertificado("")

            Pnome = LeArquivoINI(nome_arquivo_ini, "Nota", "hambiente", "Configure")
            If UrlAcesso.CodigoUF = "" Then
                UrlAcesso = BuscaURL(MinhaUF, Pnome)' pega a UF para testar o Serviço
            End If

            Static wsMSG As StatusNFe4.NFeStatusServico4
            wsMSG = New StatusNFe4.NFeStatusServico4(UrlAcesso.UrlNfeStatusServico4)
            wsMSG.Timeout = 100000
            wsMSG.ClientCertificates.Add(certificado)
            System.Net.ServicePointManager.SecurityProtocol = DirectCast(3072, System.Net.SecurityProtocolType)

            Dim Dados As XmlDocument = New XmlDocument
            Dados.LoadXml("<?xml version=""1.0"" encoding=""UTF-8""?><consStatServ versao=""4.00"" xmlns=""http://www.portalfiscal.inf.br/nfe""><tpAmb>2</tpAmb><cUF>" & PegaCodUF(MinhaUF) & "</cUF><xServ>STATUS</xServ></consStatServ>")'PegaCodUF(MinhaUF) retorna o Código da UF Selecionada
            strRetorno = wsMSG.nfeStatusServicoNF(Dados)
            Resultado.LimpaDados()
            For Each outerNode As XmlNode In strRetorno
                Select Case outerNode.Name

                    Case "tpAmb"
                        Resultado.tpAmb = outerNode.InnerText

                    Case "verAplic"
                        Resultado.verAplic = outerNode.InnerText

                    Case "cStat"
                        Resultado.cStat = outerNode.InnerText

                    Case "xMotivo"
                        Resultado.xMotivo = outerNode.InnerText

                    Case "cUF"
                        Resultado.cUF = outerNode.InnerText
                End Select
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Function




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

#477032 - 05/10/2017 20:41:00

MARCOSLING
SAO PAULO
Cadast. em:Agosto/2008


Mas você está fazendo a alteração no fonte disponibilizado aqui?



#477038 - 06/10/2017 09:23:55

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Citação:
:
Mas você está fazendo a alteração no fonte disponibilizado aqui?

SIM

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

#477040 - 06/10/2017 12:16:21

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Pessoal Alguem conseguiu validar o XML da NFe 4.00
meu XML esta assim
<?xml version="1.0" encoding="utf-8"?>
<NFe xmlns="http://www.portalfiscal.inf.br/nfe">
  <infNFe versao="4.00" Id="NFe35171016849871000114550010000004211000004217">
    <ide>
      <cUF>35</cUF>
      <cNF>00000421</cNF>
      <natOp>VENDA de PRODUTOS</natOp>
      <mod>55</mod>
      <serie>1</serie>
      <nNF>421</nNF>
      <dhEmi>2017-10-06T11:38:22-03:00</dhEmi>
      <dhSaiEnt>2017-10-06T11:38:22-03:00</dhSaiEnt>
      <tpNF>1</tpNF>
      <idDest>1</idDest>
      <cMunFG>3509502</cMunFG>
      <tpImp>1</tpImp>
      <tpEmis>1</tpEmis>
      <cDV>7</cDV>
      <tpAmb>2</tpAmb>
      <finNFe>1</finNFe>
      <indFinal>1</indFinal>
      <indPres>9</indPres>
      <procEmi>0</procEmi>
      <verProc>2.6.8.7</verProc>
    </ide>
    <emit>
      <CNPJ>16849871000168</CNPJ>
      <xNome>Fernanda Kelly Albuquerque Rodrigues - ME</xNome>
      <xFant>MabInformatica</xFant>
      <enderEmit>
        <xLgr>Rua Manoel A. Carlos</xLgr>
        <nro>311</nro>
        <xBairro>JD. Campos Eliseos</xBairro>
        <cMun>3509502</cMun>
        <xMun>Campinas</xMun>
        <UF>SP</UF>
        <CEP>13060018</CEP>
        <cPais>1058</cPais>
        <xPais>BRASIL</xPais>
        <fone>1932291378</fone>
      </enderEmit>
      <IE>795998392113</IE>
      <CRT>1</CRT>
    </emit>
    <dest>
      <CNPJ>99999999000191</CNPJ>
      <xNome>NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL</xNome>
      <enderDest>
        <xLgr>RUA CAROLINA FLORENCE</xLgr>
        <nro>1686</nro>
        <xBairro>VILA NOVA</xBairro>
        <cMun>3509502</cMun>
        <xMun>CAMPINAS</xMun>
        <UF>SP</UF>
        <CEP>13073076</CEP>
        <cPais>1058</cPais>
        <xPais>BRASIL</xPais>
        <fone>1932420922</fone>
      </enderDest>
      <indIEDest>9</indIEDest>
      <email>TANIA@Joel.COM.BR</email>
    </dest>
    <det nItem="1">
      <prod>
        <cProd>082012</cProd>
        <cEAN />
        <xProd>CABO DE ALIMENTACAO PADRAO PC</xProd>
        <NCM>99000781</NCM>
        <CFOP>5102</CFOP>
        <uCom>UND</uCom>
        <qCom>30.0000</qCom>
        <vUnCom>30.0000</vUnCom>
        <vProd>900.00</vProd>
        <cEANTrib />
        <uTrib>UND</uTrib>
        <qTrib>30.0000</qTrib>
        <vUnTrib>30.0000</vUnTrib>
        <indTot>1</indTot>
      </prod>
      <imposto>
        <vTotTrib>193.41</vTotTrib>
        <ICMS>
          <ICMSSN500>
            <orig>0</orig>
            <CSOSN>500</CSOSN>
            <vBCSTRet>0.10</vBCSTRet>
            <pST>0.02</pST>
            <vICMSSTRet>0.25</vICMSSTRet>
            <vBCFCPSTRet>0.20</vBCFCPSTRet>
            <pFCPSTRet>0.02</pFCPSTRet>
            <vFCPSTRet>0.04</vFCPSTRet>
          </ICMSSN500>
        </ICMS>
        <PIS>
          <PISNT>
            <CST>07</CST>
          </PISNT>
        </PIS>
        <COFINS>
          <COFINSNT>
            <CST>07</CST>
          </COFINSNT>
        </COFINS>
      </imposto>
      <infAdProd>Imposto Aproximado:R$ 193,41 |</infAdProd>
    </det>
    <total>
      <ICMSTot>
        <vBC>0.00</vBC>
        <vICMS>0.00</vICMS>
        <vICMSDeson>0.00</vICMSDeson>
        <vFCP>0.00</vFCP>
        <vBCST>0.00</vBCST>
        <vST>0.00</vST>
        <vFCPST>0.00</vFCPST>
        <vFCPSTRet>0.00</vFCPSTRet>
        <vProd>900.00</vProd>
        <vFrete>0.00</vFrete>
        <vSeg>0.00</vSeg>
        <vDesc>0.00</vDesc>
        <vII>0.00</vII>
        <vIPI>0.00</vIPI>
        <vIPIDevol>0.00</vIPIDevol>
        <vPIS>0.00</vPIS>
        <vCOFINS>0.00</vCOFINS>
        <vOutro>0.00</vOutro>
        <vNF>900.00</vNF>
        <vTotTrib>193.41</vTotTrib>
      </ICMSTot>
    </total>
    <transp>
      <modFrete>1</modFrete>
      <transporta>
        <xNome>CLIENTE RETIRA</xNome>
      </transporta>
      <vol>
        <qVol>1</qVol>
        <pesoL>0.001</pesoL>
        <pesoB>0.001</pesoB>
      </vol>
    </transp>
    <infAdic>
      <infCpl>DOCUMENTO EMITIDO POR ME OU EPP OPTANTE PELO SIMPLES NACIONAL ESTABELECIMENTO IMPEDIDO DE RECOLHER O ICMS/ISS PELO SIMPLES NACIONAL, NOS TERMOS DO § 1  DO ART. 20 DA LC 123/2006 NAO GERA DIREITO A CREDITO FISCAL DE IPI</infCpl>
    </infAdic>
  </infNFe>
</NFe>  


Esta dando erro na TAG infAdic
o que mudo nessa tag que eu não Vi?

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

#477043 - 07/10/2017 10:53:08

MARCOSLING
SAO PAULO
Cadast. em:Agosto/2008


Que erro ocorre?



#477058 - 09/10/2017 09:46:37

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Citação:
:
Que erro ocorre?

Já achei o Erro estava completando de forma errada a Tag detPag

agora outra pergunta, onde acho os webservices de produção da NFe4 par ao Estado de SP
só achei os de Homologação

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

#477060 - 09/10/2017 11:10:55

MORCELI
SAO JOSE DO RIO PRETO
Cadast. em:Outubro/2011


Bom dia Pessoal!!..Preciso tirar uma duvida com vocês ou até mesmo se alguém tem alguma coisa já feita...
Tenho um relatório que meu contábil solta, com todas as chaves de NFE que foi feita a entrada no sistema.
Com esse relatório eu entro no site da Receita e consulto nota fiscal por nota fiscal com a Chave da NFE, para ver se as notas estão ok ou canceladas ou não existem na base da Receita.
Existe a possibilidade de criar uma consulta no VB.net onde eu listo as chaves no DataGridView na primeira coluna, e na segunda coluna ele vai jogando o Status dessas consultas pela chave na base da receita, Exemplo:

Primeira Coluna Chave                                                     Coluna Status
3517100240159800168550010000104811000104820      Nota OK
4217100242259800168550010000104811000104822      Nota OK
3517100242559800168550010000104811000104825      Cancelada
3517100865744999010055000000023856100023860      Não Encontrado
4117100242859800168550010000104811000104801      Cancelada
3517100242851800168550010000104811000104802      Nota OK
3517100242857800168550010000104811000104818      Nota OK






 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