Alteração ACBrHTMLtoXML.pas

[nazarenoneto]

Pessoal, fiz a seguinte alteração na função GerarXML:

 NFe.infNFe.ID := OnlyNumber(LerCampo(Grupo,'Chave de acesso'));

 NFe.Ide.nNF   := StrToIntDef(OnlyNumber(LerCampo(Grupo,'Número NF-e')),0);

 NFe.procNFe.chNFe:= OnlyNumber(LerCampo(Grupo,'Chave de acesso'));


 { Incluido campo que recebe qual a Versão do XML que o arquivo está. }

 Versao        := LerCampo(Grupo,'Versão');

 if RetornarCodigoNumerico(NFe.infNFe.ID,NFe.infNFe.Versao) = 0 then

   NFe.Ide.cNF   := -2

 else

   NFe.Ide.cNF   := RetornarCodigoNumerico(NFe.infNFe.ID,NFe.infNFe.Versao);

Isso pois tem algumas empresas que estão gerando a nota cNF igual a "0" (zero).

Para poder completar essas alterações eu sugeri essa alteração aqui viewtopic.php?f=6&t=3673

Segue em anexo a unit completa.

ACBrHTMLtoXML.pas

[Paulo C. L. Vicente]

Bom dia

Proponho uma pequena alteração, para converter a variável CaminhoXML em parâmetro

function GerarXML(Arquivo : AnsiString; CaminhoXML : AnsiString = '') : String;

e ao final da função alterar

if CaminhoXML = '' then

CaminhoXML := PathWithDelim(ExtractFilePath(Application.ExeName))+copy(NFe.infNFe.ID, (length(NFe.infNFe.ID)-44)+1, 44)+'-nfe.xml';

Com isso é possível definir antes da chamada da função o caminho+nome do arquivo XML criado;

Após alguns testes, alterei a linha

if LerCampo(Grupo,'|&|IMPOSTO SOBRE PRODUTOS INDUSTRIALIZADOS|&|')<>'' then

para

if LerCampo(Grupo,'|&|IMPOSTO SOBRE PRODUTOS INDUSTRIALIZADOS |&|')<>'' then

Na página obtida do SEFAZ tem um espaço a mais e isto estava impedindo a inclusão do IPI no XML

Obrigado

Paulo C. L. Vicente