Djalma Grivol

Bom dia! Descobri o problema. Estava usando TEncoding.UTF8.GetString(BytesOf(Xml)) para converter o Xml e gravar no BD. Tirei a conversão, assim gravo da mesma forma que o arquivo original. O componente estava dando problema pois provavelmente usa o TEncoding.UTF8.GetString.

Boa tarde! Estou enfrentando um problema de uma empresa que manda o XML com acentuação. Quando baixo o XML e carrego no componente ACBrNFe funciona legal. Quando salvo o XML no banco Firebird e depois tento carregar no componente gera o erro acima. Segue os 2 arquivos. Ok.Xml Problema.xml

Show! Deu certo. Me desculpe, Obrigado!

A ultima atualização que fiz foi 11/2023. eNFeConfig.ini ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.EventoNFe.idLote := ID; ACBrNFe1.EventoNFe.Evento.New.InfEvento.cOrgao := 91; ACBrNFe1.EventoNFe.Evento.New.InfEvento.CNPJ := Cnpj; ACBrNFe1.EventoNFe.Evento.New.InfEvento.chNFe := ChaveNFe; ACBrNFe1.EventoNFe.Evento.New.InfEvento.dhEvento := Now; if CbTipo.ItemIndex = 0 then ACBrNFe1.EventoNFe.Evento.New.InfEvento.tpEvento := teManifDestConfirmacao; if CbTipo.ItemIndex = 1 then ACBrNFe1.EventoNFe.Evento.New.InfEvento.tpEvento := teManifDestCiencia; if CbTipo.ItemIndex = 2 then ACBrNFe1.EventoNFe.Evento.New.InfEvento.tpEvento := teManifDestDesconhecimento; if CbTipo.ItemIndex = 3 then begin ACBrNFe1.EventoNFe.Evento.New.InfEvento.tpEvento := teManifDestOperNaoRealizada; ACBrNFe1.EventoNFe.Evento.New.InfEvento.detEvento.xJust := eJust.Text; end; ACBrNFe1.EnviarEvento(ID); fSta := ACBrNFe1.WebServices.EnvEvento.RetWS;

Boa tarde Lucas! Tudo bem? Estou com o mesmo problema. Você conseguiu resolver? Att Djalma Grivol

Obrigado!

Bom dia! Gostaria de saber como devo proceder a instalação no Delphi Alexandria 11.3 Community Edition. Pois ele não permite compilação em linha de comando. Obrigado. Djalma Grivol