ACBrLCDPR salvando arquivo com codificação ANSI.

[Leandro Araújo]

Boa tarde.

Realizando testes com a geração do arquivo do Livro Caixa do Produtor Rural (LCDPR), verifiquei que o componente não está gerando o arquivo com codificação UTF-8 conforme consta no manual do LCDPR no "Capítulo 2 – Dados Técnicos para Geração do Arquivo do LCDPR" página 4.

Como no momento o componente não está utilizando a classe "TACBrTXTClass" pra geração da estrutura, eu fiz uma pequena e rápida alteração na unit "\Fontes\ACBrTXT\ACBrLCDPR\UACBrLCDPR.pas" para que o arquivo sempre seja gerado com codificação UTF-8. 

Obs.: Eu não vi a respeito, até porque o manual não fala nada sobre, mas caso seja necessário manter o BOM (Byte Order Marker) podem remover a linha adicionada no Create ou então passar o valor da propriedade WriteBOM para True.

// Alteração no Create
constructor TACBrLCDPR.Create(AOwner: TComponent);
begin
  inherited;

  FBloco0000      := TRegistro0000.Create;
  FBloco0010      := TRegistro0010.Create;
  FBloco0030      := TRegistro0030.Create;
  FBloco0040      := TBlocos0040.Create;
  FBloco0050      := TBloco0050.Create;
  FBlocoQ         := TBlocoQ.Create;
  FBloco9999      := TRegistro9999.Create;
  FDadosContador  := TContador.Create;

  FConteudo     := TStringList.Create;
  FConteudo.WriteBOM := False; // Salvar sem BOM
  FDelimitador  := '|';
  FArquivo      := 'LCDPR'; 
end;

//...

// Alteração em SalvarBlocos
procedure TACBrLCDPR.SalvarBlocos;
begin
  FConteudo.SaveToFile(Path + Arquivo, TEncoding.UTF8); // Salvar com condificação UTF-8
end;

Segue em anexo a unit "UACBrLCDPR.pas" com as alterações.

Se puderem verificar para ser adicionado no svn, ok?

Obrigado!

UACBrLCDPR.pas

Editado 2 Março, 2020 por Leandro Araújo
Anexar arquivo de modificação para ser enviado ao svn/Alteração no texto

[Juliana Tamizou]

Boa tarde.

Obrigada pela contribuição, adicionada para validação.

Att.

[EMBarbosa]

Em 02/03/2020 at 16:51, Leandro Araújo disse:

Boa tarde.

Realizando testes com a geração do arquivo do Livro Caixa do Produtor Rural (LCDPR), verifiquei que o componente não está gerando o arquivo com codificação UTF-8 conforme consta no manual do LCDPR no "Capítulo 2 – Dados Técnicos para Geração do Arquivo do LCDPR" página 4.

Como no momento o componente não está utilizando a classe "TACBrTXTClass" pra geração da estrutura, eu fiz uma pequena e rápida alteração na unit "\Fontes\ACBrTXT\ACBrLCDPR\UACBrLCDPR.pas" para que o arquivo sempre seja gerado com codificação UTF-8. 

Obs.: Eu não vi a respeito, até porque o manual não fala nada sobre, mas caso seja necessário manter o BOM (Byte Order Marker) podem remover a linha adicionada no Create ou então passar o valor da propriedade WriteBOM para True.

// Alteração no Create
constructor TACBrLCDPR.Create(AOwner: TComponent);
begin
  inherited;

  FBloco0000      := TRegistro0000.Create;
  FBloco0010      := TRegistro0010.Create;
  FBloco0030      := TRegistro0030.Create;
  FBloco0040      := TBlocos0040.Create;
  FBloco0050      := TBloco0050.Create;
  FBlocoQ         := TBlocoQ.Create;
  FBloco9999      := TRegistro9999.Create;
  FDadosContador  := TContador.Create;

  FConteudo     := TStringList.Create;
  FConteudo.WriteBOM := False; // Salvar sem BOM
  FDelimitador  := '|';
  FArquivo      := 'LCDPR'; 
end;

//...

// Alteração em SalvarBlocos
procedure TACBrLCDPR.SalvarBlocos;
begin
  FConteudo.SaveToFile(Path + Arquivo, TEncoding.UTF8); // Salvar com condificação UTF-8
end;

Segue em anexo a unit "UACBrLCDPR.pas" com as alterações.

Se puderem verificar para ser adicionado no svn, ok?

Obrigado!

UACBrLCDPR.pas 14 kB · 0 downloads

Bom dia Leandro,

   Infelizmente não podemos enviar a alteração da forma como está. Ela não é compatível nem com o Delphi 7, nem com o Lazarus.

[Leandro Araújo]

1 hora atrás, EMBarbosa disse:

Bom dia Leandro,

   Infelizmente não podemos enviar a alteração da forma como está. Ela não é compatível nem com o Delphi 7, nem com o Lazarus.

Bom dia @EMBarbosa, entendido...

Realmente, vi que na verdade o componente e os fontes ainda não estão compatibilizados com Delphi 7 e Lazarus.

Agora estou trabalhando em outras questões, mas caso eu consiga posso adicionar as diretivas de compilação e ajustar a função de salvar os blocos para ficar compatível, e talvez até trocar na implementação para usar a "TACBrTXTClass" se for necessário, só não posso garantir isso agora, até porque a entrega do arquivo é em Abril ainda.

Caso sobrar um tempo eu posso alterar e postar o as alterações novamente dentro de alguns dias.

Obrigado.

[EMBarbosa]

14 minutos atrás, Leandro Araújo disse:

Bom dia @EMBarbosa, entendido...

Realmente, vi que na verdade o componente e os fontes ainda não estão compatibilizados com Delphi 7 e Lazarus.

Agora estou trabalhando em outras questões, mas caso eu consiga posso adicionar as diretivas de compilação e ajustar a função de salvar os blocos para ficar compatível, e talvez até trocar na implementação para usar a "TACBrTXTClass" se for necessário, só não posso garantir isso agora, até porque a entrega do arquivo é em Abril ainda.

Caso sobrar um tempo eu posso alterar e postar o as alterações novamente dentro de alguns dias.

Obrigado.

   Não tem problema Leandro. Agradecemos sua ajuda e disposição desde já. 

   Já foi útil ter apontado o problema, mas se conseguir fazer o ajuste vamos ficar ainda mais gratos.

   Bom trabalho por aí.

[EMBarbosa]

OBS.: as mensagens do usuário Luis Ricardo, estavam relacionadas com outro problema e por isso foram movidas para o seguinte tópico:

 

[Juliana Tamizou]

Tópico fechado por falta de retorno do usuário