Luiz Carlos Panoni Junior

Informação importante aos que estão vindo da versão antiga, é necessário informar a propriedade abaixo para emissão de boleto no banco Inter. Configuracoes.WebService.Ambiente := taProducao; Antes esta propriedade não precisava ser informada, agora ser não informar gera erro ERRO CODE=500 no Inter. Neste post abaixo, informa que de forma transparente o componente faz uma consulta para trazer o nosso número, porém aqui de forma transparente e automática não esta fazendo, tive que fazer uma rotina logo após receber o UUID para conseguir pegar o Nosso Numero. po @Daniel InfoCotidiano devo setar algo para o pix começar a ser impresso no boleto ?, ja consegui emitir porém o qrcode não sai na impressão do boleto.

Pessoal atualizei meu componente do ACBR que estava desatualizado há tempos para poder preparar para a mudança do Banco Inter que irá ocorrer em breve com relação ao boleto, pelo que li o que diferencia os ambientes é a propriedade IndicadorPIX que deixei = False, porém mesmo assim, não consigo mais emitir boletos no método antigo, só gera ERRO CODE=500, foi alterado algo que preciso adaptar aqui ? Desde já muito obrigado.

Se conseguir entender o motivo da um toque por favor

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

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.

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

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"

Alguém ?

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

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;

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.

Sim, senão o boleto também não registra!

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;

Sim, isso eu ja fiz, tanto que como disse está emitindo normalmente, o problema esta no retorno

Estou fazendo pelo proprio exemplo do acbr portanto não deveria estar faltando indicar os arquivos key e crt, a emissão ocorre normalmente

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;

Você montou pelo acbrboleto com o retorno do Inter ?, pode exemplificar por favor ?

Encontrei a informação na documentação do Inter como "extrato.read boleto-cobranca.read boleto-cobranca.write" Fiz o teste e deu certo, agora outra dúvida, visto que o nosso numero do Inter só é retornado após o envio online, como puxar o pdf atualizado do boleto ou realimentar o componente com as informações do retorno para emitir o boleto ?

Pessoal primeiramente gostaria de parabenizar imensamente esta equipe que mantem esta suíte de componentes tão rica. Estou testando os boletos do Inter, preenchi o certificado, key e secret mais ao emitir o boleto retorno o seguinte texto no arquivo de retorno (anexo)ArqBoletoWS.log O retorno é Result={"message":"Faltando escopos necessários."} RetornoRegistro.txt

Criei uma vm do zero, na primeira instalação já ocorreu isso, tem alguma coisa a ver com open ssl e xmlsec

Pessoal, estou com um problema que esta me tirando o sono, atualizei meus fontes do ACBR e sempre ativo o XMLSec e o OpenSSL pois utilizo certificado digital no windows 2003 server, não posso trocar este windows no momento. O fato é que quando compilo o ACBR como Default ou seja, sem mexer na ativação do XMLSEC e do OPENSSL o delphi 7 abre normalmente sem problema e todos os componentes estão lá funcionando perfeitamente, porémn quando deixo desmarcado "Não utilizar XMLSEC" e "Não utilizar OpenSsl" recompilo o ACBR, vários componentes param de funcionar e exibem conforme abaixo: Já vi varios posts sobre isso mais nenhum com solução, para tentar resolver criei uma maquina virtual do zero, instalei o ACBR default tudo certo, mais quando desativo estas opções apresentam este erro novamente, ja copiei todas as dlls do openssl e do xmlsec para system32 e syswow64 já apaguei tudo e instalei denovo porém sem chance. Detalhe que no ACBR.INC eu também ativo a diretiva {$DEFINE USE_MINGW} como sempre fiz anteriormente. Alguém consegue me dar uma luz ?

@neto233 você implementou algum método para recuperar os boletos com status de pago sem ter necessidade de consultar um a um ?

Opa maravilha, se conseguir testar me avise por favor, não tenho experiência com api

Olá pessoal, também estou implementando pelo que vi funciona muito bem este exemplo, agora uma dúvida que fiquei é que no modelo cnab o banco envia os arquivos de retorno com os boletos quitados no dia, neste caso da API, temos que consultar boleto por boleto ?, vocês conseguiram implementar algum método de filtro por data com status de PAGO ?

Bom dia Antônio obrigado por sua contribuição, mais pelo que vi no ACBR boleto não tem opção de API pelo Inter!