Recuperar Xml - Xml2.00 02/2014 Site Modificado

[Hetosoft Sistemas]

Depois da ultima atualização do site da sefaz ficamos sem poder baixar xml pra quem usar o projeto

RecuperarXML (que foi descontinuado)

 

aqui ta a unit corrigida.

 

 

 

 

 

RecuperarXML.rar

[marcusgp]

Substitui o arquivo na pasta do RecuperaXML mas continua travando o programa depois da barra de progresso "Conectando ao SEFAZ" ficar cheia.

[Solivan]

Tente usar este *.pas, acho que não vai ter problemas com ele.

 

att.Solivan

ACBrHTMLtoXML.pas

[marcusgp]

Continuo com o mesmo problema, mas acredito que seja na máquina. Vou dar uma olhada aqui, testar em outras máquinas, ou até formatar essa. Depois de feito isso aviso se funcionou ou não. Obrigado.

[Furquim]

Marcusgp, Testei os arquivos do Hetoandrade e funcionou normalmente....

Verifique o Path do arquivo....(Path no projeto) etc...

 

acredito que você esteja com problema do Caminho do arquivo.

 

Abcs e boa Sorte!

[Furquim]

HetoAndrade.. teu arquivo tem um problema...

 

Observe que no ser arquivo está assim :                   pICMS := ConverteStrToNumero(LerCampo(Grupo, 'Alíquota ICMS Normal'));

o correto é :                                                                pICMS := ConverteStrToNumero(LerCampo(Grupo, 'Alíquota do ICMS Normal'));

 

 

Abraços!!!

 

 

 

[Antonio Rodrigues]

Auguem poderia disponibilizar o .exe alterado por favor, minha vida um caos devido a essa mudança.

[gilberto.natal]

estou precisando do arquivo "Unit_Notas.dcu" pois nao consigo compilar.

[Zé Mandi]

Tambem preciso do arquivo "Unit_Notas.dcu", alguem poderia disponibilizar, obrigado

[Solivan]

Não faço idéia de que arquivo seja esse, do qual estão sentindo a falta, mas eu tenho aqui o projeto RecuperaXML funcionando e vou disponibiliza-lo.

 

Att. Solivan

RecuperarXML.rar

[Sergio Ricardo]

Alguém tem ele já compilado para nos fazer o favor de disponibilizar ?

 

Obrigado.

[Solivan]

Tem ele neste outro poste aqui

[Desyelle D Carlo]

Olá Bom dia.. Como que instalo esse , RecuperarXML.rar   98.5K   29 Downloads ???

uso um programa CLIPP STORE e o Recupera XML está travando. Estou tendo que digitar toda a nota =(

[Juliomar Marchetti]

A resposta já está neste outro local onde abriu a mesma pergunta

 

Olá Bom dia.. Como que instalo esse , RecuperarXML.rar   98.5K   29 Downloads ???

uso um programa CLIPP STORE e o Recupera XML está travando. Estou tendo que digitar toda a nota =(

[leeocelles]

alguem poderia me disponibilizar o RecuperarXml.exe funcionando ?

[gilberto.natal]

Solivan quando tento incluir a função abaixo da o mesmo erro:

Build

  [Error] ACBrHTMLtoXML.pas(30): Undeclared identifier: 'CharInSet'

  [Fatal Error] principal.pas(68): Could not compile used unit 'ACBrHTMLtoXML.pas'

 

e fiz conforme passado:

function RemoveInvalidChar(ADataHora : string) : string;

var

  Caracteres : TSysCharSet;

  I : Integer;

begin

  Caracteres:= ['/', ':', '0'..'9'];

 

  for I := 0 to Length(ADataHora) do

    begin

      if CharInSet(ADataHora, Caracteres) then

        Result := Result + ADataHora;

    end;

 

  Insert(' ', Result, 11);

end;

function CharInSet(C: AnsiChar; const CharSet: TSysCharSet): Boolean;

begin

    Result:=C in CharSet;

end;

[EMBarbosa]

   Queiram ver o outro tópico, onde o usuário Edson.pol está tentando reunir os interessados no RecuperarXML, e o código atualizado pode ser encontrado no SourceForge.

[Solivan]

 

Solivan quando tento incluir a função abaixo da o mesmo erro:

Build

  [Error] ACBrHTMLtoXML.pas(30): Undeclared identifier: 'CharInSet'

  [Fatal Error] principal.pas(68): Could not compile used unit 'ACBrHTMLtoXML.pas'

 

e fiz conforme passado:

function RemoveInvalidChar(ADataHora : string) : string;

var

  Caracteres : TSysCharSet;

  I : Integer;

begin

  Caracteres:= ['/', ':', '0'..'9'];

 

  for I := 0 to Length(ADataHora) do

    begin

      if CharInSet(ADataHora, Caracteres) then

        Result := Result + ADataHora;

    end;

 

  Insert(' ', Result, 11);

end;

function CharInSet(C: AnsiChar; const CharSet: TSysCharSet): Boolean;

begin

    Result:=C in CharSet;

end;

 

Isso se deve ao fato de você usar o delphi 7, ele não reconhece esta função, porque ela só foi implementa apartir do delphi unicode. Use dessa forma:

 

function RemoveInvalidChar(ADataHora : string) : string;

var

  Caracteres : TSysCharSet;

  I : Integer;

begin

  Caracteres:= ['/', ':', '0'..'9'];

  for I := 0 to Length(ADataHora) do

    begin

      if ADataHora in Caracteres then

        Result := Result + ADataHora;

    end;

  Insert(' ', Result, 11);

end;

 

[André F.]

Olá pessoal!!! Estou tentando recuperar um nfe com a versão de xml 3.10 mas trava e da erro.

Tenho que finalizar a aplicação pelo gerenciador de tarefas.

 

Será que alguém tem o ACBrHTMLtoXML.pas atualizado que funcione também para a versão 3.10 do xml?

 

Segue duas chaves de acesso para teste:

 

35140710702885000124550010000314321022490145

35140711412028000152550010000483721003440766

 

Obrigado!!

[Juliomar Marchetti]

Boa tarde

O projeto foi descontinuado e está aqui: http://sourceforge.net/projects/recuperaxml/?source=directory

mais informações lá!

Tópico fechado para evitar maiores discussões