Emissão Offline - Erro Na Chave De Acesso - Campo Id

[robsoncoutinho]

Boa tarde pessoal,

 

Estou emitindo uma nota em contingência offline e posteriormente quanto tento enviar para sefaz, eu recebo o erro

Erro na Chave de Acesso - Campo ID nao corresponde a concatenacao dos campos correspondentes.

 

Estou fazendo dessa forma para gerar a nota offline.

 

dm.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.xJust  := 'Ausência de conexão com a internet.';
dm.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dhCont := now;
dm.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpEmis := teOffLine;

dm.ACBrNFe1.NotasFiscais.GerarNFe;
dm.ACBrNFe1.NotasFiscais.Assinar;
dm.ACBrNFe1.NotasFiscais.Valida;

dm.ACBrNFe1.NotasFiscais.Imprimir;
dm.ACBrNFeDANFEFR1.DescricaoViaEstabelec := 'Via do Estabelecimento';
dm.ACBrNFe1.NotasFiscais.Imprimir;

nfce := TNFCe.Create;
nfce.XML := dm.ACBrNFe1.NotasFiscais.Items[0].XML; //salvo xml para enviar posteriormente

 

Agora o código do envio de notas em contingência.

  dm.ACBrNFe1.NotasFiscais.Clear;
  dm.ACBrNFe1.NotasFiscais.LoadFromString(adsNFCe.FieldByName('XML').AsString);

  //dm.ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID  :=  '';
  dm.ACBrNFe1.NotasFiscais.GerarNFe;

  dm.ACBrNFe1.NotasFiscais.Assinar;
  dm.ACBrNFe1.NotasFiscais.Valida;

  try
    dm.ACBrNFe1.Enviar(1, True, False);
  except

  end;

  resposta := TStringBuilder.Create;
  resposta.AppendLine('Recibo: ' + dm.ACBrNFe1.WebServices.Retorno.Recibo);
  resposta.AppendLine('Versão: ' + dm.ACBrNFe1.WebServices.Retorno.versao);
  //resposta.Append('Ambiente: ' + dm.ACBrNFe1.WebServices.Enviar.TpAmb);
  resposta.AppendLine('Versão Aplicação: ' + dm.ACBrNFe1.WebServices.Retorno.verAplic);
  resposta.AppendLine('Status: ' + IntToStr(dm.ACBrNFe1.WebServices.Retorno.cStat));
  resposta.AppendLine('UF: ' + IntToStr(dm.ACBrNFe1.WebServices.Retorno.cUF));
  resposta.AppendLine('Motivo: ' + dm.ACBrNFe1.WebServices.Retorno.xMotivo);
  resposta.AppendLine('Cód. Mensagem: ' + dm.ACBrNFe1.WebServices.Retorno.xMsg);
  ShowMessage(resposta.ToString);

Nesse momento ele me retorna o erro. 

O que pode estar errado no processo? 

 

Muito obrigado à todos.

 

Edited June 8, 2015 by robsoncoutinho

[robsoncoutinho]

Pronto pessoal já resolvi o problema.

Por falta de atenção minha, eu estava assinando a nota duas vezes. Uma vez antes de setar os parâmetros de contingência offline e assinava depois de setar os parâmetros.

 

Corrigi o código e agora assino apenas depois de setar os parâmetros da contingência offline e tudo funciona normalmente.

 

Obrigado à todos.

[rogercon]

estou tentando emitir a nfce offline, porem nao está gerando o xml, alguem pode ajudar ?

[rogercon]

 

Boa tarde pessoal,

 

Estou emitindo uma nota em contingência offline e posteriormente quanto tento enviar para sefaz, eu recebo o erro

Erro na Chave de Acesso - Campo ID nao corresponde a concatenacao dos campos correspondentes.

 

Estou fazendo dessa forma para gerar a nota offline.

 

dm.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.xJust  := 'Ausência de conexão com a internet.';
dm.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dhCont := now;
dm.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpEmis := teOffLine;

dm.ACBrNFe1.NotasFiscais.GerarNFe;
dm.ACBrNFe1.NotasFiscais.Assinar;
dm.ACBrNFe1.NotasFiscais.Valida;

dm.ACBrNFe1.NotasFiscais.Imprimir;
dm.ACBrNFeDANFEFR1.DescricaoViaEstabelec := 'Via do Estabelecimento';
dm.ACBrNFe1.NotasFiscais.Imprimir;

nfce := TNFCe.Create;
nfce.XML := dm.ACBrNFe1.NotasFiscais.Items[0].XML; //salvo xml para enviar posteriormente

 

Agora o código do envio de notas em contingência.

  dm.ACBrNFe1.NotasFiscais.Clear;
  dm.ACBrNFe1.NotasFiscais.LoadFromString(adsNFCe.FieldByName('XML').AsString);

  //dm.ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID  :=  '';
  dm.ACBrNFe1.NotasFiscais.GerarNFe;

  dm.ACBrNFe1.NotasFiscais.Assinar;
  dm.ACBrNFe1.NotasFiscais.Valida;

  try
    dm.ACBrNFe1.Enviar(1, True, False);
  except

  end;

  resposta := TStringBuilder.Create;
  resposta.AppendLine('Recibo: ' + dm.ACBrNFe1.WebServices.Retorno.Recibo);
  resposta.AppendLine('Versão: ' + dm.ACBrNFe1.WebServices.Retorno.versao);
  //resposta.Append('Ambiente: ' + dm.ACBrNFe1.WebServices.Enviar.TpAmb);
  resposta.AppendLine('Versão Aplicação: ' + dm.ACBrNFe1.WebServices.Retorno.verAplic);
  resposta.AppendLine('Status: ' + IntToStr(dm.ACBrNFe1.WebServices.Retorno.cStat));
  resposta.AppendLine('UF: ' + IntToStr(dm.ACBrNFe1.WebServices.Retorno.cUF));
  resposta.AppendLine('Motivo: ' + dm.ACBrNFe1.WebServices.Retorno.xMotivo);
  resposta.AppendLine('Cód. Mensagem: ' + dm.ACBrNFe1.WebServices.Retorno.xMsg);
  ShowMessage(resposta.ToString);

Nesse momento ele me retorna o erro. 

O que pode estar errado no processo? 

 

Muito obrigado à todos.

 

 

como faço para gerar o xml offline ? 

[Italo Giurizzato Junior]

Roger,

 

Por favor não fique postando a sua duvida em vários tópicos, já lhe respondi no outro.

 

Vamos respeitar as regras do fórum.

[rogercon]

desculpe, antes de ler, acabei criando um novo tópico, segue ele abaixo, 

obs: tentei excluir o topico mas nao achei a opção, desculpe.

 

 

estou fazendo o seguinte procedimento para emitir um NFCE off-line

 

 

///acima disso ja configurei o componente, está marcado a opção GERAL.SALVAR=true

// ja defini o tipo para OFFLINE nos dois lugares que pede

//ja preenchi a justificativa e data

 

 

  acbrnfce.notasfiscais.GerarNFe;

  acbrnfce.NotasFiscais.assinar;

  acbrnfce.notasfiscais.valida;

 

 

após estes comandos, porque o xml nao é gerado ? 

 

 

DUVIDA ? ta faltando o comando para imprimir, mas eu nao imprimo assim pois recebo erro o qual ainda vou perguntar e pedir ajuda, mas enfim, o que falta para gerar o xml ? lembrando que se eu mudar para modo NORMAL dai gera o xml blzinha.