Consulta optante do simples online

[Kapiaba]

Rubens,

Abs.

[rubens]

Kapiaba...

Tenta baixar essa chave no impnfe que o Daniel disponibilizou... se continuar ocorrendo, se puder posta essa chave aqui para gente ver o que é...
Aqui tá baixando normal...

Rubens

[Kapiaba]

Essa chave é do ambiente de homologação, será por isso?

[rubens]

Provavelmente éh isso.
As URLs são do ambiente de produção...

Código: Selecionar todos

   Public cUrl := "https://www.nfe.fazenda.gov.br/portal/consultaResumoCompletaAntiga.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8%3D"
   Public cUrl2:= 'https://www.nfe.fazenda.gov.br/portal/consultaCompleta.aspx?tipoConteudo=XbSeqxE8pl8%3D'

Por isso tá retornando Array vazio no erro.
Tenta baixar uma chave do ambiente de produção para fazer o teste.

Rubens

[talisof]

Rubens

Bom dia, quais argumentos devo passar para o exe?
para setar a chave e o local para salvar o xml.

[rubens]

Bom dia, quais argumentos devo passar para o exe?
para setar a chave e o local para salvar o xml.

Só o Exe e o path onde será salvo o xml. O nome do Xml será a Chave. Isso se for integrar com o seu sistema manda executar enviando como argumento a pasta:
Impnfe "D:\XML", vai baixar o xml e salvar na pasta D:\xml

Se estiver usando harbour pode usar
HB_RUN( 'START '+cPath+'ImportarXml\impnfe.exe D:\XML' )
que funciona.

Agora se quiser deixar o usuário escolher a pasta use o arquivo que o Daniel disponibilizou. Que aí pode escolher a pasta onde vai salvar o arquivo e ainda pode imprimir um Danfe do Xml. O Daniel usou a classe do Quintas.

Rubens

[janio]

Essa chave é do ambiente de homologação, será por isso?

Nao.

Esse erro acontece quando vc digita um CAPTCHA errado! Na função faltou um tratamento para esse erro

Na função "Continuar" deve ser acrescentado o codigo abaixo:

Código: Selecionar todos

   If At('id="ctl00_ContentPlaceHolder1_bltMensagensErro" class="listaErro">', cHtml) > 0
      cPart:= Substr(cHtml, (At('id="ctl00_ContentPlaceHolder1_bltMensagensErro" class="listaErro">', cHtml) + 66))
      cPart:= Substr(cPart, (At('<li>', cPart) + 4))
      MsgInfo(Troca_Acento(SubStr(cPart, 1, (At('</li>', cPart) - 1))), 'aviso Erro')
      Return .f.
   EndIf

   If ! Empty(cHtml)
   ...

[rubens]

Bom dia..

Valeu Janio.. Obrigado...

Segue corrigido...

impnfe.zip

(763.39 KiB) Baixado 151 vezes

Rubens

[rubens]

Boa tarde...

No outro arquivo tava baixando incompleto os dados dos produtos..
Corrigido...

Impnfe.rar

(653.63 KiB) Baixado 225 vezes

Rubens

[Ariston Santos]

Olá. Eu estou usando o Impnfe.exe para baixar os XMLs e sou muito grato ao Rubens, que o disponibilizou.
Só quero relatar um erro que encontrei: a NF-e 35180573856593000409550030000493221182770442 contém 3 lotes, mas no XML baixado pelo IMPNFE só vem 1.
Poderia corrigir e postar a atualização?
Obrigado.

[Jairo Maia]

Olá Ariston Santos,

A última versão com os códigos fontes disponibilizadas pelo Daniel está aqui: viewtopic.php?p=123929#p123929

[rubens]

Bom dia..

Ariston segue em anexo os fontes do projetos que compilei.
Lembrando que o original veio dos fontes do Daniel.. Só fiz algumas modificações ao meu gosto que alguma pessoas estão usando tb.
Uso a IDE da minigui extends para compilar.

Rubens

[Ariston Santos]

Olá.
Eu gostaria de saber se já existe uma compilação mais recente do impnfe.exe que gera as tags de rastreamento e de ICMS Desonerado de cada item corretamente. A que tenho não gera essas tags corretamente.

Exemplo 1 - Rastreamento de Medicamento:


Exemplo 2 - ICMS Desonerado:


Chave de acesso para teste:
23181206628333000146550000001961571002685617

Grato pelo retorno.

[Daniel]

Ola

[Ariston Santos]

Muito obrigado, Daniel.
:)Pos