Rejeicao Duplicidade - não retorna cStat

[emarcolongo]

Bom dia.

Estou enviando uma nota fiscal porem a mesma ja esta na receita então tenho ciencia que ira retornar duplicidade, porém anteriormente eu conseguia validar o cstat mas hoje retorna 0. Preciso pegar de outra forma ?

 

      if (fprincipal.ACBrNFe1.NotasFiscais.Items[0].cStat =  204) then

      begin
        sMsg  := IntToStr(fprincipal.ACBrNFe1.NotasFiscais.Items[0].cStat)+#13#10+sFile+#13#10+
                          fprincipal.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.xMotivo+#13#10+
                          fprincipal.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.nProt;
      end;

Grato

[Juliomar Marchetti]

está pegando o cStat correto?

[emarcolongo]

Obrigado, retornou o que eu precisava

[emarcolongo]

Boa tarde, Juliomar

Eu informei que retornou o que eu precisava, porém ainda preciso do nr. do protocolo e

WebServices.Enviar.Protocolo

esta retornando em branco, como posso conseguir ?

[Juliomar Marchetti]

dai é lá onde tu já tinha

fprincipal.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.nProt;

[emarcolongo]

mas ele esta em branco.

minha rotina esta assim:

  fprincipal.ACBrNFe1.NotasFiscais.LoadFromFile(ASParams.Arquivo);
  fprincipal.ACBrNFe1.NotasFiscais.GerarNFe;

  try
    fprincipal.ACBrNFe1.Enviar(1,false,true);
    if (fprincipal.ACBrNFe1.NotasFiscais.Items[0].Confirmada = true) then
    begin
      fprincipal.ACBrNFe1.DANFE  := fprincipal.ACBrDanfe1;
      fprincipal.ACBrDanfe1.Logo := ASParams.Logotipo;
      fprincipal.ACBrDanfe1.PathPDF := ASParams.DirPDF;
      fprincipal.ACBrNFe1.NotasFiscais.Items[0].ImprimirPDF;
    end
    else ufuncoes.gravar_log(IntToStr(fprincipal.ACBrNFe1.NotasFiscais.Items[0].cStat)+#13#10+sFile+#13#10+'Nota não Confirmada',ASParams.Usuario);
  except on E: Exception do
    begin
      if ((erro = false) and (fprincipal.ACBrNFe1.WebServices.Enviar.cStat <> 204)) then ufuncoes.gravar_log('999'+#13#10+e.Message+#13#10+IntToStr(fprincipal.ACBrNFe1.WebServices.Enviar.cStat),ASParams.Usuario);
      if ((erro = false) and (fprincipal.ACBrNFe1.WebServices.Enviar.cStat =  204)) then
      begin
        sMsg  := IntToStr(fprincipal.ACBrNFe1.WebServices.Enviar.cStat)+#13#10+sFile+#13#10+
                          fprincipal.ACBrNFe1.WebServices.Enviar.xMotivo+#13#10+
                          fprincipal.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.nProt;
        ufuncoes.gravar_log(sMsg,ASParams.Usuario);
      end;
      erro := true;
    end;
  end;

anteriormente esse protocolo aparecia

[Juliomar Marchetti]

sim modo assincrono

eu não lembro de usar try except

pega o exemplo do svn e reproduz com ele e explica aqui como fazer

vai parecer obvio mas ao fazer isso pode ser que note algo no seu código

[emarcolongo]

acredito que se eu explicar o que preciso pode facilitar.

eu carrego um xml externo no componente e tento manda-lo para a receita

nesse caso vai retornar 204 porque a nota já esta lá mesmo

qdo retornar esse 204 eu preciso saber qual o numero do protocolo que a receita registrou

 

de que forma eu poderia ter esse retorno ?

antes de alterar para a forma Sincrona em 01/09 eu conseguia pelo codigo abaixo:

  if (fprincipal.ACBrNFe1.NotasFiscais.Items[0].cStat =  204) then

      begin
        sMsg  := IntToStr(fprincipal.ACBrNFe1.NotasFiscais.Items[0].cStat)+#13#10+sFile+#13#10+
                          fprincipal.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.xMotivo+#13#10+
                          fprincipal.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.nProt;
      end;

 

Grato

[Juliomar Marchetti]

então. não precisa todo esse malabarismo

só consultar pela chave e pegar ele

 

  ACBrNFe1.WebServices.Consulta.Protocolo;

[emarcolongo]

Utilizei o que disse mesmo para não dar tanta volta.

Muito obrigado,

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.