Márcio Antônio

O suporte pediu para testar com a nova url: Seria alterar a unit abaixo apenas?

Olá, fiz o cadastro no site do BB, e estou tentando testar o uso do componente pelo demo do acbr, informei os dados do meu cadastro e está me retornando o erro abaixo: 21/05/26 14:52:09:821 - ResultCode: 403 - 21/05/26 14:52:09:823 - Resp.Body: { "statusCode": 403, "error": "Forbidden", "message": "Application key is not allowed to call this resource method" } 21/05/26 14:52:09:824 - Erro HTTP: 403 Socket Error: 0 URL: https://api.hm.bb.com.br/extratos/v1 Resposta HTTP: { "statusCode": 403, "error": "Forbidden", "message": "Application key is not al lowed to call this resource method" } Alguém sabe o que possa ser?

Verdade, tive que calcular na "mão", para ficar centralizado o panel, mas dependendo da tela, ela não fica 100%. Mas depois com mais calma, eu tento de outra forma. Obrigado mesmo assim!

Olá, eu tenho esse código abaixo funcionando perfeitamente no Delphi 2007, mas estou migrando para o Delphi Alexandria, e o mesmo não está mais centralizando, já fiz algumas modificações no form, como por exemplo: Align := alnone; e Anchors : = []; e mesmo assim não funciona, alguém sabe o motivo? Código: procedure TdtmSysMsg.AguardeForm(Formulario: TForm; Mensagem: string); var pngAguarde: TPanel; begin FimAguardeForm(Formulario); Mensagem := Mensagem + ' ...'; Screen.Cursor := crSQLWait; pngAguarde := TPanel.Create(Formulario); with pngAguarde do begin Align := alNone; Width := Length(Mensagem) * 9; // Left := (Formulario.Width - Width) div 2; // Top := (Formulario.Height - Height) div 2; Left := (Formulario.ClientWidth - Width) div 2; Top := (Formulario.ClientHeight - Height) div 2; Name := 'pngAguarde'; Parent := formulario; Caption := Mensagem; Height := 59; BorderStyle := bsNone; Color := $00DEDCBE; Color := clSkyBlue; Font.Charset := DEFAULT_CHARSET; Font.Color := clWindowText; Font.Height := -11; Font.Name := 'Tahoma'; Font.Size := 10; Font.Style := [fsBold]; ParentFont := False; ParentColor := False; ParentBackground := False; Application.ProcessMessages; end; end; eu chamo essa procedure em vários momentos do form, e em nenhuma dela a mesma fica centralizada...

não, mas eu consegui utilizando o componente da TMS, obrigado pelo retorno.

Olá, estou usando o componente da LockBox, o tcodec, estou tentando criptografar um arquivo e descriptografar, mas não está descriptografando, o arquivo está ficando zerado, não estou conseguindo resolver.... alguém tem alguma ideia do que seja? Código para criptografar: procedure TForm1.btnCriptArquivoClick(Sender: TObject); var Codec2: TCodec; Lib2: TCryptographicLibrary; FSInput, FSOutput: TFileStream; begin Codec2 := TCodec.Create(nil); Lib2 := TCryptographicLibrary.Create(nil); try // --- Configuração --- Codec2.Password := 'teste'; Codec2.CryptoLibrary := Lib2; // Garante o uso de AES-256 com CBC Codec2.StreamCipherId := uTPLb_Constants.BlockCipher_ProgId; Codec2.BlockCipherId := 'native.AES-256'; Codec2.ChainModeId := uTPLb_Constants.CBC_ProgId; FSInput := TFileStream.Create('C:\temp\conncfg.xml', fmOpenRead); FSOutput := TFileStream.Create('C:\temp\conncfg.aes', fmCreate); try Codec2.EncryptStream(FSInput, FSOutput); ShowMessage('Arquivo criptografado com sucesso.'); finally FSInput.Free; FSOutput.Free; end; finally Codec2.Free; Lib2.Free; end; end; Código para descriptografar: procedure TForm1.btnDesCriptArquivoClick(Sender: TObject); var Codec2: TCodec; Lib2: TCryptographicLibrary; FSInput, FSOutput: TFileStream; begin Codec2 := TCodec.Create(nil); Lib2 := TCryptographicLibrary.Create(nil); try // --- Configuração --- Codec2.Password := 'teste'; Codec2.CryptoLibrary := Lib2; // Garante o uso de AES-256 com CBC Codec2.StreamCipherId := uTPLb_Constants.BlockCipher_ProgId; Codec2.BlockCipherId := 'native.AES-256'; Codec2.ChainModeId := uTPLb_Constants.CBC_ProgId; FSInput := TFileStream.Create('C:\temp\conncfg.aes', fmOpenRead); FSOutput := TFileStream.Create('C:\temp\conncfg_Novo.xml', fmCreate); try Codec2.DecryptStream(FSInput, FSOutput); ShowMessage('Arquivo descriptografado com sucesso.'); finally FSInput.Free; FSOutput.Free; end; finally Codec2.Free; Lib2.Free; end; end;

