Mensagem No Verso Do Boleto - Banrisul

[karlusheidrich]

Olá. Meu cliente precisa gerar arquivo pro banco Banrisul e precisam informar no verso do boleto, quais as nfe's que estão sendo cobradas naquela fatura. Tentei gerar um arquivo aqui, mas fica bem diferente do arquivo que era gerado no sistema antigo deles. Gostaria de ver com vocês se alguém já precisou fazer isso e quais as propriedade da classe eu preciso alimentar com esta mensagem.

Segue abaixo o código:

 

procedure TGerArquivosBanco.GeraBanrisul400;
var
  Titulo: TACBrTitulo;
  vsNotas: String;
begin
    while not cdsContasReceber2.Eof do
     begin
         Titulo := ACBrBoleto.CriarTituloNaLista;

         with Titulo do
         begin
             Vencimento := cdsContasReceber2DATA_VENCIMENTO.AsDateTime;
             DataDocumento := cdsContasReceber2DATA_EMISSAO.AsDateTime;
             NumeroDocumento := cdsContasReceber2DOCUMENTO.AsString;
             EspecieDoc := '02';

             if cbAceite.EditValue = 'atSim'
               then Aceite := atSim
               else Aceite := atNao;

             DataProcessamento := Now;
             NossoNumero := cdsBancosNOSSO_NUMERO.AsString;
             Carteira := cdsBancosCARTEIRA.AsString;
             //CodigoCarteira := cbCodigoCarteira.EditValue;
             ValorDocumento := cdsContasReceber2VALOR_ABERTO.AsCurrency;

             if Length(cdsContasReceber2SACADO_CNPJCPF.AsString) > 12
               then Sacado.Pessoa := pJuridica
               else Sacado.Pessoa := pFisica;

             Sacado.NomeSacado := cdsContasReceber2SACADO_NOME.AsString;
             Sacado.CNPJCPF := cdsContasReceber2SACADO_CNPJCPF.AsString;
             Sacado.Logradouro := cdsContasReceber2SACADO_LOGRADOURO.AsString;
             Sacado.Numero := cdsContasReceber2SACADO_NUMERO.AsString;
             Sacado.Bairro := cdsContasReceber2SACADO_BAIRRO.AsString;
             Sacado.Cidade := cdsContasReceber2SACADO_NOME_MUNICIPIO.AsString;
             Sacado.UF := cdsContasReceber2SACADO_UF.AsString;
             Sacado.CEP := cdsContasReceber2SACADO_CEP.AsString;
             
             // Pelo que entendi, é esse o campo do ACBRBoleto usado para receber as informações para o verso do boleto
             Mensagem.Text := SQLLinha('SELECT CAST(LIST(NUMERO_NOTA, ' + QuotedStr(', ') + ') AS VARCHAR(2000)) FROM NOTAS_SAIDA WHERE ID_FATURA = ' + cdsContasReceber2ID_FATURA.AsString);

             ACBrBoleto.AdicionarMensagensPadroes(Titulo, Mensagem);
         end;

         SQLExec('UPDATE CONTAS_RECEBER SET CONTAS_RECEBER.ID_BANCO = ' + cdsBancosID_BANCO.AsString + ',' +
                 '                          CONTAS_RECEBER.DATA_ARQUIVO_REMESSA = ' + DataTimeSQL(Now) + ',' +
                 '                          CONTAS_RECEBER.NOME_ARQUIVO_REMESSA = ' + QuotedStr(CalculaNomeArquivo(True)) + ',' +
                 '                          CONTAS_RECEBER.CODIGO_CARTEIRA = ' + QuotedStr(cbCodigoCarteira.EditValue) +
                 ' WHERE CONTAS_RECEBER.ID_CONTA_RECEBER = ' + cdsContasReceber2ID_CONTA_RECEBER.AsString);

         cdsContasReceber2.Next;
     end;
end;

 

 

Desde já, agradeço a ajuda.

 

[Juliana Tamizou]

Boa tarde.

 

Atualmente o único campo que você poderia usar seriam as Mensagens...recebemos a um tempo atras uma colaboração para emitir boletos no layout de fatura, que acredito seja mais adequado ao seu caso, porém ainda não está diponível no svn.

 

Att.

[karlusheidrich]

Na verdade, quem emite o boleto é o banco. Eu só preciso gerar o arquivo de remessa onde conste essas informações dos números das notas. Você saberia me dizer se tem uma previsão disponibilizar essa nova versão com as funcionalidades que você citou?

[Juliana Tamizou]

Boa tarde.

 

Acredito que em breve, porém só será útil para você se os boletos forem impressos pelos clientes.

 

Att.

[joaolenosi]

Não seria mais fácil, vou ser fazer isso na unit ACBrBoleto.pas

 

property NotaFiscal   : String read fNotaFiscal    write fNotaFiscal;

 

aÍ lá no Layout do boleto, vou ser colocar um QR Label, pra receber essas propriedades.

[karlusheidrich]

Na verdade são várias notas em uma mesma fatura. Se não me engano é permitido colocar 80 números de notas e mandar o arquivo pro banco. Sem contar que é preciso criar novas linhas de transação. É um negócio bem complexo. Que pena, que o ACBR não tem. Vou ter que fazer o arquivo na mão.

[Daniel Simoes]

Vc poderia fazer um relatório de acompanhamento do Boleto...

 

Você imprime seu relatório demonstrativo em meia página, e o boleto que faz cobrança no resto da página...

[karlusheidrich]

Na verdade, meu cliiente quer essa opção para que o cliente dele possa saber quais nfe's estão sendo cobradas nesta fatura. E como a fatura é emitida pelo banco, eu preciso citar o número dessas nfe's no arquivo de remessa para o banco, pois é o banco quem vai enviar para os clientes do meu cliente.

[Daniel Simoes]

Pelo que entendi vc quer fazer uma remessa para o Banco.. e não a impressão do Boleto...

 

Você sabe qual o campo que o Banco permite que você informe as Observações na remessa ?

Ele não consta no LayOut que o ACBrBoleto gera ?

Não funcionou usando Mensagem.Text ?