Jump to content

dev botao

Retorno Caixa API


Eduardo Suruagy
Go to solution Solved by Victor H. Gonzales - Panda,
  • Este tópico foi criado há 753 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

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

 

Link to comment
Share on other sites

  • Consultores
  • Solution
53 minutos atrás, 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

 

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"

Link to comment
Share on other sites

  • Membros Pro
19 horas atrás, 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

Retorno.Count = 0 ai não aparece nada

Link to comment
Share on other sites

  • Consultores

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"

Link to comment
Share on other sites

  • Consultores
50 minutos atrás, Eduardo Suruagy disse:

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

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"

Link to comment
Share on other sites

  • Membros Pro
11 minutos atrás, Victor H. Gonzales - Panda disse:

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

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

Link to comment
Share on other sites

  • Consultores
1 minuto atrás, Eduardo Suruagy disse:

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

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"

Link to comment
Share on other sites

  • Membros Pro
12 minutos atrás, Victor H. Gonzales - Panda disse:

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

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.

 

Link to comment
Share on other sites

  • Consultores
3 minutos atrás, 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.

 

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"

Link to comment
Share on other sites

  • Consultores
Em 08/09/2022 at 18: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

 

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.

 

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"

Link to comment
Share on other sites

  • Membros Pro
3 horas atrás, 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;

 

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

Link to comment
Share on other sites

  • Consultores
16 horas atrás, Eduardo Suruagy disse:

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

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"

Link to comment
Share on other sites

  • Membros Pro
36 minutos atrás, Victor H. Gonzales - Panda disse:

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?

Eu analisei aqui tbm e vi que o banco não esta retornando essas informações do pagamento.

Link to comment
Share on other sites

  • Consultores

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"

Link to comment
Share on other sites

  • Consultores

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"

Link to comment
Share on other sites

  • Este tópico foi criado há 753 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.

The popup will be closed in 10 seconds...