FONTE NFE VB.NET

VANELINHA 14/08/2017 22:59:29
#475784

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.
MFLAVIO 04/09/2017 08:04:42
#476268
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?
MFLAVIO 04/10/2017 14:47:14
#476966
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
MFLAVIO 05/10/2017 16:32:29
#477023
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


MARCOSLING 05/10/2017 20:41:00
#477032
Mas você está fazendo a alteração no fonte disponibilizado aqui?
MFLAVIO 06/10/2017 09:23:55
#477038
Citação:

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


SIM
MFLAVIO 06/10/2017 12:16:21
#477040
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?
MARCOSLING 07/10/2017 10:53:08
#477043
Que erro ocorre?
MFLAVIO 09/10/2017 09:46:37
#477058
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
MORCELI 09/10/2017 11:10:55
#477060
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
Página 222 de 228 [2276 registro(s)]
Faça seu login para responder
Voltar