Erro Na Hora De Carregar O Conteúdo Do Xml No Memo...

[raosistemas]

ao executar esse procedimento na geracao da nfe

 

      MemoResp.Lines.LoadFromFile(ACBrNFe1.Configuracoes.Geral.PathSalvar+'\'+copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, (length(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID)-44)+1, 44)+'-NFe.xml');

 

Ocorre um erro de inteiro invalido ''... o que pode ser?

 

  try

    i := 0;

    if GerarDigito(i, copy(chave, 4, 43)) then (o erro ocorre aqui)

      result := i = StrToInt(chave[length(chave)]);

    if result then

      result := ValidarCodigoUF(StrToInt(copy(somenteNumeros(chave), 1, 2)));

[Italo Giurizzato Junior]

Boa tarde raosistemas,

 

Você esta atribuindo algo a propriedade ID?

 

Se sim, não atribua.

[raosistemas]

foi sim... antes dava como ID o numero da nota.

Abraço!

[Carlos Tre]

Se eu entendi bem o que acontece, a primeira coisa que eu faria é atribuir o valor de

ACBrNFe1.Configuracoes.Geral.PathSalvar+'\'+copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, (length(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID)-44)+1, 44)+'-NFe.xml'

a uma variável. Se a rotina GerarDigito funciona em alguns casos e em outros não, a simples exposição do valor problemático já mostra onde está o erro.

[Italo Giurizzato Junior]

Bom dia a todos,

 

O componente possui uma propriedade chamada ID se na rotina que alimentamos as propriedades com os dados pertinentes a venda, atribuirmos algo a ID, quando ocorrer a geração do XML será utilizado o conteudo de ID como sendo chave.

 

Por outro lado de não atribuirmos nada a ID o componente se encarrega de gerar a chave e atribuir-la a ID, ou seja:

 

  if trim(nfe.infNFe.ID) = '' then
    nfe.infNFe.ID := chave;

 

Onde chave é uma variavel que contem a chave gerada pelo componente.

 

Eu nunca atribui nada a propriedade ID, a minha aplicação roda a 3 anos e nunca tive esse problema.