MarcosRWeimer

Alterado e o resultado foi o mesmo

Isto foi pq copiei uma parte do post do onde solicitou as informações e acabei não me atentando ao nome que estava no componente

Ola! ACBrNFe.Configuracoes.Geral.SSLLib = libCustom ACBrNFe1.Configuracoes.Geral.SSLCryptLib = cryWinCrypt ACBrNFe1.Configuracoes.Geral.SSLHttpLib = httpOpenSSL ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib = xsLibXml2 Passando FALSE para o Parâmetro de UFT8: Passando TRUE Ambos os casos a acentuação no XML ficou incorreta. Na impressão ficou correta das 2 formas: procedure utilizada para gravar procedure TNFeBase.SalvarXML; var LCaminho: string; LXML: string; LIsUTF8: Boolean; begin LCaminho := GetCaminhoXMLPDF(False); if FACBrNFe.EventoNFe.Evento.Count > 0 then LXML := String(FACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.XML) else if (not FACBrNFe.WebServices.Inutilizacao.XML_ProcInutNFe.IsEmpty) then LXML := FACBrNFe.WebServices.Inutilizacao.XML_ProcInutNFe else LXML := FACBrNFe.NotasFiscais.Items[0].XML; if LXML.IsEmpty then Exit; LIsUTF8 := LXML.ToLower.Contains('<signature'); //ACBrDFeUtil.XmlEstaAssinado FACBrNFe.Gravar(LCaminho + 'utf8', LXml, '', True); FACBrNFe.Gravar(LCaminho, LXml, '', False); end; Veja que não utilizei o IsUTF8, passei TRUE e FALSE para ter os 2 xmls

Testado novamente, apagada pasta do ACBr, baixada novamente, excluido bpls, dcus, marcado o apagar arquivos antigos... problema persiste. Concordo que deve ser algo no ambiente, mesmo testando em outros 2 computadores aqui o problema continua (temos o mesmo ambiente (versão do windows, delphi, componentes de terceiros...) ), por isso acredito que ocorra aqui o mesmo problema nos demais computadores

Testado hoje em outros 2 computadores, problema persiste.

Trocando as DLLs gravou, emitiu, autorizou e imprimiu, porem voltou o problema de gravar com a acentuação incorreta

Ola! Com esta pasta gerou e imprimiu corretamente, porem em um gerador de relatório desconhecido, aqui utilizamos FastReport. Não citei o gerador de relatórios antes pois o erro acontece no momento de carregar o xml no componente, antes da impressão.

enviados, tanto do app exemplo do acbr como os meus

Alguns posts acima postei a rotina de gravação. utilizo ela por algumas questões referentes ao caminho, unica manipulação é a mesma que o acbr faz internamente LIsUTF8 := LXML.ToLower.Contains('<signature'); //ACBrDFeUtil.XmlEstaAssinado FACBrNFe.Gravar(LCaminho, LXml, '', LIsUTF8); o LIsUTF8 que é utilizado de parâmetro para o Gravar do próprio ACBr. Mas essa questão cai por terra pois utilizando o programa de exemplo acontece o mesmo erro que acontece no meu executável.

Substituindo as DLLs Gerando pelo programa exemplo (com as DLLs da pasta do acbr, as que forneceu acontece o mesmo erro acima), autoriza a CCe com acentuação, grava com a acentuação mas na hora de imprimir acontece o mesmo problema"'Input is not proper UTF-8, indicate encoding ! Bytes: 0xE7 0xE3 0x6F 0x20"

Ola! Salvou corretamente mas na hora de carregar o XML para impressão:

Ola! - Delphi 11.3 - Xml Gerado pelo componente, pego a string e salvo usando o próprio acbr: procedure TNFeBase.SalvarXML; var LCaminho: string; LXML: string; LIsUTF8: Boolean; begin LCaminho := GetCaminhoXMLPDF(False); if FACBrNFe.EventoNFe.Evento.Count > 0 then LXML := String(FACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.XML) else if (not FACBrNFe.WebServices.Inutilizacao.XML_ProcInutNFe.IsEmpty) then LXML := FACBrNFe.WebServices.Inutilizacao.XML_ProcInutNFe else LXML := FACBrNFe.NotasFiscais.Items[0].XML; if LXML.IsEmpty then Exit; LIsUTF8 := LXML.ToLower.Contains('<signature'); //ACBrDFeUtil.XmlEstaAssinado FACBrNFe.Gravar(LCaminho, LXml, '', LIsUTF8); end; - Não possuo modificações locais no fonte - A codificação do fonte é ANSI

