Danfe

[Juliomar Marchetti]

Em anexo um danfe gerado com o ACBrNFeMonitor

veja a descrição do produto como saiu, alguém sabe me informar o motivo?

[designerba]

boa noite

esse erro na descriçao do produto acontece quando esta acentuado

grato designerba

[Juliomar Marchetti]

Sim isso mesmo, com certeza é acentuação

mas já vi vários casos do danfe em que a descrição saia acentuada

alguém mais tem sugestão ou passou por isso?

[igor]

esses danfes que vc viu era do acbr tbm???

[Juliomar Marchetti]

sim

e que eu saiba eu posso colocar acentuação nos meus itens vendidos bem como razão social da empresa etc.

[André Ferreira de Moraes]

Poste o XML

[Juliomar Marchetti]

Segue o xml

[Kiko Fernandes]

Geralmente no início do xml tem esta instrução:

<?xml version="1.0" encoding="UTF-8" ?>

No teu arquivo está assim:

<?xml version="1.0" ?>

Falta a informação do UTF-8 que trata dos caracteres acentuados.

Tem que ver o porque está faltando esta informação.

[Juliomar Marchetti]

Sim enviei sem

mas ele possui a tag certinha

[André Ferreira de Moraes]

Este XML não é validado no site http://www.sefaz.rs.gov.br/nfe/nfe-val.aspx então não é uma NFe válida.

[Juliomar Marchetti]

Sim não é válido pois não é assinado

mas o importante seria a acentuação no pdf que não está saindo corretamente

[Juliomar Marchetti]

Olha só comecei a efetuar testes e mexer nos fontes e cheguei no seguinte codigo

na linha 185 no arquivo pcnleitor.pas

    tcStr     : result := Utf8ToAnsi(ReverterFiltroTextoXML(ConteudoTag));

e no caso o pdf ficou correto

[Juliomar Marchetti]

André até enviei a nota pra ti por skype

claro ela não é válida mas a leitura do xml deveria ser feito corretamente

tanto que fiz uma aplicação de teste para ver se era eu que estava caduco ou não

fiz um projeto e coloquei o codigo abaixo, onde o primeiro é usado pelo acbr para carregar

o xml para tratar ele e o segundo eu fiz, no caso do primeiro não mostra corretamente os ~^´

já no segundo ele mostra corretamente o arquivo no showmessage.

procedure TForm1.btn1Click(Sender: TObject);

var

  x: TStringList;

begin

  dlgOpen1.Execute;

  x := TStringList.Create;

  x.LoadFromFile(dlgOpen1.FileName);

  ShowMessage(x.Text);

  x.Free;

end;


procedure TForm1.btn2Click(Sender: TObject);

var

  x: TStreamReader;

begin

  dlgOpen1.Execute;

  x := TStreamReader.Create(dlgOpen1.FileName, TEncoding.UTF8);

  ShowMessage(x.ReadToEnd);

  x.Free;

end;

[Juliomar Marchetti]

Bom dia

troquei uma idéia com o André Ferreira e ele me pediu se havia testado gerando através do emissor do governo

e ocorreu o mesmo problema, peguei o xml criei um projeto e gerei o danfe também em anexo.

o que propus acima é tratar a forma que carrega o arquivo do xml, pois se utilizar um TStringList

e você olhar o LoadFromFile,

procedure TStrings.LoadFromFile(const FileName: string);

var

  Stream: TStream;

begin

  Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);

  try

    LoadFromStream(Stream);

  finally

    Stream.Free;

  end;

end;

ele não trata o encoding do arquivo

[Bochnia]

Olá!

Como ficou esse problema da acentuação, pois estou tendo esse tipo de problema quando recebo XML de fornecedores que utilizam acentuação e o componente não faz a leitura correta do XML.

Como proceder?

Obrigado.