[ERRO AO GERAR O PIX]

Ola Juliomar, realmente tinha uma pendencia no portal developer do BB que era a assinatura do contrato pra colocar em produçao, apesar de rodar uns 2 dias sem esse contrato assinado.

Isso foi resolvido, porem o erro que esta ocorrendo agora é o seguinte:

Na minha aplicação:

HTTP:400 oauth.bb.com.br/oauth/token

No exemplo do ACBR:

HTTP:403 key is not allowed to call this resource method.

Estou usando as mesmas credenciais em ambos.

 

[ERRO AO GERAR O PIX]

Minha aplicação estava gerando normalmente o qrcode do pix, porem quando tive uma grande qtde de usuários tentando gerar o pix agora ocorre  o seguinte erro:

forbidden 403 key is not allowed to call this resource method.

 

[Erro de autenticação em outra maquina]

Deu  certo agora , Grato Juliomar

[Erro de autenticação em outra maquina]

Criei uma aplicação para gerar pix qrcode dinâmico através do BB. Na minha máquina onde eu criei a aplicação ele gera normalmente o pix e valida o pagamento, porém quando levo essa aplicação pra qquer outra maquina ele dá seguinte erro :

06/03/23 14:40:39:281 - EACBrPixHttpException: Erro HTTP: 500, Metodo: POST, URL: https://oauth.bb.com.br/oauth/token

[ACBrPosPrinter Delay no desativar]

Eu preciso desativar pq eu tenho um unico componente PosPrinter e varias impressoras, exemplo qdo vier um pedido de refrigerante preciso passar os parametros para a impressora do bar, qdo vier um produto de cozinha tenho que passar para a impressora da cozinha.

Se eu nao desativar o componente nao aceita eu setar os parametros para uma nova impressora.

segue o trecho do codigo que faz isso:

function TDM_ESCPOS.Ativar(Porta: String;Impressora:String):Integer;
var
  ArqIni     : TIniFile;
begin
 frmMain.QListaImpressoras.Locate('descricao',Impressora,[]);

 ArqIni                                           := tIniFile.Create(frmMain.GetDir+'INFOLUCK.INI');

 ESCPOS.Desativar;
 ESCPOS.Modelo                                   := TACBrPosPrinterModelo(frmMain.QListaImpressoras.FieldByName('tipo_escpos').AsInteger);
 ESCPOS.Porta                                    := Porta;
 if ArqIni.ReadString('ESCPOS', 'LOG','NAO')='SIM' then
   ESCPOS.ArqLOG                                   :='ESCPOS.LOG'
 else
   ESCPOS.ArqLOG                                   :='';

 FreeAndNil(ArqIni);

 ESCPOS.CortaPapel                               := True;
 ESCPOS.VerificarImpressora                      := False; // esse parametro qdo true da problema de impressao muitos grandes qdo desativa e ativa a impressora
 result := 1;
 try
   ESCPOS.Ativar;
 except
   Result:=0;
 end;
End;

 

[ACBrPosPrinter Delay no desativar]

 

Qdo controleporta=TRUE eu somente ativo e imprimo , nao preciso desativar???

 

Em 28/06/2020 at 13:34, Daniel Simoes disse:

Precisamos de mais informações para avaliar seu relato..

Poderia por favor anexar o Log gerado pelo ACBrPosPrinter ?

Segue o arquivo de log. veja que la aparece a diferenca de 4 segundos entre desativar e ativar.

[ACBrPosPrinter Delay no desativar]

Em 28/06/2020 at 13:34, Daniel Simoes disse:

Precisamos de mais informações para avaliar seu relato..

Poderia por favor anexar o Log gerado pelo ACBrPosPrinter ?

Segue o arquivo de log. veja que la aparece a diferenca de 4 segundos entre desativar e ativar.

ESCPOS.LOG

[ACBrPosPrinter Delay no desativar]

Tenho um servidor de impressao que fica a toda hora consultando o banco para saber se existe novos pedidos para imprimir

Para esse servidor nao ficar segurando a porta da impressora para outras vias de impressao na mesma, ele ativa imprime e desativa.

Acontece que esta ocorrendo um delay de 4 a 5 segundos para desativar. geralmente esse tempo é na USB , com RAW ou placa de rede é um pouco menor.

Notamos que esse delay ocorre tb no codigo exemplo que vem junto com o ACBR.

Tem algo que eu possa fazer pra resolver???

[MICROTERMINAL COLLETER SERIAL]

Alguem usa o microterminal COLLETER SERIAL com o ACBR???

[DV NOSSO NUMERO ITAU]

Notei que o acbr esta gerando errado o digito verificador da NOSSONUMERO do boleto Itau.