Tem uma thread antiga sobre o assunto, mas não tem resposta de solução:

Ao fundo o seu arquivo (anexo no seu comentário, na frente o arquivo gerado aqui Ambos tem a mesma codificação mas a acentuação fica com problemas. A impressão (que carrega o xml do evento) tambem fica com problemas

Atualizado para a revision 35117, respeitou o parâmetro mas no XML está indo com a acentuação toda errada: Print ANTES e DEPOIS do NativeStringToUTF8 (ACBrNFeWebServices) Ao enviar

Bom dia! Veja que ali está marcando para retirar os acentos, sobrescrevendo a configuração. Depois dependendo do evento seta FALSE, mais uma vez ignorando a configuração. Se os 2 eventos em questão não aceitam ok, mas qual o sentido de setar para retirar os acentos ignorando a configuração?

No ponto indicado está ok: step into até aqui, onde é o momento que é alterado para FALSE (observe a watch list)

Tem outro problema nesta questão das opções da CCe. FACBrNFe.Configuracoes.Geral.RetirarAcentos := False; No momento de gerar a CCe:

Exato, o sefaz rejeita se enviar com quebra de linha.

Ola! xCondUso := 'Teste do envio de carta de correcao com'+sLineBreak+'quebra'+sLineBreak+'de'+sLineBreak+'linha'; com o parâmetro de quebra de linha: FACBrNFe1.Configuracoes.WebServices.QuebradeLinha := sLineBreak; Desta maneira não funciona, se deixo padrão a quebra de linha com | ou com ; funciona

Conforme a postagem acima, de minha parte, considero que o problema está solucionado

Algumas considerações: 1 - Se seto a quebra de linha como \r\n ou sLineBreak ao enviar para o sefaz rejeita a CCe 2 - Se faço um replace no xCorrecao para trocar a quebra de linha por ; autoriza, porem a impressão sai tudo na mesma linha 3 - Se não altero a quebra de linha, no XML envia | no lugar da quebra de linha e na impressão ocorre tudo corretamente

Sem sucesso. Instalou corretamente. Setei a quebra de linha com sLineBreak (\r\n) Ao enviar o evento rejeita por causa da quebra de linha no xCorrecao, se faço a substituição do sLineBreak por ';' (replace na string mesmo, mantendo a configuração da quebra de linha no componente) autoriza a CCe porem na impressão não quebra a linha.

Marquei para remover antigos antes de instalar, erro persiste.

Boa Tarde! Será que faltou fazer o commit de alguma coisa? Cleaning ok Compiling package C:\componentes\ACBr\Pacotes\Delphi\ACBrDFe\ACBrNFe\ACBr_NFe.dpk "C:\Program Files (x86)\Embarcadero\Studio\22.0\bin\dcc32.exe" "C:\componentes\ACBr\Pacotes\Delphi\ACBrDFe\ACBrNFe\ACBr_NFe.dpk" Embarcadero Delphi for Win32 compiler version 35.0 Copyright (c) 1983,2022 Embarcadero Technologies, Inc. C:\componentes\ACBr\Fontes\ACBrDFe\ACBrNFe\ACBrNFeNotasFiscais.pas(3830) Error: E2003 Undeclared identifier: 'QuebraLinha' C:\componentes\ACBr\Fontes\ACBrDFe\ACBrNFe\ACBrNFeWebServices.pas(2498) Fatal: F2063 Could not compile used unit 'ACBrNFeNotasFiscais.pas' Compilation failure Erro ao compilar o pacote "ACBr_NFe.dpk". Abortando... Ocorreram erros na compilação dos pacotes.