Erro no GravarXml sem gerar o xml

[jcanjo]

Ocorre um erro nesta função.

Não sei

Quando o xml não for gerado, a função tentada gravar mais tava erro 'ID Inválido. Impossível Salvar XML', porque ainda não tinha sido gerado.

Antes:

function Conhecimento.GravarXML(NomeArquivo: String; PathArquivo: String): Boolean;
begin

  FNomeArq := CalcularNomeArquivoCompleto(NomeArquivo, PathArquivo);

  if EstaVazio(FXMLOriginal) then
    GerarXML; 

  Result := TACBrCTe(TConhecimentos(Collection).ACBrCTe).Gravar(FNomeArq, FXMLOriginal);
end;

Depois:

function Conhecimento.GravarXML(NomeArquivo: String; PathArquivo: String): Boolean;
begin
  if EstaVazio(FXMLOriginal) then
    GerarXML;

  FNomeArq := CalcularNomeArquivoCompleto(NomeArquivo, PathArquivo);

  Result := TACBrCTe(TConhecimentos(Collection).ACBrCTe).Gravar(FNomeArq, FXMLOriginal);
end;

Caso post esteja no local errado peço desculpa e transferira ou delete.

[Italo Giurizzato Junior]

Boa noite,

Com essa alteração o problema foi sanado?

Se sim, por favor anexe a unit alterada para que possamos analisar.

[jcanjo]

Italo vou mandar por aqui também do mdfe.

Se tentar gravar antes de gerar o XML ocorre o erro também no mdfe.

ACBrCTeConhecimentos.pas

ACBrMDFeManifestos.pas

[Italo Giurizzato Junior]

Boa noite,

Muito obrigado pela colaboração, ainda hoje estarei enviando para o repositório.

[jcanjo]

  Em 04/04/2017 at 01:11, Italo Jurisato Junior disse:

Boa noite,

Muito obrigado pela colaboração, ainda hoje estarei enviando para o repositório.

Expandir  

Que bom ter ajudado, nada.