Ir para conteúdo
  • Cadastre-se

MarcosRWeimer

Membros
  • Total de ítens

    409
  • Registro em

  • Última visita

  • Days Won

    1

MarcosRWeimer last won the day on 6 Novembro 2022

MarcosRWeimer had the most liked content!

5 Seguidores

Contact Methods

  • Website URL
    http://eudoparana.blogspot.com.br/

Últimos Visitantes

1.967 visualizações

MarcosRWeimer's Achievements

  1. Tentei com o PR, também não consegui autorizar (homologação), ai tentei com o RS e consegui autorizar sem problema algum. Então o PR está em desacordo com a NT na versão 1.01 que diz que homologação a partir de 04/11, vai ver estão apostando em uma nova prorrogação.
  2. Anexo. Está na Revision 35338 ACBrNFe.rar
  3. 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:
  4. Alterado e o resultado foi o mesmo
  5. 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
  6. 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
  7. 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
  8. Testado hoje em outros 2 computadores, problema persiste.
  9. Trocando as DLLs gravou, emitiu, autorizou e imprimiu, porem voltou o problema de gravar com a acentuação incorreta
  10. 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.
  11. enviados, tanto do app exemplo do acbr como os meus
  12. 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.
  13. 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"
  14. Ola! Salvou corretamente mas na hora de carregar o XML para impressão:
  15. 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
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...