Como gerar arquivo de remessa utilizando o RLBoleto?

Delphi

26/01/2007

Bom dia, estou com o seguinte problema, eu gero meus boletos normalmente utilizando o rlboleto e ate entao nossas cobranças nao eram registradas, dai dispensaria a geração do arquivo de remessa. Bom agora isso mudou temos cobrança registrada e quando eu tento gerar o arquivo de remessa da um erro. O banco é o Bradesco e logo abaixo segue trecho do codigo.

RLBRemessa1.Titulos.Count := pk_faturas.Count;
RLBRemessa1.NomeArquivo := ´CB´+FloatToStr(DayOf(date))+FloatToStr(MonthOf(date))+´01´+´.REM´;
for i:=0 to ord(pk_faturas.Count)-1 do
begin
{rotina de preenchimento e impressao do boleto}
RLBRemessa1.Titulos.Add(RLBTitulo1);
end;
RLBRemessa1.GerarRemessa;

Quando é chamada funcao GerarRemessa tenho o numero de boletos igual ao que fora gerado, mas dentro desse procedimento quando chama ele faz uma chamada para ACodigoBanco := Formatar(Titulos[0].Cedente.ContaBancaria.Banco.Codigo,3,false,´0´); ele da um erro.

Alguem pode me ajudar?
Agradeço desde já.


Luciano Andrade

Luciano Andrade

Curtidas 0
POSTAR