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

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;

Qdo controleporta=TRUE eu somente ativo e imprimo , nao preciso desativar??? Segue o arquivo de log. veja que la aparece a diferenca de 4 segundos entre desativar e ativar.

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

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

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