Fernando Rodrigo

O que tem de errado no que estou fazendo, a hora que tento enviar da erro abaixo, não gera log não gera nada ACBrBoleto1.Cedente.CedenteWS.ClientID := 'eyJpZCI6IjdhYjA3YmMtMmVjNS00MGMxIiwiY29kaWdvUHVibGljYWRvciI6MCwiY29kaWdvU29mdHdhcmUiOjExNTA1LCJzZXF1ZW5jaWFsSW5zdGFsYWNhbyI6MX0'; ACBrBoleto1.Cedente.CedenteWS.ClientSecret := 'eyJpZCI6ImJjMzY5ZjEtYTBlZS00MjZmLWFkODUtMzc2MjMzOCIsImNvZGlnb1B1YmxpY2Fkb3IiOjAsImNvZGlnb1NvZnR3YXJlIjoxMTUwNSwic2VxdWVuY2lhbEluc3RhbGFjYW8iOjEsInNlcXVlbmNpYWxDcmVkZW5jaWFsIjoxLCJhbWJpZW50ZSI6ImhvbW9sb2dhY2FvIiwiaWF0IjoxNjAyODgwMzI2Nzg4fQ'; ACBrBoleto1.Cedente.CedenteWS.Scope := 'cobranca.registro-boletos'; ACBrBoleto1.Cedente.CedenteWS.KeyUser := 'xxxxxxxx'; With ACBrBoleto1.CriarTituloNaLista do begin With ACBrBoleto1.Cedente do begin {Dados do cedente - Loja} CodigoTransmissao := '11'; TipoInscricao := pJuridica; {CNPJ} CNPJCPF := '34954837000191'; Nome :='RMP AUTO PECAS LTDA'; CodigoCedente := '55395'; Convenio := '3210690'; Modalidade := '19'; // Variação Carteira := '17'; Logradouro :='AV. CONSOLACAO N 835'; NumeroRes := ''; Complemento := ''; Bairro := 'CIDADE JARDIM'; Cidade := 'GOIANIA'; UF := 'GO'; CEP := '74425535'; Agencia :='1840'; AgenciaDigito := '6'; Conta :='64516'; ContaDigito := '8'; ResponEmissao := tbCliEmite; TipoCarteira := tctRegistrada; end; LocalPagamento := 'Pagar em qualquer banco'; //MEnsagem exigida pelo bradesco Vencimento := IncMonth(EncodeDate(2020,12,10),I); DataDocumento := EncodeDate(2020,10,15); NumeroDocumento := PadRight(IntToStr(I),8,'0'); EspecieDoc := '2'; Aceite := atSim; DataProcessamento := Now; NossoNumero := IntToStrZero(I,8); SeuNumero := IntToStrZero(I,8); ACBrBoleto1.Banco.TamanhoMaximoNossoNum := Length(NossoNumero); ValorDocumento := 100.35 * (I+0.5); Sacado.NomeSacado := 'FERNANDO RODRIGO DE JESUS'; Sacado.CNPJCPF := '47854871191'; Sacado.Logradouro := 'AV. PIO XII'; Sacado.Numero := '618'; Sacado.Bairro := 'CIDADE JARDIM'; Sacado.Cidade := 'GOIANIA'; Sacado.UF := 'GO'; Sacado.CEP := '74425010'; ValorAbatimento := 10; ValorMoraJuros := 0.05; DataAbatimento := Vencimento-5; Instrucao1 := '00'; Instrucao2 := '00'; with ACBrBoleto1.Banco do begin TipoCobranca := cobBancoDoBrasil; Carteira := '17'; end; end;

não poderia colocar essas conversões direto no fonte ?

deu certo pessoal, muito obrigado

estou configurando uma conta no gmail e só retorna o erro abaixo, ja alterei as configurações abaixo mas continua o mesmo erro, o que poderia ser

não sei qual é a versão que foi criado o arquivo fr3 do boleto pq peguei no demo do acbr o Fast Report que uso é o abaixo

peguei os arquivos na pasta do boleto e fiz a alteração

qualquer alteração que fizer ele sai em branco, se vc pegar o codigo de barras e alterar 1 cm do que esta ele ja imprime em branco

queria colocar a logomarca da empresa no boleto

fiz uma alteração no layout do boleto, so que quando vou fazer a impressão ele imprime em branco o boleto se não fizer nenhuma alteração ele imprime normal, conforme as imagens abaixo, alguem ja passou por esse problema ?

o pessoal do banco pediu o json de envio, so que não sei onde pego ele

na unit ACBrBoletoW_BancoBrasil linha 287 o campo abaixo acho que esta com o nome errado pq o retorno do banco esta dizendo um campo e na unit esta passando outra Gerador.wCampo(tcStr, '#33', PrefixTag('textoEnderecoPagador' ), 00, 60, 1, Sacado.Logradouro, DSC_LOGRADOURO); No retorno do banco <ns0:nomeLogradouroBeneficiario>Cliente nao localizado ou sem enderecos validos. </ns0:nomeLogradouroBeneficiario> Estou passando normal os campos Sacado.NomeSacado := 'FERNANDO RODRIGO DE JESUS'; Sacado.CNPJCPF := '47854871191'; Sacado.Logradouro := 'AV. PIO XII'; Sacado.Numero := '618'; Sacado.Bairro := 'CIDADE JARDIM'; Sacado.Cidade := 'GOIANIA'; Sacado.UF := 'GO'; Sacado.CEP := '74425010'; Gerador.wCampo(tcStr, '#31', PrefixTag('numeroInscricaoPagador' ), 00, 15, 1, OnlyNumber(Sacado.CNPJCPF), DSC_NOME_SACADO); Gerador.wCampo(tcStr, '#32', PrefixTag('nomePagador' ), 00, 60, 1, Sacado.NomeSacado, DSC_NOME_SACADO); Gerador.wCampo(tcStr, '#33', PrefixTag('textoEnderecoPagador' ), 00, 60, 1, Sacado.Logradouro, DSC_LOGRADOURO); Gerador.wCampo(tcStr, '#34', PrefixTag('numeroCepPagador' ), 00, 08, 1, Sacado.Cep, DSC_CEP); Gerador.wCampo(tcStr, '#35', PrefixTag('nomeMunicipioPagador' ), 00, 20, 1, Sacado.Cidade, DSC_CIDADE); Gerador.wCampo(tcStr, '#36', PrefixTag('nomeBairroPagador' ), 00, 20, 1, Sacado.Bairro, DSC_BAIRRO); Gerador.wCampo(tcStr, '#37', PrefixTag('siglaUfPagador' ), 00, 02, 1, Sacado.UF, DSC_UF); Gerador.wCampo(tcStr, '#38', PrefixTag('textoNumeroTelefonePagador' ), 00, 12, 1, Sacado.Fone, DSC_FONE);

