Pegar valor cStat por Consulta NFeChave

[Pablo Ricardo]

No exemplo no demo temos:

  ACBrNFe1.NotasFiscais.Clear;
  ACBrNFe1.WebServices.Consulta.NFeChave := vChave;
  ACBrNFe1.WebServices.Consulta.Executar;

  MemoResp.Lines.Text := ACBrNFe1.WebServices.Consulta.RetWS;
  memoRespWS.Lines.Text := ACBrNFe1.WebServices.Consulta.RetornoWS;
  LoadXML(ACBrNFe1.WebServices.Consulta.RetornoWS, WBResposta);
  LoadConsulta201(ACBrNFe1.WebServices.Consulta.RetWS);

Devido ao problema de não conseguir capturar as "canceladas" (link) decidi voltar para o webservice antigo, porém, estou consumindo há alguns meses e o webservice novo se mostrou melhor.

Após cada consulta, quero verificar por chave de acesso pra pegar o cStat para dar update na minha tabela de destinadas. Como capturo isso? Não consigo achar a propriedade nesse retorno. Terei que ler entre as tags <> </>?

Detalhei a explicação para que caso alguém tenha uma ideia melhor, possa sugerir. Obrigado!

[Pablo Ricardo]

Alguém me ajuda com essa lógica

 

       if acbrnfMain.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i]
          .resNFe.chNFe <> '' then
        begin
          Application.ProcessMessages;

          acbrnfChave.NotasFiscais.Clear;
          acbrnfChave.WebServices.Consulta.NFeChave :=
            acbrnfMain.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i]
            .resNFe.chNFe;
          acbrnfChave.WebServices.Consulta.Executar;

          if acbrnfChave.WebServices.Consulta.procEventoNFe.Count > 0 then
          begin
            for l := 0 to acbrnfChave.WebServices.Consulta.procEventoNFe.Count - 1 do
            begin
              for j := 0 to acbrnfChave.WebServices.Consulta.procEventoNFe.Items[l].RetEventoNFe.retEvento.Count - 1 do
              begin
                case acbrnfChave.WebServices.Consulta.procEventoNFe.Items[l].RetEventoNFe.retEvento.Items[j].RetInfEvento.cStat of
                  101:
                    Impresso := 'C';
                  151:
                    Impresso := 'C';
                  155:
                    Impresso := 'C';
                end;
              end;
            end;
          end;

          case acbrnfMain.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items
            [i].resNFe.tpNF of
            tnEntrada:
              sTipoNFe := 'E';
            tnSaida:
              sTipoNFe := 'S';
          end;
          case acbrnfMain.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items
            [i].resNFe.cSitNFe of
            snAutorizado:
              Impresso := 'A';
            snDenegado:
              Impresso := 'D';
            snCancelado:
              Impresso := 'C';
          end;

          if dtmdlapNotasDestinadas.VerDuplicidadeNFe
            (acbrnfMain.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items
            [i].resNFe.chNFe) = False then
          begin
            dtmdlapNotasDestinadas.SaveDestinadas(CnpjCpf,
              acbrnfMain.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items
              [i].resNFe.chNFe,
              acbrnfMain.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items
              [i].resNFe.CnpjCpf,
              acbrnfMain.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items
              [i].resNFe.xNome,
              acbrnfMain.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items
              [i].resNFe.IE, sTipoNFe,
              acbrnfMain.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items
              [i].resNFe.dhEmi,
              acbrnfMain.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items
              [i].resNFe.vNF, Impresso,
              Copy(acbrnfMain.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.
              Items[i].resNFe.chNFe, 26, 9) + '-' +
              Copy(acbrnfMain.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.
              Items[i].resNFe.chNFe, 23, 3));
          end;
        end;

 

[Pablo Ricardo]

Seria essa a solução 

 

                 case acbrnfChave.WebServices.Consulta.procEventoNFe.Items[l]
                  .RetEventoNFe.retEvento.Items[j].RetInfEvento.tpEvento of
                  teCancelamento:
                    Impresso := 'C';

 

[João Marcos_14485]

25 minutos atrás, Pablo Ricardo disse:

Seria essa a solução 

Não entendi bem, meu velho...
Você está com uma dúvida ou está dando a dica ?

                 case acbrnfChave.WebServices.Consulta.procEventoNFe.Items[l]
                  .RetEventoNFe.retEvento.Items[j].RetInfEvento.tpEvento of
                  teCancelamento:
                    Impresso := 'C';

 

 

[Pablo Ricardo]

10 minutos atrás, João Marcos_14485 disse:

 

Ainda estou testando, mas pareceu funcionar. Como estou confuso nessa pesquisa, inseri o comentário caso alguém pudesse discorrer sobre.