Importação de DI

[guimamonteiro]

Boa tarde a todos ... estou começando um projeto onde preciso importar o XML de um DI ... vi alguns tópicos falando disso na ACBr mas não encontrei nos fontes da ACBr, alguém pode me dar uma luz por favor, como iniciar ...

Desde já, muito obrigado

[Renato Rubinho]

Bom dia,

Segue tópico instruindo como utilizar.

 

 

[guimamonteiro]

Muitíssimo obrigado pela ajuda meu caro ... mas pelo q vi, não exemplo inteiro, como NFe ... certo ???

É um caminho apenas, é isso ??

[Diego Foliene]

1 hora atrás, guimamonteiro disse:

Muitíssimo obrigado pela ajuda meu caro ... mas pelo q vi, não exemplo inteiro, como NFe ... certo ???

É um caminho apenas, é isso ??

Bom dia!
Desculpe, mas não entendi sua pergunta.
O ACBrDI pode ser usado para ler as informações do XML de uma DI.
O XML de uma NFe com informações de DI é outra coisa e deve ser usado o ACBrNFe para isso.

[Renato Rubinho]

Complementando, o exemplo do tópico mostra como ler o XML e alimentar o componente, não existe um programa de exemplo, pois não existem métodos ou algo mais complexo como a NFe.

O componente populado terá as informações do xml para o uso.

Veja os fontes para ficar mais claro.

../trunk2/Fontes/ACBrDFe/ACBrDI/

[Diego Foliene]

3 minutos atrás, Renato Rubinho disse:

Complementando, o exemplo do tópico mostra como ler o XML e alimentar o componente, não existe um programa de exemplo, pois não existem métodos ou algo mais complexo como a NFe.

O componente populado terá as informações do xml para o uso.

Veja os fontes para ficar mais claro.

../trunk2/Fontes/ACBrDFe/ACBrDI/

Na verdade até tem um programa exemplo, mas basicamente ele faz o mesmo que já está explicado no artigo e nos fontes.

[guimamonteiro]

Primeiramente muito obrigado pela ajuda amigos, mas me desculpe a ignorância ...

a linha  retorna sempre true ... 

  if not DecImportacao.LerXML('D:\Projetos\Delphi\Nim\Anexos\2200271114.xml') then
      exit;

e essa linha DecImportacao.DI.numeroDI retorna vazio .... parece q a função LerXML não esta funcionando, pq mesmo pondo nome de arquivo errado, da o mesmo resultado ...

Brigaduuu

 

 

[guimamonteiro]

  DecImportacao := TDeclaracaoImportacao.Create;
  try
    if not DecImportacao.LerXML('D:\Projetos\Delphi\Nim\Anexos\2124962875.xml') then
      exit;
    with DecImportacao.DI do
    begin
      ShowMessage( numeroDI );
    end;
  finally
    DecImportacao.Free;
  end;
 

tem algo errado aqui ???

[Diego Foliene]

11 minutos atrás, guimamonteiro disse:

  DecImportacao := TDeclaracaoImportacao.Create;
  try
    if not DecImportacao.LerXML('D:\Projetos\Delphi\Nim\Anexos\2124962875.xml') then
      exit;
    with DecImportacao.DI do
    begin
      ShowMessage( numeroDI );
    end;
  finally
    DecImportacao.Free;
  end;
 

tem algo errado aqui ???

A LerXML da TDeclaracaoImportacao lê uma String com o conteúdo do XML.
Se você quiser ler o arquivo passando o caminho, precisa usar o TDeclaracoesImportacao.LoadFromFile
Para mais detalhes, por favor, leia o artigo já indicado e confira o programa exemplo e os fontes disponíveis em

• ..\ACBr\Exemplos\ACBrDFe\ACBrDI
• ..\ACBr\Fontes\ACBrDFe\ACBrDI