tem alguns campos que não estão gerando10000000-retorno_registro.xml10000000-registro_boleto.xml Estou passando normal os campos , so que não esta sendo gerado no xml Sacado.NomeSacado := 'FERNANDO RODRIGO DE JESUS'; Sacado.CNPJCPF := '47854871191'; Sacado.Logradouro := 'AV. PIO XII'; Sacado.Numero := '618'; Sacado.Bairro := 'CIDADE JARDIM'; Sacado.Cidade := 'GOIANIA'; Sacado.UF := 'GO'; Sacado.CEP := '74425010'; Veja o retorno do erro <ns0:nomeLogradouroBeneficiario>Cliente nao localizado ou sem enderecos validos.

como faço para pegar esse retorno na função ProcessarRespostaOAuth

-registro_boleto.xml10000000-registro_boleto.xml Só é gerado 2 arquivos em anexo, eu falei com outro programador em java ele disse que é gerado um json para enviar para o banco, so que no acbr so gera xml

como faço para pegar o json gerado no envio

eu peguei a chave J com o cliente e mesmo assim continua o erro, estranho pq no DEMO com os dados de testes roda normal, gera o log e alguns arquivos xml, mas se colocar as minhas credenciais que foi cadatrado na api do banco não roda da erro

esse campo ACBrBoleto1.Cedente.CedenteWS.KeyUser onde consigo ele pq no site do banco so tem 3 campos developer_application_key Credenciais OAuth client_id client_secret Quando uso as credenciais conforme arquivo de teste passa normal, mas quando coloco minhas credenciais da o erro acima

fiz conforme o arquivo configWebService.txt e não passa de jeito nenhum, da erro no envio e não gera nenhum log para ver o que é

passei como pNenhum e deu certo, valeu

pessoal , no acbr foi implementado para checagem das placas no padrão Mercosul, alguém tem algum função para fazer essa conversão pegar do padrão atual e converter para o Mercosul ou vise-versa tenho uma base de dados e as placas estão todas antigas e preciso fazer essa conversar

Dercide tem que informar conforme abaixo pq la na função que retorna o campo esta conforme abaixo, se eu informar pOutras, ele irá gerar o codgio 9 e o banco disse que tem que ser 0, então tem que ser pNenhum function TACBrBancoClass.DefineTipoSacadoAvalista(const ACBrTitulo: TACBrTitulo String; begin with ACBrTitulo do begin case Sacado.SacadoAvalista.Pessoa of pFisica : Result := '1'; pJuridica : Result := '2'; pOutras : Result := '9'; else Result := '0'; end; end; end; Sacado.SacadoAvalista.Pessoa := pNenhum;

estou começando a implementar o boleto on-line no banco do brasil, e esta dando erro no envio, se alguem conseguiu fazer favor me de um help

estou fazendo a validação para o santander cnab 240 e o banco me retornou uma instrução que devera ser alterado, so que olhando os fontes não tem como fazer igual ao banco precisa REGISTRO DETALHE-SEGMENTO Q REMESSA 154-154 Tipode inscrição sacador/avalista: . . SE A INSCRIÇÃO DO CEDENTE FOR CNPJ, O MESMO NÃO NECESSITA DE SACADOR AVALISTA, LOGO, ESTE CAMPO DEVE INFORMA '0', LINHA 4 Para preencher esses campo é feito 2 checagem essa abaixo na unit do banco, so que no componente so aceita pFisica e pJuridica, conforme validação abaixo, como irei informar codigo 0, sendo que so existe esses 2 tipos de inscrição ? {Pegando tipo de pessoa do Sacado} sTipoInscricao := Copy( DefineTipoSacado(ACBrTitulo), 2, 1); {Pegando tipo de pessoa do Avalista} aTipoInscricao:= DefineTipoSacadoAvalista(ACBrTitulo); Essa na unit AcbrBoleto function TACBrBancoClass.DefineTipoSacado(const ACBrTitulo: TACBrTitulo String; begin with ACBrTitulo do begin case Sacado.Pessoa of pFisica : Result := '01'; pJuridica : Result := '02'; else Result := '99'; end; end; end; function TACBrBancoClass.DefineTipoSacadoAvalista(const ACBrTitulo: TACBrTitulo String; begin with ACBrTitulo do begin case Sacado.SacadoAvalista.Pessoa of pFisica : Result := '1'; pJuridica : Result := '2'; pOutras : Result := '9'; else Result := '0'; end; end; end;

não deu certo, ja alterei e coloquei todas as opções e nenhum passa.