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

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

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

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.

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

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

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

Ola boa tarde segue em anexo o log Grato log_Delphi_7.txt

Ola boa tarde amigos. Estou instalando o acbr no delphi 7, ja instalei o fortes e o fast, porem durante a instalacao pelo acbrinstall esta ocorrendo o seguinte erro: Error: RLINK32: Too many resources to handle. Compilation failure Alguem poderia me ajuda Grato

Bom dia Galera, Professor, voce poderia nos passar quais testes que voce fez? Estou passando pelo mesmo problema de erro de Código de Ativação Inválido. Executei todas as dicas citadas acima, porém nada resolveu o erro. Poderia nos ajudar?

Ola bom dia. Estou com problema para ativar o ECF quando a impressora está na USB. Neste cliente atual estamos tentando ativar a Bematech 2100 na USB. Eu escolhi a impressora e porta=USB aparece a mensagem que esta impressora requer porta COMx...... Grato