Distnfe - Salvar Xml Apenas Se Prop. Salvar=True

[dalpiaze]

Italo, boa tarde,

 

Seria possível acrescentar um IF na rotina de Salvar o XML da nota quando é efetuada a consulta de Distribuição de Documentos em ACBrNFeWebServices (function TDistribuicaoDFe.TratarResposta). ?

 

Pois está sempre salvando o xml independente da propriedade Geral.Salvar estar False.

 

Veja como está agora:

for I := 0 to FretDistDFeInt.docZip.Count - 1 do
  begin
    AXML := FretDistDFeInt.docZip.Items[I].XML;
    NomeArq := '';
    if (AXML <> '') then
    begin
      case FretDistDFeInt.docZip.Items[I].schema of
        tsresNFe:
          NomeArq := FretDistDFeInt.docZip.Items[I].resNFe.chNFe + '-resNFe.xml';
        tsresEvento:
          NomeArq := OnlyNumber(TpEventoToStr(FretDistDFeInt.docZip.Items[I].resEvento.tpEvento) +
             FretDistDFeInt.docZip.Items[I].resEvento.chNFe +
             Format('%.2d', [FretDistDFeInt.docZip.Items[I].resEvento.nSeqEvento])) +
             '-resEventoNFe.xml';
        tsprocNFe:
          NomeArq := FretDistDFeInt.docZip.Items[I].resNFe.chNFe + '-nfe.xml';
        tsprocEventoNFe:
          NomeArq := OnlyNumber(FretDistDFeInt.docZip.Items[I].procEvento.Id) +
            '-procEventoNFe.xml';
      end;

      if NomeArq <> '' then
        FConfiguracoes.Geral.Save(NomeArq, AXML, GerarPathDistribuicao);  // <-------------------------- ****
    end;
  end;

Obrigado.

[Italo Giurizzato Junior]

Boa noite Dalpiaze,

 

Muito obrigado pela colaboração, já esta disponível.

 

Mas quem determina se será salvo em disco ou não é a propriedade:

 

Configuracoes.Arquivos.Salvar

[dalpiaze]

Italo, bom dia,

 

Blz, ficou 100%.

 

Mais uma vez muito obrigado!