Gerar Boletos Sem Registro

[marcelo frança]

Boa tarde pessoal, estou implementando o acbrboleto no meu sistema, e o cliente me solicitou que os boletos tem que sair sem registro ou seja não enviar o arquivo de remessa, ele que somente ler o arquivo de retorno para verificar os boletos pagos, e possivel fazer isso com o acbr?

 

Se alguem tiver um codigo para me passar de leitura de retorno pra caixa e o bradesco fico agradeçido pois to tomando um laço aqui.

 

abraço a todos e desde já aobrigado.

[Jéter Rabelo Ferreira]

Boa tarde.

 

Envio de arquivo remessa e leitura de arquivo retorno são duas coisas completamente diferentes.

 

A remessa inclui os títulos para registro no banco (instruções e etc).

 

O arquivo retorno traz basicamente duas informações distintas:

- Boletos liquidados

- Crítica do arquivo remessa (caso haja).

 

Para a geração/Leitura de ambos, pegue o exemplo do componente localizado em \ACBr\Exemplo\ACBrBoleto.

 

Atenciosamente.

Jéter Rabelo Ferreira

[Danilo]

é possível sim, digamos que vc ja saiba como emitir os boletos sem registro, vamos ver como LER o RETORNO e baixar automaticamente no sistema:

 

 

  vc teria que instanciar ou pegar o componente ACBrBoleto ja configurado com os dados do cedente etc... e fazer assim:

  

 

  

    ACBrBoleto.LeCedenteRetorno := True;
    ACBrBoleto.NomeArqRetorno   := OpenDialog.FileName; //chama o arquivo retorno (o ideal é fazer com que ele leia todos de um diretorio e apos isso mudar a extensão tipo de .RET para .RET-PROC)

    ACBrBoleto.LerRetorno;
   

 //dai vc vai varrer .. pq nesse momento que vc chamou o arquivo retorno para o componente através do  ACBrBoleto.LerRetorno - TODOS os dados retornados pelo banco está lá (uma lista).... vc vai varrendo, quando é carteira REGISTRADA é fácil, basta comparar o NOSSO_NUMERO pq é único, mas no sem registro da pra fazer tbm, sugiro usar o campo SEU_NUMERO e colocar um valor único nele, assim quando o banco reornar vc usará esse campo como comparação
 ex:

   for I := 0 to ACBrBoleto.ListadeBoletos.Count - 1 do
    begin     
     Titulo := ACBrBoleto.ListadeBoletos.Objects[i];
     cdsAreceber.first;
    while not cdsAreceber.eof do
     begin
    
     if cdsAreceber.Seunumero = Titulo.SeuNumero then //"dai vc faz o que quiser "

    end;
    cdsAreceber.next;
   end;

 

espero ter ajudado...