Márcio Antônio

Gestão de credenciais Em alinhamento com as melhores práticas de segurança, o Banco do Brasil implementará, em 26/04/25, uma mudança na gestão das credenciais das aplicações do Portal Developers BB, com o objetivo de garantir um serviço ainda mais seguro e confiável. As credenciais ficarão acessíveis apenas no momento da sua geração, tanto no ambiente de homologação quanto no de produção. Se você não salvou suas credenciais, será necessário gerar novas. Assim, a credencial anterior será desativada. Para isso, é indispensável possuir, no mínimo, o perfil de Líder Técnico no Time da Aplicação. Essa atualização reforça a segurança em situações de acessos não autorizados à área restrita (que exige autenticação) do Portal Developers, preservando a integridade das credenciais das aplicações em cenários de possíveis acessos indevidos. Recomendamos aos usuários do Portal que guardem suas credenciais em um local seguro para garantir o acesso às credenciais de sua aplicação. Se você já é usuário do Portal e mantém suas credenciais em segurança, essa solução não causará nenhum impacto. Como gerar suas credenciais Ao acessar a área restrita do Portal Developers BB, clique no botão “CRIAR NOVA APLICAÇÃO”, em seguida clique no card de credenciais para gerar a sua credencial. Clicando em “QUERO VER DE NOVO”, você tem a possibilidade de visualizar, mais uma vez, a informação da sua APPKEY e das credenciais que foram geradas. Clicando em “JÁ ARMAZENEI”, você é redirecionado para a tela de gestão da aplicação. Após geradas as credenciais, por medida de segurança, não ficarão mais disponíveis para consulta, sendo possível apenas gerar novas credenciais. Seria isso ai acima, pelo que entendi, não ficará mais disponível a consulta no portal, mas como a gente já salva essas informações no banco, acredito que não teremos problemas.... Obrigado juliomar!

mas será que impacta em algo para o ambiente de produção?

Olá, um cliente meu recebeu esse email do banco do brasil, sobre os boletos híbridos. Prezado(a) Cliente, No dia 26/04, o Portal Developers BB será atualizado para melhorar sua infraestrutura, adotando tecnologias recentes para maior segurança e inovação. A partir dessa data, as credenciais só estarão acessíveis no moment o da geração, sendo necessário regerá-las se não forem salvas. Detalhes sobre essa e outras atualizações estarão disponíveis na área de Apoio do Portal > Comunicados > Avisos Gerais ou diretamente via https://apoio.developers.bb.com.br/referency/p ost/64651c4c5319490012819751. Pedimos desculpas por qualquer transtorno e agradecemos a compreensão enquanto trabalhamos para melhorar a qualidade e segurança dos nossos serviços. Para suporte, entre em contato via área de Apoio do Portal > Suporte Técnico ou diretamente via https://apoio.developers.bb.com.br/referency/post/648a16c6f46115001385f8e6. Atenciosamente, Banco do Brasil S/A Equipe Portal Developers BB A gente precisa ajustar alguma coisa?

Entendi Juliomar, vou calcular as taxas então de multa e juros.... obrigado pelo retorno.

Olá, Modifiquei a minha consulta de boletos híbridos, antes eu fazia um por um, utilizando o Configuracoes.WebService.Operacao := tpConsultaDetalhe; Hoje estou usando por período, usando o Configuracoes.WebService.Operacao := tpConsulta; Mas notei que no retorno não vem algumas informações que necessito para realizar a baixa do boletos, como por exemplo: ARetornoWS.DadosRet.TituloRet.ValorMoraJuros := LJsonObject.AsFloat['valorJuroMoraRecebido']; Que só vem na consulta detalhe, tem como implementar ou essas informações só vem mesmo no detalhe?

Irei colocar uma função para checar se a internet está ok, e checar se resolve o problema.

A analista de rede do meu cliente, me informou que nesse horário, eles ficaram sem internet.... deve ter sido esse o problema, mas o timeout num deveria "derrubar" essa minha tentativa?

O suporte do banco me respondeu o seguinte: Essa requisição das 22:05:03 não chegou no ambiente do BB, conforme log ... Orientamos verificar se houve algum erro de rede no ambiente interno e confirmar se realmente a requisição chegou a “sair” da rede interna. mesmo assim irei colocar o sleep e checar no servidor se teve algum problema nesse horário.

Sim, eu pego todos os boletos em aberto na base de dados... e consulto no BB a situação dele, se foi pago, cancelado... irei colocar um sleep, de 5 segundos e validar, qualquer coisa te aviso.

