LUMORAES

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.

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.

Deu certo agora , Grato Juliomar

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

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

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???

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

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.

Ola bom dia Juliana segue o arquivo em anexo grato COBST_H5D8_02_020316P_MOV.TXT

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.

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

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

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

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.

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