Comandos Para Gerar E Enviar A Nfe

[alexandre.abaco]

Tarde galera!!

 

gostaria de saber se as ORDENS das rotinas esta corretas para gerar, enviar e imprimir o danfe.

 

//Verifica o status do servico
  ACBrNFe1.WebServices.StatusServico.Executar;

  //PEGANDO OS DADOS DAS TABELAS E JOGANDO NO COMPONENTE
  GeraNota;

  // GERAR O ARQUIVO XML
  try
    ACBrNFe1.NotasFiscais.GerarNFe;
  except
    NomeArq := ACBrNFe1.NotasFiscais.Items[0].NomeArq;
    ACBrNFe1.NotasFiscais.Items[0].SaveToFile(NomeArq);
  end;

  // ASSINAR
  ACBrNFe1.NotasFiscais.Assinar;

  // VALIDAR O ARQUIVO
  try
    ACBrNFe1.NotasFiscais.Valida;
  except
    if ACBrNFe1.NotasFiscais.Items[0].Alertas <> '' then
      ShowMessage(ACBrNFe1.NotasFiscais.Items[0].Alertas);

 

    // se der erro, salvo o conteudo em um arquivo xml
    NomeArq := ACBrNFe1.NotasFiscais.Items[0].NomeArq;
    ACBrNFe1.NotasFiscais.Items[0].SaveToFile(NomeArq);

    ABORT;
  end;

  sChave:= Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44);

  // ENVIAR
  try
    ACBrNFe1.Enviar(StrToint(edtNf.Text),True);
  except
    NomeArq := ACBrNFe1.NotasFiscais.Items[0].NomeArq;
    ACBrNFe1.NotasFiscais.Items[0].SaveToFile(NomeArq);
  end;

  if IntToStr(ACBrNFe1.WebServices.Retorno.cStat) = '100' then
  begin

    //salvar o arquivo -PRocNFE.xml
    NomeArq := ACBrNFe1.NotasFiscais.Items[0].NomeArq;
    if pos(UpperCase('-nfe.xml'),UpperCase(NomeArq)) > 0 then
       NomeArq := StringReplace(NomeArq,'-nfe.xml','-procNfe.xml',[rfIgnoreCase]);
    ACBrNFe1.NotasFiscais.Items[0].SaveToFile(NomeArq);

    ACBrNFe1.NotasFiscais.ImprimirPDF;
  end
  else
    Showmessage('Erro na NFe. Status: '+IntToStr(ACBrNFe1.WebServices.Retorno.cStat)+' Motivo: '+(ACBrNFe1.WebServices.Retorno.xMotivo));
 

 

no aguardo.

 

att

Alexandre

[Juliomar Marchetti]

Boa noite!

primeiro quando postar trechos de código anexe como arquivo ao post!

 

para sua pergunta convido a olhar o exemplo da NFe que existe na pasta de Exemplos do svn!

 

se observar o botão de emitir já está na ordem que deve seguir!

 

ante mão já lhe digo que consultar status não serve para nada, por que são métodos do webservice distintos e de nada adianta!