Lembrei do log do componente, e verifiquei isso: 02/10/24 22:05:03:633 - Autenticando Token... 02/10/24 22:05:03:633 - Comando Enviar: TOAuth 02/10/24 22:05:03:633 - URL: [POST] https://oauth.bb.com.br/oauth/token?grant_type=client_credentials&scope=cobrancas.boletos-info cobrancas.boletos-requisicao 02/10/24 22:05:06:424 - Validade: 02/10/2024 22:15:06 02/10/24 22:05:06:425 - Comando Enviar: TBoletoW_BancoBrasil_API 02/10/24 22:05:06:425 - Comando Enviar: 02/10/24 22:05:06:425 - URL: [GET] https://api.bb.com.br/cobrancas/v2/boletos/00023232500000051214?gw-dev-app-key=f2316b9157cf0238cb9a09ebae96a559&numeroConvenio=2323250 ele travou ai, e ficou...

Olá, de alguns dias pra cá, o meu serviço de consulta no banco do brasil, está travando toda noite, alguém está sabendo de alguma coisa? Estou fazendo o seguinte: // Consulta o boleto no WS logConsultaWSbancos.Log('Consulta WS Bancos ', 'No o while, iniciando AcbrBoleto...'); ACBrBoleto.ListadeBoletos.Clear; logConsultaWSbancos.Log('Consulta WS Bancos ', 'No o while, limpando o AcbrBoleto...'); Titulo := ACBrBoleto.CriarTituloNaLista; logConsultaWSbancos.Log('Consulta WS Bancos ', 'No o while, criando o Titulo...'); ACBrBoleto.Banco.TipoCobranca := cobBancoDoBrasilAPI; logConsultaWSbancos.Log('Consulta WS Bancos ', 'No o while, atribuído o tipo da API ao componente...'); AcbrBoleto.Cedente.Convenio := iqrConsBoletosEmAbertoCONVENIO.AsString; ACBrBoleto.Cedente.Nome := iqrConsBoletosEmAbertoNOMEEMPRESA.AsString; ACBrBoleto.Cedente.Agencia := iqrConsBoletosEmAbertoNUMEROAG.AsString; ACBrBoleto.Cedente.AgenciaDigito := iqrConsBoletosEmAbertoDIGITOAG.AsString; ACBrBoleto.Cedente.Conta := iqrConsBoletosEmAbertoNUMEROCC.AsString; ACBrBoleto.Cedente.ContaDigito := iqrConsBoletosEmAbertoDIGITOCC.AsString; Titulo.Carteira := iqrConsBoletosEmAbertoCARTEIRA.AsString; vNossoNumero := '000' + iqrConsBoletosEmAbertoCONVENIO.AsString + ZeroEsquerda(iqrConsBoletosEmAbertoNOSSONUMERO.AsString, 10); Titulo.NumeroDocumento := vNossoNumero; Titulo.NossoNumero := ZeroEsquerda(iqrConsBoletosEmAbertoNOSSONUMERO.AsString, 10); logConsultaWSbancos.Log('Consulta WS Bancos ', 'No o while, atribuído os dados do boleto ao componente...'); // Configura componente ACBrBoleto.Cedente.CedenteWS.ClientID := iqrConsBoletosEmAbertoCLIENTID.AsString; ACBrBoleto.Cedente.CedenteWS.ClientSecret := iqrConsBoletosEmAbertoCLIENTSECRET.AsString; ACBrBoleto.Cedente.CedenteWS.KeyUser := iqrConsBoletosEmAbertoKEYUSER.AsString; ACBrBoleto.Cedente.CedenteWS.Scope := iqrConsBoletosEmAbertoSCOPE.AsString; ACBrBoleto.Cedente.CedenteWS.IndicadorPix := True; logConsultaWSbancos.Log('Consulta WS Bancos ', 'No o while, atribuído os dados do cadastrais da conta ao componente...'); ACBrBoleto.Configuracoes.WebService.Ambiente := TpcnTipoAmbiente(dtmSysParams.GetParamAsInteger('BOLETOHIBRIDO_AMBIENTE')); // Tipo de ambiente (taProducao, taHomologacao) logConsultaWSbancos.Log('Consulta WS Bancos ', 'No o while, atribuído o tipo do ambiente ao componente...'); ACBrBoleto.Configuracoes.WebService.SSLHTTPLib := httpOpenSSL; ACBrBoleto.Configuracoes.WebService.SSLCryptLib := cryOpenSSL; ACBrBoleto.Configuracoes.WebService.SSLType := LT_TLSv1_2; ACBrBoleto.Configuracoes.WebService.TimeOut := 30000; ACBrBoleto.Configuracoes.WebService.UseCertificateHTTP := False; logConsultaWSbancos.Log('Consulta WS Bancos ', 'No o while, configurado os protocolos de segurança ao componente...'); ACBrBoleto.Configuracoes.WebService.Operacao := tpConsultaDetalhe; logConsultaWSbancos.Log('Consulta WS Bancos ', 'No o while, configurado o tipo de operação ao componente...'); try logConsultaWSbancos.Log('Consulta WS Bancos ', 'No o while, antes de enviar a requisição ao banco...'); vEnviar := ACBrBoleto.Enviar; logConsultaWSbancos.Log('Consulta WS Bancos ', 'No o while, ACBrBoleto.TotalListaRetornoWeb: '+IntToStr(ACBrBoleto.TotalListaRetornoWeb)); except On E: Exception do begin logConsultaWSbancos.Log('Erro na Consulta WS Bancos: ', E.Message); Exit; end; end; ele simplesmente trava no "vEnviar := ACBrBoleto.Enviar;", e não levanta nenhuma exceção nem nada... O que pode ser?

