[gerar arquivo santander cnab240]

7 minutos atrás, Juliomar Marchetti disse:

Certo chegou a conseguir alterar algo no ACBr para resolver o problema?

ainda não, talvez alguem ja passou por isso e ja tenha alterado a unit 

[gerar arquivo santander cnab240]

 

veja esse outro print, esta setado certo tcSimplesRapComReg mas ele so passa no tcSimples no primeiro registro, a partir do segundo ele passa normal

 

[gerar arquivo santander cnab240]

vejam como fica, o primeiro registro sempre passa na linha tcSimples

 

Dai os proximos registros gera normal

[gerar arquivo santander cnab240]

estou homologando cnab 240 do santander com carteira simples

tenho 5 títulos para enviar, com cobrança simples (Rápida com registro), conforme layout abaixo

Nota 5: TIPO DE COBRANÇA
REMESSA:
'1' = Cobrança Simples (Sem Registro e Eletrônica com Registro)
'3' = Cobrança Caucionada (Eletrônica com Registro e Convencional com Registro)
‘4’ = Cobrança Descontada (Eletrônica com Registro)
'5' = Cobrança Simples (Rápida com Registro)
‘6’ = Cobrança Caucionada (Rápida com Registro)

Estou configurando da seguinte forma os títulos

ACBrBoleto.Cedente.CaracTitulo := tcSimplesRapComReg;

Todos os 5 títulos estão passando na rotina normal, so que na unit (ACBrBancoSantander.pas) para validar o tipo de cobrança, o primeiro título sempre entra como tcSimples, sendo que passei padrão como tcSimplesRapComReg, o restante dos títulos vai como tcSimplesRapComReg

 

 

 

function TACBrBancoSantander.DefineCaracTitulo(const ACBrTitulo: TACBrTitulo): String;
begin
  with ACBrTitulo do
  begin
    case CaracTitulo of
      tcSimples            : Result := '1'; {Cobrança Simples (Sem Registro e Eletrônica com Registro)}
      tcCaucionada         : Result := '3'; {Cobrança Caucionada (Eletrônica com Registro e Convencional com Registro)}
      tcDescontada         : Result := '4'; {Cobrança Descontada (Eletrônica com Registro)}
      tcVinculada, tcDireta,
      tcSimplesRapComReg   : Result := '5'; {Cobrança Simples (Rápida com Registro)}
      tcCaucionadaRapComReg: Result := '6'; {Cobrança Caucionada (Rápida com Registro)}
      { TODO :
          8 = Cobranca Cessao (Eletronica com Registro)
      }
    else
        Result := '1';
    end;
  end;
end;

[Santander segmento P posição 58 função DefineCaracTitulo]

bom dia, como irei informar o codigo 5 

 

A opção ACBrBoleto.Cedente.TipoCarteira := tcSimplesRapComReg; não tem no componente, ja atualizei e compilei tudo novamente e da erro 

 

[Error] Gera_Arquivo_Banco.pas(1742): E2010 Incompatible types: 'TACBrTipoCarteira' and 'TACBrCaracTitulo'

 

Nota 5: TIPO DE COBRANÇA
REMESSA:
'1' = Cobrança Simples (Sem Registro e Eletrônica com Registro)
'3' = Cobrança Caucionada (Eletrônica com Registro e Convencional com Registro)
„4‟ = Cobrança Descontada (Eletrônica com Registro)
'5' = Cobrança Simples (Rápida com Registro)
„6‟ = Cobrança Caucionada (Rápida com Registro)

[homololgação de boleto on-Line BB]

Quais desses campos tenho que informar la no componente

      ACBrBoleto1.Cedente.CedenteWS.ClientID      := 'eyJpZCI6IjdhYjA3YmMtMmVjNS00MGMxIiwiY29kaWdvUHVibGljYWRvciI6MCwiY29kaWdvU29mdHdhcmUiOjExNTA1LCJzZXF1ZW5jaWFsSSW5zd0';

      ACBrBoleto1.Cedente.CedenteWS.ClientSecret  := 'eyJpZCI6ImJjMzY5ZjEtYTBlZS00MjZmLWFkODUtMzc2MjMzOCIsImNvZGlnb1B1YmxpY2Fkb3IiOjAsImNvZGlnb1NvZnR3YXJlIjoxMTUwNSwic2VxdWVuY2lhbEluc3RhbGFjYW8iOjEsInNlcXVlbmNpYWxDcmVkZW5jaWFsIjoxLCJhbWJpZW50ZSI6ImhvbW9sb2dhY2FvIiwiaWF0IjoxNjAyODgwMzI2Nzg4fQ';

      ACBrBoleto1.Cedente.CedenteWS.Scope         := 'cobranca.registro-boletos';
      ACBrBoleto1.Cedente.CedenteWS.KeyUser       := 'jd402299';
 

 

 

 

[homololgação de boleto on-Line BB]

2 horas atrás, José M. S. Junior disse:

Não, isso parece ser problema na autenticação desse cliente junto ao serviço web do banco. Para autenticar só precisa do: ClientID e ClientSecret disponibilizado e liberado pelo banco. 

vc gerou essas chaves de homologação ou produção, pq o pessoal do banco me passou o link abaixo para fazer o cadastro

https://developers-piloto.bb.com.br/#/menu/credenciais

 

 

[homololgação de boleto on-Line BB]

mesmo problema

tenho que passar o certificado também ?

 

[homololgação de boleto on-Line BB]

@José M. S. Junior fiz igual vc passou so que deu outro erro, coloquei os fontes se vc puder dar uma olhada para ver onde esta o problema, pq as chaves e a chave J estão todas corretas

 

Delphi.zip

[homololgação de boleto on-Line BB]

Esse erro esta retornando na unit ACBrBoletoW_BancoBrasil..pas

function TBoletoW_BancoBrasil.GerarTokenAutenticacao:String;
begin
  result:= '';
  if Assigned(OAuth) then
  begin
    if OAuth.GerarToken then
      result := OAuth.Token
    else
      raise EACBrBoletoWSException.Create(ClassName + Format( S_ERRO_GERAR_TOKEN_AUTENTICACAO, [OAuth.ErroComunicacao] ));
  end;
end;

 

Essa função acima que faz a validação do token, esta na unit  ACBrBoletoWS.pas o token esta chegando sempre em branco, onde tenho que preencher ele ?

function TOAuth.GerarToken: Boolean;
begin

  if ( Token <> '' ) and ( CompareDateTime( Expire, Now ) = 1 ) then                                        //Token ja gerado e ainda válido
    Result := True
  else                                                                                                      //Converte Basic da Autenticação em Base64
    Result := Executar( 'Basic ' + String(EncodeBase64(AnsiString(FClientID + ':' + FClientSecret))) );

end;

[homololgação de boleto on-Line BB]

agora com esse tratamento que vc fez @Renato Rubinhoda para saber onde é o problema

 

[homololgação de boleto on-Line BB]

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;

[homololgação de boleto on-Line BB]

2 horas atrás, AG Sistemas disse:

Boa tarde!!

Consegui transmitir o boleto!!

Tive um problema com a espécie do documento Passei 'DM' como o de costume mas ele não aceita.

codigoTipoTITULO Short (4) Sim Domínios Válidos

1 = CHEQUE 2 = DUPLICATAMERCANTIL 4 = DUPLICATASERVICO 6 = DUPLICATARURAL 7 = LETRA-DECAMBIO 12 = NOTAPROMISSORIA 13 = NOTAPROMISSORIARURAL 17 = RECIBO 19 = NOTA-DEDEBITO 23 = DIVIDAATIVA-UNIAO Código adotado pela FEBRABAN para identificar o tipo para o Título de Cobrança. 25 Manual de Integração – Registro Online de Títulos de Cobrança 24 = DIVIDAATIVA-ESTADO 25 = DIVIDAATIVAMUNICIPIO

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

[envio de e-mail com servidor gmail]

2 horas atrás, EMBarbosa disse:

É o que o Juliomar disse. Olha a imagem acima. Você precisa "ativar o acesso a aplicativos menos seguros".

deu certo pessoal, muito obrigado

[envio de e-mail com servidor gmail]

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

[boleto em branco]

13 minutos atrás, Juliomar Marchetti disse:

Sim mas seu Fast Report é igual ou superior ao que foi criado o fr3?

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

[boleto em branco]

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

[boleto em branco]

14 minutos atrás, Juliomar Marchetti disse:

Eu acho que isso já tem em algum dos arquivos

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

[boleto em branco]

Em 02/10/2020 at 11:45, Juliomar Marchetti disse:

Mexeu em algo que não deveria.

Qual o problema com o layout do boleto o banco não aceitou?

queria colocar a logomarca da empresa no boleto

[boleto em branco]

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 ?

[homololgação de boleto on-Line BB]

9 minutos atrás, José M. S. Junior disse:

Bom dia, conseguiu identificar o problema na autenticação? Se possível compartilhe a solução, assim podemos investigar melhor o código genérico do erro...

Quanto ao retorno, o nome dos campos são outros mesmo... Note que o problema é código do Beneficiário e não do Pagador, provavelmente é alguma inconsistência do cadastro do Beneficiário no Banco, precisa passar esse erro para eles analisarem.

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

[homololgação de boleto on-Line BB]

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);
 

[homololgação de boleto on-Line BB]

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.  

 

[homololgação de boleto on-Line BB]

11 minutos atrás, José M. S. Junior disse:

Se está funcionando com os dados em homologação no demo era para funcionar com seus dados... Precisa tentar depurar para ver exatamente onde está ocorrendo esse erro.

Quando a requisição do BB é XML mesmo... segue a documentação. Apenas a autenticação OAuth retorna um JSON, note que isso é tratado internamente no componente.

Pode capturar esse retorno na função: ProcessarRespostaOAuth

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

[homololgação de boleto on-Line BB]

-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