Erro ao Salvar Arquivo

[Dangelo2010]

Ao Validar uma NFe, está dando uma mensagem de erro quando retorna os dados e vai passa na funcao

function TNFeRetRecepcao.TratarRespostaFinal: Boolean; ------> Unit ACBrNFeWebServices

na linha 1258
                if SalvarXML then
                  GravarXML;

mensagem de erro --> erro ao salvar. nome de arquivo nao informado

ja estou passando os dados porem esse erro so comeco hoje ontem estava normal

  Tsi.Configuracoes.Arquivos.PathNFe       := CaminhoXML + 'STA\NFE';
  Tsi.Configuracoes.Arquivos.PathInu       := CaminhoXML + 'STA\NFE';
  Tsi.Configuracoes.Arquivos.PathEvento    := CaminhoXML + 'STA\NFE';
  Tsi.Configuracoes.Arquivos.PathSalvar    := CaminhoXML + 'STA\NFE';
  Tsi.Configuracoes.Arquivos.Salvar        := True;
  Tsi.Configuracoes.Arquivos.SepararPorMes := True;
  Tsi.Configuracoes.Arquivos.SalvarEvento  := True;

 

 

Editado 24 Setembro, 2015 por Dangelo2010

[Daniel Simoes]

Quais comandos você chama ?

Como reproduzir o problema, usando o Demo do ACBrNFe ?

 

Enviei várias modificações recentemente... favor testar novamente

[Dangelo2010]

essas sao as configuracoes

depois foi so clicar em criar e enviar

 

 

Editado 24 Setembro, 2015 por Dangelo2010

[Daniel Simoes]

Você testou após as atualizações recentes ?

Se o problema persistir... Seja mais específico em elaborar o passo a passo.... Exemplo

1 - Configure conforme tela X

2 - Use certificado A1, com OpenSSL

3 - Clique no botão XYZ, e observe o XML criado em "pasta_tal"

4 - ...

[Dangelo2010]

Sim atualizei com a ultima versao de hoje no periodo da tarde e estou usando certificado A1

acho que fui bem especifico, como  vc queria sabe como eu fiz para gerar o erro, eu lhe mostrei as imagens de configuracao do demo e simplemente cliquei no botao criar e enviar e ja logo mim trouxe a mensagem de erro, no entanto eu ja debuquei e realmente na linha em que foi informado logo acima esta sendo passado em branco.

[Daniel Simoes]

Sinto muito... Suas instruções não são claras para mim...

Sem informações ... Não estou mais investigando esse problema 

[Dangelo2010]

Que informacoes vcs precisao mais

por favor configure o demo do mesmo jeito que esta nas imagens que foi enviada e click no botao criar e enviar que vcs verao os erros

 

Passo a passo

Configurar tela Geral conforme imagem

Configura tela Arquivo conforme imagem

clicar no botao criar e enviar, informar o numero da nota, informar o numero do lote e aguardar a resposta de erro.

[Dangelo2010]

Por favor alquem poderia mim ajudar com esse problema!

[Dangelo2010]

Acabei de achar o erro!

O Erro estava na unit ACBrNFeNotasFiscais na linha 1175 na funcao abaixo

function NotaFiscal.GravarXML(NomeArquivo: String; PathArquivo: String): Boolean;
begin
  FNomeArq := CalcularNomeArquivoCompleto(NomeArquivo, PathArquivo);

  if EstaVazio(FXMLOriginal) then
    GerarXML;

  Result := TACBrNFe(TNotasFiscais(Collection).ACBrNFe).Gravar(NomeArquivo, FXMLOriginal);
end;

pois o NomeArquivo sempre vem em branco entao mudei para o nome FNomeArq e funcionou perfeito

 

 

[Daniel Simoes]

Os seus fontes estão errados... apague as Units modificas e baixa novamente...

Veja como está o arquivo ACBrNFeNotasFiscais.pas, no SVN:

http://sourceforge.net/p/acbr/code/HEAD/tree/trunk2/Fontes/ACBrDFe/ACBrNFe/ACBrNFeNotasFiscais.pas

function NotaFiscal.GravarXML(NomeArquivo: String; PathArquivo: String): Boolean;
begin
  FNomeArq := CalcularNomeArquivoCompleto(NomeArquivo, PathArquivo);

  if EstaVazio(FXMLOriginal) then
    GerarXML;

  Result := TACBrNFe(TNotasFiscais(Collection).ACBrNFe).Gravar(FNomeArq, FXMLOriginal);
end;   

 

[Dangelo2010]

Realmenete Daniel,

Já está resolvido !