Baixei a libpq.dll para 32 bits, informei no componente o caminho, e agora deu esse erro:

Olá, estou tentando conectar a um banco postgres 13, usando o zeos com delphi 2007, configurei o meu componente dessa forma(Config.jpg), e quando eu mando conectar, da o erro (Erro.jpg), O que pode ser?

Consegui instalar na versão 7.2, obrigado pela força!

vou tentar achar uma versão anterior....

fora o zeos, tu conhece algum componente que eu possa conectar um banco postgres? sei que o dbexpress consegue, mas criando uma conexão odbc, gostaria de forma nativa...

Certo, mas quando eu mandei compilar a biblioteca Zcore110.bpl, deu o mesmo erro: [DCC Error] ZBase64.pas(40): E2003 Undeclared identifier: 'TBytesStream'

Quando eu mandei abrir o grupo de projeto do delphi 2007, deu esse erro:

Olá, ao tentar instalar o componente Zeos 8.0, no delphi 2007, quando eu mando compilar a biblioteca Zcore110.bpl, da o seguinte erro: [DCC Error] ZBase64.pas(40): E2003 Undeclared identifier: 'TBytesStream' Adicionei no library path, o seguinte caminho: C:\Desenvolvimento\Componentes\Zeos 8.0\src E mesmo assim dar o erro, alguém já passou por isso?

Obrigado Juliomar, mas a unit não está implementada a função de decrypt... procedure TDCP_blockcipher.DecryptCFBblock(const Indata; var Outdata; Size: longword); begin end; você utiliza algum componente ou dll, se sim... poderia me indicar qual usar? obrigado mais uma vez...

procurando, mas ainda não achei... se você tiver algum link que tenha essas unit´s.... ficarei bastante grato.

Olá, ainda na luta para converter do Delphi 2007 para o Delphi Alexandria. Na minha rotina de criptografia/descriptografia, eu utilizo a unit U_Cipher com a unit DCPcrypt, com o delphi 2007, eu consigo normalmente realizar os procedimentos, mas no delphi alexandria, sempre dar erro... não consegui identificar o problema... Função da U_Cipher procedure DecifraArquivo(ArquivoIn: String; var Stream: TStringStream; Senha:String); overload; var Cipher: TDCP_IDEA; Input: TFileStream; {Progress, }Done: longint; Header : packed record Id : longint; Check1, Check2: longint; end; begin if not FileExists(ArquivoIn) then Exit; try Input:= TFileStream.Create(ArquivoIn,fmOpenRead); except Exit; end; Stream.Position := 0; Stream.Size := 0; Input.Read(Header,Sizeof(Header)); Cipher:= TDCP_IDEA.Create(Application); //Progress:= 0; Cipher.InitStr(Senha); { Initialize the cipher with the passphrase } if Cipher is TDCP_blockcipher then TDCP_blockcipher(Cipher).CipherMode:= cmCFBblock; { Set the mode } Cipher.Decrypt(Header.Check1,Header.Check1,8); { Decrypt the header and check that the two numbers we stored are the same } if Header.Check1<> Header.Check2 then begin Input.Free; Cipher.Burn; Cipher.Free; Exit; end; repeat Done:= Cipher.DecryptStream(Input,Stream,32768); { Decrypt the file } //Inc(Progress,Done); // DecProgressBar.Position:= (Progress*100) div Input.Size; until Done<> 32768; Input.Free; Cipher.Burn; { Remember to Burn } Cipher.Free; FillChar(Header,Sizeof(Header),0); end; Função da DCPcrypt procedure TDCP_blockcipher.DecryptCFBblock(const Indata; var Outdata; Size: longint); var i: longint; p1, p2: Pbyte; begin if not fInitialized then raise EDCP_blockcipher.Create('Cipher not initialized'); p1:= @Indata; p2:= @Outdata; for i:= 1 to (Size div BS) do begin Move(p1^,Temp^,BS); EncryptECB(Chain^,Chain^); Move(p1^,p2^,BS); XorBlock(p2^,Chain^,BS); Move(Temp^,Chain^,BS); p1:= pointer(longint(p1) + BS); p2:= pointer(longint(p2) + BS); end; if (Size mod BS)<> 0 then begin EncryptECB(Chain^,Chain^); Move(p1^,p2^,Size mod BS); XorBlock(p2^,Chain^,Size mod BS); end; end; nesse trecho abaixo, sempre esta dando diferente, aonde era pra ser igual if Header.Check1<> Header.Check2 then Alguém já passou por isso? ou tem outra forma de resolver isso?

