rlind

Alguém ja teve esse problema? sera a DLL : ws2_32.dll?

esse método InternalConnect faz um SSL Connect no host - "oauth.hm.bb.com.br" em Homologação ( nao vota erro , esta Ok) - '"oauth.bb.com.br'" em produção ( sempre com sock error 10091 )

No aplicativo de exemplo do ACBrPIX tem o mesmo retorno. Obrigado.

Ola. Boa Tarde. se alguem puder sinalizar o motivo do que esta ocorrendo, agradeço. preenchi os campos conforme abaixo e o que ocorre eh que já no token ele sai nesse if em httpsend.pas: ACBrPSPBancoDoBrasil1.ArquivoChavePrivada := 'D:\Rogerio\S.key'; ACBrPSPBancoDoBrasil1.ArquivoCertificado := 'D:\Rogerio\S.pem'; if not InternalConnect(UpperCase(Prot) = 'HTTPS') then begin FAliveHost := ''; FAlivePort := ''; Exit; end; Log do envio : 06/07/23 13:33:14:638 - Req.Headers: Authorization: Basic ZXlKcFpDSTZJalptTWpZaUxDSmpiMlJwWjI5UWRXSnNhV05oWkc5eUlqb3dMQ0pqYjJScFoyOVRiMlowZDJGeVpTSTZORGt6TWpFc0luTmxjWFZsYm1OcFlXeEpibk4wWVd4aFkyRnZJam94ZlE6ZXlKcFpDSTZJalV6WkRRNE16QXRZemN6TVMwME5ESTJMVGcwTWlJc0ltTnZaR2xuYjFCMVlteHBZMkZrYjNJaU9qQXNJbU52WkdsbmIxTnZablIzWVhKbElqbzBPVE15TVN3aWMyVnhkV1Z1WTJsaGJFbHVjM1JoYkdGallXOGlPakVzSW5ObGNYVmxibU5wWVd4RGNtVmtaVzVqYVdGc0lqb3hMQ0poYldKcFpXNTBaU0k2SW5CeWIyUjFZMkZ2SWl3aWFXRjBJam94TmpnM09UZ3lNamMxT0RJMmZR Accept-Encoding: gzip, compress, deflate 06/07/23 13:33:14:638 - Req.Body: grant_type=client_credentials&scope=cob.write%20cob.read%20pix.write%20pix.read 06/07/23 13:33:14:669 - ResultCode: 500 - 06/07/23 13:33:14:669 - Resp.Headers:

Esta certo. Obrigado pelo retorno Elias. Vou ver aqui.

Obrigado.

Boa Tarde , Estou tentando usar a APIPIX do banco de brasil em produção Versão 2 que usa Autenticação mútua de certificados(MTLS) Não esta retorno OK do Webservice. Algúem sabe como preenchar esses campos abaixo: Os dois seria o caminho do arquivo .PEM ACBrPSPBancoDoBrasil1.ArquivoChavePrivada := ''; ACBrPSPBancoDoBrasil1.ArquivoCertificado := ''; pois penso ser isso. Aguardo retorno.

Boa tarde. Resolvi, setando ACBrBoleto.ImprimirMensagemPadrao := False; Pode finalizar Muito obrigado.

Boa Tarde. Esta certo Obrigado.

Bom dia. Aguardamos retorno. Obrigado.

Bom dia. Esta Certo. Aguardamos retorno. Obrigado.

Bom dia. no projeto exemplo será que não esta comentado o trecho dm.ACBrBoleto.AdicionarMensagensPadroes(Titulo,Mensagem) porque tbem gerava algum problema nessa TBoletoW_BancoBrasil_API.RequisicaoJson ? Obrigado.

ola. a propriedade Boleto.ImprimirMensagemPadrao := ckbImprimirMensagemPadrao.Checked; no exemplo ABCR esta true tambem

