Arquivo de remessa CNAB 240

Question

Tenho que implementar arquivo de remessa no padr�o CNAB 240 num sistema, s� que n�o tenho a m�nima id�ia de como fazer isso. J� tenho o layout do banco (CEF), s� que nunca trabalhei com esse tipo de a...

Weber · Answer

Sei muito bem do que voc� esta falando, os manuais da Caixa e do Banco do Brasil s�o no nojentos.

Infelizmente voc� n�o vai conseguir resolver seu problema utilizando os componentes atuais de emissao de boletos como o Delphi-Boleto, Free-Boleto e RLBoleto, voc� dever� desenvolver sua propria rotina.

O arquivo � um TXT normal, por�m � todo formatado e deve conter informa��es espec�ficas em cada posi��o dele.
O melhor a fazer � baixar o manual de cobran�a e ler inteirinho.

Dependendo da �influencia� que seu cliente tem junto ao banco o gerente da conta pode te ajudar, n�o com o c�digo mas sim lhe fornecendo informa��es importantes sobre o manual.

Boa Sorte!

Adriano Santos · Answer

[quote:d581e05ae6=�Weber�]Sei muito bem do que voc� esta falando, os manuais da Caixa e do Banco do Brasil s�o no nojentos.Infelizmente voc� n�o vai conseguir resolver seu problema utilizando os componentes atuais de emissao de boletos como o Delphi-Boleto, Free-Boleto e RLBoleto, voc� dever� desenvolver sua propria rotina.O arquivo � um TXT normal, por�m � todo formatado e deve conter informa��es espec�ficas em cada posi��o dele.O melhor a fazer � baixar o manual de cobran�a e ler inteirinho.Dependendo da �influencia� que seu cliente tem junto ao banco o gerente da conta pode te ajudar, n�o com o c�digo mas sim lhe fornecendo informa��es importantes sobre o manual.Boa Sorte![/quote:d581e05ae6]� isso ai Weber, voc� est� correto. Este tipo de CNAB � bem chatinho e tem que ser feito no bra�o mesmo. Bom, vai precisar usar o �esquem�o� de grava��o de arquivo texto. WriteLn, num tem jeito.Precisa ser CNAB 240 mesmo? Pq mesmo o banco do Brasil j� tem o padr�o 400 que � mais f�cil....

Gandalf.nho · Answer

[quote:84ec4674d5=�Adriano Santos�]Precisa ser CNAB 240 mesmo? Pq mesmo o banco do Brasil j� tem o padr�o 400 que � mais f�cil.[/quote:84ec4674d5]
Infelizmente sim, foi o padr�o que a pr�pria Caixa passou para n�s.
Pelo jeito vou ter que me virar mesmo, obrigada pela ajuda.

Adriano Santos · Answer

[quote:0c99588f2a=�gandalf.nho�][quote:0c99588f2a=�Adriano Santos�]Precisa ser CNAB 240 mesmo? Pq mesmo o banco do Brasil j� tem o padr�o 400 que � mais f�cil.[/quote:0c99588f2a]Infelizmente sim, foi o padr�o que a pr�pria Caixa passou para n�s. Pelo jeito vou ter que me virar mesmo, obrigada pela ajuda.[/quote:0c99588f2a]Estranho eles passarem este padr�o, a muitos anos j� os bancos est�o optando pelo formato 400, pois o 240 trabalha com 1 header, 2 details e 1 trailler, deixando bastante trabalhosa a programa��o....

Gandalf.nho · Answer

[quote:e7ca9edb51=�Adriano Santos�]Estranho eles passarem este padr�o, a muitos anos j� os bancos est�o optando pelo formato 400, pois o 240 trabalha com 1 header, 2 details e 1 trailler, deixando bastante trabalhosa a programa��o.[/quote:e7ca9edb51]
Pelo que o meu colega que tratou com os caras da Caixa falou, eles est�o bem defasados nesse quesito e vai ter que ser esse padr�o mesmo...

Thiago Vidal · Answer

cara, tenho aqui algumas rotinas que talvez te ajudem.

antigamente, eu usava TStringList e no final dava .SaveToFile para criar o arquivo, mas como o conteudo ficava na memoria, o sistema come�ou a ficar pesado, ent�o eu tive que desenvolver estas rotinas para gravar direto em TFileStream, STWrite e STWriteLN, mando tamb�m, rotinas para formata��o dos dados:

Pic9 -> Numerico, alinhado � direita, preenchido com zeros � esquerda
PicX -> Alfanumerico, alinhado � esquerda, preenchido com zeros � direita
PicD -> Data
PicC -> Moeda, com casas decimais informadas.

uses
  Math, StrUtils, DateUtils;

const
  Espacos = �                                                                                                  �;
  Zeros = �0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000�;

procedure STWrite(Stream: TStream; s: string);
begin
  Stream.Write(s[1], Length(s));
end;

procedure STWriteLN(Stream: TStream; s: string);
begin
  s := s + 1310;
  Stream.Write(s[1], Length(s));
end;

function Pic9(Tam: Integer; Num: Integer): string;
begin
  Result := Copy(IntToStr(Num), 1, Tam);
  while (Length(Result) < Tam) do
    Result := Copy(Zeros, 1, Tam - Length(Result)) + Result;
end;

function PicX(Tam: Integer; S: string): string;
begin
  Result := Copy(S, 1, Tam);
  while (Length(Result) < Tam) do
    Result := Result + Copy(Espacos, 1, Tam - Length(Result));
end;

function PicD(Data: TDateTime; Formato: string): string;
begin
  Result := FormatDateTime(Formato, Data);
end;

function PicC(Tam: Integer; Valor: Currency; CasasDec: Integer): string;
begin
  Result := Pic9(Tam, Round(Valor * IntPower(10, CasasDec)));
end;

procedure GravaLinha;
var
  Arquivo: string;
  fs: TFileStream;
begin
  fs := TFileStream.Create(Arquivo, fmCreate);
  try
    STWriteLN(fs, �CTE� +
      Pic9(4, Query.FieldByName(�Numero�).AsInteger)+
      PicX(30, Query.FieldByName(�Nome�).AsString)+
      PicD(Query.FieldByName(�Data�).AsDateTime, �yyyymmdd�)+
      PicC(13, Query.FieldByName(�Valor�).AsCurrency, 2)+
    );
  finally
    fs.Free;
  end;
end;

Eu prefiro usar 2 constantes cheias de zeros e de espa�os, pois a rotina fica bem mais rapida do que se vc fosse acrescentar um de cada vez por um loop while.

Espero ter ajudado.

Gandalf.nho · Answer

Valeu pelas rotinas, vou ver o que consigo aproveitar. No layout aqui s� tem pic9 e picX, mesmo para datas e valores monet�rios....

Adriano Santos · Answer

[quote:a2bcdc4592=�gandalf.nho�]Valeu pelas rotinas, vou ver o que consigo aproveitar. No layout aqui s� tem pic9 e picX, mesmo para datas e valores monet�rios.[/quote:a2bcdc4592]O caminho que o [b:a2bcdc4592]thiago_vidal[/b:a2bcdc4592] falou � esse mesmo. Tem que ser no bra�o como eu falei. Mas depois que fizer o primeiro layout, o resto � moleza...rsrs...boa sorte, ser precisar de algo t� aqui e me ponho a disposi��o....

Alex Sousa · Answer

Algu�m j� tem algo pronto?...

F�rum Arquivo de remessa CNAB 240 #324661