rlind

Boa tarde. Ao questionar o pessoal de implantação do Itaú para efetuar métodos do Itau Brcode (WebServer) em homologação, foi sugerido solução descrita abaixo: "Referente a URL 'https://devportal.itau.com.br/api/jw, por enquanto ela só funciona no Devportal mesmo, com isso o sistema não consegue validar a URL. Para efetuar testes de emissão de boleto, você pode usar a URL em produção, porém no Json da requisição há um campo de etapa do processo. Basta alterar para processo simulação ou validacao, assim o sistema consome a API produtiva, mas sem registrar o boleto. " Com isso no arquivo ACBrBoletoW_Itau_API.pas , teria que usar somente as const de com endereço de produção, saindo essas com _HOM no final. C_URL_OAUTH_PROD = 'https://sts.itau.com.br/api/oauth/token'; C_URL_OAUTH_HOM = 'https://devportal.itau.com.br/api/jwt'; Alguém poderia avaliar essa situação? Obrigado. Rogerio Lindemayer.

Olá. A requisição do token esta retorno codigo OK, com o token gerado no retorno. Agora o envio do comando para requisição da cobrança que volta varios respcode, dependendo do momento. Soh gostaria de saber se alguem conseguiu efetivar com sucesso, algum momento. Não acho que seja o componente. Obrigado pelo retorno.

Ao testar com o aplicativo exemplo em Delphi PIXCDTeste.exe do ACBr no botão "btFluxoPagar" quando faz a requisição do Token na function CriarCobrancaImediata em fPSP.PrepararHTTP "em ambiente de homologação" tem como retorno "ResultCode: 403 - Forbidden" , para o comando POST abaixo: POST /oauth/token HTTP/1.1Host: qrpix-h.bradesco.com.brAuthorization: Basic YmE3OGY1MmUtYjk4OS00NGRkLWEyMjctMTYwZmNiOGM0YTliOmVjNzNjOWE2LWJhN2ItNGNlYi1iMDk4LTFkYmZmNGRkMjYzMw==Keep-Alive: 300Connection: keep-aliveCookie: dtCookie=v_4_srv_5_sn_529E746D89C2BF5E90A36CB3A372E528_perc_100000_ol_0_mul_1_app-3Aea7c4b59f27d43eb_0User-Agent: Mozilla/4.0 (compatible; Synapse)Content-Type: application/x-www-form-urlencodedContent-Length: 29Accept-Encoding: gzip, compress, deflategrant_type=client_credentials. Campos de configurações do PSP Bradesco estão preenchidos com os dados fornecidos. Se alguém puder orientar para resolver a requisição. Obrigado. Rogerio Lidemayer logpix.txt

Bom dia. Resolvi de forma que não uso a function. Pode finalizar. Obrigado.

Bom dia. Ao executar o comando ShowWindow(iHandle, SW_SHOW), no formulario , o Tpanel fica cinza e sem os componentes, e no formulario o BorderIcons biMinimize, biMaximize param de funcionar. Alguém ja passou por essa situação ou tem alguma ideia de resolução? Aguardo retorno. Obrigado.

Boa Tarde. Consegui resolver. Esqueci de usar StrMD5 no password. Obrigado pelo retorno.

Boa Tarde, estou desenvolvendo emissão da NFS-e pelo servidor Softplan e ao enviar geração de token através de comando POST abaixo : post https://nfps-e.pmf.sc.gov.br/api/v1/autenticacao/oauth/token?grant_type=password&username=xxxxxxx&password=xxxxxxx&client_id=rodag-client&client_secret=xxxxxxxxxxxxxxx retorna mensagem abaixo: {"error":"invalid_grant","error_description":"Usuário inexistente ou senha inválida"} sendo que ao entrar no site https://nfps-e.pmf.sc.gov.br/frontend#!/login consigo me logar normalmente com o mesmo username e password. Com isso se tem alguém que pode me orientar o que esta de errado, Agradeço muito. Obrigado. executando esse procedimento no aplicativo de testes de acbr.

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.