Erro ao enviar arquivo remessa, registro fora da sequência

[laffsj]

Boa tarde pessoal.

Estou trabalhando com o banco Sicredi, fiz todo o processo de homologação e ficou tudo ok. Após o processo de homologação foi gerado um arquivo, transmitido e funcionou corretamente. Dias após ter enviado este primeiro arquivo, foi gerado um novo arquivo remessa mas na hora de transmitir fala que existe o seguinte erro na crítica: registro fora da sequência.

Olhando o arquivo não achei erro na estrutura, resolvi fazer uma nova validação do arquivo pelo site da sicredi e foi retornado validado com sucesso, alguém sabe o que pode esta dando errado?

 Foi obedecido também a nomenclatura do nome como no manual do banco.

Obrigado a atenção de todos.

31622713.crm

protocol-1600118912.pdf

[Claudiomir]

Saudações 

Já passei por isso com o Sicredi. Várias vezes na verdade.

Duas possibilidades, e ás vezes, as duas juntas.

Primeira: Na conta corrente (no teu sistema) deve ter um campo chamado numero da remessa. Ele deve ser do tipo integer e é sempre iniciado em 1. Quando enviar a remessa, acesse esse campo e some +1.

Segunda: Não sei por que, como ou por qual cargas dágua o sicredi teima que um grupo de boletos do mesmo cliente deve sempre ter numeração sequencial iniciando em 1 e sempre somando +1 nele. Exemplo: 03255-1,03255-2,03255-3,03255-4... 

É uma das duas opções, e no seu caso, acredito que seja a primeira.

Não se assuste, tem bancos bem piores que o sicredi por ai. 

Sempre á disposição se precisar de outros esclarecimentos,

 

Claudiomir

[laffsj]

Claudiomir muito obrigado pela atenção.

Pode me dizer onde informa no componente? Para que saia no arquivo remessa.

Obrigado.

[Claudiomir]

Ok.

Var
  Tipo, tipo2: String;
  Titulo: TACBrTitulo;
  nn: double;
  reg: integer;
  arqnp: String;
  ch, bc: String;
  nrremessa: integer;
  ext: string;
begin

  cta.close;
  cta.SQL.Clear;
  cta.SQL.Add('select * from cta where ctacodigo=' + gcrectacodigo.AsString);
  cta.Open;

  if not cta.IsEmpty then
  begin
    Tipo := self.ctactanossonume.AsString;
    bc := self.ctabcocodigo.AsString;
    nrremessa := self.ctactanumremessa.AsInteger;
.

.

.

.

    fprinci.ACBrBoleto1.ChecarDadosObrigatorios;

    Inc(nrremessa);     // nrremessa := nrremessa + 1;
    fprinci.ACBrBoleto1.GerarRemessa(nrremessa);
    cta.edit;
    ctactanumremessa.AsInteger := nrremessa;
    cta.Post;
    // RenameFile( NomeArq ,'C:\Posirelo\remessa\Cobitau.txt');
  except
    MessageDlg('Erro ao gerar arquivo de remessa. Verifique!', mtWarning, [mbOK], 0);
  end;

Sempre que precisar...

Claudiomir

[laffsj]

Entendi muito obrigado pela ajuda.