Jump to content

Compre o Delphi
Com até 30% de desconto
e parcelado em até 12x sem juros

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

infopointerp

ANSWERED Alterar nome dos Log de Envio e Retorno

Recommended Posts

Olá boa tarde,

Gostaria de alterar os nome dos arquivos env-lot.xml e pro-lot.xml para colocar uma data na frente para diferenciar a cada envio.

Olhando no fonte no momento do envio na classe abaixo gera o prefixo com o horário.

function TDFeWebService.GerarPrefixoArquivo: String;
begin
  Result := FormatDateTime('yyyymmddhhnnss', Now);
end;

Mas é Sobrescrito com a função:

 

function TNFeRecepcao.GerarPrefixoArquivo: String;
begin
  if FSincrono then  // Esta procesando nome do Retorno Sincrono ?
  begin
    if FRecibo <> '' then
    begin
      Result := Recibo;
      FPArqResp := 'pro-rec';
    end
    else
    begin
      Result := Lote;
      FPArqResp := 'pro-lot';
    end;
  end
  else
    Result := Lote;
end;

Ficando dessa forma o "LOTE-pro-lot.xml". Tem alguma forma de eu passar pro componente como gostaria de pegar o prefixo?

Share this post


Link to post
Share on other sites

Boa tarde,

Em vez de alterar o prefixo do nome do arquivo, porque você não adota um numero sequencial para o Lote.

Desta forma você consegue diferenciar e no banco de dados na tabela das notas acrescente mais um campo para armazenar o numero do lote a qual ela pertence.

  • Like 1

Consultor SAC ACBr Italo Jurisato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Share this post


Link to post
Share on other sites

×
×
  • Create New...