Baixei novamente, e instalei pelo instalador. Agora deu certo, obrigado!

Olá, instalei o fortes e o acbr no meu delphi alexandria, e tentei compilar um projeto, e deu esse erro abaixo: o que poderia ser?

Estou com um cliente, que envia inúmeros emails por dia, eles contrataram a Locaweb para ter esse processo, sendo que o suporte informou a eles o seguinte: "O sistema tem que ter uma opção de fazer login em outro servidor" "estou suspeitando que a aplicação não permita que você use o remetente junto com um usuário diferente para a autenticação" "la no outlook, quando você vai em configurações avançadas e utiliza o "fazer logon usando" e coloca os dados do SMTP, é basicamente você informando que apesar de usar um remetente de um provedor X, você quer fazer autenticação no servidor com um login Y" "Isso, o ideal seria verificar junto a equipe responsável pela aplicação se eles conseguem implementar ou realizar um ajuste pra ficar compativel com o SMTP pra você poder disparar em massa" "é só passa o login la da configuração, e o email, só que dentro do sistema eles tem que fazer login com outra conta, igual no outlook, se nao tiver essa opção não vai pegar, dentro do sistema deles eles tem que ter a opção de logar na saida com outra conta a não ser o e-mail normal" Tem alguma forma de resolver isso?

Descobri o problema, era uma função que estava trocando o " pelo &quot, desculpe pela mensagem.

Olá, após a atualização, o meu Danfe ficou saindo com a descrição errada.... no nome do produto contém " de polegada, ai na impressão sai com &quot, como na foto em anexo, o que pode estar ocorrendo?

Olá, estou com uma dúvida. O boleto híbrido do itaú, tem o mesmo processo do banco do brasil, após o enviar, ele já me retorna o EMV? ACBrBoleto.Enviar; if (ACBrBoleto.TotalListaRetornoWeb > 0) AND (ACBrBoleto.ListaRetornoWeb[i].DadosRet.TituloRet.EMV <> '') then begin QrCode.emv := ACBrBoleto.ListaRetornoWeb[i].DadosRet.TituloRet.EMV; ou ele só retorna o EMV pelo arquivo de retorno?

Valeu BigWings!

Olá, Gostaria de saber se pode e se tem espaço para informar no Danfe da NFCe, o nome do vendedor e do usuário logado?

vou tentar...

Olá, estou adicionado valores em um clientdataset, dessa maneira: Empresa Código Produto Qtd 1 1 Sabonete 10 2 1 Sabonete 20 3 1 Sabonete 30 Gostaria de Agrupar esses registros de maneira que no meu grid apareça assim: Código Produto Qtd 1 Sabonete 60 Teria como fazer isso no clientdataset?

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.