consegui compilar, obrigado pela ajuda.

Olá, estou com uma dúvida de como resolver esse problema abaixo: Eu tenho uma função de cópia no delphi 2007, estou convertendo para o delphi alexandria e está dando erro: procedure TdtmGenIbx.CopyIBDataSet(idsSource, idsDest: TIBDataSet); var i: Integer; bkmk: TBookmarkStr; begin if idsDest = nil then idsDest := TIBDataSet.Create(Self); idsDest.Database := idsSource.Database; idsDest.CachedUpdates := idsSource.CachedUpdates; idsDest.SelectSQL.Assign(idsSource.SelectSQL); idsDest.InsertSQL.Assign(idsSource.InsertSQL); idsDest.ModifySQL.Assign(idsSource.ModifySQL); idsDest.DeleteSQL.Assign(idsSource.DeleteSQL); idsDest.RefreshSQL.Assign(idsSource.RefreshSQL); idsDest.Open; bkmk := idsSource.Bookmark; *************** idsSource.DisableControls; idsSource.First; while not idsSource.Eof do begin idsDest.Insert; for i := 0 to idsSource.FieldCount - 1 do if idsSource.Fields[i].FieldKind = fkData then idsDest.FieldByName(idsSource.Fields[i].FieldName).Value := idsSource.Fields[i].Value; idsDest.Post; idsSource.Next; end; idsSource.Bookmark := bkmk; idsSource.EnableControls; end; *************** está dando erro nessa linha: [dcc32 Error] uDMGenIbx.pas(447): E2010 Incompatible types: 'AnsiString' and 'System.TArray<System.Byte>' Como eu consigo resolver?

eu fiz isso, e deu a mesma coisa.... deu essa informação no log. Compiling package C:\Desenvolvimento\Componentes Alexandria\jcl-master\jcl\packages\d28\Jcl.dpk "C:\Program Files (x86)\Embarcadero\Studio\22.0\bin\dcc32.exe" "C:\Desenvolvimento\Componentes Alexandria\jcl-master\jcl\packages\d28\Jcl.dpk" --no-config -U"C:\Program Files (x86)\Embarcadero\Studio\22.0\lib\Win32\release" -NU"..\..\lib\d28\win32" -I"..\..\lib\d28\win32;..\..\source\include;" -R"..\..\lib\d28\win32;..\..\source\include;" -DBCB;BCB;WIN32;CONDITIONALEXPRESSIONS;VER350;RELEASE;BCB;WIN32;CONDITIONALEXPRESSIONS;VER350;RELEASE -U"C:\Desenvolvimento\Componentes Alexandria\jcl-master\jcl\lib\d28\win32\;C:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp;..\..\lib\d28\win32;..\..\source\include;" -LU"rtl;" -ns"System;System.Win;WinApi;Vcl;Vcl.Imaging;" -LN"C:\Desenvolvimento\Componentes Alexandria\jcl-master\jcl\lib\d28\win32" -LE"C:\Users\Public\Documents\Embarcadero\Studio\22.0\Bpl" Embarcadero Delphi for Win32 compiler version 35.0 Copyright (c) 1983,2022 Embarcadero Technologies, Inc. 129 lines, 0.28 seconds, 1788136 bytes code, 719220 bytes data. Compilation success ...done. agora se eu excluo o componente da tela e incluo novamente, funciona....