-
Total de ítens
79 -
Registro em
-
Última visita
Últimos Visitantes
Luiz Carlos Panoni Junior's Achievements
-
Envio de boletos em lote Banco Inter API
Luiz Carlos Panoni Junior replied to jefferson01's tópico in ACBrBoleto
Se conseguir entender o motivo da um toque por favor -
Cancelar boleto Banco Inter API
Luiz Carlos Panoni Junior replied to jefferson01's tópico in ACBrBoleto
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 -
Envio de boletos em lote Banco Inter API
Luiz Carlos Panoni Junior replied to jefferson01's tópico in ACBrBoleto
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. -
Envio de boletos em lote Banco Inter API
Luiz Carlos Panoni Junior replied to jefferson01's tópico in ACBrBoleto
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 -
Possível erro no código do ACBRBoleto banco Inter - ACBrBoletoRet_Inter_API
um tópico no fórum postou Luiz Carlos Panoni Junior ACBrBoleto
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" -
Retorno via API do Banco Inter sem resultado
Luiz Carlos Panoni Junior replied to Luiz Carlos Panoni Junior's tópico in ACBrBoleto
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 -
Banco Inter via API não envia instruções de Juros e Multa
um tópico no fórum postou Luiz Carlos Panoni Junior ACBrBoleto
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; -
Retorno via API do Banco Inter sem resultado
Luiz Carlos Panoni Junior replied to Luiz Carlos Panoni Junior's tópico in ACBrBoleto
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. -
Retorno via API do Banco Inter sem resultado
Luiz Carlos Panoni Junior replied to Luiz Carlos Panoni Junior's tópico in ACBrBoleto
Sim, senão o boleto também não registra! -
Retorno via API do Banco Inter sem resultado
Luiz Carlos Panoni Junior replied to Luiz Carlos Panoni Junior's tópico in ACBrBoleto
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; -
Retorno via API do Banco Inter sem resultado
Luiz Carlos Panoni Junior replied to Luiz Carlos Panoni Junior's tópico in ACBrBoleto
Sim, isso eu ja fiz, tanto que como disse está emitindo normalmente, o problema esta no retorno -
Retorno via API do Banco Inter sem resultado
Luiz Carlos Panoni Junior replied to Luiz Carlos Panoni Junior's tópico in ACBrBoleto
Estou fazendo pelo proprio exemplo do acbr portanto não deveria estar faltando indicar os arquivos key e crt, a emissão ocorre normalmente -
Retorno via API do Banco Inter sem resultado
um tópico no fórum postou Luiz Carlos Panoni Junior ACBrBoleto
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;