marciamagall Postado 11 Novembro Postado 11 Novembro Bom dia. Estou com uma dúvida nessa parte do fonte do ACBR. { TBoletoWSREST } procedure TBoletoWSREST.DefinirCertificado; begin BoletoWS.ArquivoCRT := Boleto.Configuracoes.WebService.ArquivoCRT; BoletoWS.ArquivoKEY := Boleto.Configuracoes.WebService.ArquivoKEY; BoletoWS.ChavePrivada := Boleto.Configuracoes.WebService.ChavePrivada; BoletoWS.Certificado := Boleto.Configuracoes.WebService.Certificado; Estou tentando registrar um bolecode no banco itaú, e passei os arquivos CRT e KEY. Consigo pegar o acess_token normalmente, mas quando vou enviar o boleto, passa por esse código acima, e a ChavePrivada e Certificado estão vazios. Ao passar por essas linhas, o ArquivoCRT, e ArquivoKey ficam limpos, pois no set dessas propriedades, obrigatoriamente limpa o ArquivoCRT e ArquivoKey. Como sempre vai passar por essas linhas, é inútil eu setar o arquivoCRT e ArquivoKey pois elas estão sendo apagadas no set da ChavePrivada e Certificado. O que estou fazendo de errado? Porque preciso enviar o ArquivoCRT e ArquivoKey no envio do bolecode.
Moderadores Juliomar Marchetti Postado 11 Novembro Moderadores Postado 11 Novembro tu deve informar só o que é preciso em cada PIX sim existe a validação se passa um é limpo o outro e mesmo que seja vazio ele vai limpar mas veja https://www.projetoacbr.com.br/forum/topic/68320-acbrpixcd-como-solicitar-credenciais-e-configurar-psps-no-componente/?do=findComment&comment=444468&_rid=19 Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br
marciamagall Postado 11 Novembro Autor Postado 11 Novembro Não estou usando PIX, é um boleto com qrcode. (bolecode) Eu acredito que preenchi no componente somente o que é necessário. Sempre preciso enviar os arquivos .key e o .crt em todos os envios de boleto do banco itaú. Mas nesse ponto do código que passei, ele limpa os arquivos. Isso porque: procedure TACBrWebService.SetChavePrivada(const Value: AnsiString); begin FChavePrivada := Value; FArquivoKEY := EmptyStr; end;
Moderadores Juliomar Marchetti Postado 11 Novembro Moderadores Postado 11 Novembro 1 hora atrás, marciamagall disse: Não estou usando PIX, é um boleto com qrcode. (bolecode) Eu acredito que preenchi no componente somente o que é necessário. Sempre preciso enviar os arquivos .key e o .crt em todos os envios de boleto do banco itaú. Mas nesse ponto do código que passei, ele limpa os arquivos. Isso porque: procedure TACBrWebService.SetChavePrivada(const Value: AnsiString); begin FChavePrivada := Value; FArquivoKEY := EmptyStr; end; https://www.projetoacbr.com.br/forum/topic/57991-acbrboleto-via-webservice/?do=findComment&comment=426539&_rid=19 Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br
marciamagall Postado 12 Novembro Autor Postado 12 Novembro Bom dia. Estou fazendo exatamente igual o que está nesse link enviado. Essa parte que perde o conteúdo dos arquivos key e crt ocorre debugando dentro do fonte do acbr. Vou colocar dois prints para melhor entendimento. No meu entendimento, nem teria lógica setar as propriedades ArquivoCRT e ArquivoKEY, sabendo que nas linhas abaixo elas serão obrigatoriamente limpas, não é? Isso dentro do método DefinirCertificado.
Moderadores Juliomar Marchetti Postado 12 Novembro Moderadores Postado 12 Novembro Sinto lhe dizer mas seus fontes estão bem defasados. então sugiro, revert svn e fazer update Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br
marciamagall Postado Sexta as 13:12 Autor Postado Sexta as 13:12 Juliomar, bom dia. Desculpe a demora pelo retorno, mas eu precisei aguardar pra atualizar o acbr. Agora que atualizei e testei novamente, continuo com o mesmo problema. A única forma de resolver o erro que estou tendo, foi mexendo na unidade ACBrBoleto.pas. A alteração que eu fiz foi a seguinte: procedure TACBrWebService.SetCertificado(const Value: AnsiString); begin FCertificado := Value; if Value<>'' then //adicionado if FArquivoCRT := EmptyStr; end; procedure TACBrWebService.SetChavePrivada(const Value: AnsiString); begin FChavePrivada := Value; if Value<>'' then //adicionado if FArquivoKEY := EmptyStr; end; Feito isso, o boleto pix é enviado normalmente sem erros.
Moderadores Juliomar Marchetti Postado Sexta as 14:02 Moderadores Postado Sexta as 14:02 Dúvida tu está com todos os arquivos do ACBR atualizados ou só partes? outra situação é tu informa os dados somente se existirem ou tu informa todos, pois se notar ao informar um ele vai validar os outros e zerar então se tem ArquivoKey informo senão não passo nada para ele não disparar eventos no componente zerando os demais Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br
Membros Pro Robson_Renan Postado Sábado as 12:26 Membros Pro Postado Sábado as 12:26 Bom dia Pessoal Estou com o mesmo problema ha uns 15 dias atualizei o fonte do acbr... Funcionou perfeito Atualizei ontem Meu cliente parou de emitir pelo itau... Fiz as mudanças conforme a marcia apontou e não foi Na maquina com os fontes de 15 dias atras esta indo normal Tem mais alguém com a mesma situação? So complementando, ele fala o que o client id não foi encontrado porem estou informando normal no código
Membros Pro Robson_Renan Postado Sábado as 13:29 Membros Pro Postado Sábado as 13:29 nossa pessoal me desculpe Tipo de ambiente no meu deu certo 1
Moderadores Juliomar Marchetti Postado Sábado as 22:09 Moderadores Postado Sábado as 22:09 Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico. Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br
Recommended Posts