Leitura de Retorno Banco Brasil 400

[morales]

Boa Tarde! Estou precisando da leitura do Retorno Banco do Brasil CNAB400.

Quero saber se tem alguém que está fazendo e prestes a disponibilizar.

Obrigado!

[jorgehenrique]

Recentemente fiz a leitura do arquivo de retorno para a CEF e Bradesco. Creio que o BB seja da mesma forma.

Mas, especificamente falando, o que vc está precisando?

[morales]

Especificamente preciso de que, se alguém já fez. Disponibilize!

Mas já estou fazendo aqui.

[jorgehenrique]

Bom, creio que se eu colocar aqui o que fiz no meu sistema, vc não poderá aproveitar nada ou quase nada, visto que campos, tabelas, etc, são diferentes do seu jeito de programar. Mas posso te passar um roteiro, pq a leitura de arquivo de retorno é relativamente simples:

1o - Preencha os dados do banco e da conta corrente no ACBrBoleto;

2o - Setar as propriedades DirArqRetorno e NomeArqRetorno, com o local e nome do arquivo que deverá ser lido;

3o - Execute o método LerRetorno;

4o - Vc pode pegar os valores lidos nas propriedades do ACBrBoleto. Segue a forma que usei:

for I:=0 to Boleto.ListadeBoletos.Count-1 do

begin

with Boleto.ListadeBoletos.Objects do

begin

cds_receber_retr.Insert;

cds_receber_retrNUMDOCTO.AsString:=NumeroDocumento;

cds_receber_retrNOSSONRO.AsString:=NossoNumero;

cds_receber_retrREFERENCIA.AsString:=Referencia;

cds_receber_retrSEUNRO.AsString:=SeuNumero;

cds_receber_retrUSOBANCO.AsString:=UsoBanco;

cds_receber_retrSACADO.AsString:=Sacado.NomeSacado;

cds_receber_retrCGCCPF.AsString:=Sacado.CNPJCPF;

cds_receber_retrVALORDOCTO.AsCurrency:=ValorDocumento;

cds_receber_retrDATVENCTO.AsDateTime:=Vencimento;

cds_receber_retrNUMPARCELA.AsInteger:=Parcela;

cds_receber_retrQTDPARCELA.AsInteger:=TotalParcelas;

if (DataDocumento<>StrToDate('30/12/1899')) then cds_receber_retrDATADOCUMENTO.AsDateTime:=DataDocumento;

if (DataOcorrencia<>StrToDate('30/12/1899')) then cds_receber_retrDATARECEBIMENTO.AsDateTime:=DataOcorrencia;

if (DataProcessamento<>StrToDate('30/12/1899')) then cds_receber_retrDATAPROCESSAMENTO.AsDateTime:=DataProcessamento;

if (DataCredito<>StrToDate('30/12/1899')) then cds_receber_retrDATACREDITO.AsDateTime:=DataCredito;

if (DataAbatimento<>StrToDate('30/12/1899')) then cds_receber_retrDATABATIMENTO.AsDateTime:=DataAbatimento;

if (DataDesconto<>StrToDate('30/12/1899')) then cds_receber_retrDATADESCONTO.AsDateTime:=DataDesconto;

if (DataProtesto<>StrToDate('30/12/1899')) then cds_receber_retrDATAPROTESTO.AsDateTime:=DataProtesto;

if (DataBaixa<>StrToDate('30/12/1899')) then cds_receber_retrDATABAIXA.AsDateTime:=DataBaixa;

if (DataMoraJuros<>StrToDate('30/12/1899')) then cds_receber_retrDATAJUROS.AsDateTime:=DataMoraJuros;

cds_receber_retrDESPESACOBRANCA.AsCurrency:=ValorDespesaCobranca;

cds_receber_retrVALORABATIMENTO.AsCurrency:=ValorAbatimento;

cds_receber_retrVALORDESCONTO.AsCurrency:=ValorDesconto;

cds_receber_retrVALORIOF.AsCurrency:=ValorIOF;

cds_receber_retrVALOROUTDESP.AsCurrency:=ValorOutrasDespesas;

cds_receber_retrVALOUTROSCRED.AsCurrency:=ValorOutrosCreditos;

cds_receber_retrPERJUROS.AsFloat:=PercentualMulta;

cds_receber_retrVALORJUROS.AsCurrency:=ValorMoraJuros;

cds_receber_retrTOTALRECEBIDO.AsCurrency:=ValorRecebido;

cds_receber_retrESPECIE.AsString:=EspecieDoc;

cds_receber_retrCARTEIRA.AsString:=Carteira;

cds_receber_retrINSTR1.AsString:=Instrucao1;

cds_receber_retrINSTR2.AsString:=Instrucao2;

cds_receber_retrMSG.AsString:=Mensagem.Text;

cds_receber_retrREJEICAO.Value:=DescricaoMotivoRejeicaoComando.Text;

if (Aceite=atSim) then cds_receber_retrACEITE.AsString:='S' else cds_receber_retrACEITE.AsString:='N';

end;

cds_receber_retr.Post;

end;

Depois disso vc pode fazer algumas implementações interessantes como imprimir uma lista do retorno, baixar o título através do nosso numero ou seu numero, etc. Vai da sua imaginação.

Espero ter ajudado.

Jorge Henrique

[lazarinr]

Juliana

Implementei a função LerRetorno400 do banco do brasil. Segue em anexo para validação.

ACBrBancoBrasil.pas