Sugestão na Leitura do arquivo XML

[tbalbinos]

Bom dia, recebi um XML de um fornecedor e ao executar um AcbrNFe1.notasfiscais.loadfromFile(......) retornou o erro "Não encontrei inicio do URI: Aspas inicial".

Ao visualizar o xml no navegador abriu normalmente, porem editar o mesmo com o bloco de notas, percebi que as aspas no xml estava sendo a simples:

<?xml version='1.0' encoding='utf-8'?> o certo é <?xml version="1.0" encoding="utf-8"?>

Para não ter que ficar editando o XML toda vez que isso acontecer eu alterei no meu fonte do ACbr mais precisamente na unit pcnNFeR a função e deu certo. Gostaria de sugerir essa mudança no fonte principal do acbr assim acho que ficaria disponível a todos e também eu não teria que mexer toda vez que eu atualizar meu fonte.

o trecho que alterei esta destacado abaixo, e ai o que acham ? ahh o XML que veio com o problema esta anexo.

function TNFeR.LerXml: boolean;

var

ok: boolean;

i, j, k, z, nItem: integer;

Arquivo, Itens, ItensTemp, VersaoInfNFe, Temp_VersaoInfNFe, NumItem: AnsiString;

Function VerificaParSt(const t: TpcnCSTIcms): TpcnCSTIcms;

// Verifica se existe Partilha ou St

begin

Result := t;

case t of

// ICMSPart (N10a)

cst10 : if ( nfe.Det.Imposto.ICMS.UFST <> '') then Result := cstPart10;

cst90 : if ( nfe.Det.Imposto.ICMS.UFST <> '') then Result := cstPart90;

//ICMSST (N10b)- Repasse de ICMS

cst41 : if ( ( nfe.Det.Imposto.ICMS.vBCSTRet > 0) or

( nfe.Det.Imposto.ICMS.vICMSSTRet > 0) or

( nfe.Det.Imposto.ICMS.vBCSTDest > 0) or

( nfe.Det.Imposto.ICMS.vICMSSTDest > 0) )

then Result := cstRep41;

end;

end;

begin

if Pos(Chr(39), Leitor.Arquivo) <> 0 then

Leitor.Arquivo := StringReplace(Leitor.Arquivo, Chr(39), '"', [rfReplaceAll]);

I := 0;

I := RetornarPosEx('Id=', Leitor.Arquivo, I + 6);

if I = 0 then

raise Exception.Create('Não encontrei inicio do URI: Id=');

I := RetornarPosEx('"', Leitor.Arquivo, I + 2);

if I = 0 then

raise Exception.Create('Não encontrei inicio do URI: aspas inicial');

J := RetornarPosEx('"', Leitor.Arquivo, I + 1);

if J = 0 then

raise Exception.Create('Não encontrei inicio do URI: aspas final');

XML_PROBLEMA.xml

[tbalbinos]

Ninguem achou viável ? acho que essa adaptação seria interessante.

[Juliomar Marchetti]

Acho mais provável que ainda não sobrou tempo pra ser análisado

[hleorj]

Peça a ajuda de outros como mesmo problema.. com a aprovação deles também irá para o SVN;

Ps: Mudanças a caminho , Lutem pelo componente.

[André Ferreira de Moraes]

O manual orienta os atributos estarem entre ", irei verificar se sua alteração não tem nenhum efeito colateral e após os testes adiciono ao SVN.

[Mark Apollo]

Tenho vários clientes que têm aspas simples (') no nome, no xml ele fica como:

ART'PAPEIS LTDA - ME

Se executar este código, será substituido por aspas duplas, acredito que dará problema, fazendo com que no danfe saia

ART"PAPEIS LTDA - ME

Acredito que o correto seria a emissão correta com aspas duplas

[iran]

Estou com o mesmo problema aqui ao carregar o XML de um fornecedor...

 

Aguma solução?

[André Ferreira de Moraes]

Vc está com seus fontes atualizados?