Erro ao carregar XML e enviar NFC-e

[valdomirojr]

Bom dia,

Estou com um problema em relação a NFC-e e caso alguém tenha passado por algo parecido agradeço se puder me ajudar.

OBS: Se gerar a nota e enviar logo em seguida funciona tudo perfeitamente.

Estou testando o modo Offline:

     Ide.tpEmis    := teOffLine;

Após preencher as tags executo o trecho abaixo:

     ACBrNFe1.NotasFiscais.GerarNFe;  // gera o xml corretamente
     ACBrNFe1.NotasFiscais.Assinar;  // assina utilizando o certificado
     ACBrNFe1.NotasFiscais.Validar;   // valida o xml perante os schemas
     ACBrNFe1.NotasFiscais.Imprimir;  // imprime via consumidor

E fica salvo o XML para ser enviado posteriormente, mas ao executar o trecho abaixo para enviar o XML me ocorre um erro.

  OpenDialog1.Title := 'Selecione a NFE';
  OpenDialog1.DefaultExt := '*-nfe.XML';
  OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar;
  if OpenDialog1.Execute then
  begin
    ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);
    ACBrNFe1.WebServices.Envia(Alote);

 

Alguém teria uma ideia do que posso estar fazendo de errado?

Desde já agradeço a atenção.

[Juliomar Marchetti]

Bom dia!

acho que seu problema está ligado ao campo onde deve ser informado o código ibge do estado e o mesmo está passando 00

[valdomirojr]

Bom dia Juliomar,

Obrigado pela atenção.

Acredito que não seja isso.  Até porque se eu gerar e enviar na mesma hora funciona 100%

Problema e só gerar e depois carregar o xml e enviar. Então apresenta o erro.  

Estou enviando o xml para você ver.

A sintaxe do carregar e enviar esta correta como fiz?

13150718853984000119650010000001469000001460-nfe.xml

[Juliomar Marchetti]

no loadfromfile verifique que tem uma segunda opção que é gerar o xml novamente

passe false

[valdomirojr]

Boa tarde Juliomar,

Fiz o teste usando o false mas também apresenta o mesmo erro.

O código do botão de envio esta assim:

  OpenDialog1.Title := 'Selecione a NFE';
  OpenDialog1.DefaultExt := '*-nfe.XML';
  OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar;
  if OpenDialog1.Execute then
  begin
    ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName,false);  // false para nao gerar novamente o xml
    if rgTipoAmb.ItemIndex = 0 then
       ACBrNFe1.NotasFiscais.Add.NFe.Ide.tpAmb     := taProducao
    else
       ACBrNFe1.NotasFiscais.Add.NFe.Ide.tpAmb     := taHomologacao;

    ACBrNFe1.WebServices.Envia(1);

 

O xml que estou tentando enviar foi gerado com as seguintes condições:

  ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe;
  ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310;

    Ide.modelo    := 65;
    Ide.tpImp     := tiNFCe;
    Ide.indFinal  := cfConsumidorFinal;
    Ide.indPres   := pcPresencial;
    Ide.serie     := 1;
    Ide.dEmi      := now;
    Ide.dSaiEnt   := now;
    Ide.hSaiEnt   := now;
    Ide.tpEmis    := teOffLine;

Ainda estou dentro do prazo das 24hs da emissão.

Seria alguma tag faltando ou a mais no xml? 

Se eu gerar e enviar diretamente funciona 100%

 

13150718853984000119650010000001489000001480-nfe.xml

[valdomirojr]

Boa tarde Juliomar,

Funcionou!

Removi o componente e atualizei toda pasta novamente e refiz os testes. 

Muito obrigado por suas dicas.

att!

 

 

[valdomirojr]

Juliomar,

Somente mais uma duvida.   Com os xmls já assinados, validados e gerados (offline).  Seria possível carregar vários XMLs em um único lote e enviar de uma vez?

Ou teria que ir carregando cada XML no ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName,false) e logo apos o comando ACBrNFe1.WebServices.Envia(Alote)?

grato pela atenção.

 

[Juliomar Marchetti]

Boa tarde

sim acho que é possível o que está querendo!

[valdomirojr]

Desculpe mais uma vez perguntar.....

Teria algum exemplo ou link de outro post que foi discutido esse mesmo assunto para poder entender como funciona?

[Italo Giurizzato Junior]

Bom dia Valdomiro,

Se você executar um loadFromFile a traz do outro as notas vão sendo adicionadas, criando assim um lote.

Depois de carretar todas as notas desejadas basta enviar.

[valdomirojr]

Bom dia Italo,

Muito obrigado.  Já consegui resolver.

att