Ele usa o CalcularDigitoVerificador ,comparamos com o layout do banco Itau, notamos que

o MultiplicadorAtual do acbr inicia em 2 e no manual deve-se iniciar com 1 para  montar o calculo usando o modulo 10.

Alguém ja passou por isso???

[CODIGO DA OCORRENCIA NO RETORNO]

Ola Juliana, poderia me ajudar, eu ja anexei o arquivo

[Como Preencher o Código para Baixa/Devolução posicao 224 e 226 do layout]

Ola bom dia Juliana.

Eu abri o arquivo ACBrBancoSantander.pas e no codigo consta da seguinte maneira:

 IntToStrZero(DaysBetween(Vencimento,DataBaixa), 2)      + // 226 - 227 / Número de dias para Baixa/Devolução

ai fiz o update pelo tortoise ocorreu uma atualizacao porem nada mudou.

Estou usando o trunk2.

 

[CODIGO DA OCORRENCIA NO RETORNO]

Ola bom dia Juliana

segue o arquivo em anexo

 

grato

 

COBST_H5D8_02_020316P_MOV.TXT

[CODIGO DA OCORRENCIA NO RETORNO]

Ola boa noite a todos

O Banco é Santander.

Estou usando a seguinte instrução:

Em: Boleto.ListadeBoletos[J].OcorrenciaOriginal.Descricao aparece = '03-Entrada Rejeitada'

Porem em: Boleto.ListadeBoletos[J].DescricaoMotivoRejeicaoComando.Text  nao retorna nada.

GRATO.

 

 

[Como Preencher o Código para Baixa/Devolução posicao 224 e 226 do layout]

Eu acho que descobri o problema,

O campo 226/227 esta sendo preenchido pelo acbr da seguinte forma: 

IntToStrZero(DaysBetween(Vencimento,DataBaixa), 2) 

Ou seja, diferença entre o vencto e a data da baixa, como minha instrucao para o banco é para nao baixar (posicao 224 - 1=baixa 2=nao baixar) eu devo neste caso preencher a propriedade Titulo.DataBaixa=Titulo.Vencimento para que o between retorne 0(zero).

Agora vou enviar pro banco pra saber se esta ok.

 

Grato

 

[Como Preencher o Código para Baixa/Devolução posicao 224 e 226 do layout]

Ola bom dia Juliana.

Verifiquei e nao preencho esta propriedade.

 

Segue abaixo o trecho do codigo responsavel pela geracao da remessa:

Boleto.ListadeBoletos.Clear;
  BoletoFortes.DirLogo := ExtractFilePath(Application.ExeName)+'\imagens\';

  Boleto.Banco.Numero := qryBancobanco_numero.AsInteger;
  Case qryBancobanco_numero.AsInteger of
    1   : Boleto.Banco.TipoCobranca := cobBancoDoBrasil;
    237 : Boleto.Banco.TipoCobranca := cobBradesco;
    104 : Boleto.Banco.TipoCobranca := cobCaixaEconomica;
    399 : Boleto.Banco.TipoCobranca := cobHSBC;
    341 : Boleto.Banco.TipoCobranca := cobItau;
    33  : Boleto.Banco.TipoCobranca := cobSantander;
    756 : Boleto.Banco.TipoCobranca := cobBancoob;
  End;

  Boleto.Banco.TamanhoMaximoNossoNum := qryBancobanco_tamanhomaxnossonum.AsInteger-1;

  Boleto.Cedente.Nome        := qryEmpresaempresa.AsString;
  Boleto.Cedente.CNPJCPF     := qryEmpresacnpj.AsString;
  Boleto.Cedente.Logradouro  := qryEmpresaendereco.AsString;
  Boleto.Cedente.NumeroRes   := qryEmpresanumero.AsString;
  Boleto.Cedente.Bairro      := qryEmpresabairro.AsString;
  Boleto.Cedente.Cidade      := qryEmpresacidade.AsString;
  Boleto.Cedente.UF          := qryEmpresauf.AsString;
  Boleto.Cedente.CEP         := qryEmpresacep.AsString;

  Boleto.Cedente.Agencia       := qryBancoagencia.AsString;
  Boleto.Cedente.AgenciaDigito := qryBancodigito_agencia.AsString;
  Boleto.Cedente.Conta         := qryBancoconta_corrente.AsString;
  Boleto.Cedente.ContaDigito   := qryBancodigito_corrente.AsString;
  Boleto.Cedente.CodigoCedente := qryBancocod_cedente.AsString;
  Boleto.Cedente.Convenio      := qryBancoconvenio.AsString;

  // segundo o Alan quando é remessa pro Santander é modalidade
  Boleto.Cedente.Modalidade    := QryBancomodalidade.AsString;

  Boleto.Cedente.CodigoTransmissao := qryBancocod_transmissao.AsString;
  Boleto.Cedente.Complemento       := qryBancocomplemento.AsString;

  if qryBancotipocarteira.AsString = 'R' then
    Boleto.Cedente.TipoCarteira := tctRegistrada
  else
    Boleto.Cedente.TipoCarteira := tctSimples;

  if qryBancotipoemissao.AsString = 'B' then
    Boleto.Cedente.ResponEmissao := tbBancoEmite
  else
    Boleto.Cedente.ResponEmissao := tbCliEmite;

  if qryBancost_emissao.AsString = '2' then
    Boleto.LayoutRemessa := c240
  else
    Boleto.LayoutRemessa := c400;

  QryRemessa.First;
  while not QryRemessa.Eof do
  begin
    If QryRemessaselecionar.AsBoolean=true then
     begin
      Titulo                   := Boleto.CriarTituloNaLista;
      Titulo.CaracTitulo       := tcSimples;
      Titulo.Vencimento        := QryRemessadtvencto.AsDateTime;
      Titulo.DataDocumento     := QryRemessadtemissao.AsDateTime;
      Titulo.NumeroDocumento   := QryRemessaid_doc.AsString+'/'+QryRemessaparc.AsString;
      if qryBancoespeciedoc.AsString <> '' then
        Titulo.EspecieDoc        := qryBancoespeciedoc.AsString;

      if UpperCase(qryBancobanco_aceite.AsString) = 'S' then
        Titulo.Aceite := atSim
      else
        Titulo.Aceite := atNao;

      if qryBancotipocobranca.AsString = 'C' then
        Titulo.CaracTitulo := tcCaucionada
      else
      if qryBancotipocobranca.AsString = 'D' then
        Titulo.CaracTitulo := tcDescontada
      else
      if qryBancotipocobranca.AsString = 'V' then
        Titulo.CaracTitulo := tcVinculada
      else
        Titulo.CaracTitulo := tcSimples;

      Titulo.DataProcessamento := Now;

      if qryBancotipoemissao.AsString = 'B' then
        Titulo.CarteiraEnvio     := tceBanco
      else
        Titulo.CarteiraEnvio     := tceCedente;

      Titulo.Carteira          := qryBancocarteira.AsString;
      Titulo.SeuNumero         := StrTamFixo(QryRemessaid_doc.AsString,6,'0')+StrTamFixo(QryRemessaparc.AsString,3,'0');
      Titulo.NossoNumero       := QryRemessanossonumero.AsString;
      Titulo.ValorDocumento    := QryRemessasaldo.AsFloat;
      Titulo.Sacado.NomeSacado := QryRemessanome.AsString;

      if Length(QryRemessacgc_cpf.AsString) = 14 then
        Titulo.Sacado.Pessoa := pJuridica
      else
        Titulo.Sacado.Pessoa := pFisica;

      Titulo.Sacado.CNPJCPF    := QryRemessacgc_cpf.AsString;
      if QryRemessaendereco_cobranca.AsString <> '' then //o cliente preencheu informou o endereço de cobrança
      begin
        Titulo.Sacado.Logradouro := QryRemessaendereco_cobranca.AsString;
        Titulo.Sacado.Numero     := QryRemessanumero_cobranca.AsString;
        Titulo.Sacado.Bairro     := QryRemessabairro_cobranca.AsString;
        Titulo.Sacado.Complemento:= '';
        Titulo.Sacado.Cidade     := QryRemessacidade_cobranca.AsString;
        Titulo.Sacado.UF         := QryRemessauf_cobranca.AsString;
        Titulo.Sacado.CEP        := QryRemessacep_cobranca.AsString;
      end
      else
      begin
        Titulo.Sacado.Logradouro := QryRemessaendereco.AsString;
        Titulo.Sacado.Numero     := QryRemessanossonumero.AsString;
        Titulo.Sacado.Bairro     := QryRemessabairro.AsString;
        Titulo.Sacado.Complemento:= '';
        Titulo.Sacado.Cidade     := QryRemessacidade.AsString;
        Titulo.Sacado.UF         := QryRemessauf.AsString;
        Titulo.Sacado.CEP        := QryRemessacep.AsString;
      end;
      Titulo.LocalPagamento    := qryBancolocal_pagamento.AsString;

      // calculos de juros
      If QryBancoperc_juros_dia.AsFloat>0 then
       begin
        Titulo.ValorMoraJuros    := RoundTo((QryBancoperc_juros_dia.AsFloat/100)*qryRecebersaldo.AsFloat ,-2);
        Titulo.DataMoraJuros     := qryReceberdtvencto.AsDateTime;
       end;

      // multa
      If QryBancoperc_multa.AsFloat>0 then
       begin
        Titulo.PercentualMulta:=QryBancoperc_multa.AsFloat;
       end;

      // protesto
      If QryBancoprotestar.AsBoolean then
       begin
        Titulo.DataProtesto:=qryReceberdtvencto.AsDateTime+QryBancodias_protesto.AsInteger;
       end;

      //Titulo.Mensagem.Text     := edtMensagemAdicionalBoleto.Text; //qryEmpresamensagem_boleto.AsString;
      Titulo.Instrucao1        := qryBancointrucao1.AsString;
      Titulo.Instrucao2        := qryBancointrucao2.AsString;
    end;

 