Boa Tarde. fiz pelo exemplo do Acbr e gera o boleto online sem problemas no webservice, depois de tirar o comentario que estava no comando : dm.ACBrBoleto.AdicionarMensagensPadroes(Titulo,Mensagem) e esta gerando sem problemas pela seguinte razão : ao executar TBoletoW_BancoBrasil_API.RequisicaoJson e passar pelo codigo abaixo: Json.Add('campoUtilizacaoBeneficiario').Value.AsString := Copy(Trim(StringReplace(UpperCase(TiraPontos(ATitulo.Mensagem.Text)),'\r\n',' ',[rfReplaceAll])),0,30); temos ATitulo.Mensagem.Text sem dados preenchidos , com isso no dados enviados o campo campoUtilizacaoBeneficiario fica com "" como pode ver abaixo 02/06/23 15:24:51:003 - Comando Enviar: {"numeroConvenio":3128557,"numeroCarteira":17,"numeroVariacaoCarteira":35,"codigoModalidade":1,"dataEmissao":"02.06.2023","dataVencimento":"02.07.2023","valorOriginal":105.91,"valorAbatimento":0,"codigoAceite":"N","codigoTipoTitulo":2,"descricaoTipoTitulo":"DM","numeroTituloBeneficiario":"12","campoUtilizacaoBeneficiario":"","numeroTituloCliente":"00031285570000000011","mensagemBloquetoOcorrencia":"","jurosMora":{"tipo":3},"pagador":{"tipoInscricao":1,"numeroInscricao":73010014953,"nome":"CLIENTE DE TESTES","endereco":"Rua dos clientes 100","cep":18270000,"cidade":"Tatui","bairro":"Centro","uf":"SP"},"indicadorPix":"S"} Agora pelo meu sistema o ATitulo.Mensagem.Text esta preenchido e ainda com acentos (gerando a recusa) , com isso se alguem souber o que controla o preenchimento ou não do ATitulo.Mensagem, me ajudaria. o detalhe que nas duas situações as functions GerarMensagemPadraoDataLimitePagamento e GerarMensagemPadraoDataLimitePagamento são executadas. Obrigado pelo retorno.

Ok. vou testar no exemplo do acbr

Esta certo. bem chato isso, deveria ter um tratamento no app do BB para isso. estou anexando para análise. function GerarMensagemPadraoDataLimitePagamento string => 'Nao Receber apos' retirado o acento function GerarMensagemPadraoJuros string => 'R #,##0.00 por dia' retirado $ string => 'apos o vencimento' retirado o acento ACBrBoleto.pas Obrigado amigo

Favor subir no SVN , alteração de tratamento dos acentos na mensagem para evitar rejeição Boleto Online BB. ACBrBoleto.pas : function TACBrBoleto.GerarMensagemPadraoDataLimitePagamento( ATitulo: TACBrTitulo): String; begin if ATitulo.DataLimitePagto > ATitulo.Vencimento then Result:= ACBrStr('Não Receber após ' + IntToStr(DaysBetween(ATitulo.Vencimento, ATitulo.DataLimitePagto))+ ' dias') else Result := ACBrStr('Não Receber após o Vencimento'); end;

Ola. Bom dia. Retirando os acentos não gera mais a rejeição e gera o boleto Online tranquilo. Dai não precisa nem preencher o campo Titulo.DataLimitePagto, executando a function GerarMensagemPadraoDataLimitePagamento e registrando o boleto Online sem problemas. Obrigado pelo retorno.

Bom dia. Alguma orientação para evitar esse retorno do webservice do B.B Obrigado.

Bom dia. Para informar um problema que esta dando aqui comigo. Estou efetuando => Envia de boleto Online pela api do Banco do brasil, fazendo Function abaixo em ACBrBoleto.pas : function TACBrBoleto.GerarMensagemPadraoDataLimitePagamento( ATitulo: TACBrTitulo): String; begin if ATitulo.DataLimitePagto > ATitulo.Vencimento then Result:= ACBrStr('Não Receber após ' + IntToStr(DaysBetween(ATitulo.Vencimento, ATitulo.DataLimitePagto))+ ' dias') else Result := ACBrStr('Não Receber após o Vencimento'); end; gerando o seguinte retorno com erro codigo 400 no arquivo anexado abaixo. aguardo retorno. Obrigado. ArqBoletoWS.log

Pode finalizar o chamado. Obrigado.

Boa tarde. Obrigado pela informação.

Obrigado pelo retorno. Estou verificando.

Bom dia. Estou com problemas ao enviar mais de uma RPS no lote. Pois quando é uma RPS por lote e validada e gerada sem problemas. Com isso gostaria da informação se eh possivel validar mais de uma NFS-e em um unico lote ou não. Obrigado.

Boa Tarde. Cidade : São Jose - SC. erro eh uma saida por excessão que estou vendo aqui e já reporto. Obrigado.