Erro Gravar Arquivo

[tchuck]

Boa Tarde estou usando as ECFs Virtuais para emitir o SAT e a NFC-e, no SAT esta tudo OK, mas na NFC-e esta dando erro quando vai gravar no aqui de log , segue a imagem a abixo do erro,

https://uploaddeimagens.com.br/imagens/sem_titulo-png--12655

O erro acontece quando entra na função abaixo, e esta destacada;

Fiz o teste com trunk normal e funciona certinho, mas no tunk2 acontece erro.

procedure TACBrECFVirtualNFCeClass.GravaArqINIVirtual(ConteudoINI: TStrings);
begin
  // Se cupom está aberto, deve persistir o CFe //
  if (fpEstado in estCupomAberto) then
    fsACBrNFCe.NotasFiscais.Items[0].GravarTXT( fsNomeArqTempXML )
  else
  begin
    if (fsNomeArqTempXML <> '') and FileExists( fsNomeArqTempXML ) then
      DeleteFile( fsNomeArqTempXML );
  end;

  inherited GravaArqINIVirtual(ConteudoINI);
end;

 

[Régys Silveira]

O que você está informando na propriedade NomeArquivoTmp? voce deve informar somente o nome do arquivo.

[tchuck]

O nome do arquivo e é arquivo q ele cria automático por exemplo acbr001.txt ou seja ele ler esse arquivo que é criado no raiz do executavel, mas na hora de gravar ele esta pegando um path que joga em outro lugar.

[tchuck]

Bom dia conferi o arquivo certinho hj e ele esta localizando o arquivo no local correto mas que seria a Raiz do executável, mas quando salva ele direciona para outro lugar no PathAquivo esta vazio, pois não encontrei uma proprieda para os arquivos temporários

fiz vários teste e não importa caminho q eu coloco sempre vai dar erro porque nessa função

function NotaFiscal.CalcularNomeArquivoCompleto(NomeArquivo: String;
  PathArquivo: String): String;
begin

  if EstaVazio(NomeArquivo) then

    NomeArquivo := CalcularNomeArquivo;

  if EstaVazio(PathArquivo) then

    PathArquivo := CalcularPathArquivo

  else

    PathArquivo := PathWithDelim(PathArquivo);

  Result := PathArquivo + NomeArquivo;

end;

aonde esta destacado ele junta os dois arquivo mas no NomeArquivo  já esta pegando o caminho e nome do arquivo e se juntar com o Path vai ficar um nome que não existe exemplo: C:\C:\teste.xml por exemplo

Editado 4 Agosto, 2015 por tchuck

[tchuck]

consegui resolver o problema era na unit ACBrECFVirtual na função

function TACBrECFVirtualClass.CalculaNomeArqINI : String ;
begin

  Result := ExtractFileName(ExtractFilePath(fpEXEName)+'acbrecf'+GetNumECF+'.ini');
end ;

adicionei ExtractFileName resolveu o problema dessa forma ele pega somente o nome do arquivo e não da os problemas que mencionei acima.

 

Editado 4 Agosto, 2015 por tchuck

[Régys Silveira]

Você está usando Trunk ou Trunk2?

[tchuck]

Trunk2

[Régys Silveira]

Basta você preencher a propriedade "ACBrECFVirtualNFCe1.NomeArqINI" para que ele use o que você preencheu corretamente.

[tchuck]

funcionou perfeitamente dessa forma informada acima pelo regys

[gutembergscosta]

Boa tarde,

Realizando a gravação do txt baseado: método gravartxt, ao que tudo indica ainda não está contemplando as novas tags referente a Nota Tecnica 2015 003 - Consumidor Final interestadual, (CEST, novo grupo ..) os campos foram alimentados no componente contudo no txt eles não entram.

Alguém tem alguma informação a respeito.

Obrigado!