MarcosRWeimer
-
Total de ítens
408 -
Registro em
-
Última visita
-
Days Won
1
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que MarcosRWeimer postou
-
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:
-
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.
- 62 replies
-
- 1
-
-
- quebra de linha
- cce
- (e 2 mais)
-
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.
