Ir para conteúdo
  • Cadastre-se

dev botao

Ao fazer a consulta completa enviando o nosso numero API BB, retorna os dados do PIX vazio.


Ver Solução Respondido por Victor H. Gonzales - Panda,

Recommended Posts

  • Membros Pro
Postado

  FBoleto.Configuracoes.WebService.Operacao := tpConsultaDetalhe;

  LNossoNumero := TACBrTitulo(FBoleto.ListadeBoletos.Items[0]).NossoNumero;
  FBoleto.ListadeBoletos.Clear;
  FBoleto.Configuracoes.WebService.Filtro.Clear;
  FBoleto.Configuracoes.WebService.Operacao := tpConsultaDetalhe;
  FBoleto.Configuracoes.WebService.Filtro.indiceContinuidade := 0;
  Result := rrbSalvo;

  // doc => TACBrTitulo;
  doc := FBoleto.CriarTituloNaLista;
  doc.Carteira    := '17';
  doc.NossoNumero := LNossoNumero; ///copy(LNossoNumero, 0, length(LNossoNumero) - 3); // nosso número

  LRetorno := FBoleto.Enviar; // <<< retorna como false se o httpresult code for diferente de 200,201,202

  if LRetorno then
  begin
    Result := rrbRegistrado;
    if FBoleto.TotalListaRetornoWeb > 0 then
    begin
        try
          for i:= 0 to Pred(FBoleto.TotalListaRetornoWeb) do
          begin
            if NaoEstaVazio(FBoleto.ListaRetornoWeb[i].DadosRet.TituloRet.CodBarras) then
            begin
               AMensagem.Tipo       := trSucesso;
               AMensagem.QRCodeId   := Boleto.ListaRetornoWeb[i].DadosRet.TituloRet.TxId;
               AMensagem.QRCodeURL  := Boleto.ListaRetornoWeb[i].DadosRet.TituloRet.UrlPix;
               AMensagem.QrCodeData := Boleto.ListaRetornoWeb[i].DadosRet.TituloRet.EMV;
            end;
          end;
        except
        end;
    end;
  end

O componente retorna os dados vazio na consulta completa.

Alguem poderia dar uma luz.

  • Consultores
  • Solution
Postado
14 minutos atrás, ClausquellerMitome disse:

  FBoleto.Configuracoes.WebService.Operacao := tpConsultaDetalhe;

  LNossoNumero := TACBrTitulo(FBoleto.ListadeBoletos.Items[0]).NossoNumero;
  FBoleto.ListadeBoletos.Clear;
  FBoleto.Configuracoes.WebService.Filtro.Clear;
  FBoleto.Configuracoes.WebService.Operacao := tpConsultaDetalhe;
  FBoleto.Configuracoes.WebService.Filtro.indiceContinuidade := 0;
  Result := rrbSalvo;

  // doc => TACBrTitulo;
  doc := FBoleto.CriarTituloNaLista;
  doc.Carteira    := '17';
  doc.NossoNumero := LNossoNumero; ///copy(LNossoNumero, 0, length(LNossoNumero) - 3); // nosso número

  LRetorno := FBoleto.Enviar; // <<< retorna como false se o httpresult code for diferente de 200,201,202

  if LRetorno then
  begin
    Result := rrbRegistrado;
    if FBoleto.TotalListaRetornoWeb > 0 then
    begin
        try
          for i:= 0 to Pred(FBoleto.TotalListaRetornoWeb) do
          begin
            if NaoEstaVazio(FBoleto.ListaRetornoWeb[i].DadosRet.TituloRet.CodBarras) then
            begin
               AMensagem.Tipo       := trSucesso;
               AMensagem.QRCodeId   := Boleto.ListaRetornoWeb[i].DadosRet.TituloRet.TxId;
               AMensagem.QRCodeURL  := Boleto.ListaRetornoWeb[i].DadosRet.TituloRet.UrlPix;
               AMensagem.QrCodeData := Boleto.ListaRetornoWeb[i].DadosRet.TituloRet.EMV;
            end;
          end;
        except
        end;
    end;
  end

O componente retorna os dados vazio na consulta completa.

Alguem poderia dar uma luz.

Boa tarde,

essa informação não volta nessa consulta, tem que usar o tpPixConsultar

Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.