MarcosRWeimer
-
Total de ítens
408 -
Registro em
-
Última visita
-
Days Won
1
5 Seguidores
Últimos Visitantes
1.866 visualizações
MarcosRWeimer's Achievements
-
Anexo. Está na Revision 35338 ACBrNFe.rar
- 62 replies
-
- 1
-
-
- quebra de linha
- cce
- (e 2 mais)
-
Ola! Texto antes de converter <xCorrecao>teste com acentuação e quebra|de linha.</xCorrecao> Texto depois de converter <xCorrecao>teste com acentuação e quebra|de linha.</xCorrecao> Está rodando em ANSI Impressão (fast report) desta CCe dos prints acima, OK Notepad++ UTF8 Notepad++ ANSI Alterando o método de Gravar. XML Antes de converter <xCorrecao>teste com acentuação e quebra|de linha.</xCorrecao> XML depois de converter (LXMLAnsi) <xCorrecao>teste com acentuação e quebra|de linha.</xCorrecao> XML Salvo (depois de converter) UTF8 e ANSI via Notepad++ Ao carregar o XML para impressão:
-
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
- 62 replies
-
- 1
-
-
- quebra de linha
- cce
- (e 2 mais)
-
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"
- 62 replies
-
- 1
-
-
- quebra de linha
- cce
- (e 2 mais)
-
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
- 62 replies
-
- 1
-
-
- quebra de linha
- cce
- (e 2 mais)
-
Tem uma thread antiga sobre o assunto, mas não tem resposta de solução:
