Ir para conteúdo
  • Cadastre-se

dev botao

Retorno Caixa API


Ver Solução Respondido por Victor H. Gonzales - Panda,
  • Este tópico foi criado há 911 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro
Postado

Estou com problemas na consulta da caixa, ao consultar um boleto alguns campos não estão aparecendo:

COMPROVANTE
Data=30/12/1899
Hora=
 
ID_BOLETO
Codigo_Barras=
Linha_Digitavel=
Nosso_Numero=
URL=
 

Outra situação é que ao efetuar o pagamento do boleto e fazer a consulta os campos do pagamento não aparecem, exemplo: valo pago, data de pagamento

 

  • Consultores
  • Solution
Postado
  Em 08/09/2022 at 21:15, Eduardo Suruagy disse:

Estou com problemas na consulta da caixa, ao consultar um boleto alguns campos não estão aparecendo:

COMPROVANTE
Data=30/12/1899
Hora=
 
ID_BOLETO
Codigo_Barras=
Linha_Digitavel=
Nosso_Numero=
URL=
 

Outra situação é que ao efetuar o pagamento do boleto e fazer a consulta os campos do pagamento não aparecem, exemplo: valo pago, data de pagamento

 

Expandir  

Boa noite,

atualize seus fontes e faça os testes conforme conversamos pelo discord.

Retorno := Boleto.ListaConsultaRetornoWeb;
for X := 0 to Pred(Retorno.Count) do
begin
  xVar1 := Retorno[X].DadosRet.IDBoleto.CodBarras;
  xVar2 := Retorno[X].DadosRet.IDBoleto.LinhaDig;
  xVar3 := Retorno[X].DadosRet.IDBoleto.NossoNum;
  xVar4 := Retorno[X].DadosRet.IDBoleto.URL;
end;

 

depois retorne o resultado, qualquer coisa avise

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"

  • Membros Pro
Postado
  Em 08/09/2022 at 22:09, Victor H. Gonzales - Panda disse:

Boa noite,

atualize seus fontes e faça os testes conforme conversamos pelo discord.

Retorno := Boleto.ListaConsultaRetornoWeb;
for X := 0 to Pred(Retorno.Count) do
begin
  xVar1 := Retorno[X].DadosRet.IDBoleto.CodBarras;
  xVar2 := Retorno[X].DadosRet.IDBoleto.LinhaDig;
  xVar3 := Retorno[X].DadosRet.IDBoleto.NossoNum;
  xVar4 := Retorno[X].DadosRet.IDBoleto.URL;
end;

 

depois retorne o resultado, qualquer coisa avise

Expandir  

Retorno.Count = 0 ai não aparece nada

  • Consultores
Postado

TK-3052

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"

  • Consultores
Postado
  Em 12/09/2022 at 16:14, Eduardo Suruagy disse:

Boa tarde, o que seria esse TK-3052? Sou novo aqui no fórum.

Expandir  

Boa tarde,

ative o log do componente faça seus testes, envie o log por favor pelo email.

deixe o client id no log ou informe ele nas credenciais no email por favor.

image.png

Obrigado

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"

  • Consultores
Postado
  Em 12/09/2022 at 17:17, Eduardo Suruagy disse:

Boa tarde, onde eu pego esse client id? Se for dados do banco (Caixa) ele não usa o client id.

Expandir  

Você passa alguma credencial no componente no client id não?

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"

  • Consultores
Postado
  Em 12/09/2022 at 17:28, Eduardo Suruagy disse:

Na caixa esse client id é igual para todos "client id = " o que muda é a agencia, conta, código do cedente e convenio. Essas informações eu já passei por email.

 

Expandir  

ok vou verificar

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"

  • Consultores
Postado
  Em 08/09/2022 at 21:15, Eduardo Suruagy disse:

Estou com problemas na consulta da caixa, ao consultar um boleto alguns campos não estão aparecendo:

COMPROVANTE
Data=30/12/1899
Hora=
 
ID_BOLETO
Codigo_Barras=
Linha_Digitavel=
Nosso_Numero=
URL=
 

Outra situação é que ao efetuar o pagamento do boleto e fazer a consulta os campos do pagamento não aparecem, exemplo: valo pago, data de pagamento

 

Expandir  

image.png

Boa tarde,

a consulta está normal na classe igual a forma de envio.

  Citar

CONSULTA_BOLETO Útil para situações de emissão de segunda via de boleto ou consulta de dados gerais. Só retorna o código de barras, linha digitável e URL quando o boleto possui situação EM 38.239 v006 micro 10 LEIAUTE DE ARQUIVO ELETRÔNICO - WEBSERVICE XML COBRANÇA BANCÁRIA CAIXA ABERTO.

Página 10 da documentação

na página 11, também existe o horário de disponibilidade do serviço que precisa verificar.

Expandir  

 

Verifique se em um titulo que está em aberto, você consegue percorrer todas as propriedades desejadas, mas algumas outras como data, valor está disponível, você pode verificar no SOAP o retorno que o banco está disponibilizando para o componente, todos essas o componente tem que ler e lhe disponibilizar.

begin

  Boleto     := dm.ACBrBoleto;
  Boleto.Configuracoes.WebService.Operacao := tpConsulta;

  Boleto.Enviar;
  if Boleto.TotalListaRetornoWeb > 0 then
  begin
    SLRetorno := TStringList.Create;
    try
      for I := 0 to Pred(Boleto.TotalListaRetornoWeb) do
      begin
        SLRetorno.Add('HEADER'          + sLineBreak +
                     'Versao='           + Boleto.ListaRetornoWeb[i].Header.Versao + sLineBreak +
                     'Autenticacao='     + Boleto.ListaRetornoWeb[i].Header.Autenticacao + sLineBreak +
                     'Usuario_Servico='  + Boleto.ListaRetornoWeb[i].Header.Usuario_Servico + sLineBreak +
                     'Usuario='          + Boleto.ListaRetornoWeb[i].Header.Usuario + sLineBreak +
                     'Operacao='         + TipoOperacaoToStr(Boleto.ListaRetornoWeb[i].Header.Operacao) + sLineBreak +
                     'Indice='           + IntToStr(Boleto.ListaRetornoWeb[i].Header.Indice) + sLineBreak +
                     'Sistema_Origem='   + Boleto.ListaRetornoWeb[i].Header.Sistema_Origem + sLineBreak +
                     'Agencia='          + IntToStr(Boleto.ListaRetornoWeb[i].Header.Agencia) + sLineBreak +
                     'ID_Origem='        + Boleto.ListaRetornoWeb[i].Header.Id_Origem + sLineBreak +
                     'Data_Hora='        +FormatDateTime('dd/mm/yyyy hh:nn:ss',Boleto.ListaRetornoWeb[i].Header.Data_Hora) + sLineBreak +
                     'ID_Processo='      + Boleto.ListaRetornoWeb[i].Header.Id_Processo + sLineBreak +
                     'DADOS'             + sLineBreak +
                     'Excessao='         +Boleto.ListaRetornoWeb[i].DadosRet.Excecao + sLineBreak +
                     'CONTROLE_NEGOCIAL' + sLineBreak +
                     'Origem_Retorno='   + Boleto.ListaRetornoWeb[i].DadosRet.ControleNegocial.OriRetorno + sLineBreak +
                     'NSU='              + Boleto.ListaRetornoWeb[i].DadosRet.ControleNegocial.NSU + sLineBreak +
                     'Cod_Retorno='      + Boleto.ListaRetornoWeb[i].DadosRet.ControleNegocial.CodRetorno + sLineBreak +
                     'Msg_Retorno='      + Boleto.ListaRetornoWeb[i].DadosRet.ControleNegocial.Retorno + sLineBreak +
                     'COMPROVANTE'       + sLineBreak +
                     'Data='             +  FormatDateTime('dd/mm/yyyy', Boleto.ListaRetornoWeb[i].DadosRet.Comprovante.Data) + sLineBreak +
                     'Hora='             +  Boleto.ListaRetornoWeb[i].DadosRet.Comprovante.Hora + sLineBreak +
                     'ID_BOLETO'         + sLineBreak +
                     'Codigo_Barras='    + Boleto.ListaRetornoWeb[i].DadosRet.IDBoleto.CodBarras + sLineBreak +
                     'Linha_Digitavel='  + Boleto.ListaRetornoWeb[i].DadosRet.IDBoleto.LinhaDig + sLineBreak +
                     'Nosso_Numero='     + Boleto.ListaRetornoWeb[i].DadosRet.IDBoleto.NossoNum + sLineBreak +
                     'URL='              + Boleto.ListaRetornoWeb[i].DadosRet.IDBoleto.URL + sLineBreak +
                     'CONSULTA_BOLETO'   + sLineBreak +
                     'Numero_Documento=' + Boleto.ListaRetornoWeb[i].DadosRet.TituloRet.NumeroDocumento + sLineBreak +
                     'Data_Vencimento='  + FormatDateTime('dd/mm/yyyy',Boleto.ListaRetornoWeb[i].DadosRet.TituloRet.Vencimento) + sLineBreak +
                     'Valor='            + CurrToStr(Boleto.ListaRetornoWeb[i].DadosRet.TituloRet.ValorDocumento) + sLineBreak
                      );
        SLRetorno.SaveToFile( PathWithDelim(ExtractFilePath(Application.ExeName))+formatDateTime('yyyy.mm.dd.hh.nn.ss.zzz',now)+'-RetornoConsulta.txt' );
      end;
    finally
      SLRetorno.Free;
    end;
  end;
end;

 

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"

  • Membros Pro
Postado
  Em 12/09/2022 at 21:04, Victor H. Gonzales - Panda disse:

image.png

Boa tarde,

a consulta está normal na classe igual a forma de envio.

 

Verifique se em um titulo que está em aberto, você consegue percorrer todas as propriedades desejadas, mas algumas outras como data, valor está disponível, você pode verificar no SOAP o retorno que o banco está disponibilizando para o componente, todos essas o componente tem que ler e lhe disponibilizar.

begin

  Boleto     := dm.ACBrBoleto;
  Boleto.Configuracoes.WebService.Operacao := tpConsulta;

  Boleto.Enviar;
  if Boleto.TotalListaRetornoWeb > 0 then
  begin
    SLRetorno := TStringList.Create;
    try
      for I := 0 to Pred(Boleto.TotalListaRetornoWeb) do
      begin
        SLRetorno.Add('HEADER'          + sLineBreak +
                     'Versao='           + Boleto.ListaRetornoWeb[i].Header.Versao + sLineBreak +
                     'Autenticacao='     + Boleto.ListaRetornoWeb[i].Header.Autenticacao + sLineBreak +
                     'Usuario_Servico='  + Boleto.ListaRetornoWeb[i].Header.Usuario_Servico + sLineBreak +
                     'Usuario='          + Boleto.ListaRetornoWeb[i].Header.Usuario + sLineBreak +
                     'Operacao='         + TipoOperacaoToStr(Boleto.ListaRetornoWeb[i].Header.Operacao) + sLineBreak +
                     'Indice='           + IntToStr(Boleto.ListaRetornoWeb[i].Header.Indice) + sLineBreak +
                     'Sistema_Origem='   + Boleto.ListaRetornoWeb[i].Header.Sistema_Origem + sLineBreak +
                     'Agencia='          + IntToStr(Boleto.ListaRetornoWeb[i].Header.Agencia) + sLineBreak +
                     'ID_Origem='        + Boleto.ListaRetornoWeb[i].Header.Id_Origem + sLineBreak +
                     'Data_Hora='        +FormatDateTime('dd/mm/yyyy hh:nn:ss',Boleto.ListaRetornoWeb[i].Header.Data_Hora) + sLineBreak +
                     'ID_Processo='      + Boleto.ListaRetornoWeb[i].Header.Id_Processo + sLineBreak +
                     'DADOS'             + sLineBreak +
                     'Excessao='         +Boleto.ListaRetornoWeb[i].DadosRet.Excecao + sLineBreak +
                     'CONTROLE_NEGOCIAL' + sLineBreak +
                     'Origem_Retorno='   + Boleto.ListaRetornoWeb[i].DadosRet.ControleNegocial.OriRetorno + sLineBreak +
                     'NSU='              + Boleto.ListaRetornoWeb[i].DadosRet.ControleNegocial.NSU + sLineBreak +
                     'Cod_Retorno='      + Boleto.ListaRetornoWeb[i].DadosRet.ControleNegocial.CodRetorno + sLineBreak +
                     'Msg_Retorno='      + Boleto.ListaRetornoWeb[i].DadosRet.ControleNegocial.Retorno + sLineBreak +
                     'COMPROVANTE'       + sLineBreak +
                     'Data='             +  FormatDateTime('dd/mm/yyyy', Boleto.ListaRetornoWeb[i].DadosRet.Comprovante.Data) + sLineBreak +
                     'Hora='             +  Boleto.ListaRetornoWeb[i].DadosRet.Comprovante.Hora + sLineBreak +
                     'ID_BOLETO'         + sLineBreak +
                     'Codigo_Barras='    + Boleto.ListaRetornoWeb[i].DadosRet.IDBoleto.CodBarras + sLineBreak +
                     'Linha_Digitavel='  + Boleto.ListaRetornoWeb[i].DadosRet.IDBoleto.LinhaDig + sLineBreak +
                     'Nosso_Numero='     + Boleto.ListaRetornoWeb[i].DadosRet.IDBoleto.NossoNum + sLineBreak +
                     'URL='              + Boleto.ListaRetornoWeb[i].DadosRet.IDBoleto.URL + sLineBreak +
                     'CONSULTA_BOLETO'   + sLineBreak +
                     'Numero_Documento=' + Boleto.ListaRetornoWeb[i].DadosRet.TituloRet.NumeroDocumento + sLineBreak +
                     'Data_Vencimento='  + FormatDateTime('dd/mm/yyyy',Boleto.ListaRetornoWeb[i].DadosRet.TituloRet.Vencimento) + sLineBreak +
                     'Valor='            + CurrToStr(Boleto.ListaRetornoWeb[i].DadosRet.TituloRet.ValorDocumento) + sLineBreak
                      );
        SLRetorno.SaveToFile( PathWithDelim(ExtractFilePath(Application.ExeName))+formatDateTime('yyyy.mm.dd.hh.nn.ss.zzz',now)+'-RetornoConsulta.txt' );
      end;
    finally
      SLRetorno.Free;
    end;
  end;
end;

 

Expandir  

Consigo pegar os dados do retorno, sendo que não consigo pegar os dados da data de pagamento e valor pago.

  • Consultores
Postado
  Em 13/09/2022 at 00:12, Eduardo Suruagy disse:

Consigo pegar os dados do retorno, sendo que não consigo pegar os dados da data de pagamento e valor pago.

Expandir  

Boa tarde,

olhei o SOAP e não localizei essa informação, as informações me induz que são do titulo e não do pagamento, você chegou analisar?

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"

  • Consultores
Postado

tudo certo?

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"

  • Consultores
Postado

Obrigado por reportar.

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

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"

  • Este tópico foi criado há 911 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.

The popup will be closed in 7 segundos...