Ir para conteúdo
  • Cadastre-se

Luiz Carlos Panoni Junior

Membros
  • Total de ítens

    79
  • Registro em

  • Última visita

Últimos Visitantes

1.514 visualizações

Luiz Carlos Panoni Junior's Achievements

  1. Se conseguir entender o motivo da um toque por favor
  2. Cara não estou cancelando não, nunca tive cancelei na verdade nem com o Santander, não vejo motivo para o cancelamento visto que a tarifa vai ser debitada de qualquer jeito e quanto ao DDA ninguém nunca reclamou mais no caso do Inter de reclamar também basta ir pelo IB e cancelar manualmente
  3. Ola Antonio, sempre ajudando por aqui hein... obrigado, mais no caso estou usando o componente do ACBR precisa ver onde ele faz a requisição do Token, vou tentar debugar o codigo para entender, pois pelo que vi na documentação, o token é valido por 1 hora. Código HTTP 401 - Token inválido Você precisa adicionar o Bearer token OAuth que foi gerado em Como gerar um token OAuth?. Caso já esteja adicionado, este token provavelmente expirou (validade de 1h) e é necessário emitir um novo.
  4. Rapaz estou na mesma situação, quando preciso emitir 10 boletos de um parcelamento só emite 5, também não sei o que fazer
  5. Olá pessoal, não estava conseguindo ter o retorno do valor pago do boleto quando havia juros e multas, então analisando o fonte percebi que em um bloco logo abaixo ao invés de ser lido o retorno "valortotalrecebimento" era lido "ValorNominal" Na linha 310 atribui o valor corretamente ListaRetorno.DadosRet.TituloRet.ValorPago := AJSonObject.Values['valorTotalRecebimento'].AsNumber; Porém logo mais na linha 338 atribui o valor sem os juros e multas ListaRetorno.DadosRet.TituloRet.ValorPago := AJSonObject.Values['valorTotalRecebimento'].AsNumber; Se for passivo de correção ou se for um erro meu desde já o objetivo é ajudar, fiz a correção aqui e agora consigo o retorno correto de "ValorPago"
  6. Olá Victor, obrigado a emissão e consulta esta OK mais continuo não conseguindo enviar instrução de juros e multas, por mais que saia no boleto impresso as informações não são enviadas para o banco e na consulta no Internet Banking do Inter aparece Isento de Juros e Multas
  7. Fiz inúmeros testes de emissão de boleto do banco Inter través da API e consigo registrar normalmente o boleto porém embora exiba nas informações do boleto os juros e multa elas não são enviadas ao banco, quando se consulta no internet banking aparece isento de juros e multas, ja tentei mudar os tipos mais não envia estas instruções Titulo.ValorMoraJuros := StrToCurr(0,03); Titulo.DataMoraJuros := StrToDate(incday(vencimento,10)); Titulo.PercentualMulta := StrToCurr(2,00); Titulo.CodigoMoraJuros := cjTaxaDiaria;
  8. Boa tarde pessoal, usei a unit enviada mais acho que o grande lance era mudar no exemplo do acbr de FiltrosAPI.indicadorSituacao := isbAberto; FiltrosAPI.dataMovimento.DataInicio := IncDay(Date,-30); FiltrosAPI.dataMovimento.DataFinal := incDay(Date+30); para FiltrosAPI.indicadorSituacao := isbAberto; FiltrosAPI.dataVencimento.DataInicio := IncDay(Date,-30); FiltrosAPI.dataVencimento.DataFinal := incDay(Date+30); Pelo dataMovimento nunca há retorno nem mesmo pela unit alterada, mais em geral a ajuda de vocês foi fundamental, muito obrigado a todos.
  9. Cara testei de varias formas kkkkkk, com 7 com 30, data data de emissao, da data de pagamento, enfim, aqui fui até um pouco estúpido, mandei 120 dias rsrsrsrs FiltrosAPI.Clear; FiltrosAPI.indicadorSituacao := isbBaixado; FiltrosAPI.dataMovimento.DataInicio := IncDay(Date,-120); FiltrosAPI.dataMovimento.DataFinal := IncDay(Date,+120);; //FiltrosAPI.indiceContinuidade := 300;
  10. Sim, isso eu ja fiz, tanto que como disse está emitindo normalmente, o problema esta no retorno
  11. Estou fazendo pelo proprio exemplo do acbr portanto não deveria estar faltando indicar os arquivos key e crt, a emissão ocorre normalmente
  12. Pessoal, implementei o registro de boleto pelo banco Inter e estou conseguindo registrar os boletos normalmente, porém, nem pelo exemplo consigo obter retorno dos boletos via API, arquivo de retorno anexo. E logo aqui esta o código que estou utilizando, lembrando que troquei o isbBaixado por isbAberto para testes mais não consigo retorno. 2023.02.06.12.56.53.449-RetornoConsulta.txt procedure TfrmDemo.btnWSConsultaClick(Sender: TObject); var FiltrosAPI : TACBrBoletoWSFiltroConsulta; Boleto : TACBrBoleto; SLRetorno : TStringList; Retorno : TListaACBrBoletoRetornoWS; I: Integer; begin //Exemplo utilizando como Banco do Brasil API Boleto := dm.ACBrBoleto; FiltrosAPI := Boleto.Configuracoes.WebService.Filtro; FiltrosAPI.Clear; FiltrosAPI.indicadorSituacao := isbBaixado; FiltrosAPI.dataMovimento.DataInicio := IncDay(Date,-120); FiltrosAPI.dataMovimento.DataFinal := IncDay(Date,+120);; //FiltrosAPI.indiceContinuidade := 300; Boleto.Configuracoes.WebService.Operacao := tpConsulta; Boleto.Enviar; Retorno := Boleto.ListaConsultaRetornoWeb; if Retorno.Count > 0 then begin SLRetorno := TStringList.Create; try for I := 0 to Pred(Retorno.Count) do begin SLRetorno.Add('Cod_Retorno='+ Retorno[i].CodRetorno + sLineBreak + 'Msg_Retorno='+ Retorno[i].MsgRetorno + sLineBreak + 'Ori_Retorno='+ Retorno[i].OriRetorno + sLineBreak + 'HTTP_Result='+ IntToStr(Retorno[i].HTTPResultCode) + sLineBreak + 'JSON='+ Retorno[i].JSON); SLRetorno.Add('indicadorContinuidade=' + BoolToStr(Retorno[0].indicadorContinuidade)); SLRetorno.Add('proximoIndice=' + IntToStr(Retorno[0].proximoIndice)); SLRetorno.Add(' '); SLRetorno.Add(' '); SLRetorno.Add('[Boletos Index = ' + FormatFloat('000',I)+']'); SLRetorno.Add('numeroBoletoBB = ' + Retorno[I].DadosRet.TituloRet.NossoNumero); SLRetorno.Add('dataRegistro = ' + DateToStr(Retorno[I].DadosRet.TituloRet.DataRegistro)); SLRetorno.Add('dataVencimento = ' + DateToStr(Retorno[I].DadosRet.TituloRet.Vencimento)); SLRetorno.Add('valorOriginal = ' + DateToStr(Retorno[I].DadosRet.TituloRet.ValorDocumento)); SLRetorno.Add('carteiraConvenio = ' + Retorno[I].DadosRet.TituloRet.Carteira); SLRetorno.Add('variacaoCarteiraConvenio = ' + intToStr(Retorno[I].DadosRet.TituloRet.Modalidade)); SLRetorno.Add('codigoEstadoTituloCobranca = ' + Retorno[I].DadosRet.TituloRet.codigoEstadoTituloCobranca); SLRetorno.Add('estadoTituloCobranca = ' + Retorno[I].DadosRet.TituloRet.estadoTituloCobranca); SLRetorno.Add('contrato = ' + Retorno[I].DadosRet.TituloRet.Contrato); SLRetorno.Add('dataMovimento = ' + DateToStr(Retorno[I].DadosRet.TituloRet.dataMovimento)); SLRetorno.Add('dataCredito = ' + DateToStr(Retorno[I].DadosRet.TituloRet.dataCredito)); SLRetorno.Add('valorAtual = ' + CurrToStr(Retorno[I].DadosRet.TituloRet.valorAtual)); SLRetorno.Add('valorPago = ' + CurrToStr(Retorno[I].DadosRet.TituloRet.ValorPago)); SLRetorno.Add(' --- '); end; SLRetorno.SaveToFile( PathWithDelim(ExtractFilePath(Application.ExeName))+formatDateTime('yyyy.mm.dd.hh.nn.ss.zzz',now)+'-RetornoConsulta.txt' ); finally SLRetorno.Free; end; end; showMessage('Fim'); end;
  13. Você montou pelo acbrboleto com o retorno do Inter ?, pode exemplificar por favor ?
×
×
  • 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.