GRATO

 

 

[Como Preencher o Código para Baixa/Devolução posicao 224 e 226 do layout]

Ola boa noite.

Depois que eu atualizei o acbr pelo trunk2 minha rotina de remessa para o Santander nao esta mais sendo aceito pelo banco.

Segundo a rejeição a codigo de baixa/devolucao esta preenchido como 2 para nao baixar porem na posicao 226/227 esta sendo preechido valores diferentes de zero, segundo o banco eu devo preencher com 00.

Qual propriedade do componente que se refere a esta campo??

 

Grato

 

[CODIGO DA OCORRENCIA NO RETORNO]

Como eu faço para pegar o codigo da ocorrencia do retorno no layout 240.

Eu consigo saber que houve uma rejeicao , mas nao tenho o motivo da rejeicao.

 

GRATO.

 

 

 

 

[ACBrBal não monitora balança]

13 horas atrás, Sérgio Assunção disse:

O componente fica monitorando se existe um "peso" na balança e automaticamente faz a leitura quando a pesagem estabilizar.

Otimo era isto mesmo que eu precisava. Muito grato amigo Sergio

[ACBrBal não monitora balança]

Ola boa tarde. Eu preciso saber qual a finalidade da propriedade monitorar do componente acbrbal.

 

Grato

 

[Qual a melhor versão para programar em Delphi ?]

Em 13/09/2015 at 21:03, Régys Silveira disse:

Minha humilde opinião é, se vai usar o 7, largue de mão e use Lazarus, você vai ganhar muito mais (questões internas, compilar, etc, etc) e terá uma ferramenta mais atual.

Se quer continuar na linha de Delphi então use o 2010, XE8 ou Seattle, são as melhores IDEs e os mais estáveis, se seu projeto é muito grande use o Seattle o suporte dele a projetos grandes é muito melhor.

Ola Regis, eu migrei pro Seatle e achei bugs de grid, e alguns outros

[Delphi Seatle deu problema]

Ola bom dia a todos

Instalei o acbr trunck2 no DELPHI SEATLE, ao rodar minha aplicacao ele abre a unit ACBrDFeConfiguracoes e mostra que o DFeUF[24] e DFeUFCodigo[24]

nao foi declarado. veja abaixo:

 

{ TWebServicesConf }

constructor TWebServicesConf.Create(AConfiguracoes: TConfiguracoes);
begin
  inherited Create(AConfiguracoes);

  FConfiguracoes := AConfiguracoes;
  FParams := TStringList.Create;

  FUF := DFeUF[24];
  FUFCodigo := DFeUFCodigo[24];
  FAmbiente := taHomologacao;

 

Grato a todos.

[Error: RLINK32: Too many resources to handle. Compilation failure]

Ola eu fiz exatamente isto, e nao funcionou, Ai cansado de tentar e com urgencia de entregar os projetos eu desinstalei o acbr trunk2 e voltei pro trunk e ai tudo voltou ao normal. Entao deve ser algum problema com o trunk2

 

Grato

 

[Emissão Evento Prorrogação]

Ola boa tarde

Eu fiz o segunte agora, desintalei o ACBR trunk2 e voltei pro trunk, ai minha aplicacao compilou normalmente.

Entao nao consigo compilar a aplicacao pro trunk2

 

Grato

 

[Error: RLINK32: Too many resources to handle. Compilation failure]

Ola bom dia Juliomar.

Eu fiz o procedimento e continuou a menssagem do Too many resources to handle. Compilation failure

Ai notei que isto estava dando ao tentar compilar o pacote AcbrSatExtratoExcPos, ai eu desmarquei este componente e tudo ficou instalado e maravilhoso.

Porem agora ao abrir meu projeto ele nao compila e dá o mesmo erro de RLink32.dll, pesquisando nos foruns achei que é recomendado copiar a RLink32.dll do Delphi 2010 para cima do D7, Porem mesmo assim nao compila meu sistema, agora fiquei desesperado pois preciso entregar pros meus clientes.

Grato