Pesquisar na Comunidade

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

Bom dia, Estou usando o ACBrLCDPR fui validar o arquivo na Receita Federal para Transmissão e voltou com um erro: Pendencias_LCDPR_FULANO_01012019_31122019.txt-new.pdf

Pessoal estou com uma urgência , há mais de 30 dias tentando homologar com o SICOOB Paraiba, e eles estão dizendo que o padrão que estou usando no arquivo remessa é o UTF-8, e que precisam que o arquivo vá no padrão ANSI. Já estudei já fiz de tudo que podia e eles continuam dizendo que o arquivo esta sendo rejeitado. Já homologuei diversas carteiras de Cobrança SICOOB e todos os bancos usando o componente do ACBR e nunca tive esse problema, me ajudem por favor.. 00000114.REM

Pessoal estou com uma urgência , há mais de 30 dias tentando homologar com o SICOOB Paraiba, e eles estão dizendo que o padrão que estou usando no arquivo remessa é o UTF-8, e que precisam que o arquivo vá no padrão ANSI. Já estudei já fiz de tudo que podia e eles continuam dizendo que o arquivo esta sendo rejeitado. Já homologuei diversas carteiras de Cobrança SICOOB e todos os bancos usando o componente do ACBR e nunca tive esse problema, me ajudem por favor... Arquivo em Anexo 00000113.REM

Boa tarde. Estou tendo alguma dificuldade em relação a opção ANSI, não encontrei exatamente de qual versão, mas em algum momento não estava mais respondendo corretamente, utilizo a integração do Delphi com o AcbrMonitorPlus, e conforme orientações no fórum devo marcar a opção ANSI. Gerei o seguinte problema, criei uma pasta c:\sistemã e adicionei dentro desta pasta um xml, e solicitei a impressão do DANFE, o monitor retorna erro de arquivo não encontrado. Ex: "c:\Sistem�\...... não encontrado ". Somente apos alterar a função de "AnsiToUtf8" para "ACBrAnsiToUTF8" tive sucesso. Anexado o fonte com a alteração. ACBrMonitor1.pas

Pessoal, boa tarde. Baixei e compilei todo o projeto do ACBr em Lazarus 1.6 Windows. Comecei a utilizar o modo de comunicação do ACBr Monitor Plus via TCP, para integrar minha aplicação feita em Java. Até o momento tudo corria bem, mas agora me deparei com um problema, que acredito ser gerado pelo Lazarus. Tenho uma impressora Bematech e uma Epson. Ambas tem formas de pagamento com acentuação já programas. Quando obtenho junto ao ACBrMontiorPlus as formas de pagamento (comando ECF.CarregaFormasPagamento) o contrato de retorno está sendo quebrado. Veja no seguinte exemplo de retorno: OK: 1 Dinheiro| 2V Cartão Formatando melhor o retorno para verificarmos a falta de caracteres: IIIITDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD " 1 Dinheiro" " 2V Cartão" Note que na descrição cartão está faltando um caracter, são na verdade somente 29 posições (ao invés de 30) retornadas pelo ACBrMonitorPlus. Não estou conseguindo descobrir como resolver isso (até porque não tenho grandes conhecimentos em Lazarus), porém acredito que isso esteja ocorrendo pois a String é UTF-8, onde no caso a caracter ã é representado em 2 bytes em UTF-8, diferentemente que no ANSI aonde é 1 byte. Já tentei trocar aquele parâmetro no ACBrMonitor para usar comunicação ANSI mas o problema continua. Fiz a depuração do ACBrMonitorPlus, e o problema aparece no ACBrUtils.pas na função abaixo: function PadLeft(const AString : String; const nLen : Integer; const Caracter : Char) : String ; var Tam: Integer; begin Tam := Length(AString); <<< ESTE LENGTH('Cartão') retorna 7 ao invés de 6!!!! if Tam < nLen then Result := StringOfChar(Caracter, (nLen - Tam)) + AString else Result := LeftStr(AString, nLen) ; //RightStr(AString,nLen) ; end ; Alguém pode me ajudar a resolver isso? Obrigado!