Ir para conteúdo
  • Cadastre-se

Lucio Bittes

Membros
  • Total de ítens

    246
  • Registro em

  • Última visita

  • Days Won

    1

Posts postados por Lucio Bittes

  1. 8 horas atrás, Juliomar Marchetti disse:

    então o lfm precisa ser modificado também para dai poder validar e dai sim subir, não posso subir só para delphi tem que ter para lazarus também

    Não uso lazarus. Então não sei como fazer a alteração. 

  2. 1 hora atrás, Juliomar Marchetti disse:

    mas tu mandou o dfm também

    lembrando que o dfm é delphi e lfm é lazarus então não é no fortes que mudou tanto que se fosse dai teria que ser um pull request lá o fortes , tu mudou o relatorio em si

    Isso mesmo. Adicionei um image no relatorio e ele recebe como property.

  3. 2 horas atrás, Juliomar Marchetti disse:

    em lazarus também?

    Lazarus não testei. Mas a alteração foi no FortesReport. Então bem provável que vai da certo também.

    Agora, Lucio Bittes disse:

    Lazarus não testei. Mas a alteração foi no FortesReport. Então bem provável que vai da certo também.

    Com essa alteração deu certo.

  4. 14 horas atrás, Jhonlenon Ribeiro disse:

    @Lucio Bittes agora está retornando o qrcode do pix em homologação, depois dessa alteração nos dados em homologação. Será que você consegui implementar no ACBrBoleto?

    "nroCpfCnpjBenef": "68542653",

       "filCpfCnpjBenef": "1018",

       "digCpfCnpjBenef": "38",

       "cidtfdProdCobr": "09",

       "cnegocCobr": "386100000000041000",

    obs.: No Header deve ser alterado o CNPJ para 68542653101838

     {*** FIM BLOCO DE ASSINATURA ***}

      {*** MONTAGEM DO HEADER ***}
      FHTTP.Request.Clear;
      FHTTP.Request.CustomHeaders.Clear;
      FHTTP.Request.UserAgent           := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; Acoo Browser; GTB5; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; Maxthon; InfoPath.1; .NET CLR 3.5.30729; .NET CLR 3.0.30618)';
      FHTTP.Request.Accept              := '*/*';
      FHTTP.Request.AcceptCharSet       := 'UTF-8, *;q=0.8';
      FHTTP.Request.AcceptEncoding      := 'gzip, deflate, br';
      FHTTP.Request.BasicAuthentication := False;
      FHTTP.Request.Connection          := 'keep-alive';
      FHTTP.Request.CustomHeaders.FoldLines := False;
      FHTTP.Request.ContentType := 'application/json';
      FHTTP.Request.CustomHeaders.Add('Authorization: Bearer ' + editToken.Text); //TOKEN OBTIDO.
      FHTTP.Request.CustomHeaders.Add('X-Brad-Signature: ' +vStrRequestAssinado);
      FHTTP.Request.CustomHeaders.Add('X-Brad-Nonce: ' + IntToStr(vIntMiliSegundos));
      FHTTP.Request.CustomHeaders.Add('X-Brad-Timestamp: ' + vStrTimeStamp);
      FHTTP.Request.CustomHeaders.Add('X-Brad-Algorithm: SHA256');
      FHTTP.Request.CustomHeaders.Add('access-token: ' + CLIENT_ID);
      FHTTP.Request.CustomHeaders.Add('cpf-cnpj: ' + '68542653101838'); /// CNPJ de homologação

     Parte do retorno do json em homologação

     "ialiasAdsaoCta":"9fb698d6-b191-4cec-99a5-ae7b86818039",
       "iconcPgtoSpi":"20240422237093861004100022222233408",
       "wqrcdPdraoMercd":"00020101021226930014BR.GOV.BCB.PIX2571qrpix-h.bradesco.com.br/qr/v2/cobv/a4365949-d058-448f-a3e0-7c20de621e5e520400005303986540580.005802BR5924EMPRESA PGIT NET EMPRESA6006OSASCO62070503***63044EAE",
       "validadeAposVencimento":0,

    Bom dia. Por enquanto não vou conseguir. Provável que mês que vem talvez possa iniciar o processo. Vai depender muito da demanda, que por sinal sempre tá acumulada rsrs.

    Esse último anexo e que você está usando ne?

  5. 1 minuto atrás, Juliomar Marchetti disse:

    após essa alteração . tu rodou o instalador do acbr e testou o componente?

    ele passou

    Boa tarde. Sim, funcionou corretamente com as informações do proxy do jeito que fiz.

  6. 29 minutos atrás, Daniel InfoCotidiano disse:

    Bom dia @Lucio Bittes
    Subimos uma correção, pode atualizar seu svn e rodar o instalador por favor.
    após os estes se puder nos dar um feedback;
    É para estar funcionando em seu ambiente agora

    Acabei de efetuar a consulta e retornou com sucesso. Obrigado!

    • Curtir 1
  7. 5 minutos atrás, Jhonlenon Ribeiro disse:

    @Lucio Bittes  você está testando em produção? eu estou esperando o suporte da API liberar meu cliente em produção, tem muita burocracia demais para um simples boletos. Eu quero testar em produção pra ver se vai retornar o qrcode do pix ou não no boleto.

    Bom dia. Não, tô esperando resposta. Muito moroso o pessoal do banco. Credo.

    • Curtir 1
  8. 2 minutos atrás, willian_delan disse:

    @Jhonlenon Ribeiroe @Lucio Bittes, com esse projeto consegui emitir com sucesso o boleto, minha única dúvida é o seguinte, no projeto em questão TODOS os campos do JSON do boleto estão sendo tratados como string, exemplo "nroCpfCnpjBenef":"86342625", sendo que de acordo com o manual este é um campo Numeric. Eu identifiquei que esse era o problema que eu estava enfrentando. Sabem me dizer se isso é algo apenas da homologação? Ou se em Produção também iremos tratar todos os campos como String?

    Não sei. Porque estamos tentando emitir retornando o qrcode primeramente para depois implementar no ACBr. Estou travado nessa questão porque não conseguir emitir com informação do PIX. Estou aguardando retorno do banco até hoje.

    • Curtir 1
  9. Bom dia. Como faço para passar as configurações do proxy para o httpsend? Eu vi que ele pega do BoletoWS mas o DefinirProxy fica no final do processo que deveria ser o primeiro onde ele pega o token. Não conseguir alimentar ele.

     

    No demo adicionei o comando na configuração.

      Boleto.Configuracoes.WebService.ProxyHost := '';
      Boleto.Configuracoes.WebService.ProxyPort := '';
      Boleto.Configuracoes.WebService.ProxyUser := '';
      Boleto.Configuracoes.WebService.ProxyPass := '';

    No ACBrBoleto.Enviar adicionei essas linhas para pegar o proxy do webService.

    function TACBrBoleto.Enviar: Boolean;
    var
      RemessaWS: TBoletoWS;
    begin
      if not (Configuracoes.WebService.Operacao in [tpConsulta]) then
        if ListadeBoletos.Count < 1 then
          raise Exception.Create(ACBrStr('Lista de Boletos está vazia'));
    
      ChecarDadosObrigatorios;
    
      //Instancia classe para Registro Boleto WebService
      RemessaWS := TBoletoWS.Create(Self);
      try
        RemessaWS.ProxyHost := Configuracoes.WebService.ProxyHost;
        RemessaWS.ProxyPort := Configuracoes.WebService.ProxyPort;
        RemessaWS.ProxyUser := Configuracoes.WebService.ProxyUser;
        RemessaWS.ProxyPass := Configuracoes.WebService.ProxyPass;
    
        ListaConsultaRetornoWeb.Clear;
        try
          Result:= RemessaWS.Enviar;
        Except
          on E:Exception do
          begin
            if ( ( RemessaWS.RetornoBanco.CodRetorno = 0 ) and
                 ( Trim( RemessaWS.RetornoBanco.Msg ) = '' ) ) then
              raise Exception.Create(ACBrStr('Erro: ' + E.Message))
            else
              raise Exception.Create(ACBrStr('Erro: ' + IntToStr(RemessaWS.RetornoBanco.CodRetorno) + sLineBreak +
                                     RemessaWS.RetornoBanco.Msg + sLineBreak));
          end;
        end;
    
      finally
        RemessaWS.Free;
      end;
    end;

    E no ACBrBoletoWS.Rest mudei o definirProxy no inicio. Assim conseguir usar o proxy. Mas não sei se e a maneira correta.

    function TBoletoWSREST.Enviar: Boolean;
    begin
      BoletoWS.RetornoBanco.CodRetorno := 0;
      BoletoWS.RetornoBanco.Msg        := '';
    
      DefinirProxy;
      DefinirAuthorization;
      DefinirURL;
      DefinirContentType;
      DefinirCertificado;
    
      //Grava json gerado
      if Boleto.Configuracoes.Arquivos.LogNivel >= logSimples then
        BoletoWS.DoLog('Comando Enviar: ' + ClassName);
    
      if Boleto.Configuracoes.Arquivos.LogNivel >= logSimples then
        BoletoWS.DoLog('Comando Enviar: ' + FPDadosMsg);
    
      try
        Executar;
      finally
        Result := (BoletoWS.RetornoBanco.HTTPResultCode in [ 200 .. 207 ]);
        if Boleto.Configuracoes.Arquivos.LogNivel >= logSimples then
        begin
          BoletoWS.DoLog('Retorno Envio: ' + Self.ClassName);
          BoletoWS.DoLog('Código do Envio: ' + IntToStr(BoletoWS.RetornoBanco.HTTPResultCode));
        end;
        if Boleto.Configuracoes.Arquivos.LogNivel >= logParanoico then
        begin
          if Result then //Grava retorno
            BoletoWS.DoLog('Retorno Envio: ' + FRetornoWS)
          else
            BoletoWS.DoLog('Retorno Envio: ' + IfThen(BoletoWS.RetornoBanco.CodRetorno > 0,
                sLineBreak + 'ErrorCode=' + IntToStr(BoletoWS.RetornoBanco.CodRetorno), '') + sLineBreak + 'Result=' + NativeStringToAnsi(FRetornoWS));
        end;
      end;
    end;

     

  10. 8 minutos atrás, Daniel InfoCotidiano disse:

    perguntei pq tenho um outro caso q o usuario esta com uma conta de 7 digitos.
    No postman funciona a consulta do Sr?
    Ele localiza o boleto ?
    Consegue por favor testar com o programa exemplo.
    Pq caso nao funcione e se desejar nos passar via email o INI do exemplo com as informacoes bancarias, certificado e o nosso numero para consulta. testamos em nosso ambientes
    [email protected], no corpo do email favor colar o link deste post para que possamos identifica-lo;

    Confirma o recebimento por favor. Te mandei também o print do postman com o retorno do boleto.

    23 horas atrás, Lucio Bittes disse:

    Sim, clientid e clientsecret e o certificado são todos os mesmos.

    LogSimples.txt 5.98 kB · 0 downloads

    2024.03.25.17.57.40.348-RetornoConsultaDetalhe.txt 445 B · 0 downloads

    image.png.ca86203143834d86d407db0288e79d46.png

    Sao todos os mesmos. 

    Já comparei todos os detalhes. São todos os mesmos. Não sei se e alguma coisa que ta faltando.

    Aqui tem os logs se precisar.

  11. Em 15/02/2024 at 18:17, Daniel InfoCotidiano disse:

    @Lucio Bittes boa tarde !
    A coonsulta em produção está funcionando ?
    tive um relato de um usuario que não esta retornando, mas o banco não o respondeu sobre a autorização da consulta se está ativa ou não.

    Você inclusive tinha comentado comigo sobre o assunto. Estou com as credenciais para efetuar a consulta.

  12. 3 minutos atrás, Daniel InfoCotidiano disse:

    no nosso numero do get postman bate com o nosso numero q vc mandou acima?

     

    Sim, nenhuma diferença. Inclusive a mesma url e criada corretamente. Os dois estão iguais.

     

    image.thumb.png.151bcf15c0fdd70454c61f8f0282e5a6.png

  13. Coloquei o log 

    25/03/24 17:06:18:578 - Comando Enviar: TOAuth
    25/03/24 17:06:18:580 - URL: [POST] https://sts.itau.com.br/api/oauth/token
    25/03/24 17:06:18:999 - Validade: 25/03/2024 17:11:18
    25/03/24 17:06:26:068 - Comando Enviar: TBoletoW_Itau_API
    25/03/24 17:06:27:222 - Comando Enviar: 
    25/03/24 17:06:55:891 - URL: [GET] https://secure.api.cloud.itau.com.br/boletoscash/v2/boletos?id_beneficiario=065400139211&codigo_carteira=109&nosso_numero=00020001
    25/03/24 17:07:01:848 - Retorno Envio: TBoletoW_Itau_API
    25/03/24 17:07:01:848 - Código do Envio: 400

    Pelo postman.

    image.thumb.png.7d7eefa6ad9805a2bfacd384af906bda.png

    Já olhei tudo e não to conseguindo identificar o ponto da onde ta me retornando o erro.

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.